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

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;