在线等待

Question

数据库是SQLSERVER2000
开发工具是DELPHI
table1包括用户名和密码两个字段
怎么做一个登录界面（用ado连接）
谢谢

Answer 1

我的项目文件中一段:
FormLogin := TFormLogin.Create(Application);  //登陆窗口
FormLogin.ShowModal;
FormLogin.Hide;
FormLogin.Update;
if  FormLogin.isInvalidUser then //判断是否合法用户
  Application.CreateForm(TFormMain, FormMain); //主窗口
FormLogin.free;
Application.Run;
函数isInvalidUser :
query.close; Query.sql.clear;
query.sql.add('select * From table where Id = ''' + EditUserName.Text + '''');
Query.open;
if (query.RecordCount > 0) and  (query.FieldByName('PassWord').asString =
                 EditUserPassWord.Text) 
  Result = true
else 
  Result = false;
  
table.FieldByName(

Answer 2

1，建立一个工程，包含一个窗体，两个编辑框（用户名和密码框）和一个按钮；
2，加上一个TADOQuery组件（ADOQuery1)；
3，设置ADOQuery1的ConnectionString属性，连接数据库;
4,在按钮的OnClick事件里写代码:
ADOQuery1.Close;
  ADOQuery1.SQL.Text := Format('select UserName,Password from Table1 where'
    +' UserName=''%s'' and Password=''%''',[edtUserName.Text,edtPassword.text]);
  ADOQuery1.Open;
  if ADOQuery1.RecordCount = 1 then
    showmessage('OK')
  else showmessage('invalid UserName ro Password');

Answer 3

假设数据集名为 adoquery1
adoquery1的sqlSELECT u.user_name, u.user_password
  FROM user_info u
  WHERE user_name = :NAME
    AND user_password = :PASSWORD程序中，（假设输入用户名的编辑框名为edtUserID，输入密码的编辑框名为edtPass）  if length(trim(edtUserID.Text)) <> 0 then
  begin
    adoquery1.Close;
    adoquery1.Parameters.Items[0].Value := edtUserID.Text; //Parameters 1:UserID
    adoquery1.Parameters.Items[1].Value := edtPass.Text;   //Parameters 2:Pass    try
      adoquery1.Open;
    except
      on E:Exception do // Open table Error
        ShowMessage(E.Message);
    end;    adoquery1.Last;
    if adoquery1.RecordCount <= 0 then  // UserID or Password is Error
    begin
      ShowMessage('UserID or Password is Error!');
      exit;
    end;
  end
  else
  begin
    ShowMessage('Please input UserID and Password!');
    exit;
  end;

Answer 4

为什么，以下代码不可以
adotable1.filter:='username:='+''''+'useedit.text'+'''';
adotable1.filterd:=true;
if adotable['pword']=pwordedit then
showmessage('ok');