如何做登陆程序?

Question

如何做一个登陆的程序呢?
登陆ACCESS数据库.
用ADOCONNECT连接的数据库,登陆ACCESS数据库的时候出来一个对话框的.
DELPHI中有例子吗?

Answer 1

if ADOTable1.locate('用户名',UserName.text,[] )then
    if ADOTable1.FieldByName('密码').asstring:=PassWord.text then
         begin
            ShowMessage('成功');
         end
      else
         ShowMessage('用户名或密码错误');
大概就是这样写吧，没调试过你试试