procedure TFLogin.FormCreate(Sender: TObject);
begin
with dmdb do
begin
adoqu.Active:= False; //执行到这里出错。
adoqu.SQL.Clear;
adoqu.SQL.Add('select opname from opemp;');
adoqu.Active:= True;
if adoqu.RecordCount>0 then
while not adoqu.Eof do
begin
cboxName.Items.Add(adoqu.FieldValues['opname']);
adoqu.Next;
end;
end;end;
begin
with dmdb do
begin
adoqu.Active:= False; //执行到这里出错。
adoqu.SQL.Clear;
adoqu.SQL.Add('select opname from opemp;');
adoqu.Active:= True;
if adoqu.RecordCount>0 then
while not adoqu.Eof do
begin
cboxName.Items.Add(adoqu.FieldValues['opname']);
adoqu.Next;
end;
end;end;
if adoqu.Active = true then
adoqu.Active:= False;
这个mail是你的吧?
我把修改好的给你发过去了。
你上QQ吧:)