48317 (588541), страница 4

Просмтор этого файла доступен только зарегистрированным пользователям. Но у нас супер быстрая регистрация: достаточно только электронной почты!

Текст из файла (страница 4)

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 Назначение программы

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

2.2 Условия выполнения программы

Данное программное обеспечение имеет весьма «скромные» системные требования. Для обеспечения нормальной работоспособности программы необходимо иметь компьютер с конфигурацией не ниже:

Процессор – Pentium II;

Оперативная память - 64 Мб;

Свободное место на диске – 50 Мб;

Монитор 17’’;

Клавиатура;

Мышь;

Принтер.

Данная программа работает под управлением семейства операционных систем Windows. Также на компьютере должно быть установлено ПО MS Office(не ниже 2000).

Установка данной программы осуществляется путем копирования файлов программы: Baza.mdb и Start.exe в папку созданную на любом из локальных дисков.

2.3 Выполнение программы

Для начала работы необходимо запустить файл Start.exe, заранее скопированный вместе с файлом Baza.mdb в отдельную папку на любой логический диск. После запуска файла Start.exe на экране появляется окно формы «Регимтрация», в котором необходимо выбрать пользователя, и ввести соответствующий пароль доступа к программе, и нажать кнопку «Далее» или Enter, для того, чтобы продолжить работу с программой. В случае если пароль введен не верно, программа выведет сообщение об ошибке. Если Вы хотите выйти из программы, то нужно нажать кнопку «Выход».

Для получения справки о программе необходимо нажать кнопку «Справка». Для возврата в главное окно нажмите кнопку «Закрыть справку».

После того как выбран логин, введен правильный пароль и нажата кнопка «Далее» или Enter, на экране появится:

Если выбран логин «Транспортный отдел» - главное окно программы, на котором можно произвести следующие действия:

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

Для удаления информации из базы данных о списанной машине необходимо зайти на вкладку «Списать машину», и нажать кнопку «Списать».

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

Для изменения статуса машин и водителей необходимо зайти на вкладку «Изменение статуса машин и водителей», посредством кнопок «Вперед» и «Назад» выбрать необходимого водителя и машину, нажав кнопку «Изменить» выбрать из списка новый статус, и нажать кнопку «Сохранить».

Если выбран логин «Администратор», откроется окно: «Администрирование», на котором можно произвести следующие действия:

Для изменения информации о машине необходимо нажать кнопку «Корректировка машин». В открывшемся окне нужно посредством кнопок «Вперед» и «Назад» выбрать машину и нажать кнопку «Изменить». После внесения изменений необходимо нажать кнопку «Применить».

Для изменения владельца лицензии нужно нажать кнопку «Изменить владельца лицензии», ввести новые данные, и нажать кнопку «Принять».

Для просмотра накладных необходимо нажать кнопку «Просмотр выданных накладных», и в появившемся окне открыть ранее сохраненную накладную.

Для изменения пароля доступа к программе нужно нажать кнопку сохранение пароля, выбрать нужный логин, ввести новый пароль, и нажать кнопку «Сохранить».

2.4 Сообщения оператору

При работе с данной программой оператору могут выводиться различные сообщения:

Запрос на подтверждение нажатия кнопки. Выводится при нажатии кнопки «Выход» (Рис 15.)

Рисунок 15. Сообщение «Подтверждение выхода»

Сообщение об ошибке ввода данных. Выводится при ошибочном вводе пароля (Рис. 16)

Рисунок 16. Сообщение «Ошибка пароля»

Сообщение о сохранении новых данных. Выводится при изменении пароля и сохранении данных о клиенте (Рис 17)

Рисунок 17. Сообщение «Пароль сохранен»

Сообщение. Выводится при заполнении не всех полей нужных для сохранения (Рис 18)

Рисунок 18. Сообщение «Не заполнены необходимые поля»

Сообщение о сохранении информации (Рис.19)

Характеристики

Список файлов ВКР