delphi医嘱管理系统[开题报告＋论文＋源代码＋答辩ppt＋外文翻译](三)

var
  Frm_login: TFrm_login;

implementation

uses main,pulvar, mainN, passedit, passeditN;

{$R *.dfm}

procedure TFrm_login.Button2Click(Sender: TObject);
begin
     close;
     Application.Terminate;
end;

procedure TFrm_login.Button1Click(Sender: TObject);
var
    username:variant;
    pass:string;
begin
  choosename:=choose2.text;
  if choose1.itemindex=1 then   //判断用户选择何种职务
      username:=datam.ado_doctor.lookup('医生姓名',choosename,'密码')
  else
      username:=datam.ado_nurse.lookup('护士姓名',choosename,'密码');
  if choosename='' then
      showmessage ('请先选择您的职务！') //姓名为空，则职务未选，给出错误提示
  else
      if edit1.text='' then
      showmessage ('请输入密码') //未输入密码，给出错误提示
  else
    begin
       if varisnull(username) then pass:='' else pass:=username;
       if edit1.text<>pass then
       begin
         i:=i+1;
      //定义i，用于计算输入密码错误次数，3次出错则退出程序
         if i>=3 then
           begin
            Application.MessageBox(PChar('密码验证错误，拒绝访问！'), PChar('提示'),
            MB_ICONEXCLAMATION);
            Application.Terminate;
            close;
           end;
          application.messagebox(pchar('密码验证错误，重新录入！'),pchar('提示'),
          MB_ICONQUESTION);
          edit1.text:='';
          edit1.SetFocus(

首页 上一页 1 2 3 4 5 6 7 下一页 尾页 3/11/11