with CheckUserForm.ADOQuery1 do
begin
Close;
SQL.Clear;
SQL.Add('Select * from card where id=1');
Open;
end;
Edit3.Text:=CheckUserForm.ADOQuery1.FieldByName('cardname').AsString;
Edit4.text:=CheckUserForm.ADOQuery1.FieldByName('cardbank').AsString;
begin
Close;
SQL.Clear;
SQL.Add('Select * from card where id=1');
Open;
end;
Edit3.Text:=CheckUserForm.ADOQuery1.FieldByName('cardname').AsString;
Edit4.text:=CheckUserForm.ADOQuery1.FieldByName('cardbank').AsString;
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货