Реферат Розробка АІС &Туристичне агентство&

», 2004.

. Ю.В.П. Роб, К. Корнел. Системи баз даних: проектування, реалізація і управління. 5 - е видання. СПБ .: «БХВ - Петербург», 2004.

. Рудаков А. В. Технологія розробки програмних продуктів - Москва, 2005;

. Білл Гамільтон ADO Збірник рецептів. Для професіоналів.

. В. Фаронов. DELPHI. Програмування на мові високого рівня: Підручник для вузів. СПБ: Питер, 2005

. М.Є. Фленов. Біблія Delphi. 2-е видання. СПБ: БХВ-Петербург, 2008

. А.П. Чекалов. Бази даних: від проектування до розробки додатків. СПБ .: «БХВ - Петербург», 2004

. А.Д. Хомоненко, В.Е. Гофман, Робота з бащамі даних в Delphi. СПБ .: «БХВ Петербург», 2005.

. # justify gt ;. # justify gt; Додаток 1

Лістинг програмного коду

Unitl ;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Grids, DBGrids, DB, ADODB, StdCtrls, Buttons, ComCtrls; S=class (TForm): TADOConnection ;: TADOQuery ;: TDataSource ;: TDBGrid ;: TBitBtn ;: TBitBtn ;: TBitBtn ;: TStatusBar; BitBtnlClick (Sender: TObject); BitBtn3Click (Sender: TObject); BitBtn2Click (Sender: TObject); DBGridlKeyPress (Sender: TObject; varKey: Char);

{Private declarations}

{Public declarations};: TForml;:string; Unit2, Unit3;

{SR * .dfin} TForml JBitBtnlClick (Senden TObject); _show; 1.Insert ;; TForm 1.BitBtn3Click (Sender TObject); 1 -Delete; end; TForm 1.BitBtn2Click (Senden TObject);-Sbow ;; TForml JDBGridlKeyPress (Senden TObject; var Key: Char);:=fe + key; .DataSource.DataSet-Locatet Прізвище raquo ;, fs, [loPartialKev]) ;. Panels.Items [0] .Text: = Ішем: + fs ;;. Unit2 ;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Buttons, Mask, DBCtris; =Class (TForm): TDBEdit ;: TDBEdit ;: TDBEdit ;: TDBEdit ;: TBitBtn ;: TBitBtn ;: TDBEdit; 1: TLabel ;: TLabel ;: TLabel ;: TLabel ;: TLabel; BitBtnlClick (Senden TObject); BitBtn2Click (Sender TObject);

{Private declarations}

{Public declarations};: TForm2; Unitl;

{SR .dfm) TForm2.BitBtnlClick (Sender: TObject); 1. ADOQuery 1.Post ;;; TForm2.BitBtn2Click (Sender TObject);.Close ;;. Unit3 ;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, jpeg, ExtCtrls, StdCtris, Buttons;

ТТоппЗ=class (TForm) 1: Tlmage ;: TBitBtn ;: TBitBtn; BitBtnlClickf Sender. TObject); BitBtn2Click (Sender: TObject);

{Private declarations}

{Public declarations};:TForm3; Unit2, Unit !, Unit4;

{$ R * .dfm) TForm3.BitBmICIick (Senden TObject); 1.show; ; TForm3.BitBtn2Click (Sender: TObject);.show ;;. Unit4 ;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Buttons, Grids, DBGrids, DB, ADODB; =Class (TForm): TDataSource; 1: TADOConnection; 1: TADOQuery ;: TDBGrid ;: TBitBtn ;: TBitBtn ;: TBitBtn; BitBtnl Cl ick (Sender: TObject); procedure BitBtn3Click (Sender: TObject); procedure BitBtn2Click (Sender; TObject);

{Private declarations}

{Public declarations} ;: TForm4; Unit5;

{$ R * .dftn} TForm4.BitBtnlClick (Sender: TObject);.show; adoquery 1.Insert; ; TForm4.BitBtn3Click (Sender: TObject); 1.Delete; end; TForm4.BitBtn2Click (Sender: TObject); begin.Show ;;. Unit5 ;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Buttons, Mask, DBCtrls; =Class (TForm): TDBEdit ;: TDBEdit ;: TDBEdit ;: TDBEdit ;; TBitBtn ;: TBitBtn; 1; TLabel ;: TLabel ;: TLabel ;: TLabel; BitBtn1Click (Sender; TObject); BitBtn2Click (Sender: TObject);

{Private declarations}

{Public declarations};:TForm5; implementation uses Unit4;

{$ R * .dfm} TForm5. (Sender: TObject);.adoquery 1.Post ;;; TForm5.BitBtn2Click (Senden TObject);.Close ;;.