【delphi开源代码栏目提醒】:文章导读:在新的一年中,各位网友都进入紧张的学习或是工作阶段。网学会员整理了delphi开源代码-MainSearch.pas的相关内容供大家参考,祝大家在新的一年里工作和学习顺利!
unit MainSearch;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls, Grids, DBGrids, DB, ADODB;
type
TForm4 = class(TForm)
ADODataSet1: TADODataSet;
DataSource1: TDataSource;
DBGrid1: TDBGrid;
RadioGroup1: TRadioGroup;
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Edit4: TEdit;
Edit5: TEdit;
Button1: TButton;
Button2: TButton;
Label1: TLabel;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form4: TForm4;
implementation
uses Main;
{$R *.dfm}
procedure TForm4.Button1Click(Sender: TObject);
begin
if radiogroup1.ItemIndex<>-1 then
begin
case radiogroup1.ItemIndex of
0:begin
adodataset1.Filtered:=false; //使Filter属性失效
adodataset1.Filter:='Number='+''''+edit1.Text+'''';
//Filter属性用来过滤掉不需要的数据
//''''表示一个单引号
adodataset1.Filtered:=true;
end;
1:begin
adodataset1.Filtered:=false;
adodataset1.Filter:='Name='+''''+edit2.Text+'''';
//Filter属性值是一个字符串
adodataset1.Filtered:=true;
end;
2:begin
adodataset1.Filtered:=false;
adodataset1.Filter:='Sex='+''''+edit3.Text+'''';
adodataset1.Filtered:=true;
end;
3:begin
adodataset1.Filtered:=false;
adodataset1.Filter:='Speciality='+''''+edit4.Text+'''';
adodataset1.Filtered:=true;
end;
4:begin
adodataset1.Filtered:=false;
adodataset1.Filter:='Class='+''''+edit5.Text+'''';
adodataset1.Filtered:=true;
end;
end;
end;
end; //注意匹配end
procedure TForm4.Button2Click(Sender: TObject);
begin
form1.show; //显示窗体form1
end;
end.
上一篇:
MainScan.pas
下一篇:
哈弗F7 VS名爵HS,谁更懂得年轻人的心?