在做优惠卡管理系统软件时,在输入时设计一个密码的功能,就是说如果管理员只有输入了密 码后才会对数据库操做,如何实现密码这个功能

解决方案 »

  1.   

    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;
      

  2.   

    把你的用户名称和密码存入数据库当中
    然后在登陆的窗体中判断用户名称和米玛是否正确然后再确定是否进入主界面的
    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;