在线等，如何写一个登陆的程序？

Question

我用的是ACCESS和ADOQUERY
还有combobox,edit,两个button
我怎么写都是错的
combobox下拉怎么不出来数据库的东西
谢谢各位高手了

Answer 1

如果combobox里要显示所有的用户名,需要你写程序一条一条加进去

Answer 2

不是高手，combobox你要先赋值进去才能下拉啊！给你一段代码权做参考：
(其中一些是全局变量)
var
  i: Integer = 3;{$R *.dfm}procedure TfrmLogin.bbtnloginClick(Sender: TObject);
var
  aqPer: TADOQuery;
begin
  if edtuid.Text <> '' then
  begin
    Dec(i);
    aqPer := TADOQuery.Create(nil);
    aqPer.Connection := dmPer.acPer;
    aqPer.SQL.Text := 'select * from admin where uid=' + QuotedStr(Trim(edtuid.Text)) + '';
    aqPer.Open;
    if not aqPer.Eof then
    begin
      if aqPer.FieldByName('pwd').AsString = edtpwd.Text then
      begin
        sUserID := Trim(edtuid.Text);
        sUserPwd := edtpwd.Text;
        if aqPer.FieldByName('sys').AsBoolean then
          sysadmin := true
        else
          sysadmin := false;
        self.ModalResult := mrOk;
      end
      else
      begin
        MessageBox(self.Handle, '密码有误,请重新输入!', '提示',  mb_IconWarning + mb_Ok);
        edtPwd.Clear;
        edtPwd.SetFocus;
        Exit;
      end
    end
    else
    begin
      if i = 0 then Close;
      MessageBox(self.Handle, '账号不存在,请重新输入!', '提示',  mb_IconInformation + mb_Ok);
      edtUid.Clear;
      edtUid.SetFocus;
      Exit;
    end;
  end
  else
  begin
    MessageBox(self.Handle, '请输入账号!', '提示',  mb_IconInformation + mb_Ok);
    edtUid.SetFocus;
    Exit;
  end;
end;  

Answer 3

代码中没用到Combobox，你做相应处理就是了

Answer 4

with query do 
begin 
  close;
  sql.text:='select name,pass from login';
  open;
   first;
   while not eof do 
   begin
     combobox.item.add(files[1].value); 
  end;
end;

Answer 5

dbcombobox连接数据库呀！或者用combobox

Answer 6

同意用dbcombobox，呵呵。
也同意menggirl(看天上浮云，胜似闲庭信步)的方法。

Answer 7

如果是数据库程序的登陆,就用dblookupcombobox控件啊,放上去指定字段就行了,不需要自己添加的

Answer 8

用dbcombobox连接datasource获得字段

Answer 9

dbcombobox可以直接读取数据库的数据，要是用combobox则要一条条的自己添加