Смекни!
smekni.com

Проект разработки программы для фирмы-перевозчика (стр. 4 из 6)

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);

begin

if

(DBEdit15.Text='') or(DBEdit14.Text='')or(DBEdit13.Text='')

or(DBEdit16.Text='') or (DBEdit17.Text='') or(DBEdit18.Text='')

or(DBEdit19.Text='') or(DBEdit24.Text='')or(DBEdit20.Text='')

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

or(DBEdit27.Text='') or(DBEdit28.Text='')

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

else

begin

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

DM.Poezdki.FieldByName('№_накладной').AsString:=DBEdit23.Text; // Сохранение информации в базу

DM.Poezdki.FieldByName('Ид_№_машины').AsString:=DBEdit29.Text; // Сохранение информации в базу

DM.Poezdki.FieldByName('Ид_№_водителя').AsString:=DBEdit26.Text; // Сохранение информации в базу

DM.Poezdki.FieldByName('Ид_№_клиента').AsString:=DM.ADOQuery1.FieldByName('Ид_№_клиента').AsString;// Сохранение информации в базу

DM.Poezdki.Post; // Сохранение данных в таблице поездки

DM.Mashiny.Edit; //Изменение статуса выбранной машины

DM.Mashiny.FieldByName('Статус').AsString:=DBEdit31.Text; // Изменение статуса машины

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

DM.Voditeli.Edit; //Изменение статуса выбранного водителя

DM.Voditeli.FieldByName('Статус').AsString:=DBEdit31.Text; // Изменение статуса водителя

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

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

Otchet_nakladnaya.QRLabel49.Caption:=IntToStr(n); // Перенос значения

Otchet_nakladnaya.QuickRep1.Preview;// просмотр формы отчета

DM.Mashiny.Filtered:=False; //Деактивация фильтра

DM.Mashiny.Filter:='Статус=True'; //Задание фильтра

DM.Mashiny.Filtered:=True; //Активация фильтра

DM.Voditeli.Filtered:=False; //Деактивация фильтра

DM.Voditeli.Filter:='Статус=True' ;//Задание фильтра;

DM.Voditeli.Filtered:=True;//Деактивация фильтра

if (DBEdit28.Text='') and (DBEdit29.Text='') then

ShowMessage('В данный момент нет свободных машин'); //Вывод сообщения

if (DBEdit26.Text='') and (DBEdit27.Text='') then

ShowMessage('В данный момент нет свободных водителей'); //Вывод сообщения

s:=0;//Обнуление счетчика

DBEdit15.Clear; //Очистка поля ввода информации

DBEdit14.Clear; //Очистка поля ввода информации

DBEdit13.Clear;//Очистка поля ввода информации

DBEdit31.Text:='false'; // Занесение текста в поле ввода информации

DM.Dann_nakladn.Insert;// Заполнение таблицы Данные накладной

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

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

DBEdit24.Text:=DateToStr(date); //Вывод даты

DBEdit19.Text:=DBEdit27.Text; //Перенесение значения

Label50.Caption:=DBEdit35.Text;//Перенос значения

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

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

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

DBEdit16.ReadOnly:=False; // разрешение редактирования поля ввода

DBEdit17.ReadOnly:=False; //разрешение редактирования поля ввода

DBEdit18.ReadOnly:=False;//разрешение редактирования поля ввода

DBEdit19.ReadOnly:=False; //разрешение редактирования поля ввода

Edit1.Clear;// Очистка поля ввода

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

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

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

end;

end;

procedure TTransportnyi.Edit1Change – процедура поиска по базе данных:

procedure TTransportnyi.Edit1Change(Sender: TObject);

begin

Edit4.Text:=Edit2.Text+Edit1.Text+Edit3.Text; // поиск по базе данных

ListBox1.Items.Strings[2]:=Edit4.Text;//Изменения значения

Memo1.Lines:=ListBox1.Items;//Занесение информации

DM.ADOQuery1.Close;//Закрытие таблицы ADOQTovar

DM.ADOQuery1.SQL.Clear;//Очистка SQL таблицы ADOQTovar

DM.ADOQuery1.SQL.Assign(Memo1.Lines);//Занесение информации в SQL таблицы ADOQTovar

DM.ADOQuery1.Open;//Открытие таблицы ADOQTovar

if Edit1.Text='' then

begin

DBEdit15.Clear; // Очистка поля ввода информации

DBEdit14.Clear; // Очистка поля ввода информации

DBEdit13.Clear; // Очистка поля ввода информации

end;

end;

procedure TTransportnyi.TabSheet3Show – процедура фильтрации машин по статусу:

procedure TTransportnyi.TabSheet3Show(Sender: TObject);

begin

DM.Mashiny.Filtered:=False; //Деактивация фильтра

DM.Mashiny.Filter:='Статус=True'; //Задание фильтра

DM.Mashiny.Filtered:=True; //Активация фильтра

DM.Voditeli.Filtered:=False; //Деактивация фильтра

DM.Voditeli.Filter:='Статус=True' ;//Задание фильтра;

DM.Voditeli.Filtered:=True;//Деактивация фильтра

if (DBEdit28.Text='') and (DBEdit29.Text='') then

ShowMessage('В данный момент нет свободных машин'); //Вывод сообщения

if (DBEdit26.Text='') and (DBEdit27.Text='') then

ShowMessage('В данный момент нет свободных водителей'); //Вывод сообщения

end;

procedure TZastavka.PolzovatelChange – процедура установки соответствия между паролем и логином:

procedure TZastavka.PolzovatelChange(Sender: TObject);

var i:byte;

begin

DM.Parol.First; // Переход к первой записи в таблице

For i:=0 to DM.Parol.RecordCount-1 do

begin

if Polzovatel.Text=DM.Parol.FieldByName('Логин').AsString then //Проверка логина

Parol_pro.Text:=DM.Parol.FieldByName('Пароль').AsString; //Проверка пароля

DM.Parol.Next; //ПЕРЕХОД К СЛЕДУЮЩЕЙ ЗАПИСИ В ТАБЛИЦЕ

end;

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

end;

procedure TZastavka.DaleeClick – процедура проверки правильности пароля:

procedure TZastavka.DaleeClick(Sender: TObject);

begin

if Parol.Text='' then ShowMessage('Введите пароль') // Вывод сообщения

else

begin

if Parol.Text<>Parol_pro.Text then begin ShowMessage('Пароль не верен');

Parol.Clear end //Очистка поля ввода

else

begin

if Polzovatel.Text='Транспортный отдел' then

begin

Transportnyi.show;//Показ формы

Zastavka.Hide;//Скрытие формы

end

else

if Polzovatel.Text='Администратор' then

begin

Administrirovanie.Show;//Показ формы

Zastavka.Hide;//Скрытие формы

end;

end;

end;

Parol.Clear; //Очистка поля ввода информации

end;

Рисунок 14. Не визуальные компоненты


2. Руководство оператора

2.1 Назначение программы

Программное обеспечение разработано на тему: «Информационная система работника транспортного отдела фирму грузоперевозок». Основным назначением программы является автоматизация рабочего места работника транспортного отдела. При использовании данного программного продукта, исключается необходимость заполнения в ручную большего количества бумажной документации и появляется защита от несанкционированного доступа. Также это программное обеспечение позволяет производить поиск уже обращавшихся клиентов по базе данных, заносить данные о новой машине, удалять информацию из базы данных о списанных машинах, выдавать накладную, изменять статус вернувшихся из поездки машин и водителей. Данное программное обеспечение предоставляет справку по работе с программой.