Реферат Ескіз і специфікація типових об'єктів управління графічного інтерфейсу

t1: TXPManifest;

Image1: TImage;

Label1: TLabel;

Edit1: TEdit;

procedure Button1Click (Sender: TObject);

procedure Button2Click (Sender: TObject);

procedure FormCreate (Sender: TObject);

private

{Private declarations}

public

{Public declarations}

end;

log: Tlog; main;

{$ R * .dfm} Tlog.Button1Click (Sender: TObject); a: string;:= 72305 raquo ;; Edit1.text=a then.Show else.MessageBox ( Невірний пароль доступу! , Помилка! , MB_ICONERROR) ;; Tlog.Button2Click (Sender: TObject) ;;. Close; ; Tlog.FormCreate (Sender: TObject) ;. Left:=(Screen.Width-log.Width) div 2; .Top:=(Screen.Height-log.Height) div 2 ;;. HistoryT;

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

Dialogs, StdCtrls, jpeg, ExtCtrls, ComCtrls;

ThistoryT=class (TForm)

redt1: TRichEdit;

image2: TImage;

image3: TImage;

image4: TImage;

label2: TLabel;

label3: TLabel;

label4: TLabel;

Button1: TButton;

procedure Button1Click (Sender: TObject);

private

{Private declarations}

public

{Public declarations}

end;

historyT: ThistoryT; main;

{$ R * .dfm} ThistoryT.Button1Click (Sender: TObject) ;. Close ;;. partners;

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

Dialogs, StdCtrls, ComCtrls, jpeg, ExtCtrls;

Tpartners=class (TForm)

RichEdit1: TRichEdit;

Button1: TButton;

image3: TImage;

procedure Button1Click (Sender: TObject);

private

{Private declarations}

public

{Public declarations}

end;

partners: Tpartners; main;

{$ R * .dfm} Tpartners.Button1Click (Sender: TObject) ;. Close ;;. repertory;

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

Dialogs, DB, Grids, DBGrids, ADODB, jpeg, ExtCtrls, StdCtrls, DBCtrls,

GridsEh, DBGridEh;

Trepertory=class (TForm)

Button1: TButton;

dbnvgr1: TDBNavigator;

image2: TImage;

DBGridEh1: TDBGridEh;

DataSource1: TDataSource;

ADOConnection1: TADOConnection;

ADOQuery1: TADOQuery;

grp1: TGroupBox;

RadioButton1: TRadioButton;

RadioButton2: TRadioButton;

grp2: TGroupBox;

RadioButton3: TRadioButton;

RadioButton4: TRadioButton;

label2: TLabel;

Button2: TButton;

Edit1: TEdit;

Edit2: TEdit;

Edit3: TEdit;

Edit4: TEdit;

Button3: TButton;

procedure Button1Click (Sender: TObject);

procedure FormCreate (Sender: TObject);

procedure RadioButton1Click (Sender: TObject);

procedure RadioButton2Click (Sender: TObject);

procedure RadioButton3Click (Sender: TObject);

procedure RadioButton4Click (Sender: TObject);

procedure Button2Click (Sender: TObject);

procedure Edit1Click (Sender: TObject);

procedure Edit2Click (Sender: TObject);

procedure Edit3Click (Sender: TObject);

procedure Edit4Click (Sender: TObject);

procedure Button3Click (Sender: TObject);

private

{Private declarations}

public

{Public declarations}

end;

repertory: Trepertory; main;

{$ R * .dfm} Trepertory.Button1Click (Sender: TObject) ;. Close ;; Trepertory.FormCreate (Sender: TObject) ;. Active:=false; .SQL.Clear; .SQL.Add ( SELECT * FROM репертуар ) ;. Active:=True ;; Trepertory.RadioButton1Click (Sender: TObject) ;. Active:=false; .SQL.Clear; .SQL.Add ( SELECT * FROM репертуар order by Data_premyeri ) ;. Active:=True ;; Trepertory.RadioButton2Click (Sender: TObject) ;. Active:=false; .SQL.Clear; .SQL.Add ( SELECT * FROM репертуар order by Data_premyeri desc ) ;. Active: =True ;; Trepertory.RadioButton3Click (Sender: TObject) ;. Active:=false; .SQL.Clear; .SQL.Add ( SELECT * FROM репертуар order by Nazvanie_spektaklya ) ;. Active:=True ;; Trepertory. RadioButton4Click (Sender: TObject) ;. Active:=false; .SQL.Clear; .SQL.Add ( SELECT * FROM репертуар order by Nazvanie_spektaklya desc ) ;. Active:=True ;; Trepertory.Button2Click (Sender: TObject ); god, ks: string; nach, kon: tdate;

if Edit1.Text lt; gt; lt; Data_premyeri gt; then

begin

god:=edit1.text;

delete (god, 1, length (god) - 4);

ADOQuery1.Active:=false;

ADOQuery1.SQL.Clear;

ADOQuery1.SQL.Add ( SELECT * FROM Репертуар WHERE data_premyeri between: nach and: kon );

ADOQuery1.Parameters.Parambyname(laquo;nachraquo;).value:=strtodate(laquo;01.01.raquo;+god);

ADOQuery1.Parameter...