unit28.pas

来自「一个简单的旅游管理系统」· PAS 代码 · 共 163 行

unit Unit28;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, DB, ADODB, Grids, DBGrids;

type
  TForm28 = class(TForm)
    GroupBox1: TGroupBox;
    Label11: TLabel;
    Edit11: TEdit;
    Label20: TLabel;
    Edit20: TEdit;
    Label16: TLabel;
    Edit16: TEdit;
    Edit15: TEdit;
    Label15: TLabel;
    Button10: TButton;
    Button4: TButton;
    Button8: TButton;
    Button5: TButton;
    ADOConnection1: TADOConnection;
    Button9: TButton;
    Button6: TButton;
    ADOQuery1: TADOQuery;
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
    procedure Button5Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Button6Click(Sender: TObject);
    procedure Button10Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button8Click(Sender: TObject);
    procedure Button9Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form28: TForm28;

implementation

{$R *.dfm}

procedure TForm28.Button5Click(Sender: TObject);
begin
edit11.Text:='';
edit15.Text:='';
edit16.Text:='';
edit20.Text:='';
adoquery1.SQL.Clear;
ADOQuery1.SQL.Add('select * from [航班信息表] ');
adoquery1.Open;
end;

procedure TForm28.FormCreate(Sender: TObject);
begin
edit11.Text:='';
edit15.Text:='';
edit16.Text:='';
edit20.Text:='';
end;

procedure TForm28.Button6Click(Sender: TObject);
begin
form28.close;
end;

procedure TForm28.Button10Click(Sender: TObject);
var
 sql:string;
begin
if edit20.text<>'' then
begin
ADOQuery1.Close;
ADOQuery1.SQL.Clear ;
ADOQuery1.SQL.Add('select * from [航班信息表] ');
sql:='where [价格]<:jg';
ADOQuery1.SQL.Add(sql);
ADOQuery1.Parameters.ParamByName('jg').Value:=trim(Edit20.Text);
adoquery1.Open;
end
else
showmessage('请输入价格');
edit11.Text:='';
edit15.Text:='';
edit16.Text:='';
edit20.Text:='';
end;

procedure TForm28.Button4Click(Sender: TObject);
var
 sql:string;
begin
if edit11.text<>'' then
begin
ADOQuery1.Close;
ADOQuery1.SQL.Clear ;
ADOQuery1.SQL.Add('select * from [航班信息表] ');
sql:='where [航次]=:hc';
ADOQuery1.SQL.Add(sql);
ADOQuery1.Parameters.ParamByName('hc').Value:=trim(Edit11.Text);
adoquery1.Open;
end
else
showmessage('请输入航次');
edit11.Text:='';
edit15.Text:='';
edit16.Text:='';
edit20.Text:='';
end;

procedure TForm28.Button8Click(Sender: TObject);
var
 sql:string;
begin
if edit15.text<>'' then
begin
ADOQuery1.Close;
ADOQuery1.SQL.Clear ;
ADOQuery1.SQL.Add('select * from [航班信息表] ');
sql:='where [出发地]=:cf';
ADOQuery1.SQL.Add(sql);
ADOQuery1.Parameters.ParamByName('cf').Value:=trim(Edit15.Text);
adoquery1.Open;
end
else
showmessage('请输入出发地');
edit11.Text:='';
edit15.Text:='';
edit16.Text:='';
edit20.Text:='';
end;

procedure TForm28.Button9Click(Sender: TObject);
var
 sql:string;
begin
if edit16.text<>'' then
begin
ADOQuery1.Close;
ADOQuery1.SQL.Clear ;
ADOQuery1.SQL.Add('select * from [航班信息表] ');
sql:='where [到达地]=:dd';
ADOQuery1.SQL.Add(sql);
ADOQuery1.Parameters.ParamByName('dd').Value:=trim(Edit16.Text);
adoquery1.Open;
end
else
showmessage('请输入到达地');
edit11.Text:='';
edit15.Text:='';
edit16.Text:='';
edit20.Text:='';
end;

end.