ADOQuery的使用出现问题

                            
procedure   TForm6.FormCreate(Sender:   TObject);   
      var  
          s   :   string;  
  begin  
      button1.Enabled   :=   false;  
      button2.Enabled   :=   false;  
      button9.Enabled   :=   false;  
   
      with   PersonnelData.ADOQuery1   do  
      begin  
          close;  
          sql.clear;  
          s   :=   'select   *   from   Preson_info';  
          sql.Add(s);  
          open;  
   
          if   RecordCount   >=1   then  
              begin  
                  edit1.Text   :=   FieldValues['EmployeeID'];  
              end  
   
   
   
   
   
  procedure   TForm6.Button3Click(Sender:   TObject);  
  begin  
      PersonnelData.ADOQuery1.Next;  
      edit1.Text   :=   PersonnelData.ADOQuery1.FieldValues['EmployeeID'];  
  end;  
   
  我想在初始化时在edit1中填入第一条记录的信息  
    然后点下一条     edit1再显示下一条记录的信息  
   
  上面的为什么不能达到目的啊       老是说EmployeeID没有找到         是什么原因啊  
        应该怎么做啊

查看回复