singlesearch.pas

一个不错的信息管理系统

unit singlesearch;

interface

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

type
  TForm12 = class(TForm)
    Panel1: TPanel;
    Label1: TLabel;
    Bevel1: TBevel;
    Label2: TLabel;
    DBGrid1: TDBGrid;
    Button1: TButton;
    Button2: TButton;
    ComboBox1: TComboBox;
    Edit1: TEdit;
    DataSource1: TDataSource;
    ADOTable1: TADOTable;
    ADODataSet1: TADODataSet;
    ADOConnection1: TADOConnection;
    Memo1: TMemo;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure ComboBox1Change(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form12: TForm12;

implementation

{$R *.dfm}



procedure TForm12.Button1Click(Sender: TObject); //查询按钮的单击事件
var
s:string;
begin
s:='标识号=';
if combobox1.Text ='' then
application.MessageBox('请选择信息集','提示',32)
else
begin
if trim(edit1.Text)='' then
begin
adotable1.Filtered:=false;
adotable1.Active:=true;
end
else
begin
memo1.text:='';
memo1.Text:=s+''''+edit1.Text+'''';
adotable1.Filter:=memo1.Text;
adotable1.Filtered:=true;
adotable1.Active:=true;
end;
end;
end;

procedure TForm12.Button2Click(Sender: TObject); //退出按钮单击事件
begin
adotable1.Active:=false;
adotable1.TableName:='';
adotable1.Filter:='';      //使adotable的过滤器内容为空。
adotable1.Filtered:=false;  // 使adotable的过滤器功能为不可用。
combobox1.Text :='';
edit1.Text :='';
form12.Close;
end;


procedure TForm12.ComboBox1Change(Sender: TObject);
begin
case combobox1.ItemIndex of
0:begin
adotable1.Active :=false;
adotable1.TableName:='a01';
edit1.Text :='';
end;
1:begin
adotable1.Active :=false;
adotable1.TableName:='a02';
edit1.Text :='';
end;
2:begin
adotable1.Active :=false;
adotable1.TableName:='a03';
edit1.Text :='';
end;
3:begin
adotable1.Active :=false;
adotable1.TableName:='a04';
 edit1.Text :='';
end;
4:begin
adotable1.Active :=false;
adotable1.TableName:='a05';
 edit1.Text :='';
end;
5:begin
adotable1.Active :=false;
adotable1.TableName:='a06';
 edit1.Text :='';
end;
6:begin
adotable1.Active :=false;
adotable1.TableName:='a07';
edit1.Text :='';
end;
7:begin
adotable1.Active :=false;
adotable1.TableName:='a08';
edit1.Text :='';
end;
8:begin
adotable1.Active :=false;
adotable1.TableName:='a09';
edit1.Text :='';
end;
9:begin
adotable1.Active :=false;
adotable1.TableName:='a10';
edit1.Text :='';
end;
10:begin
adotable1.Active :=false;
adotable1.TableName:='a11';
edit1.Text :='';
end;
11:begin
adotable1.Active :=false;
adotable1.TableName:='a12';
edit1.Text :='';
end;
12:begin
adotable1.Active :=false;
adotable1.TableName:='a13';
edit1.Text :='';
end;
13:begin
adotable1.Active :=false;
adotable1.TableName:='a14';
edit1.Text :='';
end;
14:begin
adotable1.Active :=false;
adotable1.TableName:='a15';
 edit1.Text :='';
end;
15:begin
adotable1.Active :=false;
adotable1.TableName:='a16';
 edit1.Text :='';
end;
16:begin
adotable1.Active :=false;
adotable1.TableName:='a17';
 edit1.Text :='';
end;
17:begin
adotable1.Active :=false;
adotable1.TableName:='a18';
 edit1.Text :='';
end;
18:begin
adotable1.Active :=false;
adotable1.TableName:='a19';
 edit1.Text :='';
end;
19:begin
adotable1.Active :=false;
adotable1.TableName:='a20';
 edit1.Text :='';
end;
20:begin
adotable1.Active :=false;
adotable1.TableName:='a21';
  edit1.Text :='';
end;
21:begin
adotable1.Active :=false;
adotable1.TableName:='a22';
edit1.Text :='';
end;
22:begin
adotable1.Active :=false;
adotable1.TableName:='a23';
edit1.Text :='';
end;
23:begin
adotable1.Active :=false;
adotable1.TableName:='a24';
edit1.Text :='';
end;
24:begin
adotable1.Active :=false;
adotable1.TableName:='a25';
edit1.Text :='';
end;
25:begin
adotable1.Active :=false;
adotable1.TableName:='a26';
edit1.Text :='';
end;
26:begin
adotable1.Active :=false;
adotable1.TableName:='a27';
edit1.Text :='';
end;
27:begin
adotable1.Active :=false;
adotable1.TableName:='a28';
edit1.Text :='';
end;
28:begin
adotable1.Active :=false;
adotable1.TableName:='a29';
edit1.Text :='';
end;
29:begin
adotable1.Active :=false;
adotable1.TableName:='a30';
 edit1.Text :='';
end;
30:begin
adotable1.Active :=false;
adotable1.TableName:='a31';
edit1.Text :='';
end;
31:begin
adotable1.Active :=false;
adotable1.TableName:='a32';
edit1.Text :='';
end;
32:begin
adotable1.Active :=false;
adotable1.TableName:='a33';
edit1.Text :='';
end;
33:begin
adotable1.Active :=false;
adotable1.TableName:='a34';
edit1.Text :='';
end;
34:begin
adotable1.Active :=false;
adotable1.TableName:='a35';
 edit1.Text :='';
end;
35:begin
adotable1.Active :=false;
adotable1.TableName:='a36';
 edit1.Text :='';
end;
36:begin
adotable1.Active :=false;
adotable1.TableName:='a37';
edit1.Text :='';
end;
37:begin
adotable1.Active :=false;
adotable1.TableName:='a38';
 edit1.Text :='';
end;
38:begin
adotable1.Active :=false;
adotable1.TableName:='a39';
edit1.Text :='';
end;
39:begin
adotable1.Active :=false;
adotable1.TableName:='a40';
 edit1.Text :='';
end;
40:begin
adotable1.Active :=false;
adotable1.TableName:='a41';
edit1.Text :='';
end;
41:begin
adotable1.Active :=false;
adotable1.TableName:='a42';
edit1.Text :='';
end;
end;
end;
procedure TForm12.FormClose(Sender: TObject; var Action: TCloseAction);
begin
adotable1.Active:=false;
adotable1.TableName:='';
combobox1.Text :='';
edit1.Text :='';
form12.Close;
end;

end.