Постановление на учет автомобилей. Прохождение техосмотра - Курсовая работа

Программа содержит базу данных ГИБДД, позволяющую автоматизировать работу сотрудников. Delphi 7 является одной из самых легкодоступных языков программирования как для профессионалов, так и для начинающих пользователей, позволяющая быстро освоить основные манипуляции действий с Delphi. Программа разработана в среде Delphi и запускается с помощью файла «Gibdd.exe». Основанием для разработки данной программы явилось задание руководителя курсовой работы 1.2 Организация ввода/вывода и пользовательского интерфейса 1.2.1 Входные данные Входными данными служат сведения, введенные с клавиатуры, для регистрации транспортного средства, их владельца, для составления отчетов по прохождению техосмотра . 1.2.2 Выходные данные Выходными данными в программе являются составленные отчеты, такие как: · Паспорт транспортного средства · Свидетельство о регистрации ТС · Водительское удостоверение · Карточка сотрудника · Талон технического осмотра · Акт технического осмотра. 1.2.3 Интерфейс пользователя При запуске программы на экране появляется форма, содержащая строку для ввода пароля и авторизации пользователя. Далее на экране появляется главная форма содержащая 4 пункта меню «Файл», «Таблицы», «Отчеты», «Помощь». Ниже под меню располагаются 4 кнопки, для удобного переключения между имеющимися таблицами: «Транспортные средства», «Владельцы», «Сотрудники», «Прохождение технического осмотра». 1.3 Структурная схема программы 2. ЕСПД ГОСТ 19.103-77 Обозначение программы и программных документов. 2. П 4.3 Сотрудники ПРИЛОЖЕНИЕ 5 1. Font.name := Arial; // шрифт Font.Size := 10; // размер Font.Style := [fsBold]; // стиль - жирный HintInfo.HintColor := $00A6DBFE; // цвет end; end; {Процедура заполнения раскрывающихся списков владельцев ТС} procedure TForma_Glavnaya.Obn_Vladelcev; begin try Datamodule1.ADO_Vladelcu.Refresh; // обновляем таблицу Datamodule1.ADO_Vladelcu.First; // переходим к первой записи ComboBox1.Clear; // очищаем список сотрудников while not(Datamodule1.ADO_Vladelcu.EOF) do // до конца таблицы делаем... begin ComboBox1.Items.add(string(Datamodule1.ADO_Vladelcu.FieldValues[Fam] Datamodule1.ADO_Vladelcu.FieldValues[Imya] Datamodule1.ADO_Vladelcu.FieldValues[Otch])); Datamodule1.ADO_Vladelcu.Next; // к следующей записи end; ComboBox1.ItemIndex:=0; // на первую запись в списке ComboBox4.Items:=ComboBox1.Items; // присваиваем все значения другому раскрывающемуся списку F_VU.ComboBox1.Items:=ComboBox1.Items; // переприсваиваем все значения другому раскрывающемуся списку F_VU.ComboBox1.ItemIndex:=0; // на первую запись в списке ComboBox4.ItemIndex:=0; // на первую запись в списке ComboBox1Change(Self); // процедура изменения раскрывающегося списка, в которой по ФИО берется его код ComboBox4Change(Self); // процедура изменения раскрывающегося списка, в которой по ФИО берется его код Datamodule1.ADO_Vladelcu.First; // на первую запись в таблице ВЛАДЕЛЬЦЫ except end; end; {Процедура заполнения раскрывающихся списков Сотрудников} procedure TForma_Glavnaya.Obn_Sotrudnikov; begin try Datamodule1.ADO_Sotrudniki.Refresh; // обновляем таблицу сотрудников Datamodule1.ADO_Sotrudniki.First; // переходим к первой записи ComboBox9.Clear; // очищаем список сотрудников while not(Datamodule1.ADO_Sotrudniki.EOF) do // до конца таблицы делаем... begin ComboBox9.Items.add(string(Datamodule1.ADO_Sotrudniki.FieldValues[Fam] Datamodule1.ADO_Sotrudniki.FieldValues[Imya] Datamodule1.ADO_Sotrudniki.FieldValues[Otch])); Datamodule1.ADO_Sotrudniki.Next; // к следующей записи end; ComboBox9.ItemIndex:=0; // на первого сотрудника в списке ComboBox10.Items:=ComboBox9.Items; // присваиваем все значения другому раскрывающемуся списку ComboBox17.Items:=ComboBox9.Items; // присваиваем все значения другому раскрывающемуся списку ComboBox19.Items:=ComboBox9.Items; // присваиваем все значения другому раскрывающемуся списку ComboBox10.ItemIndex:=0; // на первого сотрудника в списке ComboBox17.ItemIndex:=0; ComboBox19.ItemIndex:=0; ComboBox9Change(Self); // процедуры изменения раскрывающихся списков, по ФИО выводят код сотрудника в метку ComboBox19Change(Self); // тож самое ComboBox10Change(Self); ComboBox17Change(Self); Datamodule1.ADO_Sotrudniki.First; // на первую запись в таблице сотрудников except end; end; {Процедура заполнения раскрывающихся списков Регистрационных номеров ТС} procedure TForma_Glavnaya.Obn_RegNum; begin try Datamodule1.ADO_TC.Refresh; // обновляем таблицу Datamodule1.ADO_TC.First; // переходим к первой записи ComboBox18.Clear; // очищаем список сотрудников while not(Datamodule1.ADO_TC.EOF) do // до конца таблицы делаем... begin ComboBox18.Items.add(string(Datamodule1.ADO_TC.FieldValues[RegNum])); // добавляем в раскр. список рег номер Datamodule1.ADO_TC.Next; // к следующей записи end; ComboBox20.Items:=ComboBox18.Items; // присваиваем все значения другому раскрывающемуся списку ComboBox18.ItemIndex:=0; // на первого клиента в списке ComboBox20.ItemIndex:=0; // на первую запись в списке ComboBox18Change(Self); // выводим в метку по