unit9.pas

来自「这是一个平时无事是编写的一个航空售票管理小系统,与大家分享, 有什么问题大家在」· PAS 代码 · 共 103 行

unit Unit9;

interface

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

type
  TDanXiangChaXun = class(TForm)
    Label1: TLabel;
    Panel1: TPanel;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    RadioButton3: TRadioButton;
    RadioButton4: TRadioButton;
    Button1: TButton;
    Panel2: TPanel;
    DBGrid1: TDBGrid;
    Edit1: TEdit;
    DateTimePicker1: TDateTimePicker;
    ADOTable1: TADOTable;
    ADOQuery1: TADOQuery;
    DataSource1: TDataSource;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  DanXiangChaXun: TDanXiangChaXun;

implementation

{$R *.dfm}

procedure TDanXiangChaXun.Button1Click(Sender: TObject);
begin
if radiobutton1.Enabled=true then
begin
 adoquery1.Close;
 adoquery1.SQL.Clear;
 adoquery1.SQL.Add('select * from '+adotable1.TableName);
  adoquery1.SQL.Add('where('+radiobutton1.caption+' like ''%'+edit1.Text+'%'')');
 adoquery1.Open;
 ///////////////将查询到的东西复制到下面的DBGRID中去/////////////////////////
 adotable1.Clone(adoquery1,ltunspecified);
end;


if radiobutton2.Enabled=true then
begin
 adoquery1.Close;
 adoquery1.SQL.Clear;
 adoquery1.SQL.Add('select * from '+adotable1.TableName);
 adoquery1.SQL.Add('where('+radiobutton2.caption+' like ''%'+TimeToStr(Datetimepicker1.Date)+'%'')');
 adoquery1.Open;
 ///////////////将查询到的东西复制到下面的DBGRID中去/////////////////////////
 adotable1.Clone(adoquery1,ltunspecified);
end;

if radiobutton3.Enabled=true then
begin
 adoquery1.Close;
 adoquery1.SQL.Clear;
 adoquery1.SQL.Add('select * from '+adotable1.TableName);
 adoquery1.SQL.Add('where('+radiobutton3.caption+' like ''%'+TimeToStr(Datetimepicker1.Date)+'%'')');
 adoquery1.Open;
 ///////////////将查询到的东西复制到下面的DBGRID中去/////////////////////////
 adotable1.Clone(adoquery1,ltunspecified);
end;

if radiobutton4.Enabled=true then
begin
 adoquery1.Close;
 adoquery1.SQL.Clear;
 adoquery1.SQL.Add('select * from '+adotable1.TableName);
 adoquery1.SQL.Add('where('+radiobutton4.caption+' like ''%'+edit1.Text+'%'')');
 adoquery1.Open;
 ///////////////将查询到的东西复制到下面的DBGRID中去/////////////////////////
 adotable1.Clone(adoquery1,ltunspecified);

end;
 dbgrid1.Columns[0].Width:=70;
 dbgrid1.Columns[1].Width:=80;
 dbgrid1.Columns[2].Width:=80;
 dbgrid1.Columns[3].Width:=80;
 dbgrid1.Columns[4].Width:=80;
 dbgrid1.Columns[5].Width:=600;

end;

procedure TDanXiangChaXun.Button2Click(Sender: TObject);
begin
  DanXiangChaXun.Close;
end;

end.