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

    unit flightinsert;
    //********航班插入子窗口***************
    //************************
    interface
    
    uses
      Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
      Dialogs, DB, DBTables, StdCtrls;
    
    type
      TFlightIns = 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 ButtonYesClick(Sender: TObject);
        procedure ButtonExitClick(Sender: TObject);
        procedure FormCreate(Sender: TObject);
      private
        { Private declarations }
      public
        { Public declarations }
      end;
    
    var
      FlightIns: TFlightIns;
    
    implementation
    uses mainview;
    
    {$R *.dfm}
    //**********根据输入的信息插入新的航班**************
    procedure TFlightIns.ButtonYesClick(Sender: TObject);
    begin
        query1.close;
        query1.SQL.Clear;
        //先查询数据库，看看所指定的航班存不存在
        query1.sql.Add('select * from flight where FlightNo=:FlightNo and StrDate=:StrDate');
        query1.ParamByName('FlightNo').Asstring:=Edit6.Text;
        query1.ParamByName('StrDate').AsDatetime:=strtodate(Edit3.Text);
        query1.Open;
        if query1.RecNo>0 then
        begin
           application.MessageBox('此航班已经存在! ','提示信息',mb_ok)
        end
        else begin
            query1.SQL.Clear;
            query1.SQL.add('insert into flight(FlightNo,StrDate,StrTime,StrCity,ArrDate,ArrTime,ArrCity,FirNo,FirPrice,FirRem,SecNo,SecPrice,SecRem,LasNo,LasPrice,LasRem)');
            query1.SQL.Add(' values(:FlightNo,:StrDate,:StrTime,:StrCity,:ArrDate,:ArrTime,:ArrCity,:FirNo,:FirPrice,:FirRem,:SecNo,:SecPrice,:SecRem,:LasNo,:LasPrice,:LasRem)');
            query1.ParamByName('FlightNo').asstring:=Edit6.Text;
            query1.ParamByName('StrDate').Asdatetime:=strtodate(Edit3.Text);
            query1.ParamByName('StrTime').Astime:=strtotime(Edit2.Text);
            query1.ParamByName('StrCity').asstring:=Edit2.Text;
            query1.ParamByName('ArrDate').Asdatetime:=strtodate(Edit7.Text);
            query1.ParamByName('ArrTime').Astime:=strtotime(Edit4.Text);
            query1.ParamByName('ArrCity').asstring:=Edit5.Text;
            query1.ParamByName('FirNo').asinteger:=strtoint(Edit8.Text);
            query1.ParamByName('SecNo').asinteger:=strtoint(Edit9.Text);
            query1.ParamByName('LasNo').asinteger:=strtoint(Edit10.Text);
            query1.ParamByName('FirPrice').asinteger:=strtoint(Edit11.Text);
            query1.ParamByName('SecPrice').asinteger:=strtoint(Edit12.Text);
            query1.ParamByName('LasPrice').asinteger:=strtoint(Edit13.Text);
            query1.ParamByName('FirRem').asinteger:=strtoint(Edit8.Text);
            query1.ParamByName('SecRem').asinteger:=strtoint(Edit9.Text);
            query1.ParamByName('LasRem').asinteger:=strtoint(Edit10.Text);
            query1.ExecSQL;
            query1.close;
            application.MessageBox('添加成功! ','提示信息',mb_ok);
        end;
    end;
    //**********退出**************
    procedure TFlightIns.ButtonExitClick(Sender: TObject);
    begin
    Query1.Close;
    Close;
    end;
    //初始化工作，设定默认值
    procedure TFlightIns.FormCreate(Sender: TObject);
    begin
    Edit6.Text:='fly';
    Edit2.Text:='8:35:00';
    Edit3.Text:='2005-06-25';
    Edit4.Text:='8:35:00';
    Edit7.Text:='2005-06-25';
    Edit8.Text:='100';
    Edit9.Text:='200';
    Edit10.Text:='400';
    Edit11.Text:='1500';
    Edit12.Text:='1000';
    Edit13.Text:='500';
    end;
    
    end.