各位高手我才学习delphi但是现在遇到点问题想问问你们,希望得到指点,
我在做一个客户管理系统,现在想查询数据库中的记录,所有客户记录都在一个表中,也就是只对单表操作,我用ADO连接数据库,按公司名称和法人两中查询,不知道怎么写,另外,我想统计我查询出来的记录数量,不知道怎么弄,有没有示例之类的,我先谢谢了。急在线等!
我在做一个客户管理系统,现在想查询数据库中的记录,所有客户记录都在一个表中,也就是只对单表操作,我用ADO连接数据库,按公司名称和法人两中查询,不知道怎么写,另外,我想统计我查询出来的记录数量,不知道怎么弄,有没有示例之类的,我先谢谢了。急在线等!
解决方案 »
- 请问哪里有DirectX7.0 SDK For Delphi下?
- 窗体自动载入``及自动隐藏有人会吗?
- 不想让主窗体出现滚动条? 怎么办?
- Linux的RCE认证工程师怎么样啊?
- 奇怪的编译问题1
- fastreport 中的主项数据对应的字段的值变得庞大无比(原值是0,显示出来是23986176)
- 请问有什么好的串口调试工具,可以模拟串口发送数据的???????
- 还是屏蔽系统功能键的问题!!
- 请问在DBGRID中怎样使标题头中的网格线与工作区中的网格线一样是灰色的。能否给我程序段。不胜感谢
- 高手请进!!多媒体方面
- 天热,人心也比较浮。很久不来Csdn感觉大家好像讨论的还是这些问题,我建议大家思考思考。。。。
- ListView里面上下移动Item的问题
SQLCmd:="select * from 表 where 公司名称='"+公司名称+"',and 法人='"+法人"'"
with adoquery1 do
begin
.close;
.sql.clear;
.sql.add(SQLCmd);
.open
end;
然后就可以得到查询的结果了
C是算个数,S是算总和数
var
datatemp,querystr:string;
begin
if radiobutton1.checked then datatemp:='company_name';
if radiobutton2.checked then datatemp:='corporation';
if checkbox1.Checked then
datatemp:=datatemp+' like "'+edit3.Text+'%"'
else datatemp:=datatemp+'="'+edit3.Text+'"';
querystr:='select company_name,login_id,login_fund,login_datetime,corporation,phone';
querystr:=querystr+'from client_manage ';
querystr:=querystr+'where ';
querystr:=querystr+'and '+datatemp;
querystr:=querystr+'order by company_name';
dm.ADOQuery1.Close;
dm.ADOQuery1.SQL.Clear;
dm.ADOQuery1.SQL.Add(querystr);
dm.ADOQuery1.open;
var str:string;
begin
if (combobox1.Text='company_name') or (combobox1.Text='corporation') then
begin
str:='select * from client_manage where ';
str:=str+combobox1.Text+' like ''';
str:=str+'%' +edit1.Text+'%''';
end
else
str:='select * from client_manage ';
adoquery1.Close;
adoquery1.SQL.clear;
adoquery1.SQL.Add(str);
adoquery1.Open;
end;
我已经试验过了!