unit4.~pas

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

unit Unit4;

interface

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

type
  TTianJia = class(TForm)
    Panel1: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    Edit1: TEdit;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Edit2: TEdit;
    Label6: TLabel;
    Edit3: TEdit;
    Label7: TLabel;
    Edit4: TEdit;
    Edit5: TEdit;
    Button1: TButton;
    Button2: TButton;
    ADOTable1: TADOTable;
    ADOCommand1: TADOCommand;
    ADOQuery1: TADOQuery;
    Memo1: TMemo;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  TianJia: TTianJia;

implementation

{$R *.dfm}

procedure TTianJia.Button1Click(Sender: TObject);
begin
if(trim(edit1.Text)='')then
begin
 showmessage('航班号不能为空!');
 exit;
end;
if(trim(edit2.Text)='')then
begin
 showmessage('起飞时间不能为空!');
 exit;
end;
if(trim(edit3.Text)='')then
begin
 showmessage('到达时间不能为空!');
 exit;
end;
if(trim(edit4.Text)='')then
begin
 showmessage('票价不能为空!');
 exit;
end;
if(trim(edit5.Text)='')then
begin
 showmessage('票价折扣不能为空!');
 exit;
end;
if(trim(Memo1.Text)='')then
begin
 showmessage('途经城市不能为空,至少有一个!');
 exit;
end;

//adocommand1.CommandText:='insert into 航线表([航班号],[起飞时间],[到达时间],[票价],[票价折扣][途经城市]) values('''+edit1.Text+''','+''''+edit2.Text+''','+''''+edit3.text+''','+''''+edit4.Text+''','+''''+edit5.text+''','+''''edit6.Text'''+'''edit7.text'''+'''edit8.text'''+'''edit9.text'''+'''edit10.text'''+'''edit11.text''''+')';
adocommand1.CommandText:='insert into 航线表([航班号],[起飞时间],[抵达时间],[航班票价],[票价折扣],[途经城市]) values('''+edit1.Text+''','+''''+edit2.Text+''','+''''+edit4.text+''','+''''+edit3.Text+''','+''''+edit5.text+''','+''''+Memo1.Text+''''+')';
adocommand1.Execute;

    edit1.Clear;
    edit2.Clear;
    edit3.Clear;
    edit4.Clear;
    edit5.Clear;
    Memo1.Clear;
sHOWMESSAGE('添加成功!请继续操作!');

end;

procedure TTianJia.Button2Click(Sender: TObject);
begin
TianJia.Close;
end;

end.