在Combo_Box中添加记录

procedure TEnter_F.FormCreate(Sender: TObject);
var
   DLYH_Q:TADOQuery;
begin
   Connect:=TADOConnection.Create(nil);
   Connect.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source=./Data.mdb;Persist Security Info=False';
   Connect.LoginPrompt:=false;
   DLYH_Q:=TADOQuery.Create(nil);
   DLYH_Q.Connection:=Connect;
   DLYH_Q.SQL.Clear;
   DLYH_Q.SQL.Add('select 姓名 from 登录用户');
   DLYH_Q.Open;
   if DLYH_Q.RecordCount >0 then
      while not DLYH_Q.Eof do
        begin
         XM_CB.Items.Add(DLYH_Q.FieldValues['姓名']);
         DLYH_Q.Next;
        end;
   DLYH_Q.Close;
   FreeAndNil(DLYH_Q);
   XM_CB.ItemIndex:=0;
end;