Заключение
Задание состояло в разработке программного средства «Информационно-справочная система Картотека ГАИ ».
В процессе разработки программного продукта был создан простой и интуитивно понятный в использовании интерфейс. Он содержит понятные названия на кнопках и всплывающие подсказки, что позволяет быстро и легко ориентироваться в программе, а также быстро и эффективно выполнить необходимые действия. Это позволяет даже неопытному пользователю применять в работе данное приложение. Программное средство соответствует заданной мне постановке задачи, в программе выполнены и работают все используемые компоненты.
Список использованных источников
ГОСТ 19.105 – 78 ЕСПД. Общие требования к программным документам.
Культин Н.Б. Программирование в Turbo Pascal и Delphi.—
СПб.: BHV — Санкт-Петербург, 1998.
DRKB3_Full. Скомпилированный файл справки в формате HTML
Шпак Ю.А. Delphi в примерах.
А.Я. Архангельский Программирование в Delphi 7
Культин Н. Б. Основы программирования в Delphi 7
http://www.allbest.ru
Библия Delphi (Михаил Фленов)
ПриложениеА
ЛИСТИНГ ПРОГРАММЫ
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "Unit1.h"
#include "Unit2.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
Close();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
Form2->Show();
}
//---------------------------------------------------------------------------
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "Unit1.h"
#include "Unit2.h"
#include "Unit3.h"
#include "Unit4.h"
#include "Unit5.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm2 *Form2;
//---------------------------------------------------------------------------
__fastcall TForm2::TForm2(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm2::ADOQuery1AfterScroll(TDataSet *DataSet)
{
if (ADOQuery2->Active) ADOQuery2->Close();
ADOQuery2->Parameters->FindParam("Z")->Value=ADOQuery1->FieldByName("id")->Value;
ADOQuery2->Open();
}
//---------------------------------------------------------------------------
void __fastcall TForm2::ADOQuery1BeforeDelete(TDataSet *DataSet)
{
while (ADOQuery2->RecordCount) ADOQuery2->Delete();
}
//---------------------------------------------------------------------------
void __fastcall TForm2::ADOQuery2NewRecord(TDataSet *DataSet)
{
ADOQuery2->FieldByName("Vladelec")->Value=ADOQuery1->FieldByName("id")->Value;
}
//---------------------------------------------------------------------------
void __fastcall TForm2::FormCreate(TObject *Sender)
{
Form1=new TForm1(this);
Form1->ShowModal();
Form1->Free();
}
//---------------------------------------------------------------------------
void __fastcall TForm2::BitBtn1Click(TObject *Sender)
{
Form3 -> Show();
Form2->ADOQuery1 -> Insert() ;
Form2->ADOQuery2 -> Insert() ;
}
//---------------------------------------------------------------------------
void __fastcall TForm2::BitBtn2Click(TObject *Sender)
{
Form3->Show();
}
//---------------------------------------------------------------------------
void __fastcall TForm2::BitBtn3Click(TObject *Sender)
{
ADOQuery1 -> Delete();
}
//---------------------------------------------------------------------------
void __fastcall TForm2::N3Click(TObject *Sender)
{
Application->Terminate();
}
//---------------------------------------------------------------------------
void __fastcall TForm2::N2Click(TObject *Sender)
{
Form4->Show();
}
//---------------------------------------------------------------------------
void __fastcall TForm2::N4Click(TObject *Sender)
{
Form5->Show();
}
//---------------------------------------------------------------------------
void __fastcall TForm2::Edit1Change(TObject *Sender)
{
TLocateOptions SOptions;
DBGrid1->DataSource->DataSet->Locate("Vladelec", Edit1->Text, SOptions<<loPartialKey);
}
//---------------------------------------------------------------------------
void __fastcall TForm2::N5Click(TObject *Sender)
{
Application->HelpCommand(11,0) ;
}
//---------------------------------------------------------------------------
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "Unit3.h"
#include "Unit2.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm3 *Form3;
//---------------------------------------------------------------------------
__fastcall TForm3::TForm3(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm3::Button2Click(TObject *Sender)
{
Close();
}
//---------------------------------------------------------------------------
void __fastcall TForm3::Button1Click(TObject *Sender)
{
Form2->ADOQuery1->Post();
Form2->ADOQuery2->Post();
Close();
}
//---------------------------------------------------------------------------//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "Unit4.h"
#include "Unit2.h"
#include "Unit5.h"
#include "Unit6.h"
#include "Unit3.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm4 *Form4;
//---------------------------------------------------------------------------
__fastcall TForm4::TForm4(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm4::N5Click(TObject *Sender)
{
Form2->Show();
Close();
}
//---------------------------------------------------------------------------
void __fastcall TForm4::Edit1Change(TObject *Sender)
{
TLocateOptions SOptions;
DBGrid1->DataSource->DataSet->Locate("familija", Edit1->Text, SOptions<<loPartialKey);
}
//---------------------------------------------------------------------------
void __fastcall TForm4::N4Click(TObject *Sender)
{
Application->Terminate();
}
//---------------------------------------------------------------------------
void __fastcall TForm4::N2Click(TObject *Sender)
{
Form5->Show();
}
//---------------------------------------------------------------------------
void __fastcall TForm4::BitBtn2Click(TObject *Sender)
{
Form6->Show();
}
//---------------------------------------------------------------------------
void __fastcall TForm4::BitBtn3Click(TObject *Sender)
{
Form4->ADOQuery1->Delete();
}
//---------------------------------------------------------------------------
void __fastcall TForm4::BitBtn1Click(TObject *Sender)
{
Form6 -> Show();
Form4->ADOQuery1 -> Insert() ;
}
//---------------------------------------------------------------------------
void __fastcall TForm4::N3Click(TObject *Sender)
{
Application->HelpCommand(11,0);
}
//---------------------------------------------------------------------------
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "Unit5.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm5 *Form5;
//---------------------------------------------------------------------------
__fastcall TForm5::TForm5(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "Unit6.h"
#include "Unit4.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm6 *Form6;
//---------------------------------------------------------------------------
__fastcall TForm6::TForm6(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm6::BitBtn1Click(TObject *Sender)
{
Form4->ADOQuery1->Post();
Close();
}
//---------------------------------------------------------------------------
void __fastcall TForm6::BitBtn2Click(TObject *Sender)
{
Close();
}
//---------------------------------------------------------------------------
Приложение Б
Процедуры программы «GAI»
Unit1
void __fastcall TForm1::Timer1Timer(TObject *Sender)– процедура входа в программу;
void __fastcall TForm1::Button1Click(TObject *Sender) - )– процедура входа в программу;
unit2
void __fastcall TForm1::ADOQuery1AfterScroll(TDataSet *DataSet);-функция передачи содержимого переменной Z.
void __fastcall TForm1::ADOQuery1BeforeDelete(TDataSet *DataSet);-функция происходящая перед удалением записи таблицы.
void __fastcall TForm1::ADOQuery2NewRecord(TDataSet *DataSet);-функция при создании новой записи присваивает значение Animals(Второстепенная таблица) в ID(Главная таблица).
void __fastcall TForm2::FormCreate(TObject *Sender) – связывает заставку и Главное окно;
void __fastcall TForm2::BitBtn1Click(TObject *Sender) – процедура добавления данных в таблицу;
void __fastcall TForm2::BitBtn2Click(TObject *Sender) – процедура изменения данных в таблице;
void __fastcall TForm2::BitBtn3Click(TObject *Sender) – процедура удаления;
void __fastcall TForm2::N3Click(TObject *Sender) – выход из программы;
void __fastcall TForm2::N2Click(TObject *Sender) – переход на окно «Сотрудники»;
void __fastcall TForm2::N4Click(TObject *Sender)- переход на окно «О создателе»;
void __fastcall TForm2::Edit1Change(TObject *Sender) - процедура поиска;
void __fastcall TForm2::N5Click(TObject *Sender) – процедура вызова справки ;
unit3
void __fastcall TForm3::Button2Click(TObject *Sender) – процедура выхода из формы;
void __fastcall TForm3::Button1Click(TObject *Sender) – процедура сохранения данных;
unit4
void __fastcall TForm4::N5Click(TObject *Sender) – процедура перехода на Главную форму;
void __fastcall TForm4::Edit1Change(TObject *Sender) – процедура поиска;
void __fastcall TForm4::N4Click(TObject *Sender) – процедура выхода из программы;
void __fastcall TForm4::N2Click(TObject *Sender) – переход на форму «О создателе»;
void __fastcall TForm4::BitBtn2Click(TObject *Sender) - переход на форму редактирования данных;
void __fastcall TForm4::BitBtn3Click(TObject *Sender) – процедура удаления данных;
void __fastcall TForm4::BitBtn1Click(TObject *Sender) - процедура добавления данных;
void __fastcall TForm4::N3Click(TObject *Sender) – процедура вызова спраки;
unit6
void __fastcall TForm6::BitBtn1Click(TObject *Sender) - процедура сохранения данных;
void __fastcall TForm6::BitBtn2Click(TObject *Sender)– процедура закрытия формы;
Разраб. |
Оглашевич Е.Г.
|
|
|
|
Лист |
|
Пров. |
Скуловец А.П.
|
|
|
|
||
Изм
|
Лист |
№ докум. |
Подпись |
Дата |