求救~~~一个关于用户登陆的问题？

Question

我用一个Edit1来输入用户名，一个Edit2来输入密码，然后用Button1来确认，建了个表来放用户名和密码，那检验密码的代码应该怎么编写呢？要添加新用户名和修改密码又应该怎么实现啊？
救救小弟吧~

Answer 1

用SQL语句进行密码的检验，添加用户名和修改密码可以放在系统维护中。

Answer 2

http://www.xmflyfish.com/awind/permis.rar  里面有你想要的，下载下去看一看

Answer 3

给你一段登陆代码参考一下procedure TForm_Login.Button1Click(Sender: TObject);
var
  SQLString, Password:string;
begin
  SQLString:='Select * From User Where Account='''+Edit1.Text+'''';
  with ADOQuery1 do
    begin
      Close;
      SQL.clear;
      SQL.ADD(SQLString);
      ExecSQL;
      Active:=True;
    end;
  Password:=Edit2.Text;
  if ADOQuery1.RecordCount<>0 then
    if Password=ADOQuery1.Fields.Fields[1].AsString then
      begin
        MessageBox(handle, '正确登陆！', '注意', MB_OK or MB_ICONINFORMATION);
      end
    else
      begin
        MessageBox(handle, '密码不正确！', '注意', MB_OK or MB_ICONINFORMATION);
        Edit2.SetFocus;
      end
  else
    begin
      MessageBox(handle, '该帐户不存在！', '注意', MB_OK or MB_ICONINFORMATION);
      Edit1.SetFocus;
    end;
end;

Answer 4

unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, ADODB, StdCtrls;type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Edit2: TEdit;
    Button1: TButton;
    Button2: TButton;
    ADOTable1: TADOTable;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementationuses Unit2;{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
        if not adotable1.Locate('name',edit1.Text,[]) then
          showmessage('不存在这个用户,登陆失败')
          else
            if adotable1.FieldValues['password']=edit2.Text then
            begin
            form2.Show;
            form1.Hide;
            end
            else
             begin
              showmessage('密码错误,请从新登陆');
              application.Terminate;
            end;end;procedure TForm1.Button2Click(Sender: TObject);
begin
form1.close;
end;end.
-------------------------------------------------
这个比较简单,也容易看懂........