Эскиз и спецификация типовых объектов управления графического интерфейса

begin

historyT.Close;

end;

end.

unit partners;

interface

uses

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

Dialogs, StdCtrls, ComCtrls, jpeg, ExtCtrls;

type

Tpartners = class(TForm)

RichEdit1: TRichEdit;

Button1: TButton;

image3: TImage;

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

partners: Tpartners;

implementation

uses main;

{$R *.dfm}

procedure Tpartners.Button1Click(Sender: TObject);

begin

partners.Close;

end;

end.

unit repertory;

interface

uses

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

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

GridsEh, DBGridEh;

type

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;

var

repertory: Trepertory;

implementation

uses main;

{$R *.dfm}

procedure Trepertory.Button1Click(Sender: TObject);

begin

repertory.Close;

end;

procedure Trepertory.FormCreate(Sender: TObject);

begin

ADOQuery1.Active:=false;

ADOQuery1.SQL.Clear;

ADOQuery1.SQL.Add('SELECT * FROM репертуар ');

ADOQuery1.Active:=True;

end;

procedure Trepertory.RadioButton1Click(Sender: TObject);

begin

ADOQuery1.Active:=false;

ADOQuery1.SQL.Clear;

ADOQuery1.SQL.Add('SELECT * FROM репертуар order by Data_premyeri');

ADOQuery1.Active:=True;

end;

procedure Trepertory.RadioButton2Click(Sender: TObject);

begin

ADOQuery1.Active:=false;

ADOQuery1.SQL.Clear;

ADOQuery1.SQL.Add('SELECT * FROM репертуар order by Data_premyeri desc');

ADOQuery1.Active:=True;

end;

procedure Trepertory.RadioButton3Click(Sender: TObject);

begin

ADOQuery1.Active:=false;

ADOQuery1.SQL.Clear;

ADOQuery1.SQL.Add('SELECT * FROM репертуар order by Nazvanie_spektaklya');

ADOQuery1.Active:=True;

end;

procedure Trepertory.RadioButton4Click(Sender: TObject);

begin

ADOQuery1.Active:=false;

ADOQuery1.SQL.Clear;

ADOQuery1.SQL.Add('SELECT * FROM репертуар order by Nazvanie_spektaklya desc');

ADOQuery1.Active:=True;

end;

procedure Trepertory.Button2Click(Sender: TObject);

var god,ks:string; nach,kon:tdate;

begin

if Edit1.Text<>'<Data_premyeri>' 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('nach').value:=strtodate('01.01.'+god);

ADOQuery1.Parameters.ParamByName('kon').value:=strtodate('31.12.'+god);

Adoquery1.open;

ADOQuery1.Active:=True;

end;

if Edit2.text<>'<Nazvanie_spektaklya>' then

begin

ks:=edit2.text+'%';

ADOQuery1.Active:=false;

ADOQuery1.SQL.Clear;

ADOQuery1.SQL.Add('SELECT * FROM Репертуар WHERE Nazvanie_spektaklya like '+ QuotedStr(ks));

ADOQuery1.Active:=True;

end;

if Edit3.text<>'<Rejisser>' then

begin

ks:=edit3.text+'%';

ADOQuery1.Active:=false;

ADOQuery1.SQL.Clear;

ADOQuery1.SQL.Add('SELECT * FROM Репертуар WHERE Rejisser like '+ QuotedStr(ks));

ADOQuery1.Active:=True;

end;

if Edit4.text<>'<Janr>' then

begin

ks:=edit4.text+'%';

ADOQuery1.Active:=false;

ADOQuery1.SQL.Clear;

ADOQuery1.SQL.Add('SELECT * FROM Репертуар WHERE Janr like '+ QuotedStr(ks));

ADOQuery1.Active:=True;

end;

end;

procedure Trepertory.Edit1Click(Sender: TObject);

begin

Edit1.Text:='';

Edit2.Text:='<Nazvanie_spektaklya>';

Edit3.Text:='<Rejisser>';

Edit4.Text:='<Janr>';

end;

procedure Trepertory.Edit2Click(Sender: TObject);

begin

Edit1.Text:='<Data_premyeri>';

Edit2.Text:='';

Edit3.Text:='<Rejisser>';

Edit4.Text:='<Janr>';

end;

procedure Trepertory.Edit3Click(Sender: TObject);

begin

Edit1.Text:='<Data_premyeri>';

Edit2.Text:='<Nazvanie_spektaklya>';

Edit3.Text:='';

Edit4.Text:='<Janr>';

end;

procedure Trepertory.Edit4Click(Sender: TObject);

begin

Edit1.Text:='<Data_premyeri>';

Edit2.Text:='<Nazvanie_spektaklya>';

Edit3.Text:='<Rejisser>';

Edit4.Text:='';

end;

procedure Trepertory.Button3Click(Sender: TObject);

begin

Edit1.Text:='<Data_premyeri>';

Edit2.Text:='<Nazvanie_spektaklya>';

Edit3.Text:='<Rejisser>';

Edit4.Text:='<Janr>';

ADOQuery1.SQL.Clear;

ADOQuery1.SQL.Add('SELECT * FROM Репертуар');

ADOQuery1.Active:=True;

RadioButton1.Checked:=False;

RadioButton2.Checked:=False;

RadioButton3.Checked:=False;

RadioButton4.Checked:=False;

end;

end.

unit troupe;

interface

uses

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

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

GridsEh, DBGridEh;

type

Ttroupe = class(TForm)

ADOConnection1: TADOConnection;

DataSource1: TDataSource;

Button1: TButton;

dbnvgr1: TDBNavigator;

image2: TImage;

DBGridEh1: TDBGridEh;

ADOQuery1: TADOQuery;

grp1: TGroupBox;

RadioButton1: TRadioButton;

RadioButton2: TRadioButton;

label2: TLabel;

Edit1: TEdit;

Button2: TButton;

Edit2: TEdit;

Button3: TButton;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure FormCreate(Sender: TObject);

procedure RadioButton1Click(Sender: TObject);

procedure RadioButton2Click(Sender: TObject);

procedure Edit1Click(Sender: TObject);

procedure Edit2Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

troupe: Ttroupe;

implementation

uses main;

{$R *.dfm}

procedure Ttroupe.Button1Click(Sender: TObject);

begin

troupe.Close;

end;

procedure Ttroupe.Button2Click(Sender: TObject);

var ks:string;

begin

if Edit1.text<>'<Status>' then

begin

ks:=edit1.text+'%';

ADOQuery1.Active:=false;

ADOQuery1.SQL.Clear;

ADOQuery1.SQL.Add('SELECT * FROM Труппа WHERE Status like '+ QuotedStr(ks));

ADOQuery1.Active:=True;

end;

if Edit2.text<>'<FIO>' then

begin

ks:=edit2.text+'%';

ADOQuery1.Active:=false;

ADOQuery1.SQL.Clear;

ADOQuery1.SQL.Add('SELECT * FROM Труппа WHERE FIO like '+ QuotedStr(ks));

ADOQuery1.Active:=True;

end;

end;

procedure Ttroupe.FormCreate(Sender: TObject);

begin

ADOQuery1.Active:=false;

ADOQuery1.SQL.Clear;

ADOQuery1.SQL.Add('SELECT * FROM труппа ');

ADOQuery1.Active:=True;

end;

procedure Ttroupe.RadioButton1Click(Sender: TObject);

begin

ADOQuery1.Active:=false;

ADOQuery1.SQL.Clear;

ADOQuery1.SQL.Add('SELECT * FROM труппа order by FIO');

ADOQuery1.Active:=True;

end;

procedure Ttroupe.RadioButton2Click(Sender: TObject);

begin

ADOQuery1.Active:=false;

ADOQuery1.SQL.Clear;

ADOQuery1.SQL.Add('SELECT * FROM труппа order by FIO desc');

ADOQuery1.Active:=True;

end;

procedure Ttroupe.Edit1Click(Sender: TObject);

begin

Edit1.Text:='';

Edit2.Text:='<FIO>';

end;

procedure Ttroupe.Edit2Click(Sender: TObject);

begin

Edit2.Text:='';

Edit1.Text:='<Status>';

end;

procedure Ttroupe.Button3Click(Sender: TObject);

begin

Edit2.Text:='<FIO>';

Edit1.Text:='<Status>';

ADOQuery1.SQL.Clear;

ADOQuery1.SQL.Add('SELECT * FROM труппа');

ADOQuery1.Active:=True;

RadioButton1.Checked:=False;

RadioButton2.Checked:=False;

end;

end.

unit Ttoday;

interface

uses

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

Dialogs, StdCtrls, jpeg, ExtCtrls, ComCtrls;

type

TTtoday = 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;

var

Ttoday: TTtoday;

implementation

uses main;

{$R *.dfm}

procedure TTtoday.Button1Click(Sender: TObject);

begin

Ttoday.Close;

end;

end.

unit updates;

interface

uses

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

Dialogs, ExtCtrls, jpeg, StdCtrls;

type

Tupdates = class(TForm)

image2: TImage;

Panel1: TPanel;

Button1: TButton;

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

updates: Tupdates;

implementation

{$R *.dfm}

procedure Tupdates.Button1Click(Sender: TObject);

begin

updates.Close;

end;

end.

unit coordinates;

interface

uses

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

Dialogs, jpeg, ExtCtrls, StdCtrls;

type

Tcoordinates = class(TForm)

label3: TLabel;

image3: TImage;

Button1: TButton;

PrintDialog1: TPrintDialog;

Button2: TButton;

image2: TImage;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

coordinates: Tcoordinates;

implementation

uses main;

{$R *.dfm}

procedure Tcoordinates.Button1Click(Sender: TObject);

begin

PrintDialog1.Execute;

end;

procedure Tcoordinates.Button2Click(Sender: TObject);

begin

coordinates.Close;

end;

end.

unit card;

interface

uses

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

Dialogs, StdCtrls, jpeg, ExtCtrls, OleCtnrs, ComObj;

type

Tcard = class(TForm)

Button1: TButton;

Button2: TButton;

PrintDialog1: TPrintDialog;

image2: TImage;

image3: TImage;

label2: TLabel;

label3: TLabel;

label4: TLabel;

label5: TLabel;

label6: TLabel;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure FormActivate(Sender: TObject);

procedure image3Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

card: Tcard;

implementation

uses main;

{$R *.dfm}

procedure Tcard.Button1Click(Sender: TObject);

begin

card.Close;

heade.Button8.Enabled:=False;

heade.Edit1.Text:='';

heade.ComboBox1.Text:='Ряд';

heade.cbb1.Text:='';

heade.RadioButton1.Checked:=false;

heade.RadioButton2.Checked:=false;

heade.RadioButton3.Checked:=false;

heade.RadioButton4.Checked:=false;

heade.RadioButton5.Checked:=false;

label2.caption:='Выбранные места: ';

label3.caption:=heade.radiobutton2.caption;

label3.caption:=heade.radiobutton3.caption;

label3.caption:=heade.radiobutton4.caption;

label3.caption:=heade.radiobutton5.caption;

label4.Caption:='Ряд: ';

label5.Caption:='Дата и название спектакля: ';

label6.Caption:='Цена: ';

end;

procedure Tcard.Button2Click(Sender: TObject);

begin

PrintDialog1.Execute;

end;

procedure Tcard.FormActivate(Sender: TObject);

var c:integer; k,i:byte;

begin

label2.caption:=label2.caption+heade.edit1.text;

if heade.radiobutton1.checked=true then

begin

label3.caption:=heade.radiobutton1.caption;

c:=400;

end;

if heade.radiobutton2.checked=true then

begin

label3.caption:=heade.radiobutton2.caption;

c:=300;

end;

if heade.radiobutton3.checked=true then

begin

label3.caption:=heade.radiobutton3.caption;

c:=200;

end;

if heade.radiobutton4.checked=true then

begin

label3.caption:=heade.radiobutton4.caption;

c:=100;

end;

if heade.radiobutton5.checked=true then

begin

label3.caption:=heade.radiobutton5.caption;

c:=500;

end;

k:=1;

for i:=1 to length(heade.edit1.text) do

if (heade.edit1.text[i]=',')or(heade.edit1.text[i]='.') then

k:=k+1;

label4.Caption:=label4.Caption+heade.combobox1.text;

label5.Caption:=label5.caption+heade.cbb1.Text;

label6.Caption:=label6.caption+inttostr(c*k)+' руб.';

end;

procedure Tcard.image3Click(Sender: TObject);

var

WordApp, doc:Variant;

begin

WordApp:= CreateOleObject('Word.Application');

doc:=WordApp.documents.Open((ExtractfilePath(application.exename))+'Отчет о билетах.rtf');

WordApp.ActiveDocument.SaveAs((ExtractfilePath(application.exename))+'Отчет о билетах.rtf');

Wordapp.Visible:=true;

WordApp.ActiveDocument.range.insertafter ('[Билет продан: '+datetostr(Date)+' / '

+timetostr(GetTime)+']'+#10);

WordApp.ActiveDocument.range.insertafter(Label5.Caption+#10);

WordApp.ActiveDocument.range.insertafter(Label2.Caption+#10);

WordApp.ActiveDocument.range.insertafter(Label3.Caption+#10);

WordApp.ActiveDocument.range.insertafter(Label4.Caption+#10);

WordApp.ActiveDocument.range.insertafter(Label6.Caption+#10#13);

end;

end.

Размещено на Allbest.ru