unit11.~pas

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

unit Unit11;

interface

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

type
  TTuiPiao = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    Edit1: TEdit;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    ADOQuery1: TADOQuery;
    Button4: TButton;
    Label1: TLabel;
    Button5: TButton;
    ADOCommand1: TADOCommand;
    ADOCommand2: TADOCommand;
    ADOQuery2: TADOQuery;
    ADOQuery3: TADOQuery;
    ADOQuery4: TADOQuery;
    Label2: TLabel;
    Label3: TLabel;
    procedure Button3Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
  private
    { Private declarations }
  public
  sheng:string;
  jianqu:integer;
    { Public declarations }
  end;

var
  TuiPiao: TTuiPiao;

implementation

{$R *.dfm}

procedure TTuiPiao.Button3Click(Sender: TObject);
begin
TuiPiao.Close;
end;

procedure TTuiPiao.Button1Click(Sender: TObject);
var
temp:string;
begin
adoquery1.Close;
adoquery1.SQL.Clear;
adoquery1.SQL.Text:='select 乘机日期 from 机票信息 where 订座记录编号='''+edit1.Text+'''';
adoquery1.Open;
temp:=adoquery1.fieldbyname('乘机日期').AsString;
if temp<>'' then
BEGIN
showmessage('该票存在,现在进行购票日期查询.如果是三天内可以进行退票处理!');
end
else
showmessage('不好意思,此座还没有售出,不提供退票服务!');
end;

procedure TTuiPiao.FormCreate(Sender: TObject);
begin
button2.Enabled:=false;
end;

procedure TTuiPiao.Button5Click(Sender: TObject);
begin
button2.Enabled:=true;
end;

procedure TTuiPiao.Button2Click(Sender: TObject);
var
s,hangxian:string;
begin
/////这里由订座记录编号得到所乘的航班
hangxian:=LeftStr(Edit1.Text,2);
label2.Caption:=hangxian;


adoquery3.Close;
adoquery3.SQL.Clear;
adoquery3.SQL.Add('select 票的剩余张数 from 航线状态表  where 航班号='''+label2.Caption+'''');
adoquery3.Open;
sheng:=adoquery3.FieldByName('票的剩余张数').AsString;
//label3.Caption:=sheng;
jianqu:=strtoint(sheng);
jianqu:=jianqu+1;
sheng:=inttostr(jianqu);
label3.Caption:=sheng;
adoquery4.Close;
adoquery4.SQL.Clear;
adoquery4.SQL.Add('update 航线状态表  set 票的剩余张数='''+label2.Caption+'''  where 航班号='''+label2.Caption+'''');
adoquery4.ExecSQL;





   adocommand1.CommandText:='delete from 机票信息 where 订座记录编号='''+edit1.Text+'''';
   adocommand2.CommandText:='delete from 客户信息 where 订座记录编号='''+edit1.Text+'''';

   adocommand1.Execute;
   adocommand2.Execute;
   showmessage('退票成功!!');
end;

procedure TTuiPiao.Button4Click(Sender: TObject);
begin
adoquery2.Close;
adoquery2.SQL.Clear;
adoquery2.SQL.Text:='select 乘机日期 from 机票信息 where 订座记录编号='''+edit1.Text+'''';
adoquery2.Open;
label1.Caption:=adoquery2.fieldbyname('乘机日期').AsString;
end;

end.