各位高手我才学习delphi但是现在遇到点问题想问问你们,希望得到指点,
我在做一个客户管理系统,现在想查询数据库中的记录,所有客户记录都在一个表中,也就是只对单表操作,我用ADO连接数据库,按公司名称和法人两中查询,不知道怎么写,另外,我想统计我查询出来的记录数量,不知道怎么弄,有没有示例之类的,我先谢谢了。急在线等!

解决方案 »

  1.   

    这不是才学习delphi的问题,你知道DDL语言吗?SQL的最基础的东东
      

  2.   

    这样子最基础的东西了。。兄弟要努力了哦。var SQLCmd:string;
    SQLCmd:="select * from 表 where 公司名称='"+公司名称+"',and 法人='"+法人"'"
    with adoquery1 do
    begin
         .close;
         .sql.clear;
         .sql.add(SQLCmd);
         .open
    end;
    然后就可以得到查询的结果了
      

  3.   

    select count(编号),sum(XX) from 表..
    C是算个数,S是算总和数
      

  4.   

    朋友谢谢啦,不过在查询的时候我是按照--公司名称和法人分别进行查询,是要选择的,我写的代码你帮我看看,如果不输入公司名称和法人,直接点查询,将显示所有数据库中的记录.
    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;
      

  5.   

    procedure TForm1.Button1Click(Sender: TObject);
    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;
    我已经试验过了!
      

  6.   

    Teng_s2000很高兴你给我写的代码,我试了,只能找一次啊。假如我查找“云南软件”呵呵按照公司名称可以找到,但是如果我接着要查找其他的就找不到了,比如我还想找“昆明软件公司”,结果还是跳到“云南软件”这条记录。请问是我哪里没有设置正确啊谢谢