Разработка информационной системы "Авиа-кассы"

combobox2.Clear;

combobox4.Clear;

s:=table2.Fields[0].Value;

s4:=table2.Fields[1].Value;

combobox2.Items.Add(s);

combobox4.Items.Add(s4);

end;

table2.Next;

end;

end;

end.

 

 

unit Unit3;

interface

uses

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

  Dialogs, DB, DBTables, Grids, DBGrids, StdCtrls;

type

  TForm3 = class(TForm)

    Button4: TButton;

    DataSource1: TDataSource;

    Table1: TTable;

    Table1Nomer: TIntegerField;

    Table1A: TIntegerField;

    Table1B: TIntegerField;

    Table1C: TIntegerField;

    Table1D: TIntegerField;

    Table1E: TIntegerField;

    DBGrid1: TDBGrid;

    Button1: TButton;

    Edit1: TEdit;

    Table1q: TIntegerField;

    procedure Button4Click(Sender: TObject);

    procedure DBGrid1CellClick(Column: TColumn);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

 

var

  Form3: TForm3;

  i,q:integer;

implementation

uses Unit5, Unit1, Unit2;

{$R *.dfm}

procedure TForm3.Button4Click(Sender: TObject);

begin

form1.close;

end;

 

procedure TForm3.DBGrid1CellClick(Column: TColumn);

begin

    i:= Column.Field.DataSet.FieldByName('b').AsInteger;

if i=1 then i:=0 else messagedlg('место занято',mtConfirmation,[mbok],0);

table1.Insert; Column.Field.DataSet.FieldByName('b').AsInteger:=i;

end;

end.

 

unit Unit4;

interface

uses

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

  Dialogs, StdCtrls, Grids, DBGrids;

type

  TForm4 = class(TForm)

    DBGrid1: TDBGrid;

    Button1: TButton;

    Button2: TButton;

    procedure Button1Click(Sender: TObject);

    procedure Button2Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Form4: TForm4;

implementation

uses Unit1, Unit2;

{$R *.dfm}

 

procedure TForm4.Button1Click(Sender: TObject);

begin

form4.Close;

form1.show;

end;

 

procedure TForm4.Button2Click(Sender: TObject);

begin

form1.Close;

end;

end.

 

unit Unit5;

interface

uses

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

  Dialogs, DB, DBTables, Grids, DBGrids, StdCtrls, Mask, DBCtrls;

type

  TForm5 = class(TForm)

    Label1: TLabel;

    Label2: TLabel;

    Label3: TLabel;

    Label4: TLabel;

    Label5: TLabel;

    Label6: TLabel;

    Label7: TLabel;

    Label9: TLabel;

    Label10: TLabel;

    Label11: TLabel;

    Label12: TLabel;

    Button2: TButton;

    DataSource1: TDataSource;

    Table1: TTable;

    Table1Fam: TStringField;

    Table1Im9: TStringField;

    Table1Ot4est: TStringField;

    Table1Ceria: TIntegerField;

    Table1Num: TIntegerField;

    Table1Propika: TStringField;

    Table1Dr: TDateField;

    Table1reisa: TIntegerField;

    Button3: TButton;

    Button4: TButton;

    Table2: TTable;

    Table2reisa: TIntegerField;

    Table2Data: TDateField;

    Table2Napr: TStringField;

   Table2Busin: TIntegerField;

    Table2Econom: TIntegerField;

    DataSource2: TDataSource;

    Edit1: TEdit;

    Edit2: TEdit;

    Edit3: TEdit;

    Edit4: TEdit;

    Edit5: TEdit;

    Edit6: TEdit;

    ComboBox1: TComboBox;

    ComboBox2: TComboBox;

    ComboBox4: TComboBox;

    Edit7: TEdit;

    procedure FormCreate(Sender: TObject);

    procedure Button1Click(Sender: TObject);

    procedure Button2Click(Sender: TObject);

    procedure Button4Click(Sender: TObject);

    procedure Button3Click(Sender: TObject);

    procedure ComboBox1Change(Sender: TObject);

    procedure FormShow(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Form5: TForm5;

implementation

uses Unit3, Unit1, Unit2, Unit7;

{$R *.dfm}

procedure TForm5.FormCreate(Sender: TObject);

var i:integer;

    z:string;

begin

edit1.Clear;

edit2.Clear;

edit3.Clear;

edit4.Clear;

edit6.Clear;

edit7.Clear;

combobox2.Clear;

combobox4.Clear;

combobox1.Text:=table2.Fields[2].Value;

for i:=1 to  table2.RecordCount do begin

z:=table2.Fields[2].Value;

combobox1.Items.Add(z);

table2.Next;

end;

table2.Next;

end;

 

procedure TForm5.Button1Click(Sender: TObject);

begin

form3.show;

end;

 

procedure TForm5.Button2Click(Sender: TObject);

var i:integer;

s,s2,s3:string;

begin

s2:=edit5.Text;

table1.First;

for i:=1 to  table1.RecordCount do begin

s3:=table1.Fields[4].Value;

if s2=s3 then begin

table1.Insert;

table1.Fields[0].Value:=edit1.Text;

table1.Fields[1].Value:=edit2.Text;

table1.Fields[2].Value:=edit3.Text;

table1.Fields[3].Value:=edit4.Text;

table1.Fields[4].Value:=edit5.Text;

table1.Fields[5].Value:=edit6.Text;

table1.Fields[6].Value:=edit7.Text;

table1.Fields[7].Value:=combobox4.Text;

end;

table1.Next;

end;

form5.Close;

end;

 

procedure TForm5.Button4Click(Sender: TObject);

begin

form5.Close;

form1.close;

end;

 

procedure TForm5.Button3Click(Sender: TObject);

begin

form5.Close;

form1.show;

end;

 

procedure TForm5.ComboBox1Change(Sender: TObject);

var i:integer;

s,s2,s3,s4:string;

begin

s2:=combobox1.Text;

table2.First;

for i:=1 to  table2.RecordCount do begin

s3:=table2.Fields[2].Value;

if s2=s3 then begin

combobox2.Clear;

combobox4.Clear;

s:=table2.Fields[0].Value;

s4:=table2.Fields[1].Value;

combobox2.Items.Add(s4);

combobox4.Items.Add(s);

 

end;

table2.Next;

end;

end;

 

procedure TForm5.FormShow(Sender: TObject);

var   s,s2,s3,s4:string;

begin

edit5.Text:=form7.Edit2.Text;

if Table1.Locate('Num', Edit5.Text, []) then begin

edit1.Text:=table1.Fields[0].Value;

edit2.Text:=table1.Fields[1].Value;

edit3.Text:=table1.Fields[2].Value;

edit4.Text:=table1.Fields[3].Value;

edit5.Text:=table1.Fields[4].Value;

edit6.Text:=table1.Fields[5].Value;

edit7.Text:=table1.Fields[6].Value;

end;

end;

end.

 

unit Unit6;

interface

uses

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

  Dialogs, StdCtrls, ExtCtrls, Mask;

type

  TForm6 = class(TForm)

    Label2: TLabel;

    Edit1: TEdit;

    Label1: TLabel;

    Label3: TLabel;

    Label4: TLabel;

    Label5: TLabel;

    Label9: TLabel;

    Label11: TLabel;

    Label12: TLabel;

    Label10: TLabel;

    Label13: TLabel;

    Label15: TLabel;

    Edit2: TEdit;

    Edit3: TEdit;

    Edit4: TEdit;

    Edit5: TEdit;

    Edit6: TEdit;

    Edit7: TEdit;

    Edit8: TEdit;

    Edit9: TEdit;

    Edit10: TEdit;

    Button1: TButton;

    Button2: TButton;

    Button3: TButton;

    procedure Button1Click(Sender: TObject);

    procedure Button2Click(Sender: TObject);

    procedure Button3Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Form6: TForm6;

implementation

uses Unit2, Unit1;

{$R *.dfm}

procedure TForm6.Button1Click(Sender: TObject);

begin

form6.Close;

form2.show;

end;

 

procedure TForm6.Button2Click(Sender: TObject);

begin

form6.Close;

form1.show;

end;

 

procedure TForm6.Button3Click(Sender: TObject);

begin

form1.close;

end;

end.

 

unit Unit7;

interface

uses

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

  Dialogs, StdCtrls;

type

  TForm7 = class(TForm)

    Label1: TLabel;

    Label7: TLabel;

    Label9: TLabel;

    Button1: TButton;

    Edit1: TEdit;

    Edit2: TEdit;

    Button2: TButton;

    procedure Button1Click(Sender: TObject);

    procedure FormCreate(Sender: TObject);

    procedure Button2Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Form7: TForm7;

implementation

uses Unit2, Unit5, Unit1;

{$R *.dfm}

procedure TForm7.FormCreate(Sender: TObject);

begin

edit1.Clear;

edit2.Clear;

end;

 

procedure TForm7.Button1Click(Sender: TObject);

var z,x:string;

 

begin

z:=edit2.Text;

x:=edit1.Text;

if form2.Table1.Locate('Num', Edit2.Text, []) then begin form5.show;

end else

messagedlg('введенные вами данные не были найдены', mtConfirmation, [mbok], 0);

end;

procedure TForm7.Button2Click(Sender: TObject);

begin

form7.Close;

form1.show;

end;

end.

 

unit Unit8;

interface

uses

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

  Dialogs, StdCtrls;

type

  TForm8 = class(TForm)

    Label1: TLabel;

    Edit1: TEdit;

    Button1: TButton;

    procedure Button1Click(Sender: TObject);

    procedure FormCreate(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Form8: TForm8;

implementation

uses Unit9;

{$R *.dfm}

procedure TForm8.FormCreate(Sender: TObject);

begin

edit1.Clear;

end;

 

procedure TForm8.Button1Click(Sender: TObject);

begin

if edit1.Text='' then begin form9.show; form8.Close; end else messagedlg('введен неверный пароль',mtConfirmation,[mbok],0);;

end;

end.

 

unit Unit9;

interface

uses

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

  Dialogs, StdCtrls, DB, DBTables, Grids, DBGrids;

type

  TForm9 = class(TForm)

    DataSource1: TDataSource;

    DBGrid1: TDBGrid;

    Table1: TTable;

    Button1: TButton;

    Button2: TButton;

    procedure Button1Click(Sender: TObject);

    procedure Button2Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Form9: TForm9;

implementation

uses Unit1;

{$R *.dfm}

procedure TForm9.Button1Click(Sender: TObject);

begin

form9.Close;

form1.show;

end;

 

procedure TForm9.Button2Click(Sender: TObject);

begin

form1.close;

end;

end.