2、,密码错误的时候会提示,然后要求重新输入,未设置密码的时候不用填写就可以直接登陆了,系统设置是只要在数据库中存在的权限管理用户都会显示在用户框中。为方便了解开发细节,我截取了本窗口的代码进行分析:ifQuery1.FieldByName('编号').AsString='controller'then //如果是系统管理员 begin ifEdit1.Text<>Query1.FieldByName('密码').AsStringthen begin ShowMessage('['+Query
3、1.FieldByName('姓名').AsString+']的口令错误,请重新登陆'); //口令错误 Edit1.SetFocus; End Else begin MainForm.StatusBar1.Panels[1].Text:='用户['+Query1.FieldByName('姓名').AsString+']'; DYYLBrose.StatusBar1.Panels[1].Text:='用户['+Query1.FieldByName('姓名').AsString+']