48317 (Проект разработки программы для фирмы-перевозчика), страница 3

Программные средства RAD-разработки делятся на универсальные и специализированные. Специализированные средства разработки ориентированы только на создание приложений баз данных и, как правило, привязаны к вполне определенным системам управления баз данных (Power Builder фирмы Sybase, Visual FoxPro фирмы Microsoft).

Среди универсальных систем визуального программирования наибольшее распространение получили: Borland Delphi, Borland C++, Visual Basic, с помощью которых можно разработать приложения практически любого типа, причем программы, разработанные такими средствами в состоянии взаимодействовать практически с любой системой управления базами данных. Возможности таких систем при разработке пользовательского интерфейса слились с созданием прототипов системы. При активном участии пользователя системы, способного корректировать как результаты расчетов, так и собственные требования к системе, сроки изготовления программы сокращаются. Наследованное универсальными системами событийного программирования предполагает описание различных событий различных объектов, установленных на форме-контейнере элементов управления. С помощью событийного программирования можно как обрабатывать информацию, хранящуюся в базе данных, так и создавать, редактировать, модифицировать, удалять объекты баз данных.

Как и любая технология, методология RAD имеет ряд своих недостатков и ограничений. Но при разработке относительно небольших систем, разрабатываемых под конкретную организацию, она достаточно эффективна.

1.2.5 Описание алгоритма программы

Схема технологического процесса сбора, передачи, обработки и выдачи информации (Рис.12).

Схема загрузки формы регистрация

Выбор кнопки «Продолжить»

Выбор кнопки «Печать накладной»

Выбор кнопки «Выход»

Рисунок 12. «Схема технологического процесса сбора, передачи, обработки и выдачи информации»

Алгоритм работы программы представлен в виде блок-схемы, демонстрирующей кнопки вызова форм. После запуска файла Start.exe на экране появляется форма «Регистрация» (блок 2), которая предлагает выбрать пользователя и через элемент MaskEdit ввести пароль.

На форме находиться кнопка:

«Справка» (блок 3) активизирует форму «Справка» (блок 4) для просмотра информации об особенностях работы программы. Переход на форму «регистрация» осуществляется посредством нажатия кнопки «Закрыть справку» (блок. 5);

Если в поле логин выбран пользователь – Администратор (блок. 7), введен корректный пароль, и нажата кнопка «Далее» (блок. 11), то программа открывает форму «Администрирование» (блок. 13)

На форме находятся кнопки:

«Корректировка машин» (блок 15) открывает форму «Редактирование машин» (блок. 16). Для возврата на форму «Администрирование» (блок. 13) необходимо нажать кнопку «На главную» (блок. 20);

«Просмотр выданных накладных» открывает форму «Накладные» (блок. 24);

«Смена пользователя» загружает форму «Регистрация» (блок. 2);

«Выход» осуществляет закрытие программы»;

Если в поле логин выбран пользователь – Транспортный отдел (блок. 8), введен корректный пароль, и нажата кнопка «Далее» (блок. 12), то программа открывает форму «Главная» (блок. 14)

На форме находятся кнопки:

«Печать лицензионной карточки» (блок 17) открывает отчет «Лицензионная карточка» (блок. 19);

«Печать накладной» (блок. 21) открывает отчет «Накладная» (блок. 23);

«Смена пользователя» (блок. 25) загружает форму «Регистрация» (блок. 2);

«Выход» (блок. 27) осуществляет закрытие программы.

Схема вызова форм программы представлена на рисунке (Рис.13).

Рисунок 13. «Схема вызова форм программы»

1.2.6 Описание функциональных точек

В проекте 8 форм, 19 не визуальных компонентов и 12 основных процедур обработки событий, которые в совокупности предназначены для автоматизации обслуживания клиентов фирмы грузоперевозок. Входные данные находятся в файле базы данных, поэтому описаны функциональные точки – формы и не визуальные компоненты связи наборов данных из базы данных и визуальных компонентов, расположенных на формах. Не визуальные компоненты представлены в виде рисунка (Рис. 14)

Файл Admin_Mashin_f.pas

procedure TAdmin_Mashin.SpeedButton9Click – процедура изменения информации о машине:

procedure TAdmin_Mashin.SpeedButton9Click(Sender: TObject);

begin

DateTimePicker1.Date:=strtodate(DBEdit6.Text);

DateTimePicker2.Date:=strtodate(DBEdit4.Text);

DBEdit1.Enabled:=True;//Активация поля ввода информации

DBEdit2.Enabled:=True;//Активация поля ввода информации

DBEdit3.Enabled:=True;//Активация поля ввода информации

DBEdit4.Enabled:=True;//Активация поля ввода информации

DBEdit5.Enabled:=True;//Активация поля ввода информации

DBEdit6.Enabled:=True;//Активация поля ввода информации

DBEdit10.Enabled:=True;//Активация поля ввода информации

DBEdit11.Enabled:=True;//Активация поля ввода информации

ComboBox1.Enabled:=true;//Активация поля ввода информации

DateTimePicker1.Enabled:=true;

DateTimePicker2.Enabled:=true;

SpeedButton1.Enabled:=False;//Деактивация кнопки

SpeedButton2.Enabled:=False;//Деактивация кнопки

SpeedButton3.Enabled:=True;//Активация кнопки

SpeedButton4.Enabled:=True;//Активация кнопки

SpeedButton9.Enabled:=False;//Деактивация кнопки

Pereregistratsiya.Enabled:=False;//Деактивация кнопки

DM.Lits_kart.Edit;//Изменение строки в таблице

DM.Mashiny.Edit;//Изменение строки в таблице

end;

procedure TAdmin_Mashin.SpeedButton4Click – процедура сохранения информации в таблицу «Машины»:

procedure TAdmin_Mashin.SpeedButton4Click(Sender: TObject);

begin

if

(DBEdit6.Text='') or(DBEdit4.Text='')or(DBEdit5.Text='')

or(DBEdit2.Text='') or (DBEdit3.Text='') or(DBEdit1.Text='')

or(DBEdit10.Text='') or(DBEdit1.Text='')

then ShowMessage('Заполните все поля')// вывод сообщения

else

begin

DBEdit1.Enabled:=False; //Деактивация поля ввода информации

DBEdit2.Enabled:=False;//Деактивация поля ввода информации

DBEdit3.Enabled:=False;//Деактивация поля ввода информации

DBEdit4.Enabled:=False;//Деактивация поля ввода информации

DBEdit5.Enabled:=False;//Деактивация поля ввода информации

DBEdit6.Enabled:=False;//Деактивация поля ввода информации

DBEdit10.Enabled:=False;//Деактивация поля ввода информации

DBEdit11.Enabled:=False;//Деактивация поля ввода информации

DateTimePicker1.Enabled:=false;//Деактивация календаря

DateTimePicker2.Enabled:=false;//Деактивация календаря

SpeedButton1.Enabled:=True; //Активация кнопки

SpeedButton2.Enabled:=True; //Активация кнопки

SpeedButton3.Enabled:=False;//Деактивация кнопки

SpeedButton4.Enabled:=False; //Деактивация кнопки

SpeedButton9.Enabled:=True; //Активация кнопки

DBEdit30.Text:=ComboBox1.Text; //Перенос значения

ComboBox1.Enabled:=False; //Деактивация поля ввода информации

Pereregistratsiya.Enabled:=True; //Активация кнопки

DM.Lits_kart.Post;//Сохранение данных в таблицу

dm.Mashiny.FieldByName('№_лиценз_карт').AsInteger:=dm.Lits_kart.FieldByName('№_лиценз_карт').AsInteger;

DM.Mashiny.Post;//Сохранение данных в таблицу

end;

end;

procedure TAdmin_Mashin.VyhodClick – процедура выхода из программы:

procedure TAdmin_Mashin.VyhodClick(Sender: TObject);

begin

if MessageDlg('Вы действительно хотите выйти из программы?', // вывод сообщения

mtConfirmation, [mbYes, mbNo], 0) = mrYes then

Application.Terminate; //закрытие программы

end;

procedure TAdmin_Mashin.FormMouseMove – процедура изменения стиля надписи:

procedure TAdmin_Mashin.FormMouseMove(Sender: TObject; Shift: TShiftState;

X, Y: Integer);

begin

Pereregistratsiya.Font.Color:=$00AD9612; //Изменение цвета надписи

SpeedButton2.Font.Size:=10; //Изменение размера шрифта надписи

SpeedButton2.Font.Style:=[fsBold,fsItalic]; //Изменение стиля надписи

SpeedButton1.Font.Size:=10; //Изменение размера шрифта надписи

SpeedButton1.Font.Style:=[fsBold,fsItalic]; //Изменение стиля надписи

SpeedButton9.Font.Size:=10;//Изменение размера шрифта надписи

SpeedButton9.Font.Style:=[fsBold,fsItalic]; //Изменение стиля надписи

SpeedButton3.Font.Size:=10;//Изменение размера шрифта надписи

SpeedButton3.Font.Style:=[fsBold,fsItalic]; //Изменение стиля надписи

SpeedButton4.Font.Size:=10;//Изменение размера шрифта надписи

SpeedButton4.Font.Style:=[fsBold,fsItalic];//Изменение стиля надписи

end;

Файл Transportnyi_f.pas

procedure TTransportnyi.SpeedButton7Click – процедура заполнения лицензионной карточки

procedure TTransportnyi.SpeedButton7Click(Sender: TObject);

begin

Otchet_po_lits_kart.QRLabel9.Caption:= DBEdit6.Text; // Перенос значения

Otchet_po_lits_kart.QRLabel19.Caption:= DBEdit5.Text;// Перенос значения

Otchet_po_lits_kart.QRLabel2.Caption:= DBEdit12.Text;// Перенос значения

Otchet_po_lits_kart.QRLabel10.Caption:= DBEdit4.Text;// Перенос значения

Otchet_po_lits_kart.QRLabel11.Caption:= DBEdit2.Text;// Перенос значения

Otchet_po_lits_kart.QRLabel12.Caption:= DBEdit1.Text;// Перенос значения

Otchet_po_lits_kart.QRLabel14.Caption:= Administrirovanie.Edit1.Text;//

Перенос значения

Otchet_po_lits_kart.QuickRep1.Preview; //Просмотр отчета

end;

procedure TTransportnyi.SpeedButton15Click – процедура проверки свободного места в машине:

procedure TTransportnyi.SpeedButton15Click(Sender: TObject);

begin

if n=4 then ShowMessage('В машине больше нет свободного места') //вывод сообщения

else begin

DBEdit20.SetFocus; //установка курсора

DM.Mater_sredst.Insert;//Заполнение табдицы материальные средства

DBEdit23.Text:=DBEdit25.Text;//перенос значения

n:=n+1; // Увеличение счетчика

SpeedButton13.Enabled:=True;//Активация кнопки

SpeedButton15.Enabled:=False;//Деактивация кнопки

ComboBox4.Enabled:=true; //Активация поля ввода

ComboBox4.Text:=''; // Очистка поля ввода

end;

end;

procedure TTransportnyi.SpeedButton13Click – процедура создания накладной

procedure TTransportnyi.SpeedButton13Click(Sender: TObject);

begin

if

(DBEdit20.Text='') or(DBEdit21.Text='')or(DBEdit22.Text='')

or(DBEdit23.Text='')

then ShowMessage('Заполните все поля')// вывод сообщения

else

begin

DM.Mater_sredst.Post; // Сохранение материальных средств

case n of

1:begin Otchet_nakladnaya.QRLabel33.Caption:='1';

Otchet_nakladnaya.QRLabel34.Caption:=DBEdit20.Text;// Перенос значения

Otchet_nakladnaya.QRLabel35.Caption:=DBEdit22.Text;// Перенос значения

Otchet_nakladnaya.QRLabel36.Caption:=DBEdit21.Text;end;// Перенос значения

2:begin Otchet_nakladnaya.QRLabel37.Caption:=inttostr(n);

Otchet_nakladnaya.QRLabel40.Caption:=DBEdit20.Text;// Перенос значения

Otchet_nakladnaya.QRLabel43.Caption:=DBEdit22.Text;// Перенос значения

Otchet_nakladnaya.QRLabel46.Caption:=DBEdit21.Text;end;// Перенос значения

3:begin Otchet_nakladnaya.QRLabel38.Caption:=inttostr(n);

Otchet_nakladnaya.QRLabel41.Caption:=DBEdit20.Text;// Перенос значения

Otchet_nakladnaya.QRLabel44.Caption:=DBEdit22.Text;// Перенос значения

Otchet_nakladnaya.QRLabel47.Caption:=DBEdit21.Text;end;// Перенос значения

4:begin Otchet_nakladnaya.QRLabel39.Caption:=inttostr(n);

Otchet_nakladnaya.QRLabel42.Caption:=DBEdit20.Text;// Перенос значения

Otchet_nakladnaya.QRLabel45.Caption:=DBEdit22.Text;// Перенос значения

Otchet_nakladnaya.QRLabel48.Caption:=DBEdit21.Text; end;// Перенос значения

end;

ShowMessage('Данные о товаре сохранены'); //вывод сообщения

SpeedButton13.Enabled:=False;//Деактивация кнопки

SpeedButton15.Enabled:=True; //Активация кнопки

ComboBox4.Enabled:=False;

Edit5.SetFocus;

end;

end;

procedure TTransportnyi.SpeedButton11Click – процедура сохранения информации о накладной и о поездке:

procedure TTransportnyi.SpeedButton11Click(Sender: TObject);