数据库表中的内容我读是这样读的： begin ComboBox.Items.Clear; ADOTable1.First; While Not ADOTable1.EOF do begin ComboBox.Items.Add(ADOTable1.Fields[0].AsString); ADOTable1.Next; end; 然后比较如何比较呢， if ComboBOX.Text='' then Application.MessageBox('请输入用户名称和密码。','警告',MB_OK) else begin 就是这边如何写，如果不是空的，要比较他填入的内容是否和表中的一样。

------
我的编程起步于ktop，我将永远支持ktop

Hi ntjrr,

1.
procedure TForm1.FormCreate(Sender: TObject);
begin
  ComboBox1.Items.Clear;
  ComboBox2.Items.Clear;
  ADOTable1.First;
  While Not ADOTable1.EOF do
    begin
      ComboBox1.Items.Add(ADOTable1.Fields[0].AsString); // USER ID
      ComboBox2.Items.Add(ADOTable1.Fields[1].AsString); // Password
      ADOTable1.Next;
    end;
end;    procedure TForm1.Button1Click(Sender: TObject);
var
  i : integer;
begin
  i := ComboBox1.Items.IndexOf(ED_USER_ID.Text);
  if i = -1 then
    Application.MessageBox('使用者帳號錯誤！','警告',MB_OK)
  else
    begin
      if ComboBox2.Items.Strings[i] = ED_PASSWORD.Text then
        Application.MessageBox('登入成功！','成功',MB_OK)
      else
        Application.MessageBox('使用者密碼錯誤！','警告',MB_OK)
    end;
end;    或是
2.
procedure TForm1.Button1Click(Sender: TObject);
begin
  if ADOTable1.Locate('id;passstring',VarArrayOf([ED_USER_iD.Text,ED_password.Text]),[]) then
    Application.MessageBox('登入成功！','成功',MB_OK)
  else
    Application.MessageBox('帳號或密碼錯誤。','警告',MB_OK)
end;

發表人 -

------
Fishman