数据库(数据查询)

原创 2012年03月21日 16:28:30

数据库(数据查询)

 

步骤一:开始---程序---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;

 

SQl查询数据库表名、表的列名、数据类型

1.获取所有数据库名:    Select Name FROM Master..SysDatabases order by Name 2.获取所有表名:     (1) Select Name ...

ECLIPES+ACCESS数据库查询数据代码

  • 2012年05月12日 19:21
  • 565B
  • 下载

导出(下载)数据库查询的数据生成csv文件

@SuppressWarnings({ "unchecked" }) public String downLoadCsvFile(){ System.out.println("下载csv提现对账...

练习:连接数据库并查询数据

  • 2012年02月02日 13:48
  • 47KB
  • 下载

Android连接服务器数据库查询+Gson解析(List和Map)格式json数据(二)

1、Android主要代码 package com.pdsu.libsys; import java.lang.reflect.Field; import java.lang.reflect.Ty...

数据库中数据查询优化

  • 2012年01月06日 15:20
  • 3KB
  • 下载
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:数据库(数据查询)
举报原因:
原因补充:

(最多只允许输入30个字)