两个不同的窗体,代码一样也会出错,想不通:List index out of bounds(0)

Question

错误信息:List index out of bounds(0)
本人在其他窗体中也这样写没问题,为什么到login窗体就出错了,想不明白,请高手指点.procedure Tlogin_form.ok_Button_codeClick(Sender: TObject);
begin
  With Query_lgoin do
  begin
    Close;
    SQL.Clear;
    SQL.Add('select * from C_admin' );
    SQL.Add('where c_user=:c');
    Parameters[0].Value:=user_edit.Text;
    ExecSQL;
    Open;
    if not(RecordCount>0)then showmessage('用户名不存在');
    else
    ModalResult:=mrOk;
  end;
end;

Answer 1

ExecSQL; ?? 
Open; ?? 查询用open就行了 要exesql干啥

Answer 2

就是，要么用OPEN，要么用ExecSQL，而且是有条件区别的

Answer 3

有返回结果集的用OPen,否则用Execsql

Answer 4

先谢谢各位
好就算不用ExecSQL; 用open;
一样会出相同的错误

Answer 5

把ADOConnection放在login窗体上运行以上代码就正常,
把ADOConnection放到DM_form上uses过来,运行以上代码就出错??

Answer 6

是否Login form运行的时候，DM_form还没有创建。

Answer 7

是否Login   form运行的时候，DM_form还没有创建。对了,为是让login第一时间出来,把它插到Application.CreateForm(TDM_Form, DM_Form)前面去了,
验证正确才能往下走,所以.....谢谢了~~