【delphi开源代码栏目提醒】：网学会员鉴于大家对delphi开源代码十分关注，论文会员在此为大家搜集整理了“flightquery.pas”一文，供大家参考学习

    unit flightquery;
    //*****************航班信息查询子窗口**************
    //*************************************
    interface
    
    uses
      Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
      Dialogs, DB, DBTables, StdCtrls, Grids, DBGrids;
    
    type
      TFliQuery = class(TForm)
        DBGrid1: TDBGrid;       //信息显示窗口
        Label1: TLabel;
        Edit1: TEdit;           //航班号
        Label2: TLabel;
        Edit2: TEdit;           //航班日期
        ButtonYes: TButton;     //开始查询
        ButtonExit: TButton;    //退出
        DataSource1: TDataSource;
        Query1: TQuery;
        procedure ButtonExitClick(Sender: TObject);
        procedure ButtonYesClick(Sender: TObject);
        procedure FormCreate(Sender: TObject);
      private
        { Private declarations }
      public
        { Public declarations }
      end;
    
    var
      FliQuery: TFliQuery;
    
    implementation
    uses mainview;
    
    {$R *.dfm}
    //**************退出子窗口***********************
    procedure TFliQuery.ButtonExitClick(Sender: TObject);
    begin
    Query1.Close;
    Close;
    end;
    //*************输入航班号和信息后即进行查询************************
    procedure TFliQuery.ButtonYesClick(Sender: TObject);
    begin
        DBgrid1.DataSource:=datasource1;
        DBgrid1.ReadOnly:=true;
        datasource1.DataSet:=Query1;
        Query1.SQL.clear;
        //先查询数据库，看看所指定的航班存不存在
        Query1.SQL.add('select * from flight where FlightNo=:s0 and StrDate=:StrDate');
        Query1.ParamByName('s0').AsString:=Edit1.Text;
        Query1.ParamByName('StrDate').AsDatetime:=strtodate(Edit2.Text);
        Query1.Open;
        if query1.RecNo=0 then
        begin
           application.MessageBox('此航班不存在! ','提示信息',mb_ok)
        end
        else begin
            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:='到达城市';
        end;
    end;
    //初始化工作，设定默认值
    procedure TFliQuery.FormCreate(Sender: TObject);
    begin
    Edit1.Text:='fly';
    Edit2.Text:='2005-06-25';
    end;
    
    end.