例如: procedure TForm1.FormShow(Sender: TObject); begin with ADOQuery1 do(这是用ADO连接的) begin if Active then Close; SQL.Clear; SQL.Add('select * from ClassInfo where '+suiCombobox1.Text+''); Open; end; end;
我的ADOQuery1在数据模块里写的就是select * from ClassInfo,初始化都为打开的。
我写不到DBgrid的代码。
procedure TForm1.FormShow(Sender: TObject);
begin
with ADOQuery1 do(这是用ADO连接的)
begin
if Active then
Close;
SQL.Clear;
SQL.Add('select * from ClassInfo where '+suiCombobox1.Text+'');
Open;
end;
end;