关于delphi中，ado的几个简单应用？

我的程序如下  
  begin  
      ADOQuery1.SQL.Clear;  
      ADOQuery1.Close;  
      if   combobox2.Text:=   '资料ID'   then  
        //begin  
      ADOQuery1.sql.Text:='select   *   from   业务资料库   where   '  
      +'资料ID'+'   =   '+''''+'%'+edit1.text+'%'+'''';  
        //else  
      ADOQuery1.sql.Text:='select   *   from   业务资料库   where   '  
      +ComboBox2.text+'   like   '+''''+'%'+edit1.text+'%'+'''';  
      ADOQuery1.Active:=true;  
        //end;  
          end;  
  　　我用的是adoquery,以下问题能给出例子的最好能给出例子，不胜感激。  
  问题1、上面的程序有三行屏蔽了，否则不能运行，为什么？  
          2、=   和like这两个命令的标准格式到底是啥？使用时要注意啥，我老用不对！  
          3、用资料id查询时如果edit1为空，如何让grid显示全部记录？  
          4、怎样实现当前是第_条记录，跳转到_条？当我添加一条记录时，怎样让共有_条记录也实时更新？  
          5、   panel   groupbox等控件如何让其透明，因为我最后放它，却老是覆盖其它控件？  
  　　６、好多控件的autosize怎么用？还有indexname?  
  　　7、怎样让edit中只能输入数字，当输入其它时弹出一提示对话框？  
  　　８、请给出一个提示是否真的退出的例子？  
  　　９、怎样做界面啊？我的界面现在丑的要死！郁闷！！！  
  　　１０、如何实现，选中一复选框之后就选中了grid中的一条记录？  
  注：我是新手，我的邮箱是[e-mail]。我会非常感谢您！

第一：仔细看一下程序    
  if()   then    
  begin  
  else  
  end;  
  语法有问题，应该是    
  if   ()   then    
  begin    
  end    
  else    
  begin    
  end;  
  第二：  
  SQL里面   =   是精确匹配   like   是模糊匹配

第三：可以加个判断  
  if   edit1.text   =   ''   then    
  ADOQuery1.sql.Text:='select   *   from   业务资料库    
  else  
  ADOQuery1.sql.Text:='select   *   from   业务资料库   where   '  
      +'资料ID'+'   =   '+''''+'%'+edit1.text+'%'+'''';  
   
  第四：用While遍历整个记录集  
  第五：Visible属性可以控制是否显示

第六：AutoSize是用在界面大小发生变化时，是否自动变化的  
  第七：在Edit的OnkeyPress事件中加限制  
  第八：用MessageBox  
  if   MessageBox(0,'你真的要退出吗？','警告',MB_OKCANCEL+MB_ICONWARNING)=IDOK   then  
            begin  
                      close;  
            end;  
  第九：这个没办法  
  第十：在复选框的OnClick事件中做处理

回答有点简单，不过还是多谢你了，有没有人能给个例子什么的，第四个还不明白怎么用？谢谢

哇,你的问题不少啊,都是基础问题.最后多看看书....  
  这个得给个完整的小程序你,你就明白了.

基础书多看下  
  procedure   TForm1.Edit1KeyPress(Sender:   TObject;   var   Key:   Char);  
  begin  
        if   key   in['0','1','2','3','4','5','6','7','8','9']   then  
            Edit1.Text:=Edit1.Text+key  
        else  
        exit;  
  end;

procedure   TForm1.Edit2KeyPress(Sender:   TObject;   var   Key:   Char);  
  begin  
  if   (not   (Key   in   ['0'..'9']))   and   (not(key   in['.']))and   (key<>#8)     then  
            Key   :=#0;  
  end;  
   
  这样比较好.

问题一:   因为你的if   条件   then   后面的语句  
      ADOQuery1.sql.Text:='select   *   from   业务资料库   where   '  
      +'资料ID'+'   =   '+''''+'%'+edit1.text+'%'+'''';      
      最后这个分号要去掉.  
   
      if   条件1   then  
          执行的程序段,如果只是一句,则后面不加要分号,否则用begin   程序段   end   (也没有分号)  
      else     begin   //此处同理  
      end;  
  问题二:   =   是精确查询     like是模糊查询     like   '%查询条件%'     可以加前后%,查一下数据库的资料  
  问题三:在查询时,需要拼SQL语句,如果   trim(edit1.text)<>''   时,你把id的查询条件加上,否则不加  
  问题四:这个没太清楚你的问题  
  问题五:可以将其点右键,   control->send   to   back就在最后了  
  问题六:autosize是自动调节控件大小,indexname具体没注意过  
  问题七:      
  在   onkeypress事件中加入如下代码(可以自己确定想让它能输入什么):  
  if   not(Key   in   ['0'..'9',#8,'-'])   then   Key   :=   #0;  
  问题八:application.Terminate   而且没明白你指的真正退出是什么   ,一般只要主窗体close了,整个进程就关了,相当于程序退出了  
  问题九:界面自己多看看相关的程序  
  问题十:这个看我用什么控件

--------------------------
新闻：专注、极致、快、口碑 互联网创业的葵花宝典
导航：博客园首页  知识库  新闻  招聘  社区  小组  博问  网摘  找找看