初始化Tcombobox
//初始化cbbbusinesstype
with TADOQuery.Create(nil) do
begin
try
connection := TADOConnection(GDBConnection);
SQL.Text := 'SELECT distinct tb.c_businname FROM vaml_request tc, tbusinflag tb ' +#13#10
+ ' WHERE tc.c_businflag=tb.c_businflag '+#13#10
+ ' order by tb.c_businname ';
cbbbusinesstype.Items.Clear;
cbbbusinesstype.Items.Add('');
Open;
while not EOF do
begin
cbbbusinesstype.Items.Add(Fields[0].AsString);
Next;
end;
finally
Close;
Free;
end;
end;