Курсовая работа: Автоматизация работы паспортного стола

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 MUnit 3; // Модуль формы отчета

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;