【delphi开源代码栏目提醒】:本文主要为网学会员提供cityflightquery.pas,希望对需要cityflightquery.pas网友有所帮助,学习一下!
unit cityflightquery;
//************城市航班查询子窗口**************
//***********************************
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DB, DBTables, StdCtrls, Grids, DBGrids;
type
TCityQuery = class(TForm)
DBGrid1: TDBGrid;
Label1: TLabel;
Edit1: TEdit;
Label2: TLabel;
Edit2: TEdit;
ButtonYes: TButton;
ButtonExit: TButton;
DataSource1: TDataSource;
Query1: TQuery;
procedure ButtonYesClick(Sender: TObject);
procedure ButtonExitClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
CityQuery: TCityQuery;
implementation
uses mainview;
{$R *.dfm}
//*************根据输入的城市和日期信息查询相应的航班**********************
procedure TCityQuery.ButtonYesClick(Sender: TObject);
begin
DBgrid1.DataSource:=datasource1;
DBgrid1.ReadOnly:=true;
datasource1.DataSet:=Query1;
Query1.SQL.clear;
//先查询数据库,看看所指定的航班存不存在
Query1.SQL.add('select * from flight where ArrCity=:ArrCity or StrCity=:StrCity'); //查询 or StrCity=:StrCity
Query1.ParamByName('ArrCity').Asstring:=Edit1.Text;
Query1.ParamByName('StrCity').Asstring:=Edit1.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 TCityQuery.ButtonExitClick(Sender: TObject);
begin
Query1.Close;
Close;
end;
//***********************************
end.
上一篇:
chuqin.pas
下一篇:
"夜"