数据库（数据查询）

数据库（数据查询）

 

步骤一：开始---程序---Borland Delphi 6---BDE---Object---New---OK(默认STANDARD)---PATH---设置为含有数据库文件的目录下。

步骤二：向Form1中添加Table组件（BDE组中），DatabaseName---STANDARD1(上一步创建的)，TableName---Pza.DBF。添加DataSource 组件（DataAccess组中），DataSet---Table1。添加DBGrid组件（Data Controls 组中） DataSource---DataSource1。

向Form1中添加5个Edit（依次为Edit1至Edit5）,两个用于查询编号，两个用于查询日期，一个用于查询备忘录。3个Lable组件，用于标示这5个Edit的功能。1个Button, Caption----筛选。

步骤三：1.Form1--- OnActivate:

        Table1.Open;

        2. Datasource1---AutoEdit:false;

        3.Button1:

         var s:string;

begin

s:='';

ifedit1.Text<>'' then s:=s+'NO>='+edit1.text+' and ';

ifedit2.Text<>'' then s:=s+'NO<='+edit2.Text+' and ';

if(edit1.Text<>'') or (edit2.Text<>'') then s:=copy(s,1,length(s)-5);

if(edit3.Text<>'') or (edit4.Text<>'') then

ifs<>'' then  s:=s+' and ';

ifedit3.Text<>'' then s:=s+'DATE>='+edit3.Text+' and ';

ifedit4.Text<>'' then s:=s+'DATE<='+edit4.Text+' and ';

if(edit3.Text<>'') or (edit4.Text<>'') then s:=copy(s,1,length(s)-5);

if(edit5.Text<>'')then

begin

ifs<>'' then s:=s+' and ';

s:=s+'MEMO='''+edit5.Text+'*''';

end;

table1.Filtered:=false;

table1.Filter:=s;

table1.Filtered:=true;

showmessage(s);

end;