1、直接去数据库中设置密码,如果不输入密码是不能对数据库操作的 2、在delphi中的Database控件中设置,首先把Connect设置为false; 例如: var AdmName,AdmPassword:string begin if AdmName<>'管理员的用户名' then begin showMessage('此用户不存在'); Application.terminate; end; if AdmAPassword<>'管理员的密码' begin showMessage('密码不对'); Application.terminate; end; Database.Connect:=true; end;
把你的用户名称和密码存入数据库当中 然后在登陆的窗体中判断用户名称和米玛是否正确然后再确定是否进入主界面的 With ADOQuery1 Do Begin Close; SQL.Clear; SQL.Add('SELECT COUNT(*) as Total FROM aa WHERE Name1=:Name1 AND Pass=:Pass'); Parameters.ParamByName('Name1').Value:=Edit_name.Text; Parameters.ParamByName('Pass').Value:=Edit_Pass.Text; If FieldByName('Total').AsInteger<1 Then ShowMessage('用户名称或密码错误!') Else 进入主界面! Open End;
2、在delphi中的Database控件中设置,首先把Connect设置为false;
例如:
var AdmName,AdmPassword:string
begin
if AdmName<>'管理员的用户名' then
begin
showMessage('此用户不存在');
Application.terminate;
end;
if AdmAPassword<>'管理员的密码'
begin
showMessage('密码不对');
Application.terminate;
end;
Database.Connect:=true;
end;
然后在登陆的窗体中判断用户名称和米玛是否正确然后再确定是否进入主界面的
With ADOQuery1 Do
Begin
Close;
SQL.Clear;
SQL.Add('SELECT COUNT(*) as Total FROM aa WHERE Name1=:Name1 AND Pass=:Pass');
Parameters.ParamByName('Name1').Value:=Edit_name.Text;
Parameters.ParamByName('Pass').Value:=Edit_Pass.Text;
If FieldByName('Total').AsInteger<1 Then
ShowMessage('用户名称或密码错误!')
Else
进入主界面!
Open
End;