search.pas

1.使用某一高级语言和数据库（SOL2000

unit Search;

interface

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

type
  TSearchFrm = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    GroupBox1: TGroupBox;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    Edit1: TEdit;
    SpeedButton1: TSpeedButton;
    ADOQuery1: TADOQuery;
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
    ADOQuery1DSDesigner: TAutoIncField;
    ADOQuery1ClientName: TWideStringField;
    ADOQuery1ClientMobil: TWideStringField;
    ADOQuery1ClientTel: TWideStringField;
    ADOQuery1ClientType: TWideStringField;
    ADOQuery1ClientManager: TWideStringField;
    ADOQuery1ClientEmail: TWideStringField;
    ADOQuery1ClientMemo: TWideStringField;
    ADOQuery1ClientID: TWideStringField;
    DataSource2: TDataSource;
    ADOQuery2: TADOQuery;
    DBLookupComboBox1: TDBLookupComboBox;
    ADOQuery1ClientTel1: TWideStringField;
    Label1: TLabel;
    Label2: TLabel;
    SpeedButton2: TSpeedButton;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure RadioButton1Click(Sender: TObject);
    procedure RadioButton2Click(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure Edit1Change(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  SearchFrm: TSearchFrm;

implementation

uses Detail, Data;

{$R *.dfm}

procedure TSearchFrm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
     SearchFrm:=nil ;
end;

procedure TSearchFrm.RadioButton1Click(Sender: TObject);
begin
   edit1.Visible:=true;
   Label1.Visible:=true;
   DBLookupComboBox1.Visible:=false;
   SpeedButton1.Visible:=false;
end;

procedure TSearchFrm.RadioButton2Click(Sender: TObject);
begin
   edit1.Visible:=false;
   Label1.Visible:=false;
   DBLookupComboBox1.Visible:=true;
   SpeedButton1.Visible:=true;

end;

procedure TSearchFrm.SpeedButton1Click(Sender: TObject);
begin
with ADOQuery1 do
    begin
    close;
    sql.Text:='select *from client where clienttype='''+trim(DBLookupComboBox1.Text)+''''  ;
    open;
    end;
end;

procedure TSearchFrm.Edit1Change(Sender: TObject);
begin
    with ADOQuery1 do
    begin
    close;
    sql.Text:='select *from client where clienttel like '''+trim(Edit1.Text)+'%'+''' ' ;
    open;
    end;
end;

procedure TSearchFrm.FormShow(Sender: TObject);
begin
with ADOQuery2 do
begin
close;
sql.Text:='select  distinct typedocument from companytype' ;
open;
end;
with ADOQuery1 do
begin
close;
sql.Text:='select *from client';
open;
end;
end;

end.