【delphi开源代码栏目提醒】:文章导读:在新的一年中,各位网友都进入紧张的学习或是工作阶段。网学会员整理了delphi开源代码-cancletkt.pas的相关内容供大家参考,祝大家在新的一年里工作和学习顺利!
unit cancletkt;
//**********退票子窗口************
//****************************
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Grids, DBGrids, DB, DBTables;
type
TCanceltkt = class(TForm)
DBGrid1: TDBGrid; //显示查询结果
Label1: TLabel;
Edit1: TEdit; //订单号
Label2: TLabel;
Edit2: TEdit; //顾客
Button1: TButton; //确定退票
Button2: TButton; //关闭button
DataSource1: TDataSource;
procedure Button2Click(Sender: TObject);
procedure FormActivate(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Canceltkt: TCanceltkt;
implementation
uses mainview;
{$R *.dfm}
//*************退出子窗口***************
procedure TCanceltkt.Button2Click(Sender: TObject);
begin
Main.query1.Close;
close;
end;
//***********窗口打开后,从数据库中显示订单*****************
procedure TCanceltkt.FormActivate(Sender: TObject);
begin
DBgrid1.DataSource:=datasource1;
DBgrid1.ReadOnly:=true;
datasource1.DataSet:=Main.query1;
Main.query1.SQL.clear;
Main.query1.SQL.add('select * from bookorder');
Main.query1.Open;
Main.query1.RequestLive:=true;
DBgrid1.Fields[0].DisplayLabel:='订单号';
DBgrid1.Fields[1].DisplayLabel:='客户名称';
DBgrid1.Fields[2].DisplayLabel:='证件号码';
DBgrid1.Fields[3].DisplayLabel:='客户性别';
DBgrid1.Fields[4].DisplayLabel:='折扣';
DBgrid1.Fields[5].DisplayLabel:='航班号';
DBgrid1.Fields[6].DisplayLabel:='航班日期';
DBgrid1.Fields[7].DisplayLabel:='票是否送出';
DBgrid1.Fields[8].DisplayLabel:='票等级';
edit1.Text:='';
edit2.Text:='';
end;
//***********确定键按下后执行退票动作*****************
procedure TCanceltkt.Button1Click(Sender: TObject);
var
orderno:string;
flightno:string;
seatlel:integer;
begin
orderno:=Edit1.Text; //获取订单号
Main.query1.Close;
Main.query1.SQL.clear;
//修改订单数据库
Main.query1.sql.Add('select SeatLel,FlightNo from bookorder where OrdNo=:OrdNo');
Main.query1.ParamByName('OrdNo').Asstring:=orderno;
Main.query1.Open;
if Main.query1.RecNo=0 then
begin
application.MessageBox('此订单不存在! ','提示信息',mb_ok)
end
else begin
seatlel:= Main.query1.fieldByName('SeatLel').Asinteger;
flightno:= Main.query1.fieldByName('FlightNo').Asstring;
Main.query1.Close;
Main.query1.SQL.clear;
Main.query1.sql.Add('delete from bookorder where OrdNo=:OrdNo'); //删除订单
Main.query1.ParamByName('OrdNo').Asstring:=orderno;
Main.query1.ExecSQL;
Main.query1.close;
Main.query1.SQL.clear;
//根据机票等级修改相应的航班信息
if seatlel=1 then
begin
Main.query1.sql.Add('update flight set FirRem=FirRem+1 where FlightNo=:FlightNo');
end
else
begin
if seatlel=2 then
begin
Main.query1.sql.Add('update flight set SecRem=SecRem+1 where FlightNo=:FlightNo');
end
else
begin
if seatlel=3 then
Main.query1.sql.Add('update flight set LasRem=LasRem+1 where FlightNo=:FlightNo');
end;
end;
Main.query1.ParamByName('FlightNo').Asstring:=flightno;
Main.query1.ExecSQL;
end;
Main.query1.close;
application.MessageBox('成功删除! ','提示信息',mb_ok)
end;
//初始化工作,显示所有订单
procedure TCanceltkt.FormCreate(Sender: TObject);
begin
DBgrid1.DataSource:=datasource1;
DBgrid1.ReadOnly:=true;
datasource1.DataSet:=Main.query1;
Main.query1.SQL.clear;
Main.query1.SQL.add('select * from bookorder');
Main.query1.Open;
Main.query1.RequestLive:=true;
DBgrid1.Fields[0].DisplayLabel:='订
上一篇:
frmBuildingFind.frm
下一篇:
角色扮演在国际贸易实务教学中的运用