Смекни!
smekni.com
Информатика

Автоматизация работы агентства по продаже авиабилетов (стр. 10 из 10)

begin

with DataModule2 do

begin

TableRasp.MasterSource:=DSReis;

TableRasp.IndexName:='ind_nomer';

TableRasp.MasterFields:='Nomer_reisa';

end;

end;

procedure TForm5.Button2Click(Sender: TObject);

begin

DataModule2.TableRasp.MasterFields:='';

end;

procedure TForm5.N9Click(Sender: TObject);

begin

Form13.RvProject1.Execute;

end;

procedure TForm5.N10Click(Sender: TObject);

begin

Form13.RvProject2.Execute;

end;

end.

unit Unit6;

interface

uses

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

Dialogs, Unit2, ExtCtrls, DBCtrls, Grids, DBGrids, Menus, StdCtrls;

type

TForm6 = class(TForm)

MainMenu1: TMainMenu;

DBGrid1: TDBGrid;

DBGrid2: TDBGrid;

DBNavigator1: TDBNavigator;

DBNavigator2: TDBNavigator;

DBGrid3: TDBGrid;

DBNavigator3: TDBNavigator;

DBGrid4: TDBGrid;

DBNavigator4: TDBNavigator;

CheckBox1: TCheckBox;

Button1: TButton;

Button2: TButton;

Button3: TButton;

Button4: TButton;

N1: TMenuItem;

N2: TMenuItem;

N8: TMenuItem;

N9: TMenuItem;

N10: TMenuItem;

N11: TMenuItem;

N12: TMenuItem;

N13: TMenuItem;

N6: TMenuItem;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure CheckBox1Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

procedure Button4Click(Sender: TObject);

procedure N11Click(Sender: TObject);

procedure N12Click(Sender: TObject);

procedure N13Click(Sender: TObject);

procedure N6Click(Sender: TObject);

procedure N2Click(Sender: TObject);

procedure N8Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form6: TForm6;

implementation

uses Unit1, Unit12, Unit13, DBTables;

{$R *.dfm}

procedure TForm6.Button1Click(Sender: TObject);

begin

with DataModule2 do

begin

TableRasp.MasterSource:=DSReis;

TableRasp.IndexName:='ind_nomer';

TableRasp.MasterFields:='Nomer_reisa';

end;

end;

procedure TForm6.Button2Click(Sender: TObject);

begin

DataModule2.TableRasp.MasterFields:='';

end;

procedure TForm6.CheckBox1Click(Sender: TObject);

begin

if CheckBox1.Checked then

with DataModule2 do

begin

TableSamol.MasterSource:=DSRasp;

TableSamol.IndexFieldNames:='kod_samoleta';

TableSamol.MasterFields:='kod_samoleta';

end

else DataModule2.TableSamol.MasterFields:='';

end;

procedure TForm6.Button3Click(Sender: TObject);

begin

with DataModule2 do begin

TablePassagiry.MasterSource:=DSRasp;

TablePassagiry.IndexName:='ind_kodReisa';

TablePassagiry.MasterFields:='kod_reisa';

end;

end;

procedure TForm6.Button4Click(Sender: TObject);

begin

DataModule2.TablePassagiry.MasterFields:='';

end;

procedure TForm6.N11Click(Sender: TObject);

begin

DataModule2.TableSamol.Append;

form12.show;

form12.PageControl1.TabIndex:=0;

end;

procedure TForm6.N12Click(Sender: TObject);

begin

DataModule2.TableReis.Append;

form12.show;

form12.PageControl1.TabIndex:=1;

end;

procedure TForm6.N13Click(Sender: TObject);

begin

DataModule2.TableRasp.Append;

form12.show;

form12.PageControl1.TabIndex:=2;

end;

procedure TForm6.N6Click(Sender: TObject);

begin

form13.hide;

close;

end;

procedure TForm6.N2Click(Sender: TObject);

begin

Form13.RvProject1.Execute;

end;

procedure TForm6.N8Click(Sender: TObject);

begin

Form13.RvProject2.Execute;

end;

end.

unit Unit7;

interface

uses

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

Dialogs, jpeg, ExtCtrls, StdCtrls;

type

TForm7 = class(TForm)

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form7: TForm7;

implementation

{$R *.dfm}

end.

unit Unit8;

interface

uses

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

Dialogs,Unit2, ExtCtrls, DBCtrls, Grids, DBGrids, StdCtrls, ComCtrls;

type

TForm8 = class(TForm)

DBGrid1: TDBGrid;

DBNavigator1: TDBNavigator;

RadioGroup1: TRadioGroup;

DBGrid2: TDBGrid;

DBNavigator2: TDBNavigator;

RadioGroup2: TRadioGroup;

DateTimePicker1: TDateTimePicker;

DateTimePicker2: TDateTimePicker;

RadioGroup3: TRadioGroup;

Button1: TButton;

Button2: TButton;

Label3: TLabel;

Label2: TLabel;

Button3: TButton;

procedure RadioGroup1Click(Sender: TObject);

procedure RadioGroup2Click(Sender: TObject);

procedure RadioGroup3Click(Sender: TObject);

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form8: TForm8;

implementation

uses DBTables, DB, ComObj;

{$R *.dfm}

procedure TForm8.RadioGroup1Click(Sender: TObject);

Var Krit1,Krit:string;

begin

case RadioGroup1.ItemIndex of

0:begin

with DataModule2.TableReis do

begin

Krit:=InputBox('Àãåíòñòâî ïî ïðîäàæå àâèàáèëåòîâ','Ôèëüòðîâàòü ïî ïóíêòó îòïðàâëåíèÿ:','') ;

begin

Filter:='punkt_otpravl='''+Krit+'*''';

Filtered:=True;

end;

end;

end;

1:begin

with DataModule2.TableReis do

begin

Krit:=InputBox('Àãåíòñòâî ïî ïðîäàæå àâèàáèëåòîâ','Ôèëüòðîâàòü ïî ïóíêòó íàçíà÷åíèÿ:','') ;

Filter:='punkt_naznach='''+Krit+'*''';

Filtered:=true;

end;

end;

2:begin

with DataModule2.TableRasp do

begin

IndexFieldNames:='data_otpravleniya';

SetRangeStart;

FieldByName('data_otpravleniya').AsDateTime:=DateTimePicker1.Date;

SetRangeEnd;

FieldByName('data_otpravleniya').AsDateTime:=DateTimePicker2.Date;

ApplyRange;

end;

end;

3:begin

DataModule2.TableReis.Filtered:=False;

DataModule2.TableRasp.Filtered:=False;

DataModule2.TableRasp.CancelRange;

end;

end;

end;

procedure TForm8.RadioGroup2Click(Sender: TObject);

begin

with DataModule2.TableReis do

case RadioGroup2.ItemIndex of

0:IndexName:='ind_otpravl';

1:IndexName:='ind_naznach';

end;

end;

procedure TForm8.RadioGroup3Click(Sender: TObject);

var punkt:String;

begin

case RadioGroup3.ItemIndex of

0:begin

punkt:=InputBox('Àãåíòñòâî ïî ïðîäàæå àâèàáèëåòîâ','Ïîèñê ïî ïóíêòó íàçíà÷åíèÿ:','');

DataModule2.TableReis.locate('Punkt_naznach',punkt,[loPartialKey]);

end;

1:begin

Button3.Visible:=true;

DataModule2.TableRasp.locate('Data_otpravleniya',DateTimePicker1.Date,[loPartialKey]);

end;

end;

end;

procedure TForm8.Button1Click(Sender: TObject);

begin

with DataModule2 do

begin

TableRasp.MasterSource:=DSReis;

TableRasp.IndexName:='ind_nomer';

TableRasp.MasterFields:='Nomer_reisa';

end;

end;

procedure TForm8.Button2Click(Sender: TObject);

begin

DataModule2.TableRasp.MasterFields:='';

end;

procedure TForm8.Button3Click(Sender: TObject);

begin

form8.Hide;

end;

end.

unit Unit10;

interface

uses

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

Dialogs, StdCtrls, Mask, ExtCtrls;

type

TForm10 = class(TForm)

Button1: TButton;

Button2: TButton;

LabeledEdit1: TLabeledEdit;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

{ Private declarations }

public

{ Public declarations }

end;

var

Form10: TForm10;

implementation

uses Unit5, Unit1;

{$R *.dfm}

procedure TForm10.Button1Click(Sender: TObject);

begin

if labelededit1.Text='1' then Form5.show

else begin ShowMessage('Ïàðîëü íåâåðíûé');

labelededit1.Text:='';

Form10.hide;

form1.show;

end;

Form10.hide;

end;

procedure TForm10.Button2Click(Sender: TObject);

begin

Form10.Hide;

end;

end.

unit Unit11;

interface

uses

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

Dialogs, DBCtrls, StdCtrls, Mask, unit2, Grids, DBGrids, Menus;

type

TForm11 = class(TForm)

Button1: TButton;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Label5: TLabel;

Label6: TLabel;

Label7: TLabel;

DBEdit1: TDBEdit;

DBEdit2: TDBEdit;

DBEdit3: TDBEdit;

DBEdit4: TDBEdit;

DBEdit5: TDBEdit;

DBLookupComboBox2: TDBLookupComboBox;

DBEdit6: TDBEdit;

DBEdit7: TDBEdit;

Button2: TButton;

procedure Button1Click(Sender: TObject);

procedure FormActivate(Sender: TObject);

procedure Button2Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form11: TForm11;

implementation

{$R *.dfm}

procedure TForm11.Button1Click(Sender: TObject);

begin

//ñîõðàíèòü

DataModule2.TablePassagiry.Post

end;

procedure TForm11.FormActivate(Sender: TObject);

begin

DataModule2.TablePassagiry.Insert

end;

procedure TForm11.Button2Click(Sender: TObject);

begin

form11.Hide;

end;

end.

unit Unit12;

interface

uses

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

Dialogs, ComCtrls, unit2, StdCtrls, DBCtrls, Mask, ExtCtrls;

type

TForm12 = class(TForm)

PageControl1: TPageControl;

TabSheet1: TTabSheet;

TabSheet2: TTabSheet;

TabSheet3: TTabSheet;

Button1: TButton;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

DBEdit1: TDBEdit;

DBEdit2: TDBEdit;

DBEdit3: TDBEdit;

DBEdit4: TDBEdit;

DBEdit5: TDBEdit;

DBEdit6: TDBEdit;

DBEdit7: TDBEdit;

DBEdit8: TDBEdit;

Button2: TButton;

Label4: TLabel;

Label5: TLabel;

Label6: TLabel;

Label7: TLabel;

Label8: TLabel;

Label9: TLabel;

Label10: TLabel;

Label11: TLabel;

Label12: TLabel;

Label13: TLabel;

Label14: TLabel;

Label15: TLabel;

Label16: TLabel;

Label17: TLabel;

DBEdit9: TDBEdit;

DBEdit10: TDBEdit;

DBEdit11: TDBEdit;

DBEdit12: TDBEdit;

DBEdit13: TDBEdit;

DBEdit14: TDBEdit;

DBEdit15: TDBEdit;

DBEdit16: TDBEdit;

DBEdit17: TDBEdit;

Button3: TButton;

DBLookupComboBox1: TDBLookupComboBox;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

procedure FormActivate(Sender: TObject);

procedure FormCreate(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form12: TForm12;

implementation

{$R *.dfm}

procedure TForm12.Button1Click(Sender: TObject);

begin

//ñîõðàíèòü

DataModule2.TableSamol.Post

end;

procedure TForm12.Button2Click(Sender: TObject);

begin

//ñîõðàíèòü

DataModule2.TableReis.Post

end;

procedure TForm12.Button3Click(Sender: TObject);

begin

//ñîõðàíèòü

DataModule2.TableRasp.Post

end;

procedure TForm12.FormActivate(Sender: TObject);

begin

DataModule2.TableReis.MasterFields:='';

DataModule2.TablePassagiry.MasterFields:='';

DataModule2.TableRasp.MasterFields:='';

end;

procedure TForm12.FormCreate(Sender: TObject);

begin

with PageControl1.Pages[0] do

DBEdit1.Text:='';

DBEdit2.Text:='';

DBEdit3.Text:='';

with PageControl1.Pages[1] do

DBEdit4.Text:='';

DBEdit5.Text:='';

DBEdit6.Text:='';

DBEdit7.Text:='';

DBEdit8.Text:='';

with PageControl1.Pages[1] do

DBEdit9.Text:='';

DBEdit10.Text:='';

DBEdit11.Text:='';

DBEdit12.Text:='';

DBEdit13.Text:='';

DBEdit14.Text:='';

DBEdit15.Text:='';

DBEdit16.Text:='';

DBEdit17.Text:='';

end;

end.

ÑÏÈÑÎÊ ËÈÒÅÐÀÒÓÐÛ

Ñ.À. Îðëîâ. Òåõíîëîãèè ðàçðàáîòêè ïðîãðàììíîãî îáåñïå÷åíèÿ. Ñàíêò-Ïåòåðáóðã. «Ïèòåð»,2002

Ýðèê Äæ. Áðàóäå. Òåõíîëîãèÿ ðàçðàáîòêè ïðîãðàììíîãî îáåñïå÷åíèÿ. Ñàíêò-Ïåòåðáóðã. «Ïèòåð», 2004

ÃÎÑÒ Ð ÈÑÎ/ÌÝÊ 9294-93. Èíôîðìàöèîííàÿ òåõíîëîãèÿ. Ðóêîâîäñòâî ïî óïðàâëåíèþ äîêóìåíòèðîâàíèåì ïðîãðàììíîãî îáåñïå÷åíèÿ.

ÃÎÑÒ Ð ÈÑÎ/ÌÝÊ 9126-93. Èíôîðìàöèîííàÿ òåõíîëîãèÿ. Îöåíêà ïðîãðàììíîé ïðîäóêöèè. Õàðàêòåðèñòèêà êà÷åñòâà è ðóêîâîäñòâî ïî èõ ïðèìåíåíèþ.

ÃÎÑÒ Ð ÈÑÎ/ÌÝÊ 12119:2000. Èíôîðìàöèîííàÿ òåõíîëîãèÿ. Ïàêåòû ïðîãðàììíûõ ñðåäñòâ. Òðåáîâàíèÿ ê êà÷åñòâó è èñïûòàíèÿì

 
назад
1
2
3
4
5
6
7
8
9
10
НАПИШИТЕ НАМ
Copyright © Smekni.com. All rigths reserved.