评价网 > 科教论文 > 工学毕业论文 > 计算机论文 > 正文

delphi医嘱管理系统[开题报告＋论文＋源代码＋答(3)

2013-06-01 01:32 nbsp; TFrm_login = class(TForm)
    Label1: TLabel;
    Image1: TImage;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    choose1: TComboBox;
    Edit1: TEdit;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    choose2: TComboBox;
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure choose1Change(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  private
    { Private declarations }
    i:integer;
  public
    { Public declarations }
  end;

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(