Реферат Використання ADO-технології в інформаційній системі &Готель&

de ;; TForm1.N4Click (Sender: TObject) ;. Show; .Hide ;; TForm1.Button1Click (Sender: TObject); RadioGroup1.ItemIndex of

: ADOTable1.IndexFieldNames:= ФІО_Кліента raquo ;;

: ADOTable1.IndexFieldNames:= Дата_заселенія raquo ;;

: ADOTable1.IndexFieldNames:= Номер_комнати raquo ;;;; TForm1.Button2Click (Sender: TObject) ;. ItemIndex:=- 1; .IndexFieldNames:= ID_Klienty raquo ;;; TForm1.N5Click (Sender: TObject) ;. Show; .Hide ;;.;// Форма Клієнти raquo ;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms ,, Menus, ExtCtrls, DBCtrls, Grids, DBGrids, DB, ADODB, StdCtrls;=class (TForm): TMainMenu ;: TMenuItem;:TADOTable ;: TDataSource ;: TDBGrid ;: TDBNavigator ;: TButton ;: TEdit ;: TRadioGroup ;: TButton; Exit1Click (Sender: TObject); Button1Click (Sender: TObject); Button2Click (Sender: TObject);

{Private declarations}

{Public declarations} ;: TForm2; Unit1;

{$ R * .dfm} TForm2.Exit1Click (Sender: TObject) ;. Show; .Hide ;; TForm2.Button1Click (Sender: TObject) ;. Filtered:=true; RadioGroup1.ItemIndex of

: ADOTable1.Filter:= ФІО_кліента= + # 39 + edit1.Text + # 39;

: ADOTable1.Filter:= Статус= + # 39 + edit1.Text + # 39;

: ADOTable1.Filter:= Національність= + # 39 + edit1.Text + # 39;

: ADOTable1.Filter:= Пол= + # 39 + edit1.Text + # 39;

: ADOTable1.Filter:= Мета приїзду= + # 39 + edit1.Text + # 39 ;;; TForm2.Button2Click (Sender: TObject) ;. Filtered:=false; .ItemIndex :=- 1 ;;. Unit3;// Форма Номери кімнат raquo ;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms ,, Menus, DB, ADODB, ExtCtrls, DBCtrls, Grids, DBGrids;=class (TForm): TMainMenu ;: TMenuItem ;: TDataSource ;: TDBGrid ;: TDBNavigator ;: TADOTable; Exit1Click (Sender: TObject);

{Private declarations}

{Public declarations} ;: TForm3; Unit1;

{$ R * .dfm} TForm3.Exit1Click (Sender: TObject) ;. Show; .Hide ;;. Unit4;// Форма Номери кімнат raquo ;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms ,, Menus, DB, ADODB, ExtCtrls, DBCtrls, Grids, DBGrids;=class (TForm): TMainMenu ;: TMenuItem ;: TDataSource ;: TDBGrid ;: TDBNavigator ;: TADOTable; Close1Click (Sender: TObject);

{Private declarations}

{Public declarations} ;: TForm4; Unit1;

{$ R * .dfm} TForm4.Close1Click (Sender: TObject) ;. Show; .Hide;

end; .Unit5;// Форма Робота З БД із застосуванням SQL запитів

interface, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms ,, StdCtrls, Grids, DBGrids, DB, ADODB, Menus, ExtCtrls, DBCtrls;=class (TForm): TDBGrid ;: TMemo ;: TMemo ;: TMainMenu ;: TMenuItem ;: TButton ;: TADOQuery ;: TDataSource ;: TDBNavigator; Close1Click (Sender: TObject); FormCreate (Sender: TObject); Button1Click (Sender: TObject);

{Private declarations}

{Public declarations} ;: TForm5; Unit1;

{$ R * .dfm} TForm5.Close1Click (Sender: TObject) ;. Show; .Hide ;; TForm5.FormCreate (Sender: TObject) ;. Clear ;; TForm5.Button1Click (Sender: TObject) ;. Close; .SQL.Text:=Memo2.Text; .Open ;;.