数据库(数据查询)
来源:互联网 发布:手机出租车计价软件 编辑:程序博客网 时间:2024/04/29 01:43
数据库(数据查询)
步骤一:开始---程序---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;
- 数据库(数据查询)
- 数据库实验二( 数据查询 )
- SQLite初识(八)数据库--查询数据
- 查询数据库重复数据
- 数据库XML数据查询
- 数据库查询前几条数据
- 数据库 - 数据查询
- 数据库:数据的查询
- 【数据库】Mysql数据查询
- 数据库之数据查询
- 数据库里查询数据
- MySQL数据库查询数据
- 数据库左连接查询(查询多张表中的数据)
- PHP查询数据库数据(单条查询)
- 【数据库,索引,大批数据查询】
- 查询数据库里的数据
- Mysql数据库查询重复数据
- 数据库原理3---查询数据
- 数据库1(基本编辑操作)
- C中获取文件长度的方法
- DATALENGTH 和 LEN的区别
- 在SQL Server 2005中创建数据库镜像的步骤及事项
- Ping命令和网络端口:
- 数据库(数据查询)
- textview 的onDraw()方法被重写后,文字被覆盖掉了的解决办法
- 如何避免Android内存泄漏
- 谷歌发布“加强版”Google Map 3D地标模式技术
- 6573 背光控制
- 数据库(多表关连)
- 国内外软件开发上的差距与分析
- JScrollPane实现自动滚动到底部
- (四)2005年我的第一次软件行业创业,烧掉30万、2年时间打水漂的惨痛教训