【delphi开源代码栏目提醒】：网学会员--在 delphi开源代码编辑为广大网友搜集整理了：flightmodi.pas绩等信息，祝愿广大网友取得需要的信息，参考学习。

    unit flightmodi;
    //***********航班信息修改子窗口**********
    //**********************************
    interface
    
    uses
      Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
      Dialogs, DB, DBTables, StdCtrls;
    
    type
      Tflightmody = class(TForm)
        Label1: TLabel;
        Label2: TLabel;
        Label3: TLabel;
        Label4: TLabel;
        Label5: TLabel;
        Label6: TLabel;
        Label7: TLabel;
        Label8: TLabel;
        Label9: TLabel;
        Label10: TLabel;
        Label11: TLabel;
        Label12: TLabel;
        Label13: TLabel;
        Edit1: TEdit;           //起飞城市
        Edit2: TEdit;           //起飞时间
        Edit3: TEdit;           //起飞日期
        Edit4: TEdit;           //到达时间
        Edit5: TEdit;           //到达城市
        Edit6: TEdit;           //航班号
        Edit7: TEdit;            //到达日期
        Edit8: TEdit;            //一号舱座位数
        Edit9: TEdit;            //二号舱座位数
        Edit10: TEdit;          //三号舱座位数
        Edit11: TEdit;          //一号舱票价
        Edit12: TEdit;          //二号舱票价
        Edit13: TEdit;          //三号舱票价
        ButtonYes: TButton;      //更新
        ButtonExit: TButton;     //退出
        DataSource1: TDataSource;
        Query1: TQuery;
        Label14: TLabel;
        Edit14: TEdit;
        procedure FormActivate(Sender: TObject); //激活窗口时的动作
        procedure Edit6Exit(Sender: TObject);     //航班号修改后更改相应的域
        procedure ButtonExitClick(Sender: TObject); //退出的处理
        procedure ButtonYesClick(Sender: TObject);
        procedure FormCreate(Sender: TObject);  //修改后更新航班信息数据库
    
      private
        { Private declarations }
      public
        { Public declarations }
      end;
    
    var
      flightmody: Tflightmody;
    
    implementation
    
    {$R *.dfm}
    
    //***********当窗口激活的时候，先将所有的信息显示框禁止***********************
    procedure Tflightmody.FormActivate(Sender: TObject);
    begin
      Edit1.Enabled:=false;
      Edit2.Enabled:=false;
      Edit3.Enabled:=false;
      Edit4.Enabled:=false;
      Edit5.Enabled:=false;
      Edit7.Enabled:=false;
      Edit8.Enabled:=false;
      Edit9.Enabled:=false;
      Edit10.Enabled:=false;
      Edit11.Enabled:=false;
      Edit12.Enabled:=false;
      Edit13.Enabled:=false;
      ButtonYes.Enabled:=false;
    end;
    //****************当输入航班号后，从数据库中把相应的信息提取出来供用户修改******************
    procedure Tflightmody.Edit6Exit(Sender: TObject);
    begin
    //当输入航班号后，从数据库中把相应的信息提取出来供用户修改，所以要讲edit框使能
        Edit1.Enabled:=true;
        Edit2.Enabled:=true;
        Edit3.Enabled:=true;
        Edit4.Enabled:=true;
        Edit5.Enabled:=true;
        Edit7.Enabled:=true;
        Edit8.Enabled:=true;
        Edit9.Enabled:=true;
        Edit10.Enabled:=true;
        Edit11.Enabled:=true;
        Edit12.Enabled:=true;
        Edit13.Enabled:=true;
        ButtonYes.Enabled:=true;
        //访问数据库
        Query1.Close;
        Query1.SQL.clear;
        //先查询数据库，看看所指定的航班存不存在
        Query1.SQL.add('select * from flight where FlightNo=:s0 and StrDate=:StrDate');
        Query1.ParamByName('s0').AsString:=Edit6.Text;
        Query1.ParamByName('StrDate').AsDatetime:=strtodate(Edit14.Text);
        Query1.Open;
        if query1.RecNo=0 then
        begin
           application.MessageBox('此航班不存在! ','提示信息',mb_ok)
        end
        else begin
          Query1.RequestLive:=true;
          Edit1.Text:=Query1.fieldbyname('StrCity').asstring;
          Edit2.Text:=Timetostr(Query1.fieldbyname('StrTime').asDatetime);
          Edit3.Text:=Datetostr(Query1.fieldbyname('StrDate').AsDateTime);
          Edit4.Text:=Timetostr(Query1.fieldbyname('ArrTime').asDatetime);
          Edit5.Text:=Query1.fieldbyname('ArrCity').asstring;
          Edit7.Text:=Datetostr(Query1.fieldbyname('ArrDate').asDateTime);
          Edit8.Text:=IntToStr(Query1.fieldbyname('FirNo').asinteger);
          Edit9.Text:=IntToStr(Query1.fieldbyname('SecNo').asinteger);
          Edit10.Text:=IntToStr(Query1.fieldbyname('LasNo').asinteger);
          Edit11.Text:=IntToStr(Query1.fieldbyname('FirPrice').asinteger);
          Edit12.Text:=IntToStr(Query1.fieldbyname('SecPrice').asinteger);
          Edit13.Text:=IntToStr(Query1.fieldbyname('LasPrice').asinteger);
        end;
    end;
    //*************退出*********************
    procedure Tflightmody.ButtonExitClick(Sender: TObject);
    begin
    Query1.close;
    Close;
    end;
    //**********根据修改的信息更新航班表************************
    procedure Tflightmody.ButtonYesClick(Sender: TObject);
    begin
        Query1.close;
        Query1.SQL.clear;
        Query1.sql.Add('delete from flight where FlightNo=:flightnum and StrDate=:date' );
        Query1.ParamByName('flightnum').Asstring:=Edit6.Text;
        Query1.ParamByName('date').Asdate:=strtodate(Edit3.Text);
        Query1.ExecSQL;
        Query1.close;
        Query1.SQL.Clear;
    
        Query1.SQL.add('insert into fligh