ckdpunit.pas

航班管理

unit CKDPUnit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, ADODB, Buttons, StdCtrls, Mask, DBCtrls;

type
  TForm4 = class(TForm)
    GroupBox1: TGroupBox;
    Label1: TLabel;
    DBEdit2: TDBEdit;
    DBEdit3: TDBEdit;
    DBEdit4: TDBEdit;
    DBEdit5: TDBEdit;
    DBEdit7: TDBEdit;
    DBEdit8: TDBEdit;
    DBEdit9: TDBEdit;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    SpeedButton3: TSpeedButton;
    SpeedButton4: TSpeedButton;
    SpeedButton5: TSpeedButton;
    SpeedButton6: TSpeedButton;
    SpeedButton7: TSpeedButton;
    SpeedButton8: TSpeedButton;
    DataSource1: TDataSource;
    ADOTable1: TADOTable;
    Label10: TLabel;
    Edit1: TEdit;
    SpeedButton9: TSpeedButton;
    ADOTable2: TADOTable;
    ADOTable3: TADOTable;
    DataSource2: TDataSource;
    DataSource3: TDataSource;
    DBEdit1: TDBEdit;
    DBEdit6: TDBEdit;
    Label11: TLabel;
    DBEdit10: TDBEdit;
    Button1: TButton;
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
    procedure SpeedButton4Click(Sender: TObject);
    procedure SpeedButton5Click(Sender: TObject);
    procedure SpeedButton6Click(Sender: TObject);
    procedure SpeedButton8Click(Sender: TObject);
    procedure SpeedButton7Click(Sender: TObject);
    procedure SpeedButton9Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form4: TForm4;

implementation

uses HBXXUnit;

{$R *.dfm}

procedure TForm4.SpeedButton1Click(Sender: TObject);
var s:string;
begin
   adotable1.Edit;
   dbedit1.Text:=Datetostr(Date());
   s:=dbedit3.Text;
   if adotable2.Locate('航班号',dbedit6.Text,[]) then
    begin
      adotable2.Open;
      dbedit4.Text:=adotable2.Fields[1].AsString;
      dbedit5.Text:=adotable2.Fields[2].AsString;
      dbedit7.Text:=adotable2.Fields[3].AsString;
      dbedit8.Text:=adotable2.Fields[4].AsString;
      adotable1.Append;
      showmessage('订票成功！');
     if adotable1.Locate('身份证号',s,[])then
     begin
      adotable3.Insert;
      adotable3.Fields[0].AsString:=adotable1.Fields[0].AsString;
      adotable3.Fields[1].AsString:=adotable1.Fields[1].AsString;
      adotable3.Fields[2].AsString:=adotable1.Fields[2].AsString;
      adotable3.Fields[3].AsString:=adotable1.Fields[3].AsString;
      adotable3.Fields[4].AsString:=adotable1.Fields[4].AsString;
      adotable3.Fields[5].AsString:=adotable1.Fields[5].AsString;
      adotable3.Fields[6].AsString:=adotable1.Fields[6].AsString;
      adotable3.Fields[7].AsString:=adotable1.Fields[7].AsString;
      adotable3.Fields[8].AsString:=adotable1.Fields[8].AsString;
      adotable3.Fields[11].AsString:=adotable1.Fields[9].AsString;
      adotable3.Post
      end
    end;

    dbedit1.Text:='';
    dbedit2.Text:='';
    dbedit3.Text:='';
    dbedit4.Text:='';
    dbedit5.Text:='';
    dbedit6.Text:='';
    dbedit7.Text:='';
    dbedit8.Text:='';
    dbedit9.Text:='';
    dbedit10.text:='';
    adotable1.append;
end;

procedure TForm4.SpeedButton2Click(Sender: TObject);
begin
  adotable1.Edit;
  adotable1.Post;
  dbedit1.Text:='';
  dbedit2.Text:='';
  dbedit3.Text:='';
  dbedit4.Text:='';
  dbedit5.Text:='';
  dbedit6.Text:='';
  dbedit7.Text:='';
  dbedit8.Text:='';
  dbedit9.Text:='';
  dbedit10.text:='';
  adotable1.insert;
end;

procedure TForm4.SpeedButton3Click(Sender: TObject);
begin
  adotable1.First;
end;

procedure TForm4.SpeedButton4Click(Sender: TObject);
begin
  adotable1.Next;
end;

procedure TForm4.SpeedButton5Click(Sender: TObject);
begin
  adotable1.Prior;
end;

procedure TForm4.SpeedButton6Click(Sender: TObject);
begin
  adotable1.Last;
end;

procedure TForm4.SpeedButton8Click(Sender: TObject);
begin
  close;
end;

procedure TForm4.SpeedButton7Click(Sender: TObject);
begin
if messagedlg('你确认要删除吗？',mtconfirmation,[mbyes,mbno],0)=mryes then
  begin
  adotable3.Locate('身份证号',adotable1.Fields[2].asstring,[]);
  adotable3.Delete;
  adotable1.Delete;
 end 
end;

procedure TForm4.SpeedButton9Click(Sender: TObject);
begin
  if adotable1.Locate('身份证号',edit1.Text,[]) then
    begin
      adotable1.Refresh;
      adotable1.Open
    end
  else if  edit1.Text='' then
     showmessage('身份证号不能为空！！')
  else
  begin
    showmessage('对不起，没有此人记录');
    dbedit1.Text:='';
    dbedit2.Text:='';
    dbedit3.Text:='';
    dbedit4.Text:='';
    dbedit5.Text:='';
    dbedit6.Text:='';
    dbedit7.Text:='';
    dbedit8.Text:='';
    dbedit9.Text:='';
    dbedit10.text:='';
    edit1.Text:='';
  end
end;

procedure TForm4.Button1Click(Sender: TObject);
begin
  dbedit1.Text:=Datetostr(Date());
  if adotable2.Locate('航班号',dbedit6.Text,[]) then
    begin
      adotable2.Open;
      dbedit4.Text:=adotable2.Fields[1].AsString;
      dbedit5.Text:=adotable2.Fields[2].AsString;
      dbedit7.Text:=adotable2.Fields[3].AsString;
      dbedit8.Text:=adotable2.Fields[4].AsString
    end
    else
      showmessage('对不起，没有此航班，请查证！');
end;

end.