Question

delphi 登入账号密码验证 怎么写呢

access数据库连接 怎么写呢

Answer 1

procedure TLoginForm.FormCreate(Sender: TObject);
begin //获取数据库用户表中的用户名，在ComboBox1显示
uname := ComboBox1.text;
pass := Edit1.Text;
dm.ADO_user.Open;
while not dm.ADO_user.Eof do
begin
ComboBox1.Items.Add(dm.ADO_user.fieldbyname('userName').AsString);
dm.ADO_user.Next;
end;
ComboBox1.ItemIndex:=0;
end;

procedure TLoginForm.SpeedButton1Click(Sender: TObject);
var
k1:variant; //定义变量
begin
uname := combobox1.text;
k1 := dm.ADO_user.Lookup('userName',uname,'password') ;
if varisnull(k1) then pass := '' else pass := k1;
if uname = '' then
begin ShowMessage('您还没有填写用户名！');
exit;
ComboBox1.SetFocus;
end
else if edit1.Text = '' then
begin ShowMessage('您还没有填写密码！');
exit;
edit1.SetFocus;
end
else if edit1.Text <> pass then
begin
Application.MessageBox(pchar('用户名或密码错误！'),pchar('提示'),mb_iconquestion);
edit1.text := '';
edit1.setfocus();
exit;
end;
dm.ADO_user.Close;
LoginForm.Hide;
MainForm.ShowModal ;
end;
注：dm为数据模块的名字。ADO_user为ADOtable的名字，LoginForm为登录窗体的名字，MainForm为主窗体的名字，即登陆成功后进入的窗体。
uname,pass为定义的全局变量。定义方法如下：
public
{ Public declarations }
uname,pass:string; //定义变量
end;

数据库连接：
在窗体中加ADOtable，DataSource1，ADOConnection1，DBGrid1还有SpeedButton1和ComboBox1。ADOConnection1中属性ConnectionString连接到你的数据库（选择连接到你的数据库路径），lohinprompt属性为false；DBGrid1中属性DataSource为DataSource1；DataSource1控件dataset属性为ADO_user；ADO_user控件中属性Connection为ADOConnection1，TableName属性为TB_user(即用户表的名字)。