Реферат Розробка інформаційної підсистеми для адміністрації готелю "Парадайс"

, Sostoanie, Data_zaezda, Data_viezda FROM HOT WHERE Sostoanie = "броньований"');. Open;; TForm1.N13Click (Sender: TObject);. Show;; TForm1.N3Click (Sender: TObject);. Show;; TForm1.N14Click (Sender: TObject);. Show;; TForm1.N12Click (Sender: TObject);. Show ;; TForm1.N15Click (Sender: TObject);. Close;. SQL.Clear;. SQL.Add ('SELECT Nomer, Sostoanie, RemontData FROM HOT WHERE Sostoanie = "на ремонті"');. Open;; TForm1. N16Click (Sender: TObject);. Show;; TForm1.Button1Click (Sender: TObject); Query1.RecordCount <> 0 then.Delete;; TForm1.Button2Click (Sender: TObject);. Locate ('Familia', Edit1. Text, [loCaseInsensitive, loPartialKey]);; TForm1.N17Click (Sender: TObject);. Close;. SQL.Clear;. SQL.Add ('SELECT Nomer, Data_zaezda, Data_viezda, Familia, Predoplata FROM HOT WHERE Sostoanie = " зайнятий "');. Open;. Visible: = True;. Visible: = True;; TForm1.N4Click (Sender: TObject);. Close;. SQL.Clear;. SQL.Add (' SELECT * FROM HOT ') ;. Open;; TForm1.FormMouseDown (Sender: TObject; Button: TMouseButton;: TShiftState; X, Y: Integer);. Visible: = True;. Visible: = True;;. Unit2;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, ComCtrls, StdCtrls; = class (TForm): TGroupBox;: TEdit;: TEdit;: TEdit;: TEdit;: TEdit;: TEdit;: TEdit;: TEdit;: TEdit;: TLabel ;: TLabel;: TLabel;: TLabel;: TLabel;: TLabel;: TLabel;: TLabel;: TLabel;: TDateTimePicker;: TDateTimePicker;: TLabel;: TEdit;: TLabel;: TEdit;: TLabel;: TLabel;: TButton;: TButton;: TEdit;: TDateTimePicker;: TEdit;: TEdit;: TComboBox;: TLabel;: TLabel;: TLabel;: TLabel;: TLabel;: TEdit;: TLabel;: TMemo;: TLabel;: TButton; Button1Click (Sender: TObject); Button2Click (Sender: TObject); Edit9DblClick (Sender: TObject); Button3Click (Sender: TObject); FormCreate (Sender: TObject); DateTimePicker2Change (Sender: TObject);

{Private declarations}

{Public declarations};: TForm2; Unit1, DB, DBTables, Unit9;

{$ R *. dfm} TForm2.Button1Click (Sender: TObject); sost: String;: Integer;: = 'броньований';. Query1.Close;. Query1.SQL.Clear;. Query1.SQL.Add ('SELECT * FROM HOT');. Query1.Open; Form1.Query1

(Components [E] AS TEdit). Text: ='';;; TForm2.Button2Click (Sender: TObject);;; TForm2.Edit9DblClick (Sender: TObject); nach, konec, chislo : TDateTime;, Month, Day: Word;: = DateTimePicker1.Date;: = DateTimePicker2.Date;

// n: = StrToInt (nach);

// TObject);. Show;; TForm2.FormCreate (Sender: TObject);. Date: = Date;. Date: = Date;. Date: = Date;; TForm2.DateTimePicker2Change (Sender: TObject); nach, konec, chislo: TDateTime;, Month, Day: Word;: = DateTimePicker1.Date;: = DateTimePicker2.Date;

// n: = StrToInt (nach);

Назад | сторінка 8 з 11 | Наступна сторінка