procedure BizFormShow(Sender: TObject);
var
lsqldateset: TSQLDataSet;
begin
lsqldateset := TSQLDataSet.Create(Self);
lsqldateset.Database.URL := Biz:\KCXT\HQIDB.Database;
with lsqldateset do
begin
SQL.Text := 'SELECT * FROM XXX';
Open;
while not Eof do
begin
cboModuleID.Items.Append(FieldByName('XXX_NAME').AsString);
ModuleIDList.Append(FieldByName('XXX_ID').AsString);
Next;
end;
Close;
end;