Geum.ru

База данных «приемная комиссия»

Реферат - Компьютеры, программирование

Другие рефераты по предмету Компьютеры, программирование

? большую актуальность приобретает освоение принципа построения и эффективного применения соответствующих технологий и программных продуктов.

По завершению дипломного проекта удалось достигнуть всех поставленных целей и задач. В итоге программа прибрела некоторые дополнительные возможности, такие как настройка внешнего вида и выбора используемой базы данных, а также другие не менее значимые функции и возможности.

ИСТОЧНИКИ, ИСПОЛЬЗОВАННЫЕ ПРИ РАЗРАБОТКЕ

 

  1. Озеров В. Delphi. Советы программистов. СПб.: Символ Плюс. 2002. 912 с.: ил.;
  2. Фаронов В.В. Программирование баз данных в Delphi 7. Учебный курс. СПб.: Питер, 2004. 459 с.: ил.;
  3. Вирт Н. Алгоритмы и структуры данных / Пер. с англ. М.: Мир, 1999. - 360 с., ил.;
  4. Гринзоу Лу. Философия программирования для Windows XP / Пер. с англ. СПб.: Символ-Плюс, 2002. 640 с., ил.;
  5. Зелковиц М., Шоу А., Гэннон Дж. Принципы разработки программного обеспечения / Пер. с англ. М.: Мир, 2003. 386 с., ил.;
  6. Практическое руководство по программированию / Пер. с англ. Б. Мик, П. Хит, Н. Рашби и др.; под ред. Б. Мика, П. Хит, Н. Рашби. М.: Радио и связь, 2004. 168 с., ил.;
  7. Новиков Ю., Новиков Д., Черепанов А., Чернов В. Компьютеры, сети, Интернет. Энциклопедия. Спб.: Питер, 2002 г. 928 с.: ил.
  8. Фокс Дж. Программное обеспечение и его разработка / Пер. с англ. М.: Мир, 2000. - 368 с., ил.;
  9. Язык компьютера. Пер. с англ, под ред. и с предисл. В. М. Курочкина. М.: Мир, 2001. - 240 с., ил.;
  10. И.Г.Гетия Безопасность при работе на ПЭВМ Москва НПЦ Профессионал - Ф 2005 год, 127 страниц.
  11. Гофман В.Э., Хомоненко А. Д. Работа с базами данных В Delphi. 2-е изд. спб.: БХВ Петербург, 2002. 624 с.:ил
  12. Безопасность жизнедеятельности: Учебник / По ред. Проф. Э. А. Арустамова 6-е изд., перераб. И доп М.: Издательско торговая корпорация Дашков и К, 2003, -496 с.
  13. В.П. Зинченко, В.М. Мухинов. Основы эргономики. М., изд-во Моск. ун-та, 2002 г, 344 с.
  14. Русак О.Н., Малаян К.Р., Занько Н.Г. Безопасность жизнедеятельности: Учебное пособие. 4-е изд., стер./ Под ред. О.Н.Русака. Спб.: Издательство Лань, 2001 г., 448 с., ил. (Учебники для вузов, специальная литература).

 

 

Приложение А

//Загрузка программы

program DataBase;

uses

Forms,

UMain in UMain.pas {MainForm},

UListSlush in UListSlush.pas {ListSlushForm},

USlush in USlush.pas {EditSlushForm},

UDataMod in UDataMod.pas {DataModule1: TDataModule},

URecvizit in URecvizit.pas {SetingForm},

USplash in USplash.pas {SplashForm},

UAbout in UAbout.pas {AboutForm},

USpecials in USpecials.pas {ListSpecialsForm},

UEditSpecials in UEditSpecials.pas {EditSpecialForm},

UFind in UFind.pas {FindForm},

ULogin in ULogin.pas {LoginForm},

UAboutKMRCPK in UAboutKMRCPK.pas {AboutKMRCPKForm},

UCreateGroup in UCreateGroup.pas {ListGroupForm};

 

{$R *.res}

{$R Bitmap.RES}

{$R xp_manifest.RES}

 

begin

Application.Initialize;

with TSplashForm.Create(nil) do

try

LoadingProgressBar.Max:=130;

Show;

Update;

Application.Title := ASF: Приемная комиссия;

Application.CreateForm(TMainForm, MainForm);

LoadingProgressBar.Position:=10;

InfoLabel.Caption:=Создание MainForm. Загрузка... 10%;

MainForm.Delay(50);

Application.CreateForm(TEditSpecialForm, EditSpecialForm);

LoadingProgressBar.Position:=20;

InfoLabel.Caption:=Создание EditSpecialForm. Загрузка... 20%;

MainForm.Delay(50);

Application.CreateForm(TAboutForm, AboutForm);

LoadingProgressBar.Position:=30;

InfoLabel.Caption:=Создание AboutForm. Загрузка... 30%;

MainForm.Delay(50);

Application.CreateForm(TEditSlushForm, EditSlushForm);

LoadingProgressBar.Position:=40;

InfoLabel.Caption:=Создание EditSlushForm. Загрузка... 40%;

MainForm.Delay(50);

Application.CreateForm(TDataModule1, DataModule1);

LoadingProgressBar.Position:=50;

InfoLabel.Caption:=Создание DataModule1. Загрузка... 50%;

MainForm.Delay(50);

Application.CreateForm(TSetingForm, SetingForm);

LoadingProgressBar.Position:=60;

InfoLabel.Caption:=Создание формы RekvizitForm. Загрузка... 60%;

MainForm.Delay(50);

Application.CreateForm(TFindForm, FindForm);

LoadingProgressBar.Position:=70;

InfoLabel.Caption:=Создание FindForm. Загрузка... 70%;

MainForm.Delay(50);

Application.CreateForm(TAboutKMRCPKForm, AboutKMRCPKForm);

LoadingProgressBar.Position:=50;

InfoLabel.Caption:=Создание ListGroupForm. Загрузка... 80%;

MainForm.Delay(50);

Application.CreateForm(TListGroupForm, ListGroupForm);

InfoLabel.Caption:=Создание AboutKMRCPKForm. Загрузка... 90%;

MainForm.Delay(50);

MainForm.ErrorBase;

LoadingProgressBar.Position:=90;

InfoLabel.Caption:=Проверка базы данных. Загрузка... 95%;

MainForm.Delay(50);

MainForm.WindowState:=wsMaximized;

LoadingProgressBar.Position:=100;

InfoLabel.Caption:=Расположение окна, загрузка настроек. Загрузка... 100%;

MainForm.Delay(50);

finally

Free;

end;

Application.Run;

end.Приложение Б

//Перевод числа в строку (прописью)

function TMainForm.CurrencyToStr(Value: double): string;

const Hundreds: array [0..9] of string=(, сто, двести, триста, четыреста, пятьсот, шестьсот, семьсот, восемьсот, девятьсот);

Tens: array [0..9] of string=(,, двадцать, тридцать, сорок, пятьдесят, шестьдесят, семьдесят, восемьдесят, девяносто);

Ones: array [0..19] of string=(,,, три, четыре, пять, шесть, семь, восемь, девять, десять, одиннадцать, двенадцать, тринадцать, четырнадцать, пятнадцать, шестнадцать, семнадцать, восемнадцать, девятнадцать);

Razryad: array [0..6] of string=(, тысяч, миллион, миллиард, триллион, квадриллион, квинтиллион);

var s: string; i: integer; val: int64;

function shortNum(s: string; raz: integer): string;

begin

Result:=hundreds[StrToInt(s[1])]; if StrToInt(s)=0 then Exit;

if s[2]<>1 then

begin

Result:=Result+tens[StrToInt(s[2])];

case StrToInt(s[3]) of