unit5.~pas

这是一个平时无事是编写的一个航空售票管理小系统,与大家分享, 有什么问题大家在这里留言,,大家一起讨论

unit Unit5;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, ExtCtrls, StdCtrls, DB, ADODB;

type
  TGengGaiXinXi = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    TabSheet3: TTabSheet;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Label11: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit5: TEdit;
    Edit6: TEdit;
    Edit7: TEdit;
    Edit8: TEdit;
    Edit9: TEdit;
    Memo1: TMemo;
    Label12: TLabel;
    Label13: TLabel;
    Label14: TLabel;
    Edit10: TEdit;
    Edit11: TEdit;
    Edit12: TEdit;
    Edit13: TEdit;
    Edit14: TEdit;
    Edit15: TEdit;
    Edit16: TEdit;
    Edit17: TEdit;
    Edit18: TEdit;
    Edit19: TEdit;
    Edit21: TEdit;
    Label15: TLabel;
    Label16: TLabel;
    Label17: TLabel;
    Label18: TLabel;
    Label19: TLabel;
    Label20: TLabel;
    Label21: TLabel;
    Label23: TLabel;
    Label24: TLabel;
    Edit22: TEdit;
    Button4: TButton;
    Button5: TButton;
    Button6: TButton;
    Label25: TLabel;
    Label26: TLabel;
    Label27: TLabel;
    Label28: TLabel;
    Edit23: TEdit;
    Label29: TLabel;
    Label30: TLabel;
    Label31: TLabel;
    Label32: TLabel;
    Label33: TLabel;
    Edit24: TEdit;
    Edit25: TEdit;
    Edit26: TEdit;
    Edit27: TEdit;
    Memo2: TMemo;
    Label34: TLabel;
    Label35: TLabel;
    Button7: TButton;
    Button8: TButton;
    Button9: TButton;
    ADOQuery1: TADOQuery;
    ADOQuery2: TADOQuery;
    ADOQuery3: TADOQuery;
    ADOQuery4: TADOQuery;
    ADOQuery5: TADOQuery;
    ADOQuery6: TADOQuery;
    ADOCommand1: TADOCommand;
    ADOCommand2: TADOCommand;
    ADOCommand3: TADOCommand;
    procedure Edit23Exit(Sender: TObject);
    procedure Edit23KeyPress(Sender: TObject; var Key: Char);
    procedure Edit10Exit(Sender: TObject);
    procedure Edit10KeyPress(Sender: TObject; var Key: Char);
    procedure Edit1Exit(Sender: TObject);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure Button7Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button8Click(Sender: TObject);
    procedure Button9Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  GengGaiXinXi: TGengGaiXinXi;

implementation

{$R *.dfm}

procedure TGengGaiXinXi.Edit23Exit(Sender: TObject);
begin

adoquery1.Close;
adoquery1.SQL.Clear;
adoquery1.SQL.Add('select 起飞时间,抵达时间,航班票价,票价折扣,途经城市 from 航线表 where 航班号='''+edit23.Text+'''');
adoquery1.Open;
edit24.Text:=adoquery1.fieldbyname('起飞时间').AsString;
edit25.Text:=adoquery1.fieldbyname('抵达时间').AsString;
edit26.Text:=adoquery1.fieldbyname('航班票价').AsString;
edit27.Text:=adoquery1.fieldbyname('票价折扣').AsString;
memo2.Text:=adoquery1.fieldbyname('途经城市').AsString;
end;

procedure TGengGaiXinXi.Edit23KeyPress(Sender: TObject; var Key: Char);
begin
  if key=#13 then{判断是否按了回车}
begin
adoquery2.Close;
adoquery2.SQL.Clear;
adoquery2.SQL.Add('select 起飞时间,抵达时间,航班票价,票价折扣,途经城市 from 航线表 where 航班号='''+edit23.Text+'''');
adoquery2.Open;
edit24.Text:=adoquery2.fieldbyname('起飞时间').AsString;
edit25.Text:=adoquery2.fieldbyname('抵达时间').AsString;
edit26.Text:=adoquery2.fieldbyname('航班票价').AsString;
edit27.Text:=adoquery2.fieldbyname('票价折扣').AsString;
memo2.Text:=adoquery2.fieldbyname('途经城市').AsString;
button7.Focused;
end;
end;
procedure TGengGaiXinXi.Edit10Exit(Sender: TObject);
begin
adoquery3.Close;
adoquery3.SQL.Clear;
adoquery3.SQL.Add('select 姓名,性别,单位名称,职务,单位地点,身份证号码,出生日期,办公电话,家庭电话,手机号码,送票地址,机票额,保险 from 客户信息 where 客户编号='''+edit10.Text+'''');
adoquery3.Open;
edit10.Text:=adoquery3.fieldbyname('姓名').AsString;
edit11.Text:=adoquery3.fieldbyname('性别').AsString;
edit12.Text:=adoquery3.fieldbyname('单位名称').AsString;
edit13.Text:=adoquery3.fieldbyname('职务').AsString;
edit14.Text:=adoquery3.fieldbyname('单位地点').AsString;
edit15.Text:=adoquery3.fieldbyname('身份证号码').AsString;
edit16.Text:=adoquery3.fieldbyname('出生日期').AsString;
edit17.Text:=adoquery3.fieldbyname('办公电话').AsString;
edit18.Text:=adoquery3.fieldbyname('家庭电话').AsString;
edit19.Text:=adoquery3.fieldbyname('手机号码').AsString;
edit21.Text:=adoquery3.fieldbyname('送票地址').AsString;
edit22.Text:=adoquery3.fieldbyname('保险').AsString;
button4.Focused;
end;

procedure TGengGaiXinXi.Edit10KeyPress(Sender: TObject; var Key: Char);
begin
   if key=#13 then{判断是否按了回车}
begin
  adoquery4.Close;
adoquery4.SQL.Clear;
adoquery4.SQL.Add('select 姓名,性别,单位名称,职务,单位地点,身份证号码,出生日期,办公电话,家庭电话,手机号码,送票地址,机票额,保险 from 客户信息 where 客户编号='''+edit10.Text+'''');
adoquery4.Open;
edit10.Text:=adoquery4.fieldbyname('姓名').AsString;
edit11.Text:=adoquery4.fieldbyname('性别').AsString;
edit12.Text:=adoquery4.fieldbyname('单位名称').AsString;
edit13.Text:=adoquery4.fieldbyname('职务').AsString;
edit14.Text:=adoquery4.fieldbyname('单位地点').AsString;
edit15.Text:=adoquery4.fieldbyname('身份证号码').AsString;
edit16.Text:=adoquery4.fieldbyname('出生日期').AsString;
edit17.Text:=adoquery4.fieldbyname('办公电话').AsString;
edit18.Text:=adoquery4.fieldbyname('家庭电话').AsString;
edit19.Text:=adoquery4.fieldbyname('手机号码').AsString;
edit21.Text:=adoquery4.fieldbyname('送票地址').AsString;
edit22.Text:=adoquery4.fieldbyname('保险').AsString;
button4.Focused;
end;
end;

procedure TGengGaiXinXi.Edit1Exit(Sender: TObject);
begin
adoquery5.Close;
adoquery5.SQL.Clear;
adoquery5.SQL.Add('select 乘机日期,航班号,总票额,保险费,出票部门,送票员,出票员,备注 from 机票信息 where 订座记录编号='''+edit1.Text+'''');
adoquery5.Open;
edit2.Text:=adoquery5.fieldbyname('乘机日期').AsString;
edit3.Text:=adoquery5.fieldbyname('航班号').AsString;
edit5.Text:=adoquery5.fieldbyname('总票额').AsString;
edit6.Text:=adoquery5.fieldbyname('保险费').AsString;
edit7.Text:=adoquery5.fieldbyname('出票部门').AsString;
edit8.Text:=adoquery5.fieldbyname('送票员').AsString;
edit9.Text:=adoquery5.fieldbyname('出票员').AsString;
memo1.Text:=adoquery5.fieldbyname('备注').AsString;
end;

procedure TGengGaiXinXi.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
   if key=#13 then{判断是否按了回车}
begin
adoquery6.Close;
adoquery6.SQL.Clear;
adoquery6.SQL.Add('select 乘机日期,航班号,总票额,保险费,出票部门,送票员,出票员,备注 from 机票信息 where 订座记录编号='''+edit1.Text+'''');
adoquery6.Open;
edit2.Text:=adoquery6.fieldbyname('乘机日期').AsString;
edit3.Text:=adoquery6.fieldbyname('航班号').AsString;
edit5.Text:=adoquery6.fieldbyname('总票额').AsString;
edit6.Text:=adoquery6.fieldbyname('保险费').AsString;
edit7.Text:=adoquery6.fieldbyname('出票部门').AsString;
edit8.Text:=adoquery6.fieldbyname('送票员').AsString;
edit9.Text:=adoquery6.fieldbyname('出票员').AsString;
memo1.Text:=adoquery6.fieldbyname('备注').AsString;
end;
end;

procedure TGengGaiXinXi.Button7Click(Sender: TObject);
begin
if(trim(edit23.Text)='')then
begin
 showmessage('请先填入信息再修改!');
 exit;
end;
adocommand1.CommandText:='update 航线表 set 航班号='''+edit23.Text+''',起飞时间='''+edit24.Text+''',抵达时间='''+edit25.Text+''',航班票价='''+edit26.Text+''',票价折扣='''+edit27.Text+''',途经城市='''+memo2.Text+''' where 航班号='''+edit23.Text+'''';
adocommand1.Execute;
showmessage('修改成功!');
    edit23.Clear;
    edit24.Clear;
    edit25.Clear;
    edit26.Clear;
    edit27.Clear;
    memo2.Clear;
end;

procedure TGengGaiXinXi.Button4Click(Sender: TObject);
begin
if(trim(edit10.Text)='')then
begin
 showmessage('请先填入信息再修改!');
 exit;
end;
adocommand2.CommandText:='update 客户信息 set 客户编号='''+edit10.Text+''',姓名='''+edit11.Text+''',性别='''+edit12.Text+''',单位名称='''+edit13.Text+''',单位地点='''+edit14.Text+''',身份证号码='''+edit15.Text+''',办公电话='''+edit16.Text+''',家庭电话='''+edit17.Text+''',手机号码='''+edit18.Text+''',送票地址='''+edit19.Text+''',机票额='''+edit21.Text+''',保险='''+edit22.Text+''' where 客户编号='''+edit10.Text+'''';
adocommand2.Execute;
showmessage('修改成功!');
    edit10.Clear;
    edit11.Clear;
    edit12.Clear;
    edit13.Clear;
    edit14.Clear;
    edit15.Clear;
    edit16.Clear;
    edit17.Clear;
    edit18.Clear;
    edit19.Clear;
    edit21.Clear;
    edit22.Clear;

end;

procedure TGengGaiXinXi.Button1Click(Sender: TObject);
begin
if(trim(edit1.Text)='')then
begin
 showmessage('请先填入信息再修改!');
 exit;
end;
adocommand3.CommandText:='update 机票信息 set 订座记录编号='''+edit1.Text+''',乘机日期='''+edit2.Text+''',航班号='''+edit3.Text+''',总票额='''+edit5.Text+''',保险费='''+edit6.Text+''',出票部门='''+edit7.Text+''',送票员='''+edit8.Text+''',出票员='''+edit9.Text+''',备注='''+memo1.Text+'''where 订座记录编号='''+edit1.Text+'''';
adocommand3.Execute;
showmessage('修改成功!');
    edit1.Clear;
    edit2.Clear;
    edit3.Clear;
    edit5.Clear;
    edit6.Clear;
    edit7.Clear;
    edit8.Clear;
    edit9.Clear;
    memo1.Clear;
end;

procedure TGengGaiXinXi.Button8Click(Sender: TObject);
begin
    edit23.Clear;
    edit24.Clear;
    edit25.Clear;
    edit26.Clear;
    edit27.Clear;
    memo2.Clear;
    showmessage('取消成功,请继续操作!!!');
end;

procedure TGengGaiXinXi.Button9Click(Sender: TObject);
begin
GengGaiXinXi.Close;
end;

procedure TGengGaiXinXi.Button5Click(Sender: TObject);
begin
    edit10.Clear;
    edit11.Clear;
    edit12.Clear;
    edit13.Clear;
    edit14.Clear;
    edit15.Clear;
    edit16.Clear;
    edit17.Clear;
    edit18.Clear;
    edit19.Clear;
    edit21.Clear;
    edit22.Clear;
showmessage('取消成功,请继续操作!!!');
end;

procedure TGengGaiXinXi.Button6Click(Sender: TObject);
begin
GengGaiXinXi.Close;
end;

procedure TGengGaiXinXi.Button2Click(Sender: TObject);
begin
    edit1.Clear;
    edit2.Clear;
    edit3.Clear;
    edit5.Clear;
    edit6.Clear;
    edit7.Clear;
    edit8.Clear;
    edit9.Clear;
    memo1.Clear;
showmessage('取消成功,请继续操作!!!');
end;

procedure TGengGaiXinXi.Button3Click(Sender: TObject);
begin
GengGaiXinXi.Close;
end;

end.