刚学DELPHI,看到很多都是用sql查询用数据桌面建立的表,如1.db,2.db.因为比较简单,想不用sql查询,哪位能不能举个组合查询的例子,如1.db中有姓名,性别,成绩,学号,想通过姓名和成绩查询..望举例

解决方案 »

  1.   

    不好意思,因为刚学,没说清楚
    程序界面很简单,没有combox,grid,只想对查询后的结果做处理.
    比如:
    main表
    属性:
    maintag,mainnum,tag,subtag,data
    sub表
    subtag,subnum,tag,subtag1
    想对tag和subtag进行组合查询
    比如,tag为120,subtag为b
    查询后想对结果进行处理(如把data调出),filter过滤后能调用结果吗?能不能说详细点啊?谢谢拉
      

  2.   

    procedure Txs_check.SpeedButton1Click(Sender: TObject);
    begin
     With Data.ADOTXx do
         Close;
         Data.ADOTXx.Open;
        if (combobox1.Text='')or(Edit1.Text='') then
          begin
             application.MessageBox('请选择查询方式和输入查询内容.','提示',mb_OK);
             // showmessage('请选择查询方式和输入查询内容')
          end
          
        else
          begin
            if combobox1.Text='学号' then Data.ADOTXx.filter:='ID='''+edit1.Text+'''';
            if combobox1.Text='姓名' then Data.ADOTXx.filter:='name='''+edit1.Text+'''';
            if combobox1.text='班级' then Data.ADOTXx.filter:='glass='''+edit1.Text+'''';
              Data.ADOTXx.open;
              Data.ADOTXx.filtered:=true;
           if (DBEdit1.Text='') and (DBEdit2.Text ='') and (DBEdit3.Text='') then
             begin
                messagebeep(1);
                Application.MessageBox('没有符合条件的记录!','提示',mb_OK);
                //showmessage('没有符合条件的记录!');
              if messagedlg('是否继续查询?',mtinformation,[mbyes,mbno],0)=mrno then
                 begin
                  Data.ADOTXx.filtered:=false;
                 end
             end;
         end;
    end;
    你看一下吧!
    这个代码我自己写的,很详细了。
    有什么问题可以用QQ与我联系!
    QQ:122435086
    大家都可以加为好友便与学习和交流!
    来者说明身份~
      

  3.   

    table,combox
    那么
    'select * from table where a='+ (combox1.text)+ 'and  b='+(combox2.text)'';?