Тексты модулей приложения

 

Создание прототипа базы данных или приложения с пользовательским интерфейсом отражено в листинге программы. Это программный код поэтапной разработки приложения на языке Delphi.

 

unit MUnit1;// Модуль главной формы

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, Buttons, DB, ADODB, XPMan;

type

TForm1 = class(TForm)

BitBtn1: TBitBtn;

XPManifest1: TXPManifest;

ADOConnection1: TADOConnection;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Edit1: TEdit;

Button1: TButton;

procedure BitBtn1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

Uses MUnit2, MUnit3;

{$R *.dfm}

procedure TForm1.BitBtn1Click(Sender: TObject);

begin

Form2.Show

end;

end.

 

unit MUnit2;// Модуль рабочей формы

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, XPMan, DB, ADODB, Grids, DBGrids, StdCtrls, ComCtrls, ExtCtrls,

DBCtrls;

type

TForm2 = class(TForm)

DBGrid1: TDBGrid;

DBGrid2: TDBGrid;

DataSource1: TDataSource;

DataSource2: TDataSource;

ADOTable1: TADOTable;

ADOQuery1: TADOQuery;

AllQuery: TADOQuery;

Button1: TButton;

XPManifest1: TXPManifest;

ComboBox1: TComboBox;

ComboBox2: TComboBox;

Label2: TLabel;

Label3: TLabel;

Button2: TButton;

Label4: TLabel;

DBNavigator1: TDBNavigator;

Button3: TButton;

Label1: TLabel;

Label5: TLabel;

DBNavigator2: TDBNavigator;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

procedure ADOTable1AfterInsert(DataSet: TDataSet);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form2: TForm2;

implementation

Uses MUnit1, MUnit3, MUnit4;

{$R *.dfm}

procedure TForm2.Button1Click(Sender: TObject);

begin

AllQuery.Close;

AllQuery.Active:=True;

Form3.QuickRep1.Preview;

end;

procedure TForm2.Button2Click(Sender: TObject);

begin

Label4.Visible:=True;

Label2.Visible:=True;

Label3.Visible:=True;

ComboBox1.Visible:=True;

ComboBox2.Visible:=True;

Button1.Visible:=True;

end;

procedure TForm2.Button3Click(Sender: TObject);

begin

Form4.Show

end;

procedure TForm2.ADOTable1AfterInsert(DataSet: TDataSet);

begin

Form2.ADOTable1.FieldByName('ФИО').AsString := Form4.LabeledEdit1.Text;

Form2.ADOTable1.FieldByName('Дата_Рождения').AsString Form4.LabeledEdit2.Text;

Form2.ADOTable1.FieldByName('Пол').AsString := Form4.LabeledEdit3.Text;

Form2.ADOTable1.FieldByName('Прописка').AsString Form4.LabeledEdit4.Text;

Form2.ADOTable1.FieldByName('Телефон').AsString

Form4.LabeledEdit5.Text;

end;

end.

 

unit MUnit3;// Модуль формы отчета

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, QuickRpt, ExtCtrls, QRCtrls, StdCtrls;

type

TForm3 = class(TForm)

QuickRep1: TQuickRep;

ColumnHeaderBand1: TQRBand;

DetailBand1: TQRBand;

SummaryBand1: TQRBand;

TitleBand1: TQRBand;

QRLabel1: TQRLabel;

QRSysData1: TQRSysData;

QRLabel2: TQRLabel;

QRLabel3: TQRLabel;

QRDBText1: TQRDBText;

QRDBText2: TQRDBText;

QRLabel4: TQRLabel;

QRLabel5: TQRLabel;

QRLabel6: TQRLabel;

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form3: TForm3;

implementation

Uses MUnit1, MUnit2;

{$R *.dfm}

end.

unit MUnit4;// Модуль формы добавления данных

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, ExtCtrls;

type

TForm4 = class(TForm)

LabeledEdit1: TLabeledEdit;

LabeledEdit2: TLabeledEdit;

LabeledEdit3: TLabeledEdit;

LabeledEdit4: TLabeledEdit;

LabeledEdit5: TLabeledEdit;

Button1: TButton;

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form4: TForm4;

implementation

Uses MUnit1, MUnit2;

{$R *.dfm}

procedure TForm4.Button1Click(Sender: TObject);

begin

Form2.ADOTable1.FieldByName('ФИО').AsString := Form4.LabeledEdit1.Text;

Form2.ADOTable1.FieldByName('Дата_Рождения').AsString Form4.LabeledEdit2.Text;

Form2.ADOTable1.FieldByName('Пол').AsString := Form4.LabeledEdit3.Text;

Form2.ADOTable1.FieldByName('Прописка').AsString Form4.LabeledEdit4.Text;

Form2.ADOTable1.FieldByName('Телефон').AsString

Form4.LabeledEdit5.Text;

end;

end.

Инструкция по работе с программой

Общие сведения

 

Для функционирования программы «Паспортный стол +» необходимо, чтобы на рабочем компьютере был установлен пакет прикладных программ MicrosoftOffice, в частности СУБД MS Access. В этой программе хранятся таблицы с информацией базы данных паспортного стола. Для нормальной работы программы (быстрого поиска в базе) желательно наличие процессора Pentium 3 и выше. Необходимые системные требования к ОЗУ и HDD: наличие не менее 512 Мб свободной основной памяти и не менее 300 Мб свободного дискового пространства.

Функциональное назначение

 

Настоящая информационно-поисковая система предназначена для ведения учета в паспортно-визовой службе, а также для автоматизированного поиска информации о гражданах.

Вызов и загрузка

 

Системные файлы программы могут быть установлены в любом каталоге жесткого диска, так же как и файл базы данных. При запуске из окна программы можно указать месторасположение файла базы данных Access, воспользовавшись программой Проводник операционной системы Windows.