【delphi开源代码栏目提醒】：以下是网学会员为您推荐的delphi开源代码-flightmodify.pas，希望本篇文章对您学习有所帮助。

    unit flightmodify;
    //***********航班信息修改子窗口**********
    //**********************************
    interface
    
    uses
      Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
      Dialogs, DB, DBTables, StdCtrls;
    
    type
      TFlightMod = 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;
        procedure FormActivate(Sender: TObject);    //激活窗口时的动作
        procedure ButtonExitClick(Sender: TObject); //退出的处理
        procedure onedit6exit(Sender: TObject);     //航班号修改后更改相应的域
        procedure ButtonYesClick(Sender: TObject);  //修改后更新航班信息数据库
      private
        { Private declarations }
      public
        { Public declarations }
      end;
    
    var
      FlightMod: TFlightMod;
    
    implementation
       uses mainview;
    {$R *.dfm}
    //***********当窗口激活的时候，先将所有的信息显示框禁止***********************
    procedure 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 TFlightMod.ButtonExitClick(Sender: TObject);
    begin
    Query1.close;
    Close;
    end;
    //****************当输入航班号后，从数据库中把相应的信息提取出来供用户修改******************
    procedure onedit6exit(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='+strtoint(Edit6.Text)+'');
        Query1.Open;
        Query1.RequestLive:=true;
        Edit1.Text:=Query1.fieldbyname('StrCity').asstring;
        Edit2.Text:=DateTimetostr(Query1.fieldbyname('StrTime').asDatetime);
        Edit3.Text:=DateTimetostr(Query1.fieldbyname('StrDate').asDatetime);
        Edit4.Text:=DateTimetostr(Query1.fieldbyname('ArrTime').asDatetime);
        Edit5.Text:=Query1.fieldbyname('ArrCity').asstring;
        Edit7.Text:=DateTimetostr(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;
    //**********根据修改的信息更新航班表************************
    procedure TFlightMod.ButtonYesClick(Sender: TObject);
    begin
        Query1.close;
        Query1.SQL.Clear;
        Query1.SQL.add('insert into flight(FlightNo,StrDate,StrTimie,StrCity,ArrDate,ArrTime,ArrCity,FirNo,FirPrice,FirRem,SecNo,SecPrice,SecRem,LasNo,LasPrice,LasRem)');
        Query1.SQL.Add(' values ''+FlightNo+'',''+StrDate+'',''+StrTimie+'',''+StrCity+'',''+ArrDate+'',''+ArrTime+'',''+ArrCity+'',''+FirNo+'',''+FirPrice+'',''+FirRem+'',''+SecNo+'',''+SecPrice+'',''+SecRem+'',''+LasNo+'',''+LasPrice+'',''+LasRem+'')');
        Query1.ParamByName('FlightNo').asinteger:=strtoint(Edit6.Text);;
        Query1.ParamByName('StrDate').Asdatetime:=strtodate(Edit3.Text);
        Query1.ParamByName(