Реферат База даних туристичної фірми

ign="justify"> procedure N12Click (Sender: TObject);

procedure N7Click (Sender: TObject);

procedure N8Click (Sender: TObject);

private

{Private declarations}

public

{Public declarations}

end;

Form1: TForm1; UnitDM, UnitContry, UnitOperator, UnitTurPut, UnitTur, UnitPut,

UnitZakaz, UnitOform;

{$ R * .dfm} TForm1.FormCreate (Sender: TObject) ;. Top:=0; .Left:=0; .Width:=Screen.Width; .Height:=Screen. Height - 100 ;; TForm1.N11Click (Sender: TObject) ;. Terminate ;; TForm1.N5Click (Sender: TObject); Form2:=TForm2.Create (Application); end; TForm1.N4Click (Sender: TObject); Form3:=TForm3.Create (Application); end; TForm1.N9Click (Sender: TObject);:=TForm4.Create (Application) ;; TForm1.N12Click (Sender: TObject); Form6:=TForm6.Create (Application); end; TForm1.N7Click (Sender: TObject); Form7:=TForm7.Create (Application); end; TForm1.N8Click (Sender: TObject); Form8:=TForm8.Create (Application); end;.

Лістинг форми «Замовлення» UnitZakaz;

interface

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

Dialogs, ExtCtrls, Grids, DBGrids, StdCtrls, Buttons;

TForm7=class (TForm)

DBGrid1: TDBGrid;

Panel1: TPanel;

BitBtn1: TBitBtn;

BitBtn2: TBitBtn;

BitBtn3: TBitBtn;

procedure BitBtn1Click (Sender: TObject);

procedure FormClose (Sender: TObject; var Action: TCloseAction);

procedure BitBtn3Click (Sender: TObject);

procedure BitBtn2Click (Sender: TObject);

private {Private declarations} public

end;

Form7: TForm7; UnitDM, UnitOform;

{$ R * .dfm} TForm7.BitBtn1Click (Sender: TObject); Close; end; TForm7.FormClose (Sender: TObject; var Action: TCloseAction); Action:=caFree; end; TForm7.BitBtn3Click (Sender: TObject); MessageBox (Handle, PChar ( Видалення замовлення ), PChar ( Видалити замовлення? ), mb_YesNo)=idYesDM.Zakaz.Delete ;; TForm7.BitBtn2Click (Sender:TObject);:=TForm8.Create (Application);

end;.