procedure TUserDetail.ComboBox1DropDown(Sender: TObject);
var
i: Integer;
begin // 得到所有的用户的编号,显示在下来列表中,便于用户选择
combobox1.Clear;
with DM.GetUserName do
begin
close;
prepared := false;
prepared := true;
open;
if (RecordCount > 0) then
first;
for i := 0 to RecordCount - 1 do
begin
combobox1.Items.add(Fieldbyname('UserID').asstring);
next;
end;
end;
end;