Автоматизированная информационная система (АИС) "МРЭО ГАИ"
Описание логической структуры программы, разработка интерактивного интерфейса, описание используемых функций и процедур (листинг кода). Расчет себестоимости автоматизированных информационных услуг, показателей по труду и заработной платы, рентабельности.
| Рубрика | Программирование, компьютеры и кибернетика |
| Вид | дипломная работа |
| Язык | русский |
| Дата добавления | 28.08.2014 |
| Размер файла | 8,2 M |
Отправить свою хорошую работу в базу знаний просто. Используйте форму, расположенную ниже
Студенты, аспиранты, молодые ученые, использующие базу знаний в своей учебе и работе, будут вам очень благодарны.
- Работник не должен разрешать работать лицам, не имеющим допуска к работе с опасным оборудованием или с ПК. [24]
4.2 Требования безопасности во время работы с ПК
Работник организации во время работы обязан:
— Выполнять ту работу, которая определена его должностной инструкцией. Которая ему была поручена, и по которой он был проинструктирован.
— В течение всего рабочего времени содержать в порядке и чистоте рабочее место.
— Держать открытыми вентиляционные отверстия, которыми оборудованы приборы и ПК.
— Не загромождать оборудование посторонними предметами, которые снижают теплоотдачу.
— При необходимости прекращения работы на некоторое время корректно закрыть все активные задачи.
— Выполнять санитарные нормы и соблюдать режимы работы и отдыха.
— Соблюдать правила эксплуатации электрооборудования или другого оборудования в соответствии с инструкциями по эксплуатации.
— При работе с текстовой информацией выбирать наиболее физиологичный режим представления черных символов на белом фоне.
— Соблюдать расстояние от глаз до экрана в пределах 60-70 см, но не ближе 50 см, с учетом размеров алфавитно-цифровых знаков и символов.
— Во всех случаях обнаружения обрыва проводов питания, неисправности заземления и других повреждений электрооборудования, появления запаха гари немедленно отключить питание и сообщать об аварийной ситуации руководителю и дежурному электромеханику.
— При любых случаях сбоя в работе технического оборудования или ПО немедленно вызвать специалиста.
— В случаях появления рези в глазах, резком ухудшении видимости - невозможности сфокусировать взгляд или навести его на резкость, появлении боли в пальцах и кистях рук, усилении сердцебиения немедленно покинуть рабочее место, сообщить руководителю.
— Не приступать к работе на ПК до устранения неисправности.
— При получении травм или при внезапном заболевании немедленно известить своего руководителя, организовать первую доврачебную помощь или вызвать скорую медицинскую помощь по телефону 03.
— При обнаружении человека, попавшего под напряжение, немедленно отключить электропитание и освободить его от действия тока, оказать доврачебную помощь или вызвать скорую медицинскую помощь по телефону 03.
Работнику при работе на ПК запрещается:
— Касаться одновременно экрана монитора и клавиатуры.
— Прикасаться к задней панели системного блока при включенном питании.
— Переключать разъёмы интерфейсных кабелей периферийных устройств при включенном питании.
— Допускать попадание влаги на поверхность системного блока, монитора, рабочую поверхность клавиатуры, дисководов, принтеров и др. устройств.
— Производить самостоятельное вскрытие и ремонт оборудования.
— Работник обязан отключить ПК от электросети:
а) при обнаружении неисправности,
б) при внезапном снятии напряжения электросети,
в) во время чистки и уборки оборудования. [24]
4.3 Требования безопасности после окончания работы с ПК
Работник обязан соблюдать следующую последовательность выключения ПК:
- Произвести закрытие всех активных задач.
- Выполнить парковку считывающей головки жесткого диска
- Убедиться, что в дисководе нет дискет.
- Выключить питание системного блока.
- Выключить питание всех периферийных устройств.
- Отключить блок питания.
- Работник обязан осмотреть и привести в порядок рабочее место и выполнить несколько упражнений для глаз и пальцев рук .
- Работник обязан по окончанию работы или, уходя с работы, вынуть исправную вилку из исправной розетки. [24]
ЗАКЛЮЧЕНИЕ
В данном дипломном проекте была спроектирована и протестирована программа АИС «МРЭО ГАИ». Сначала был проведен анализ предметной области, на основании чего был сделан вывод, что лучшим способом хранения данных в данном случае является база данных, затем был разработан алгоритм действия программы.
После этого был разработан пользовательский интерфейс, который позволит пользователям без труда работать с данной программой, поскольку при разработке были использованы общепринятые стандарты.
Для программной реализации данного проекта были выбраны база данных Access (для хранения данных) и мощный язык программирования Delphi 7.Данная программа снабжена всей необходимой документацией для установки и работы.
С помощью этой автоматизированной информационной системы значительно облегчится работа сотрудников организации ГИБДД.
У разработанной программы нет аналогов в сети Интернет в силу того, что подобные программы используют организации ГИБДД, ГАИ поэтому обычным пользователям они не доступны из-за того что хранят в себе конфиденциальную информацию запрещенную к просмотру.
В дипломном проекте представлен расчет технико-экономического обоснования стоимости внедрения данной программы на предприятии, а также соблюдены все требования для безопасной работы.
Таким образом, поставленная передо мною задача дипломного проекта, полностью выполнена и соответствует техническому заданию.
ПЕРЕЧЕНЬ ПРИНЯТЫХ СОКРАЩЕНИЙ
АИС - автоматизированная информационная система.
АИУ - автоматизация и управление.
БД - база данных.
БДД - безопасность дорожного движения.
ВУ - водительское удостоверение.
НДФЛ - налог на доходы физического лица.
НДС - налог на добавленную стоимость.
ПК - персональный компьютер.
ПП - программный продукт.
ПФР - пенсионный фонд России.
ПЭВМ - персональная электронная вычислительная машина.
СанПиН - санитарные правила и нормы.
ТС - транспортное средство.
ТФОМС - территориальный фонд обязательного медицинского страхования.
ФСС - фонд социального страхования.
ФФОМС - федеральный фонд обязательного медицинского страхования.
Ф.И.О. - фамилия, имя, отчество.
ШС - штрафная санкция.
ЭВМ - электронная вычислительная машина.
БИБЛИОГРАФИЧЕСКИЙ СПИСОК
1. ГОСТ 7.32-2001 «Отчет о научно-исследовательской работе. Структура и правила оформления».
2. ГОСТ 2.105-95 «Общие требования к текстовым документам»
3. ГОСТ Р 7.0.5-2008 «Библиографическая ссылка. Общие требования и правила составления»
4. ГОСТ 7.1-2003 «Библиографическая запись. Библиографическое описание. Общие требования и правила составления»
5. ГОСТ 7.80-2000. «Библиографическая запись. Заголовок. Общие требования и правила составления»
6. Архангельский А.Я. Приемы программирования в Delphi/ А.Я. Архангельский. - М.: Изд-во Бином-Пресс, 2006. - 944 с.
7. Бескоровайный И.В. Азбука Delphi: программирование с нуля/ И.В. Бескоровайный. - Сибирское универс. изд-во, 2008. - 112 с.
8. Бобровский С.И. Delphi 7 : учеб. курс / С.И. Бобровский. - СПб. : Изд-во Питер, 2005. - 736 с.
9. Василий Корняков - Программирование документов и приложений MS Office в Delphi
10. Желонкин А.А. Основы программирования в интегрированной среде Delphi / А.А. Желонкин. - СПб.: Бином. Лаборатория знаний, 2004. - 236 с.
11. Керман М.К. Программирование и отладка в Delphi: учеб. курс : пер. с англ. / М.К. Керман. - М. : Вильямс, 2004. - 720 с.
12. Семакин И.Г., Шестаков А.П. Основы программирования. Учебник. М., «Мастерство», 2000.
13. Тампе Л. - Введение в тестирование программнного обеспечения м.:Вильямс,2003
14. Фаронов В.В. Delphi, язык и среда программирования: учеб. курсы / В.В. Фаронов. - СПб.: Изд-во Питер, 2003. - 640 с.
15. Фленов М. Библия Delphi 7 / М. Фленов. - Минск: Изд-во BHV, 2007. - 800 с.
16. Хомоненко. Основы современных компьютерных технологий. С-П., «Корона принт», 1998.
17. Чижов Б.А., Шомов Е.М. Особенности оплаты труда сезонных и временных работников // Главбух № 10 - 2008, с. 50-57.
18. Грузинов В.П., Грибов В.Д. Экономика предприятия. - М.: Финансы и статистика, 2009. - 208 с.
19. Заработная плата/Барышников Н.П. - М.: «Филинъ», 2003. - 496 с.
20. Организация и нормирование труда - Под ред. В.В. Адамчука. - М.:Финстатинформ, 2007. - 304 с.
21. Раицкий К.А. Экономика предприятия. - М.: «Маркетинг», 2006. - 693 с.
22. Экономика предприятия. - Под ред. В.Я.Горфинкеля, В.А. Швандара. - М.: Банки и Биржи, ЮНИТИ, 2008. - 742 с.
23. Экономика предприятия - Под ред. О.И. Волкова. - М.: ИНФРА-М, 2008. - 416 с.
24. http://ru.wikipedia.org/wiki/Охрана_труда_за_компьютером - Охрана труда.
ПРИЛОЖЕНИЕ А (листинг кода)
Unit 3
procedure TForm0.sButton1Click(Sender: TObject); //Кнопка "Нет"
begin
Form1.Close;
end;
procedure TForm0.sButton2Click(Sender: TObject); //Кнопка "Да"
begin
Form0.Close;
Form1.Show;
Form2.Close;
Form1.sEdit1.Text:='';
end;
end.
Unit 5
procedure TForm5.sButton1Click(Sender: TObject); //Кнопка "Выход"
begin
Form5.Close;
end;
procedure TForm5.DataSource1DataChange(Sender: TObject; Field: TField); //Условие при выборе данных в таблице
begin
If sDBText12.Caption='Используется' Then begin
sButton10.Enabled:=false;
sButton9.Enabled:=true;
sButton6.Enabled:=false;
sButton11.Enabled:=True;
end;
begin
if sDBText12.Caption='Списан' Then begin
sButton10.Enabled:=true;
sButton4.Enabled:=true;
sButton9.Enabled:=false;
sButton6.Enabled:=false;
sButton11.Enabled:=False;
end;
begin
if sDBText12.Caption='Снят с учёта' Then begin
sButton9.Enabled:=false;
sButton10.Enabled:=true;
sButton6.Enabled:=true;
sButton4.Enabled:=true;
sButton11.Enabled:=False;
end;
begin
if sDBText12.Caption='ВНИМАНИЕ!!! В УГОНЕ!' Then
begin
sDBText12.Font.Color:=clred;
sButton4.Enabled:=False;
sButton5.Enabled:=True;
sButton9.Enabled:=False;
sButton10.Enabled:=False;
sButton6.Enabled:=False;
sButton11.Enabled:=False;
end
else begin
sDBText12.Font.Color:=clBlack;
sButton5.Enabled:=false;
end;
end;
end;
end;
end;
procedure TForm5.sButton4Click(Sender: TObject); //Кнопка "Объявить ТС в угон"
begin
ADOQuery1.Edit; //Открытие процедуры редактирования БД
ADOQuery1.FieldByName('Прежнее состояние').AsString:=sDBText12.Caption; //Внесение изменений в БД
ADOQuery1.FieldByName('Состояние').AsString:='ВНИМАНИЕ!!! В УГОНЕ!';
ADOQuery1.FieldByName('ТС Было в угоне').AsString:='Да';
ADOQuery1.Post; //Сохранение изменений в БД
end;
procedure TForm5.sButton5Click(Sender: TObject); //Кнопка "ТС возвращено владельцу"
begin
ADOQuery1.Edit;
ADOQuery1.FieldByName('Состояние').AsString:=sDBText22.Caption;
ADOQuery1.Post;
end;
procedure TForm5.sButton6Click(Sender: TObject); //Кнопка "Списать ТС"
begin
FormCTS.ShowModal;
end;
procedure TForm5.sButton7Click(Sender: TObject); //Кнопка "Изменить"
begin
Form8.ShowModal;
end;
procedure TForm5.FormShow(Sender: TObject); //Текущее врямя и дата
begin
sLabel19.Caption:=DateTimeToStr(Now); //Показ текущего времени и даты
end;
procedure TForm5.ADOQuery1AfterScroll(DataSet: TDataSet); //Отображение изображения хранящегося в БД
var //Процедура показа изображения из БД
Stream: TMemoryStream;
Jpg: TJpegImage;
GraphType: TGraphType;
begin
Jpg := nil;
Stream := nil;
try
Stream := TMemoryStream.Create;
TBlobField(ADOQuery1.FieldByName('image_i')).SaveToStream(Stream);
if Stream.Size > 0 then
begin
Stream.Position := 0;
Stream.Read(GraphType, 1);
case GraphType of
gtBitmap: Image1.Picture.Bitmap.LoadFromStream(Stream);
gtIcon: Image1.Picture.Icon.LoadFromStream(Stream);
gtMetafile: Image1.Picture.Metafile.LoadFromStream(Stream);
gtJpeg:
begin
Jpg := TJpegImage.Create;
Jpg.LoadFromStream(Stream);
Image1.Picture.Assign(Jpg);
end
else
Image1.Picture.Assign(nil);
end;
end
else
Image1.Picture.Assign(nil);
except
Image1.Picture.Assign(nil);
end;
jpg.Free;
Stream.Free;
end;
procedure TForm5.FormCreate(Sender: TObject); //Операции при создание данной формы
begin
ADOConnection1.Connected := True;
ADOQuery1.Open;
Image2.Picture.LoadFromFile('Image/nopic.jpg');
end;
procedure TForm5.Image1Click(Sender: TObject); //Клик мыши на изображении
begin //Увеличение изображения
Qbig.Image1.Picture:=Form5.Image1.Picture;
Qbig.ShowModal;
end;
procedure TForm5.sButton3Click(Sender: TObject); //Кнопка "Подробнее"
begin
Form12.ShowModal;
end;
procedure TForm5.FormClose(Sender: TObject; var Action: TCloseAction); //Условия закрытия формы
begin
Form2.Show;
end;
procedure TForm5.sButton8Click(Sender: TObject); //Кнопка "Регистрация нового ТС"
begin
Form10.ShowModal;
end;
procedure TForm5.sButton9Click(Sender: TObject); //Кнопка "Снятие ТС с учёта"
begin
Form11.ShowModal;
end;
procedure TForm5.sButton12Click(Sender: TObject); //Кнопка "Удалить"
begin
case MessageBox(Handle,'Вы действительно хотите удалить данную запись?','Подтверждение удаления',36) of //Диалоговое окна вида "Да"-"Нет"
6: ADOQuery1.Delete; //Кнопка "Да"
7: ; //Кнопка "Нет"
end;
end;
procedure TForm5.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState); //Раскраска строки таблицы по условию
begin
if ADOQuery1['Состояние'] = 'ВНИМАНИЕ!!! В УГОНЕ!' then
with DBGrid1.Canvas do
begin
Brush.Color := clRed;
Font.Color := clWhite;
FillRect(Rect);
TextOut(Rect.Left+2,Rect.Top+2, Column.Field.Text);
end;
end;
procedure TForm5.sButton2Click(Sender: TObject); //Кнопка "Печать"
begin
PrintA.Image1.Picture:=Image1.Picture;
PrintA.Print; //Печать формы
end;
procedure TForm5.sButton10Click(Sender: TObject); //Кнопка "Постановка ТС на учет"
begin
Form15.Showmodal;
end;
procedure TForm5.sButton11Click(Sender: TObject); //Кнопка "Выдать дубликат свидетельства о регистрации"
begin
Form18.Show;
end;
procedure TForm5.sEdit1KeyUp(Sender: TObject; var Key: Word; //Функция поиска
Shift: TShiftState);
begin
if Length(sEdit1.text)>0 then
begin
ADOQuery1.Filtered:=true; //Включение фильтрации
case sCombobox1.ItemIndex of
0:ADOQuery1.Filter:='[Выданное св-во №] LIKE '+''''+sEdit1.Text+'%'+''''; //Тип фильтра
1:ADOQuery1.Filter:='[Выданное св-во серия] LIKE '+''''+sEdit1.Text+'%'+'''';
2:ADOQuery1.Filter:='[Год выпуска ТС] LIKE '+''''+sEdit1.Text+'%'+'''';
3:ADOQuery1.Filter:='[Двигатель №] LIKE '+''''+sEdit1.Text+'%'+'''';
4:ADOQuery1.Filter:='[Идентификационный номер (VIN)] LIKE '+''''+sEdit1.Text+'%'+'''';
5:ADOQuery1.Filter:='[Категория ТС] LIKE '+''''+sEdit1.Text+'%'+'''';
6:ADOQuery1.Filter:='[Кузов (коляска) №] LIKE '+''''+sEdit1.Text+'%'+'''';
7:ADOQuery1.Filter:='[Марка, модель] LIKE '+''''+sEdit1.Text+'%'+'''';
8:ADOQuery1.Filter:='[Масса без нагрузки (кг)] LIKE '+''''+sEdit1.Text+'%'+'''';
9:ADOQuery1.Filter:='[Место жительства] LIKE '+''''+sEdit1.Text+'%'+'''';
10:ADOQuery1.Filter:='[Место регистрации ТС] LIKE '+''''+sEdit1.Text+'%'+'''';
11:ADOQuery1.Filter:='[Модель двигателя] LIKE '+''''+sEdit1.Text+'%'+'''';
12:ADOQuery1.Filter:='[Мощность двигателя (лс)] LIKE '+''''+sEdit1.Text+'%'+'''';
13:ADOQuery1.Filter:='[Особые отметки] LIKE '+''''+sEdit1.Text+'%'+'''';
14:ADOQuery1.Filter:='[Паспорт №] LIKE '+''''+sEdit1.Text+'%'+'''';
15:ADOQuery1.Filter:='[Паспорт серия] LIKE '+''''+sEdit1.Text+'%'+'''';
16:ADOQuery1.Filter:='[Рабочий объём двигателя (см^3)] LIKE '+''''+sEdit1.Text+'%'+'''';
17:ADOQuery1.Filter:='[Разрешённая max масса (кг)] LIKE '+''''+sEdit1.Text+'%'+'''';
18:ADOQuery1.Filter:='[Регистрационный знак] LIKE '+''''+sEdit1.Text+'%'+'''';
19:ADOQuery1.Filter:='[Состояние] LIKE '+''''+sEdit1.Text+'%'+'''';
20:ADOQuery1.Filter:='[Тип ТС] LIKE '+''''+sEdit1.Text+'%'+'''';
21:ADOQuery1.Filter:='[ТС было в угоне] LIKE '+''''+sEdit1.Text+'%'+'''';
22:ADOQuery1.Filter:='[ФИО Владельца] LIKE '+''''+sEdit1.Text+'%'+'''';
23:ADOQuery1.Filter:='[Цвет] LIKE '+''''+sEdit1.Text+'%'+'''';
24:ADOQuery1.Filter:='[Шасси (рама) №] LIKE '+''''+sEdit1.Text+'%'+'''';
end;
end
else ADOQuery1.Filtered:=False; //Отключение фильтрации
end;
end.
Unit 6
procedure TFormCTS.FormShow(Sender: TObject); //Открытие формы с параметрами
begin
sLabel4.Caption:=Form5.sDBText1.Caption; //Показ данных с другой формы
sLabel6.Caption:=Form5.sDBText10.Caption;
sLabel7.Caption:=Form5.sDBText5.Caption;
sLabel12.Caption:=Form5.sDBText4.Caption;
sLabel13.Caption:=Form5.sDBText7.Caption;
sLabel14.Caption:=Form5.sDBText8.Caption;
sLabel15.Caption:=Form5.sDBText11.Caption;
sLabel18.Caption:=Form5.sDBText6.Caption;
sLabel19.Caption:=Form5.sDBText9.Caption;
sLabel21.Caption:=Form5.sDBText12.Caption;
sLabel23.Caption:=Form5.sDBText13.Caption;
end;
procedure TFormCTS.sButton1Click(Sender: TObject); // Кнопка "Списать ТС"
begin
If Form5.sDBText12.Caption='Списан' Then
Application.MessageBox('Данное транспортное средство уже списано! Повторное списание невозможно!', 'Ошибка списания транспортного средства!', MB_OK + MB_ICONSTOP)
else
PODspis.ShowModal;
end;
procedure TFormCTS.sButton2Click(Sender: TObject); //Кнопка "Отмена"
begin
FormCTS.Close;
end;
end.
Unit 7.
procedure TPODspis.sButton1Click(Sender: TObject); //Кнопка "Да"
begin
Form5.ADOQuery1.Edit;
Form5.ADOQuery1.FieldByName('Состояние').AsString:='Списан';
Form5.ADOQuery1.FieldByName('Регистрационный знак').AsString:='Снят';
Form5.ADOQuery1.FieldByName('ФИО Владельца').AsString:='(информация отсутствует)';
Form5.ADOQuery1.FieldByName('Паспорт серия').AsString:='';
Form5.ADOQuery1.FieldByName('Паспорт №').AsString:='';
Form5.ADOQuery1.Post;
FormCTS.sLabel21.Caption:=Form5.sDBText12.Caption;
FormCTS.sLabel14.Caption:=Form5.sDBText8.Caption;
FormCTS.sLabel15.Caption:=Form5.sDBText11.Caption;
FormCTS.sLabel6.Caption:=Form5.sDBText10.Caption;
PODspis.Close;
end;
procedure TPODspis.sButton2Click(Sender: TObject); //Кнопка "Нет"
begin
PODspis.Close;
end;
procedure TPODspis.FormShow(Sender: TObject);
begin
sLabel2.Caption:=FormCTS.sLabel4.Caption;
end;
end.
Unit 8
procedure TForm8.sButton1Click(Sender: TObject); //Кнопка "Отмена"
begin
Form8.Close;
end;
procedure TForm8.sButton2Click(Sender: TObject); //Кнопка "Сохранить"
begin
Form5.ADOQuery1.Edit;
Form5.ADOQuery1.FieldByName('Марка, модель').AsString:=sEdit1.Text;
Form5.ADOQuery1.FieldByName('Идентификационный номер (VIN)').AsString:=sEdit2.Text;
Form5.ADOQuery1.FieldByName('Модель двигателя').AsString:=sEdit3.Text;
Form5.ADOQuery1.FieldByName('Двигатель №').AsString:=sEdit4.Text;
Form5.ADOQuery1.FieldByName('Шасси (рама) №').AsString:=sEdit5.Text;
Form5.ADOQuery1.FieldByName('Кузов (коляска) №').AsString:=sEdit6.Text;
Form5.ADOQuery1.FieldByName('Мощность двигателя (лс)').AsString:=sEdit7.Text;
Form5.ADOQuery1.FieldByName('Рабочий объём двигателя (см^3)').AsString:=sEdit8.Text;
Form5.ADOQuery1.FieldByName('Паспорт серия').AsString:=sEdit9.Text;
Form5.ADOQuery1.FieldByName('Паспорт №').AsString:=sEdit10.Text;
Form5.ADOQuery1.FieldByName('Разрешённая max масса (кг)').AsString:=sEdit11.Text;
Form5.ADOQuery1.FieldByName('Масса без нагрузки (кг)').AsString:=sEdit12.Text;
Form5.ADOQuery1.FieldByName('Тип ТС').AsString:=sComboBox1.Text;
Form5.ADOQuery1.FieldByName('Год выпуска ТС').AsString:=sEdit13.Text;
Form5.ADOQuery1.FieldByName('ФИО Владельца').AsString:=sEdit14.Text;
Form5.ADOQuery1.FieldByName('Категория ТС').AsString:=sCOmboBox2.Text;
Form5.ADOQuery1.FieldByName('Цвет').AsString:=sComboBox3.Text;
Form5.ADOQuery1.FieldByName('Место регистрации ТС').AsString:=sComboBox4.Text;
Form5.ADOQuery1.FieldByName('Место жительства').AsString:=sEdit15.Text;
Form5.ADOQuery1.FieldByName('Особые отметки').AsString:=sEdit16.Text;
Form5.ADOQuery1.FieldByName('Выданное св-во серия').AsString:=sEdit17.Text;
Form5.ADOQuery1.FieldByName('Выданное св-во №').AsString:=sEdit18.Text;
Form5.ADOQuery1.Post;
Form8.Close;
Form5.Show;
end;
procedure TForm8.FormShow(Sender: TObject); //Процедуры при показе формы
begin
Image1.Picture:=Form5.Image1.Picture;
sEdit1.Text:=Form5.sDBText1.Caption;
sEdit2.Text:=Form5.sDBText5.Caption;
sEdit3.Text:=Form5.sDBText9.Caption;
sEdit4.Text:=Form5.sDBText13.Caption;
sEdit5.Text:=Form5.sDBText14.Caption;
sEdit6.Text:=Form5.sDBText15.Caption;
sEdit7.Text:=Form5.sDBText16.Caption;
sEdit8.Text:=Form5.sDBText17.Caption;
sEdit9.Text:=Form5.sDBText8.Caption;
sEdit10.Text:=Form5.sDBText11.Caption;
sEdit11.Text:=Form5.sDBText19.Caption;
sEdit12.Text:=Form5.sDBText18.Caption;
sEdit13.Text:=Form5.sDBText6.Caption;
sEdit14.Text:=Form5.sDBText10.Caption;
sEdit15.Text:=Form12.sDBText5.Caption;
sEdit16.Text:=Form12.sDBText6.Caption;
sEdit17.Text:=Form12.sDBTextFX20.Caption;
sEdit18.Text:=Form12.sDBTextFX19.Caption;
sComboBox3.Text:=Form5.sDBText7.Caption;
sComboBox4.Text:=Form5.sDBText3.Caption;
sComboBox1.Text:=Form5.sDBText4.Caption;
sComboBox2.Text:=Form5.sDBText21.Caption;
sPanel4.Caption:=Form5.sDBText2.Caption;
end;
procedure TForm8.sEdit2KeyPress(Sender: TObject; var Key: Char); //Условие ввода и нажатия на клавиши
begin
If not (Key in ['0'..'9', #8]) then
Key:=#0
end;
procedure TForm8.sButton3Click(Sender: TObject); //Кнопка "Загрузить/Изменить"
var //Операция загрузки изображения в БД
Jpg: TJpegImage;
Stream: TMemoryStream;
FileExt: string;
GraphType: TGraphType;
begin
if dlgOpenPicture.Execute then
begin
Jpg := nil;
Stream := nil;
try
Stream := TMemoryStream.Create;
FileExt := LowerCase(ExtractFileExt(dlgOpenPicture.FileName));
if (FileExt = '.bmp') or (FileExt = '.dib') then
begin
GraphType := gtBitmap;
Stream.Write(GraphType, 1);
with Image1.Picture.Bitmap do
begin
LoadFromFile(dlgOpenPicture.FileName);
Image1.Picture.Bitmap.SaveToStream(Stream);
end;
end
else
if (FileExt = '.ico') then
begin
GraphType := gtIcon;
Stream.Write(GraphType, 1);
with Image1.Picture.Icon do
begin
LoadFromFile(dlgOpenPicture.FileName);
Image1.Picture.Bitmap.SaveToStream(Stream);
end;
end
else
if (FileExt = '.emf') or (FileExt = '.wmf') then
begin
GraphType := gtMetafile;
Stream.Write(GraphType, 1);
with Image1.Picture.Metafile do
begin
LoadFromFile(dlgOpenPicture.FileName);
Image1.Picture.Bitmap.SaveToStream(Stream);
end;
end
else
if (FileExt = '.jpg') or (FileExt = '.jpeg') or (FileExt = '.jpe') then
begin
Jpg := TJpegImage.Create;
Jpg.LoadFromFile(dlgOpenPicture.FileName);
Image1.Picture.Assign(Jpg);
GraphType := gtJpeg;
Stream.Write(GraphType, 1);
Jpg.SaveToStream(Stream);
end;
if (Form5.ADOQuery1.State <> dsEdit) and (Form5.ADOQuery1.State <> dsInsert) then
Form5.ADOQuery1.Edit;
Form5.ADOQuery1.FieldByName('name_i').AsString := ExtractFileName(dlgOpenPicture.FileName);
Stream.Position := 0;
TBlobField(Form5.ADOQuery1.FieldByName('image_i')).LoadFromStream(Stream);
Form5.ADOQuery1.Post;
except
jpg.Free;
Stream.Free;
raise;
end;
jpg.Free;
Stream.Free;
Form5.ADOQuery1.AfterScroll(Form5.ADOQuery1);
end;
end;
procedure TForm8.sButton4Click(Sender: TObject); //Кнопка "Удалить"
begin //Процедура удаления изображения из БД
if (Form5.ADOQuery1.State <> dsEdit) and (Form5.ADOQuery1.State <> dsInsert) then
Form5.ADOQuery1.Edit;
Form5.ADOQuery1.FieldByName('name_i').AsString :='(информация отсутствует)';
TBlobField(Form5.ADOQuery1.FieldByName('image_i')).LoadFromFile('C:\Program Files\Система управления - МРЭО ГАИ\Image\logo.JPG');
Form5.ADOQuery1.Post;
Form5.ADOQuery1.AfterScroll(Form5.ADOQuery1);
Form5.Image1.Picture.LoadFromFile('Image\nopic.jpg');
Image1.Picture:=Form5.Image2.Picture;
end;
procedure TForm8.FormClose(Sender: TObject; var Action: TCloseAction); //Условия закрытия формы
begin
Form5.Show;
end;
procedure TForm8.Image1Click(Sender: TObject); //Клик на изображении
begin
Qbig.Image1.Picture:=Form5.Image1.Picture;
Qbig.ShowModal;
end;
procedure TForm8.sComboBox2Change(Sender: TObject); //Выбор значений "Тип ТС"
begin
If sComboBox2.ItemIndex = 0 then //Условие выбора
begin
sComboBox1.Clear; //Добавление данных в список по условию
sComboBox1.Items.Add('Мотоколяска');
sComboBox1.Items.Add('Мотоцикл');
sComboBox1.Items.Add('Квадроцикл');
sComboBox1.Items.Add('Скутер');
end;
If sComboBox2.ItemIndex = 1 then
begin
sComboBox1.Clear;
sComboBox1.Items.Add('Седан');
sComboBox1.Items.Add('Универсал');
sComboBox1.Items.Add('Хетчбек');
sComboBox1.Items.Add('Джип');
sComboBox1.Items.Add('Минивэн');
end;
If sComboBox2.ItemIndex = 2 then
begin
sComboBox1.Clear;
sComboBox1.Items.Add('Самосвал');
sComboBox1.Items.Add('Тягач');
sComboBox1.Items.Add('Грузовик');
end;
If sComboBox2.ItemIndex = 3 then
begin
sComboBox1.Clear;
sComboBox1.Items.Add('Автобус');
sComboBox1.Items.Add('Микроавтобус');
sComboBox1.Items.Add('Грузо-пассажирский');
end;
If sComboBox2.ItemIndex = 4 then
begin
sComboBox1.Clear;
sComboBox1.Items.Add('Прицеп');
sComboBox1.Items.Add('Рефрежиратор');
sComboBox1.Items.Add('Цистерна (бочка)');
sComboBox1.Items.Add('Автовоз');
end;
end;
end.
Unit 9
procedure TQbig.sButton1Click(Sender: TObject); //Кнопка "Закрыть"
begin
Qbig.Close;
end;
procedure TQbig.Image1Click(Sender: TObject); //Закрытие формы, при клике мышью на изображении
begin
Qbig.Close;
end;
procedure TQbig.FormCreate(Sender: TObject); //Операции, выполняемые при создании формы
begin
Image2.Picture.LoadFromFile('Image/nopic.jpg');
end;
end.
Unit 10
procedure TForm10.FormClose(Sender: TObject; var Action: TCloseAction); //Операции при закрытия формы
begin
Form5.Show;
end;
procedure TForm10.sButton1Click(Sender: TObject); //Кнопка "Зарегистрировать транспортное средство"
begin
If (sEdit1.Text='') or (sEdit2.Text='') or (sComboBox5.Text='') or (sEdit5.Text='') or (sEdit6.Text='') or (sEdit15.Text='')or (sEdit17.Text='') or (sEdit19.Text='') or (sComboBox1.Text='') or (sComboBox2.Text='')or (sComboBox3.Text='')or (sComboBox4.Text='Выберите место регистрации или введитее новое....') or (sComboBox4.Text='') or (sCurrencyEdit1.Text='0') or (sCurrencyEdit3.Text='0') or (sCurrencyEdit8.Text='0') //Условие добавления данных в БД
Then
Application.MessageBox('Одно или несколько полей незаполнены!', 'Ошибка ввода данных', MB_OK + MB_ICONSTOP)
else
begin
Form5.ADOQuery1.Insert;
Form5.ADOQuery1.FieldByName('ФИО Владельца').AsString:=sEdit1.Text;
Form5.ADOQuery1.FieldByName('Место жительства').AsString:=sEdit2.Text;
Form5.ADOQuery1.FieldByName('Особые отметки').AsString:=sEdit3.Text;
Form5.ADOQuery1.FieldByName('Марка, модель').AsString:=sEdit5.Text;
Form5.ADOQuery1.FieldByName('Цвет').AsString:=sComboBox3.Text;
Form5.ADOQuery1.FieldByName('Идентификационный номер (VIN)').AsString:=sComboBox5.Text;
Form5.ADOQuery1.FieldByName('Паспорт №').AsString:=sCurrencyEdit1.Text;
Form5.ADOQuery1.FieldByName('Паспорт серия').AsString:=sEdit15.Text;
Form5.ADOQuery1.FieldByName('Тип ТС').AsString:=sComboBox2.Text;
Form5.ADOQuery1.FieldByName('Категория ТС').AsString:=sComboBox1.Text;
Form5.ADOQuery1.FieldByName('Состояние').AsString:='Используется';
Form5.ADOQuery1.FieldByName('Год выпуска ТС').AsString:=sEdit6.Text;
Form5.ADOQuery1.FieldByName('Модель двигателя').AsString:=sEdit7.Text;
Form5.ADOQuery1.FieldByName('Двигатель №').AsString:=sCurrencyEdit2.Text;
Form5.ADOQuery1.FieldByName('Мощность двигателя (лс)').AsString:=sEdit9.Text;
Form5.ADOQuery1.FieldByName('Рабочий объём двигателя (см^3)').AsString:=sCurrencyEdit7.Text;
Form5.ADOQuery1.FieldByName('Кузов (коляска) №').AsString:=sCurrencyEdit3.Text;
Form5.ADOQuery1.FieldByName('Шасси (рама) №').AsString:=sCurrencyEdit4.Text;
Form5.ADOQuery1.FieldByName('Масса без нагрузки (кг)').AsString:=sCurrencyEdit5.Text;
Form5.ADOQuery1.FieldByName('Разрешённая max масса (кг)').AsString:=sCurrencyEdit6.Text;
Form5.ADOQuery1.FieldByName('Выданное св-во серия').AsString:=sEdit17.Text;
Form5.ADOQuery1.FieldByName('Выданное св-во №').AsString:=sCurrencyEdit8.Text;
Form5.ADOQuery1.FieldByName('Регистрационный знак').AsString:=sEdit19.Text;
Form5.ADOQuery1.FieldByName('ТС было в угоне').AsString:='Нет';
Form5.ADOQuery1.FieldByName('Место регистрации ТС').AsString:=sComboBox4.Text;
Form5.ADOQuery1.Post;
sButton1.Enabled:=false;
sButton2.Enabled:=true;
SVoreg.Print;
ShowMessage('ТС успешно зарегестрировано. Вы можете загрузить фото.')
end;
end;
procedure TForm10.sCurrencyEdit1KeyPress(Sender: TObject; var Key: Char); //Условие ввода и нажатия на клавиши
begin
If not (Key in ['0'..'9', #8]) then
Key:=#0
end;
procedure TForm10.sButton3Click(Sender: TObject); //Кнопка "Закрыть"
begin
Form5.Show;
Form10.Close;
end;
procedure TForm10.sButton2Click(Sender: TObject); //Кнопка "Загрузить/Изменить фото ТС"
var //Процедура загрузки изображения в БД
Jpg: TJpegImage;
Stream: TMemoryStream;
FileExt: string;
GraphType: TGraphType;
begin
if dlgOpenPicture.Execute then
begin
Jpg := nil;
Stream := nil;
try
Stream := TMemoryStream.Create;
FileExt := LowerCase(ExtractFileExt(dlgOpenPicture.FileName));
if (FileExt = '.bmp') or (FileExt = '.dib') then
begin
GraphType := gtBitmap;
Stream.Write(GraphType, 1);
with Image1.Picture.Bitmap do
begin
LoadFromFile(dlgOpenPicture.FileName);
Image1.Picture.Bitmap.SaveToStream(Stream);
end;
end
else
if (FileExt = '.ico') then
begin
GraphType := gtIcon;
Stream.Write(GraphType, 1);
with Image1.Picture.Icon do
begin
LoadFromFile(dlgOpenPicture.FileName);
Image1.Picture.Bitmap.SaveToStream(Stream);
end;
end
else
if (FileExt = '.emf') or (FileExt = '.wmf') then
begin
GraphType := gtMetafile;
Stream.Write(GraphType, 1);
with Image1.Picture.Metafile do
begin
LoadFromFile(dlgOpenPicture.FileName);
Image1.Picture.Bitmap.SaveToStream(Stream);
end;
end
else
if (FileExt = '.jpg') or (FileExt = '.jpeg') or (FileExt = '.jpe') then
begin
Jpg := TJpegImage.Create;
Jpg.LoadFromFile(dlgOpenPicture.FileName);
Image1.Picture.Assign(Jpg);
GraphType := gtJpeg;
Stream.Write(GraphType, 1);
Jpg.SaveToStream(Stream);
end;
if (Form5.ADOQuery1.State <> dsEdit) and (Form5.ADOQuery1.State <> dsInsert) then
Form5.ADOQuery1.Edit;
Form5.ADOQuery1.FieldByName('name_i').AsString := ExtractFileName(dlgOpenPicture.FileName);
Stream.Position := 0;
TBlobField(Form5.ADOQuery1.FieldByName('image_i')).LoadFromStream(Stream);
Form5.ADOQuery1.Post;
except
jpg.Free;
Stream.Free;
raise;
end;
jpg.Free;
Stream.Free;
Form5.ADOQuery1.AfterScroll(Form5.ADOQuery1);
end;
end;
procedure TForm10.FormShow(Sender: TObject); //Операции выполняемые при показе формы
var
i: integer;
begin
for i := 0 to ComponentCount - 1 do //Очистка полей для ввода
if Components[i] is TsEdit then
TsEdit(Components[i]).Text := '';
begin
for i := 0 to ComponentCount - 1 do
if Components[i] is TsComboBox then
TsComboBox(Components[i]).Text := '';
begin
for i := 0 to ComponentCount - 1 do
if Components[i] is TsCurrencyEdit then
TsCurrencyEdit(Components[i]).Text := '';
begin
sButton1.Enabled:=true;
sButton2.Enabled:=false;
end;
end;
end;
end;
procedure TForm10.sComboBox1Change(Sender: TObject);
begin
If sComboBox1.ItemIndex = 0 then
begin
sComboBox2.Clear;
sComboBox2.Items.Add('Мотоколяска');
sComboBox2.Items.Add('Мотоцикл');
sComboBox2.Items.Add('Квадроцикл');
sComboBox2.Items.Add('Скутер');
end;
If sComboBox1.ItemIndex = 1 then
begin
sComboBox2.Clear;
sComboBox2.Items.Add('Седан');
sComboBox2.Items.Add('Универсал');
sComboBox2.Items.Add('Хетчбек');
sComboBox2.Items.Add('Джип');
sComboBox2.Items.Add('Минивэн');
end;
If sComboBox1.ItemIndex = 2 then
begin
sComboBox2.Clear;
sComboBox2.Items.Add('Самосвал');
sComboBox2.Items.Add('Тягач');
sComboBox2.Items.Add('Грузовик');
end;
If sComboBox1.ItemIndex = 3 then
begin
sComboBox2.Clear;
sComboBox2.Items.Add('Автобус');
sComboBox2.Items.Add('Микроавтобус');
sComboBox2.Items.Add('Грузо-пассажирский');
end;
If sComboBox1.ItemIndex = 4 then
begin
sComboBox2.Clear;
sComboBox2.Items.Add('Прицеп');
sComboBox2.Items.Add('Рефрежиратор');
sComboBox2.Items.Add('Цистерна (бочка)');
sComboBox2.Items.Add('Автовоз');
end;
end;
end.
Unit 11
procedure TForm11.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Form5.Show;
end;
procedure TForm11.sButton1Click(Sender: TObject);
begin
Form11.Close;
end;
procedure TForm11.sButton2Click(Sender: TObject);
begin
Form5.ADOQuery1.Edit;
Form5.ADOQuery1.FieldByName('ФИО Владельца').AsString:='';
Form5.ADOQuery1.FieldByName('Место жительства').AsString:='';
Form5.ADOQuery1.FieldByName('Регистрационный знак').AsString:='Снят';
Form5.ADOQuery1.FieldByName('Выданное св-во серия').AsString:='';
Form5.ADOQuery1.FieldByName('Выданное св-во №').AsString:='';
Form5.ADOQuery1.FieldByName('Состояние').AsString:='Снят с учёта';
Form5.ADOQuery1.FieldByName('Место регистрации ТС').AsString:='';
Form5.ADOQuery1.Post;
Form11.Close;
ShowMessage('ТС было снято с учёта');
end;
end.
Unit 12
procedure TForm12.FormShow(Sender: TObject);
begin
if sDBText3.Caption='ВНИМАНИЕ!!! В УГОНЕ!' Then
sDBText3.Font.Color:=clred;
begin
Image1.Picture:=Form5.Image1.Picture;
end;
end;
procedure TForm12.Image1Click(Sender: TObject);
begin
Qbig.Image1.Picture:=Form5.Image1.Picture;
QBig.ShowModal;
end;
procedure TForm12.sButton1Click(Sender: TObject);
begin
Form12.Close;
end;
procedure TForm12.sButton2Click(Sender: TObject);
begin
PrintA.Image2.Picture.LoadFromFile('Image/nopic.jpg');
PrintA.Image1.Picture:=Image1.Picture;
PrintA.Print;
end;
procedure TForm12.sButton7Click(Sender: TObject);
begin
Form8.ShowModal;
end;
procedure TForm12.FormCreate(Sender: TObject);
begin
Image2.Picture.LoadFromFile('Image/nopic.jpg');
end;
end.
Unit 13
procedure TForm13.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Form2.Show;
end;
procedure TForm13.Button1Click(Sender: TObject);
begin
Form5.Show;
end;
procedure TForm13.ADOQuery1AfterScroll(DataSet: TDataSet);
var
Stream: TMemoryStream;
Jpg: TJpegImage;
GraphType: TGraphType;
begin
Jpg := nil;
Stream := nil;
try
Stream := TMemoryStream.Create;
TBlobField(ADOQuery1.FieldByName('image_i')).SaveToStream(Stream);
if Stream.Size > 0 then
begin
Stream.Position := 0;
Stream.Read(GraphType, 1);
case GraphType of
gtBitmap: Image1.Picture.Bitmap.LoadFromStream(Stream);
gtIcon: Image1.Picture.Icon.LoadFromStream(Stream);
gtMetafile: Image1.Picture.Metafile.LoadFromStream(Stream);
gtJpeg:
begin
Jpg := TJpegImage.Create;
Jpg.LoadFromStream(Stream);
Image1.Picture.Assign(Jpg);
end
else
Image1.Picture.Assign(nil); // Clear the image
end;
end
else
Image1.Picture.Assign(nil);
except
Image1.Picture.Assign(nil);
end;
jpg.Free;
Stream.Free;
end;
procedure TForm13.sButton1Click(Sender: TObject);
begin
Form13.Close;
end;
procedure TForm13.Image1Click(Sender: TObject);
begin
QBig.Image1.Picture:=Image1.Picture;
QBig.Image1.Picture:=Image1.Picture;
QBig.ShowModal;
end;
procedure TForm13.sButton2Click(Sender: TObject);
begin
Form16.sButton2.Enabled:=True;
Form16.ShowModal;
end;
procedure TForm13.sButton3Click(Sender: TObject);
begin
Form19.ShowModal;
end;
procedure TForm13.sButton4Click(Sender: TObject);
begin
Form20.sCheckBox1.Visible:=True;
Form20.sPanel1.Caption:='Замена | Продление ВУ';
Form20.sButton3.Visible:=False;
Form20.ShowModal;
end;
procedure TForm13.DataSource1DataChange(Sender: TObject; Field: TField);
begin
if sDBText1.Caption='Лишён ВУ'
Then
begin
sDBText11.Visible:=True;
sLabel12.Visible:=True;
sButton3.Enabled:=False;
sButton5.Enabled:=False;
end
Else begin
sButton3.Enabled:=True;
sButton5.Enabled:=True;
sLabel12.Visible:=False;
sDBText11.Visible:=False;
end;
end;
procedure TForm13.FormCreate(Sender: TObject);
begin
Image2.Picture.LoadFromFile('Image/nopic.jpg');
end;
procedure TForm13.sButton5Click(Sender: TObject);
begin
Form20.sCheckBox1.Visible:=False;
Form20.sPanel1.Caption:='Выдача дубликата ВУ';
Form20.sButton3.Visible:=True;
Form20.ShowModal;
end;
procedure TForm13.sButton6Click(Sender: TObject);
begin
Form22.Image1.Picture:=Form13.Image2.Picture;
Form22.ShowModal;
end;
procedure TForm13.sButton7Click(Sender: TObject);
begin
if sDBText1.Caption='Лишён ВУ'
Then
begin
Form23.sDBText11.Visible:=True;
Form23.sLabel12.Visible:=True;
Form23.Image1.Picture:=Form13.Image1.Picture;
Form23.Print;
end
Else begin
Form23.sLabel12.Visible:=False;
Form23.sDBText11.Visible:=False;
Form23.Image1.Picture:=Form13.Image1.Picture;
Form23.Print;
end;
end;
procedure TForm13.sButton8Click(Sender: TObject);
begin
case MessageBox(Handle,'Вы действительно хотите удалить данную за-пись?','Подтверждение удаления',36) of
6: ADOQuery1.Delete;
7: ;
end;
end;
procedure TForm13.sEdit1KeyUp(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if Length(sEdit1.text)>0 then
begin
ADOQuery1.Filtered:=true;
case sCombobox1.ItemIndex of
0:ADOQuery1.Filter:='[ВУ №] LIKE '+''''+sEdit1.Text+'%'+'''';
1:ADOQuery1.Filter:='[ВУ серия] LIKE '+''''+sEdit1.Text+'%'+'''';
2:ADOQuery1.Filter:='[Выдано ГИБДД МВД] LIKE '+''''+sEdit1.Text+'%'+'''';
3:ADOQuery1.Filter:='[Дата выдачи] LIKE '+''''+sEdit1.Text+'%'+'''';
4:ADOQuery1.Filter:='[Дата рождения] LIKE '+''''+sEdit1.Text+'%'+'''';
5:ADOQuery1.Filter:='[Действительно до] LIKE '+''''+sEdit1.Text+'%'+'''';
6:ADOQuery1.Filter:='[Категории] LIKE '+''''+sEdit1.Text+'%'+'''';
7:ADOQuery1.Filter:='[Лишён] LIKE '+''''+sEdit1.Text+'%'+'''';
8:ADOQuery1.Filter:='[Место жительства] LIKE '+''''+sEdit1.Text+'%'+'''';
9:ADOQuery1.Filter:='[Место рождения] LIKE '+''''+sEdit1.Text+'%'+'''';
10:ADOQuery1.Filter:='[Особые отметки] LIKE '+''''+sEdit1.Text+'%'+'''';
11:ADOQuery1.Filter:='[Причина] LIKE '+''''+sEdit1.Text+'%'+'''';
12:ADOQuery1.Filter:='[ФИО] LIKE '+''''+sEdit1.Text+'%'+'''';
end;
end
else ADOQuery1.Filtered:=False;
end;
end.
Unit 15
procedure TForm15.sButton1Click(Sender: TObject);
begin
Form15.Close;
end;
procedure TForm15.sButton2Click(Sender: TObject);
begin
If (sEdit1.Text='') or (sEdit2.Text='') or (sEdit3.Text='') or (sEdit5.Text='') or (sEdit6.Text='') or (sCurrencyEdit1.Text='') then
Application.MessageBox('Одно или несколько полей незаполнены!', 'Ошибка ввода данных', MB_OK + MB_ICONSTOP)
else
begin
Form5.ADOQuery1.Edit;
Form5.ADOQuery1.FieldByName('ФИО Владельца').AsString:=sEdit1.Text;
Form5.ADOQuery1.FieldByName('Место жительства').AsString:=sEdit2.Text;
Form5.ADOQuery1.FieldByName('Место регистрации ТС').AsString:=sEdit3.Text;
Form5.ADOQuery1.FieldByName('Особые отметки').AsString:=sEdit4.Text;
Form5.ADOQuery1.FieldByName('Регистрационный знак').AsString:=sEdit5.Text;
Form5.ADOQuery1.FieldByName('Выданное св-во серия').AsString:=sEdit6.Text;
Form5.ADOQuery1.FieldByName('Выданное св-во №').AsString:=sCurrencyEdit1.Text;
Form5.ADOQuery1.FieldByName('Состояние').AsString:=('Используется');
Form5.ADOQuery1.FieldByName('Особые отметки').AsString:=('');
Form5.ADOQuery1.Post;
SVoreg.Print;
Form15.Close;
end;
end;
end.
Unit 16
procedure TForm16.sButton1Click(Sender: TObject);
var
Jpg: TJpegImage;
Stream: TMemoryStream;
FileExt: string;
GraphType: TGraphType;
begin
if dlgOpenPicture.Execute then
begin
Jpg := nil;
Stream := nil;
try
Stream := TMemoryStream.Create;
FileExt := LowerCase(ExtractFileExt(dlgOpenPicture.FileName));
if (FileExt = '.bmp') or (FileExt = '.dib') then
begin
GraphType := gtBitmap;
Stream.Write(GraphType, 1);
with Image1.Picture.Bitmap do
begin
LoadFromFile(dlgOpenPicture.FileName);
Image1.Picture.Bitmap.SaveToStream(Stream);
end;
end
else
if (FileExt = '.ico') then
begin
GraphType := gtIcon;
Stream.Write(GraphType, 1);
with Image1.Picture.Icon do
begin
LoadFromFile(dlgOpenPicture.FileName);
Image1.Picture.Bitmap.SaveToStream(Stream);
end;
end
else
if (FileExt = '.emf') or (FileExt = '.wmf') then
begin
GraphType := gtMetafile;
Stream.Write(GraphType, 1);
with Image1.Picture.Metafile do
begin
LoadFromFile(dlgOpenPicture.FileName);
Image1.Picture.Bitmap.SaveToStream(Stream);
end;
end
else
if (FileExt = '.jpg') or (FileExt = '.jpeg') or (FileExt = '.jpe') then
begin
Jpg := TJpegImage.Create;
Jpg.LoadFromFile(dlgOpenPicture.FileName);
Image1.Picture.Assign(Jpg);
GraphType := gtJpeg;
Stream.Write(GraphType, 1);
Jpg.SaveToStream(Stream);
end;
if (Form13.ADOQuery1.State <> dsEdit) and (Form13.ADOQuery1.State <> dsInsert) then
Form13.ADOQuery1.Edit;
Form13.ADOQuery1.FieldByName('name_i').AsString := ExtractFile-Name(dlgOpenPicture.FileName);
Stream.Position := 0;
TBlob-Field(Form13.ADOQuery1.FieldByName('image_i')).LoadFromStream(Stream);
Form13.ADOQuery1.Post;
except
jpg.Free;
Stream.Free;
raise;
end;
jpg.Free;
Stream.Free;
Form13.ADOQuery1.AfterScroll(Form13.ADOQuery1);
end;
Form16.Close;
Form21.Print;
end;
procedure TForm16.FormCreate(Sender: TObject);
begin
sDateEdit2.Text:=DateTimeToStr(Date);
end;
procedure TForm16.sButton2Click(Sender: TObject);
begin
If (sEdit1.Text='') or (sEdit2.Text='') or (sEdit3.Text='') or (sEdit4.Text='') or (sCurrencyEdit1.Text='0') or (sEdit5.Text='') or (sEdit6.Text='') or (sEdit7.Text='')
Then
Application.MessageBox('Одно или несколько полей незаполнены!', 'Ошибка ввода данных', MB_OK + MB_ICONSTOP)
else
begin
Form13.ADOQuery1.Insert;
Form13.ADOQuery1.FieldByName('ФИО').AsString:=sEdit1.Text;
Form13.ADOQuery1.FieldByName('Дата рождения').AsString:=sDateEdit1.Text;
Form13.ADOQuery1.FieldByName('Место рождения').AsString:=sEdit2.Text;
Form13.ADOQuery1.FieldByName('Место жительства').AsString:=sEdit3.Text;
Form13.ADOQuery1.FieldByName('Выдано ГИБДД МВД').AsString:=sEdit4.Text;
Form13.ADOQuery1.FieldByName('Дата выдачи').AsString:=sDateEdit2.Text;
Form13.ADOQuery1.FieldByName('Действительно до').AsString:=sDateEdit3.Text;
Form13.ADOQuery1.FieldByName('Категории').AsString:=sEdit5.Text;
Form13.ADOQuery1.FieldByName('ВУ серия').AsString:=sEdit6.Text;
Form13.ADOQuery1.FieldByName('ВУ №').AsString:=sCurrencyEdit1.Text;
Form13.ADOQuery1.FieldByName('Особые отметки').AsString:=sEdit7.Text;
Form13.ADOQuery1.Post;
sButton1.Enabled:=True;
sButton2.Enabled:=False;
ShowMessage ('Водитель успешно зарегистрирован в БД. Вы можете загрузить его фото.')
end;
end;
procedure TForm16.FormShow(Sender: TObject);
var
i: integer;
begin
for i := 0 to ComponentCount - 1 do
if Components[i] is TsEdit then
TsEdit(Components[i]).Text := '';
begin
for i := 0 to ComponentCount - 1 do
if Components[i] is TsDateEdit then
TsDateEdit(Components[i]).Text := '';
begin
for i := 0 to ComponentCount - 1 do
if Components[i] is TsCurrencyEdit then
TsCurrencyEdit(Components[i]).Text := '';
begin
sButton1.Enabled:=False;
end;
end;
end;
end;
procedure TForm16.sButton3Click(Sender: TObject);
begin
Form16.Close;
end;
end.
Unit 18
procedure TForm18.sButton1Click(Sender: TObject);
begin
Form18.Close;
end;
procedure TForm18.sButton2Click(Sender: TObject);
begin
Form5.ADOQuery1.Edit;
Form5.ADOQuery1.FieldByName('Особые отметки').AsString:=('Дубликат');
Form5.ADOQuery1.FieldByName('Выданное св-во серия').AsString:=sEdit1.Text;
Form5.ADOQuery1.FieldByName('Выданное св-во №').AsString:=sCurrencyEdit1.Text;
Form5.ADOQuery1.Post;
SVoreg.Print;
Form18.Close;
end;
end.
Unit 19
procedure TForm19.sButton4Click(Sender: TObject);
begin
If (sEdit1.Text='')
Then
Application.MessageBox('Введите причину лишения!', 'Ошибка ввода данных', MB_OK + MB_ICONSTOP)
else
Begin
Form13.ADOQuery1.Edit;
Form13.ADOQuery1.FieldByName('Особые отметки').AsString:='Лишён ВУ';
Form13.ADOQuery1.FieldByName('Причина').AsString:=sEdit1.Text;
Form13.ADOQuery1.FieldByName('Лишён').AsString:=sDateEdit1.Text;
Form13.ADOQuery1.FieldByName('Действительно до').AsString:='Лишён ВУ';
Form13.ADOQuery1.Post;
ShowMessage ('Водитель был лишён права управления транспортным средством');
Form19.Close;
end;
end;
procedure TForm19.sButton3Click(Sender: TObject);
begin
Form19.Close;
end;
end.
Unit 20
procedure TForm20.sButton1Click(Sender: TObject);
begin
if (sEdit6.Text='') or (sCurrencyEdit1.Text='') then
Application.MessageBox('Одно или несколько полей незаполнены!', 'Ошибка ввода данных', MB_OK + MB_ICONSTOP)
else
begin
Form13.ADOQuery1.Edit;
Form13.ADOQuery1.FieldByName('ВУ серия').AsString:=sEdit6.Text;
Form13.ADOQuery1.FieldByName('ВУ №').AsString:=sCurrencyEdit1.Text;
Form13.ADOQuery1.FieldByName('Дата выдачи').AsString:=sDateEdit2.Text;
Form13.ADOQuery1.FieldByName('Действительно до').AsString:=sDateEdit3.Text;
Form13.ADOQuery1.FieldByName('Особые отметки').AsString:='';
Form13.ADOQuery1.Post;
Form21.Print;
end;
end;
procedure TForm20.sButton2Click(Sender: TObject);
begin
Form20.Close;
end;
procedure TForm20.FormShow(Sender: TObject);
begin
sDateEdit2.Text:=DateTimeToStr(Date);
end;
procedure TForm20.sButton3Click(Sender: TObject);
begin
if (sEdit6.Text='') or (sCurrencyEdit1.Text='') then
Application.MessageBox('Одно или несколько полей незаполнены!', 'Ошибка ввода данных', MB_OK + MB_ICONSTOP)
else
begin
Form13.ADOQuery1.Edit;
Form13.ADOQuery1.FieldByName('ВУ серия').AsString:=sEdit6.Text;
Form13.ADOQuery1.FieldByName('ВУ №').AsString:=sCurrencyEdit1.Text;
Form13.ADOQuery1.FieldByName('Дата выдачи').AsString:=sDateEdit2.Text;
Form13.ADOQuery1.FieldByName('Действительно до').AsString:=sDateEdit3.Text;
Form13.ADOQuery1.FieldByName('Особые отметки').AsString:='Дубликат ВУ';
Form13.ADOQuery1.Post;
sButton3.Visible:=False;
Form21.Print;
Form20.Close;
end;
end;
procedure TForm20.FormClose(Sender: TObject; var Action: TCloseAction);
begin
sButton3.Visible:=False;
end;
procedure TForm20.sCheckBox1Click(Sender: TObject);
begin
if sCheckBox1.Checked then begin
sEdit6.Text:=Form13.sDBText3.Caption;
sCurrencyEdit1.Text:=Form13.sDBText4.Caption;
sEdit6.Enabled:=false;
sCurrencyEdit1.Enabled:=false;
end
else
begin
sCurrencyEdit1.Enabled:=true;
sCurrencyEdit1.Text:='';
sEdit6.Enabled:=true;
sEdit6.Text:='';
end;
end;
end.
Unit 21
procedure TForm21.FormCreate(Sender: TObject);
begin
Form21.Image1.Picture:=Form13.Image1.Picture;
end;
end.
Unit 22
procedure TForm22.sButton3Click(Sender: TObject);
begin
Form22.Close;
end;
procedure TForm22.FormCreate(Sender: TObject);
begin
sEdit1.Text:=Form13.sDBText12.Caption;
sEdit2.Text:=Form13.sDBText8.Caption;
sEdit3.Text:=Form13.sDBText7.Caption;
sEdit4.Text:=Form13.sDBText9.Caption;
sEdit5.Text:=Form13.sDBText6.Caption;
sEdit6.Text:=Form13.sDBText3.Caption;
sEdit7.Text:=Form13.sDBText5.Caption;
sDateEdit1.Text:=Form13.sDBText10.Caption;
sDateEdit2.Text:=Form13.sDBText2.Caption;
sEdit8.Text:=Form13.sDBText1.Caption;
sCurrencyEdit1.Text:=Form13.sDBText4.Caption;
Image2.Picture.LoadFromFile('Image/nopic.jpg');
end;
procedure TForm22.FormShow(Sender: TObject);
begin
Image1.Picture:=Form13.Image1.Picture;
end;
procedure TForm22.Image1Click(Sender: TObject);
begin
QBig.Image1.Picture:=Image1.Picture;
QBig.Show;
end;
procedure TForm22.sButton1Click(Sender: TObject);
var
Jpg: TJpegImage;
Stream: TMemoryStream;
FileExt: string;
GraphType: TGraphType;
begin
if dlgOpenPicture.Execute then
begin
Jpg := nil;
Stream := nil;
try
Stream := TMemoryStream.Create;
FileExt := LowerCase(ExtractFileExt(dlgOpenPicture.FileName));
if (FileExt = '.bmp') or (FileExt = '.dib') then
begin
GraphType := gtBitmap;
Stream.Write(GraphType, 1);
with Image1.Picture.Bitmap do
begin
LoadFromFile(dlgOpenPicture.FileName);
Image1.Picture.Bitmap.SaveToStream(Stream);
end;
end
else
if (FileExt = '.ico') then
begin
GraphType := gtIcon;
Stream.Write(GraphType, 1);
with Image1.Picture.Icon do
begin
LoadFromFile(dlgOpenPicture.FileName);
Image1.Picture.Bitmap.SaveToStream(Stream);
end;
end
else
if (FileExt = '.emf') or (FileExt = '.wmf') then
begin
GraphType := gtMetafile;
Stream.Write(GraphType, 1);
with Image1.Picture.Metafile do
begin
LoadFromFile(dlgOpenPicture.FileName);
Image1.Picture.Bitmap.SaveToStream(Stream);
end;
end
else
if (FileExt = '.jpg') or (FileExt = '.jpeg') or (FileExt = '.jpe') then
begin
Jpg := TJpegImage.Create;
Jpg.LoadFromFile(dlgOpenPicture.FileName);
Image1.Picture.Assign(Jpg);
GraphType := gtJpeg;
Stream.Write(GraphType, 1);
Jpg.SaveToStream(Stream);
end;
if (Form13.ADOQuery1.State <> dsEdit) and (Form13.ADOQuery1.State <> dsInsert) then
Form13.ADOQuery1.Edit;
Form13.ADOQuery1.FieldByName('name_i').AsString := ExtractFile-Name(dlgOpenPicture.FileName);
Stream.Position := 0;
TBlob-Field(Form13.ADOQuery1.FieldByName('image_i')).LoadFromStream(Stream);
Form13.ADOQuery1.Post;
except
jpg.Free;
Stream.Free;
raise;
end;
jpg.Free;
Stream.Free;
Form13.ADOQuery1.AfterScroll(Form13.ADOQuery1);
end;
end;
procedure TForm22.sButton2Click(Sender: TObject);
begin
Form13.ADOQuery1.Edit;
Form13.ADOQuery1.FieldByName('ФИО').AsString:=sEdit1.Text;
Form13.ADOQuery1.FieldByName('Дата рождения').AsString:=sDateEdit1.Text;
Form13.ADOQuery1.FieldByName('Место рождения').AsString:=sEdit2.Text;
Form13.ADOQuery1.FieldByName('Место жительства').AsString:=sEdit3.Text;
Form13.ADOQuery1.FieldByName('Выдано ГИБДД МВД').AsString:=sEdit4.Text;
Form13.ADOQuery1.FieldByName('Дата выдачи').AsString:=sDateEdit2.Text;
Form13.ADOQuery1.FieldByName('Действительно до').AsString:=sEdit8.Text;
Form13.ADOQuery1.FieldByName('Категории').AsString:=sEdit5.Text;
Form13.ADOQuery1.FieldByName('ВУ серия').AsString:=sEdit6.Text;
Form13.ADOQuery1.FieldByName('ВУ №').AsString:=sCurrencyEdit1.Text;
Form13.ADOQuery1.FieldByName('Особые отметки').AsString:=sEdit7.Text;
Form13.ADOQuery1.Post;
end;
end.
Unit 24
procedure TForm24.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Form2.Show;
end;
procedure TForm24.sButton1Click(Sender: TObject);
begin
Form24.Close;
end;
procedure TForm24.sButton2Click(Sender: TObject);
begin
Form25.ShowModal;
end;
procedure TForm24.sButton3Click(Sender: TObject);
begin
ShowMessage('Штраф был успешно погашен (оплачен).');
ADOQuery1.Edit;
ADOQuery1.FieldByName('Статус').AsString:='Погашен';
ADOQuery1.Post;
end;
procedure TForm24.sButton4Click(Sender: TObject);
begin
case MessageBox(Handle,'Вы действительно хотите удалить данную за-пись?','Подтверждение удаления',36) of
6: ADOQuery1.Delete;
7: ;
end;
end;
procedure TForm24.sButton5Click(Sender: TObject);
begin
Form36.ShowModal;
end;
procedure TForm24.sEdit1KeyUp(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if Length(sEdit1.text)>0 then
begin
ADOQuery1.Filtered:=true;
case sCombobox1.ItemIndex of
0:ADOQuery1.Filter:='[ВУ серия и №] LIKE '+''''+sEdit1.Text+'%'+'''';
1:ADOQuery1.Filter:='[Выдано ГИБДД МВД] LIKE '+''''+sEdit1.Text+'%'+'''';
2:ADOQuery1.Filter:='[Дата выдачи ВУ] LIKE '+''''+sEdit1.Text+'%'+'''';
3:ADOQuery1.Filter:='[Дата и время] LIKE '+''''+sEdit1.Text+'%'+'''';
4:ADOQuery1.Filter:='[Дата рождения] LIKE '+''''+sEdit1.Text+'%'+'''';
5:ADOQuery1.Filter:='[Инспектор] LIKE '+''''+sEdit1.Text+'%'+'''';
6:ADOQuery1.Filter:='[Категории] LIKE '+''''+sEdit1.Text+'%'+'''';
7:ADOQuery1.Filter:='[Место] LIKE '+''''+sEdit1.Text+'%'+'''';
8:ADOQuery1.Filter:='[Причина] LIKE '+''''+sEdit1.Text+'%'+'''';
9:ADOQuery1.Filter:='[Размер] LIKE '+''''+sEdit1.Text+'%'+'''';
10:ADOQuery1.Filter:='[Статус] LIKE '+''''+sEdit1.Text+'%'+'''';
11:ADOQuery1.Filter:='[ФИО] LIKE '+''''+sEdit1.Text+'%'+'''';
end;
end
else ADOQuery1.Filtered:=False;
end;
end.
Unit 25
procedure TForm25.sButton2Click(Sender: TObject);
begin
If (sEdit1.Text='') or (sEdit2.Text='') or (sEdit3.Text='') or (sEdit4.Text='') or (sEdit5.Text='') or (sEdit6.Text='') or (sEdit7.Text='')
Then
Application.MessageBox('Одно или несколько полей незаполнены!', 'Ошибка ввода данных', MB_OK + MB_ICONSTOP)
else
begin
Form24.ADOQuery1.Insert;
Form24.ADOQuery1.FieldByName('ФИО').AsString:=sEdit1.Text;
Form24.ADOQuery1.FieldByName('Дата рождения').AsString:=sDateEdit1.Text;
Form24.ADOQuery1.FieldByName('Выдано ГИБДД МВД').AsString:=sEdit3.Text;
Form24.ADOQuery1.FieldByName('Дата выдачи ВУ').AsString:=sDateEdit2.Text;
Form24.ADOQuery1.FieldByName('Категории').AsString:=sEdit4.Text;
Form24.ADOQuery1.FieldByName('ВУ серия и №').AsString:=sEdit2.Text;
Form24.ADOQuery1.FieldByName('Причина').AsString:=sMemo1.Text;
Form24.ADOQuery1.FieldByName('Дата и время').AsString:=sMaskEdit1.Text;
Form24.ADOQuery1.FieldByName('Место').AsString:=sEdit6.Text;
Form24.ADOQuery1.FieldByName('Раз...
Подобные документы
Основы программирования на 32-битном Ассемблере, разработка с его помощью программы, демонстрирующей работу одного из разделов ОС Windоws. Описание используемых АРI-функций как интерфейса программирования приложений. Листинг программы, результаты работы.
курсовая работа [164,5 K], добавлен 18.05.2014Характеритсика и роль автоматизации в бухгалтерском учете. Описание создания базы данных для расчета заработной платы сотрудников предприятия, вывода отчета. Выбор программного обеспечения, процедур и функций. Рассмотрение основ интерфейса программы.
курсовая работа [933,8 K], добавлен 19.04.2015Описание логической и модульной структуры разрабатываемой программы, используемые в данном процессе основные технические средства. Организация хранения данных в программе, проектирование интерфейса. Тестирование и отладка, листинг готовой программы.
курсовая работа [494,5 K], добавлен 20.06.2012Теоретические основы разработки приложения, реализующего подсвечивание ключевых слов. Описание используемых процедур и функций, структуры программы, интерфейса пользователя. Системные требования для работы приложения, анализ результаты его тестирования.
курсовая работа [1,2 M], добавлен 07.07.2012Анализ и описание алгоритма. Основные характеристики выбранного компьютера, программных сред (операционная система и среда программирования). Описание компонентов и интерфейса программы, а также модулей, процедур и функций. Вызов и загрузка программы.
курсовая работа [1,3 M], добавлен 26.04.2015Описание входной и выходной информации. Программно-технические средства, необходимые для разработки программы "Автоматизированная информационная справочная система аптеки". Возможность формирования и корректировки файлов, тестирование программы.
курсовая работа [761,7 K], добавлен 18.12.2013Характеристика функциональных возможностей разрабатываемой программы в среде Delphi для регистрации абитуриентов. Описание алгоритма и структуры данной программы. Поиск данных в базе по заданным параметрам. Описание модулей и листинг программы.
курсовая работа [801,5 K], добавлен 19.07.2011Существующие альтернативы программы. Описание формул для выкроек, используемых в разработке. Описание разрабатываемой программы, а также структура ее интерфейса. Детальное описание возможностей и спецификация, функциональные особенности программы.
курсовая работа [427,4 K], добавлен 10.10.2015Язык Delphi как строго типизированный объектно-ориентированный язык, в основе которого лежит хорошо знакомый программистам Object Pascal, его главные особенности. Стадии создания автоматизированной системы. Листинг программы, разработка интерфейса.
курсовая работа [933,9 K], добавлен 08.12.2011Описание предметной области. Характеристика программных средств. Описание компонентов, интерфейс программы. Описание процедур и функций. Вызов и загрузка программы. Испытание методом белого и черного ящика на ошибки кода программного приложения.
курсовая работа [2,2 M], добавлен 26.04.2015Объектная модель программной системы согласно методологии ОМТ (в виде IDEF-диаграмм): анализ предъявляемых требований и предварительное проектирование системы. Описание алгоритмов обработки данных. Реализация системы на языке С#, листинг программы.
контрольная работа [399,2 K], добавлен 25.02.2013Cоздание и описание логической модели автоматизированной системы обработки информации. Проектирование структуры системы в виде диаграмм UML. Анализ программных средств разработки программного обеспечения и интерфейса. Осуществление тестирования программы.
дипломная работа [2,5 M], добавлен 25.01.2015Общие сведения об автоматизированных информационных системах библиотек. Разработка графического макета, интерфейса и дизайна информационной системы. Требования к функциональной части системы. Создание программных модулей. Алгоритмы обработки данных.
дипломная работа [1,7 M], добавлен 04.11.2016Описание использованных структур данных и разработка программы, обеспечивающей сжатие данных по алгоритму LZ77 с пошаговой визуализацией. Описание процедур, функций, структуры приложения и интерфейса пользователя. Тест и анализ работы алгоритма LZ77.
курсовая работа [537,9 K], добавлен 28.06.2011Анализ входной и выходной информации, особенности ее документационного обеспечения. Описание таблиц и их основное содержание. Методика и этапы разработки интерфейса программы и ее листинг, а также формирование инструкций пользователя и программиста.
курсовая работа [682,7 K], добавлен 30.07.2015Программное обеспечение для диспетчерских станций карьеров по добыче полезных ископаемых. Описание технологий и языков программирования, используемых при разработке программы. Технические и программные средства. Описание логической структуры программы.
дипломная работа [2,0 M], добавлен 23.12.2016Анализ проектирования интерфейса программы. Выбор и назначение визуальных компонентов. Изучение экранных форм приложения. Модули, процедуры, функции проекта и их назначение. Листинг программного кода. Результаты работы автоматизированного продукта.
курсовая работа [1,9 M], добавлен 11.12.2017Область применения системы учета перевозок в карьере горно-обогатительного комбината. Функциональное назначение, описание логической структуры программы, пользовательского интерфейса, языков программирования, используемых при разработке программы.
дипломная работа [3,0 M], добавлен 21.12.2016Общие сведения о программном средстве по моделированию работы электродвигателя, его функциональное назначение. Описание логической структуры программного обеспечения. Вызов программы modelDPR52, ее загрузка, входные и выходные данные. Листинг программы.
курсовая работа [420,0 K], добавлен 28.05.2012Создание базы данных и СУБД. Структура простейшей базы данных. Особенности языка программирования Турбо Паскаль. Описание типов, констант, переменных, процедур и функций. Описание алгоритма базы данных (для сотрудников ГИБДД), листинг программы.
курсовая работа [26,3 K], добавлен 26.01.2012
