pass.~pas

一个基于数据的药品行业管理系统,较全面,可供学习数据的开发人员参考消息

unit pass;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, ExtCtrls;

type
  Tfrm_pass = class(TForm)
    GroupBox1: TGroupBox;
    userno: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    passno: TEdit;
    Image1: TImage;
    Image2: TImage;
    ok: TBitBtn;
    canel: TBitBtn;
    procedure canelClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure usernoKeyPress(Sender: TObject; var Key: Char);
    procedure passnoKeyPress(Sender: TObject; var Key: Char);
    procedure pass;
    procedure okClick(Sender: TObject);
    procedure usernoExit(Sender: TObject);
    procedure passnoExit(Sender: TObject);
    procedure passnoEnter(Sender: TObject);
    procedure usernoEnter(Sender: TObject);
  private
    { Private declarations }
  public

    { Public declarations }
  end;

var
  frm_pass: Tfrm_pass;
  var i:integer;

implementation

uses date1, pubmotion, zc, main;

{$R *.dfm}

procedure Tfrm_pass.canelClick(Sender: TObject);
begin
   application.Terminate;
end;
procedure Tfrm_pass.FormCreate(Sender: TObject);
begin
    userno.Clear;
    passno.Clear;
    userno.Color:=claqua;
end;

procedure Tfrm_pass.usernoKeyPress(Sender: TObject; var Key: Char);
begin
    if key=#13 then
     begin
     if userno.Text='' then
        begin
        showmessage('用户名不能为空');
        userno.SetFocus;
        exit;
        end
      else
        begin
        userno.Color:=clwindow;
        passno.SetFocus;
        passno.Color:=claqua;
        end;
     end;
end;

procedure Tfrm_pass.passnoKeyPress(Sender: TObject; var Key: Char);
begin
  if key=#13 then
    begin
     if passno.Text='' then
        begin
        showmessage('密码不能为空');
        passno.SetFocus;
        exit;
        end
     else
        begin
        passno.Color:=clwindow;
        pass;
        end;
    end;
end;
//检验密码
procedure Tfrm_pass.pass;
begin
    if userno.Text='' then
       begin
       showmessage('用户名不能为空');
       userno.SetFocus;
       userno.SelectAll;
       exit;
       end;
     with data do
     begin
     Aq1.Connection:=adoc1;
     aq1.close;
     aq1.sql.Clear;
     aq1.sql.Add('select * from czyda ');
     aq1.sql.add('where czybh=:czybh  and czymm=:czymm');
     aq1.Parameters.ParamByName('czybh').Value:=trim(userno.Text);
     aq1.Parameters.ParamByName('czymm').Value:=trim(passno.Text);
     aq1.open;
     if aq1.RecordCount>0 then
       begin
       ModalResult:=mrok;
       i:=0;
       user:=trim(userno.Text);
       username:=trim(aq1.fieldbyname('czymc').value);
       passwords:=aq1.Fields.Fieldbyname('czymm').Value;
       frm_main.StatusBar1.Panels[1].Text:='当前用户：'+username+'';
       frm_main.StatusBar1.Panels[2].Text:='   正在运行';
       if user<>'9999' then
       powercheck(user);
       {qx:=aq1.Fields.Fieldbyname('qx').Value;
       qxr:=aq1.Fields.Fieldbyname('qxr').Value;
       qxw:=aq1.Fields.Fieldbyname('qxw').Value;
       qxp:=aq1.Fields.Fieldbyname('qxp').Value;}
       //frm_zc:=tfrm_zc.create(application);
//frm_zc.showmodal;
       end
     else
       begin
        showmessage('用户名与密码不符，请重新输入');
        inc(i);
        userno.Clear;
        passno.Clear;
        userno.Color:=claqua;
        userno.SetFocus;
       end;
    end;
    if i>=3  then
    begin
      ModalResult:=mrcancel;
      showmessage('你已 输入三次了,强制退出');
    end;
end;

procedure Tfrm_pass.okClick(Sender: TObject);
begin
screen.Cursor:=crHourGlass;
     pass;
screen.Cursor:=crhourglass;
end;
procedure Tfrm_pass.usernoExit(Sender: TObject);
begin
if not userno.Focused then
   userno.Color:=clwindow;
end;
procedure Tfrm_pass.passnoExit(Sender: TObject);
begin
if not passno.Focused then
   passno.Color:=clwindow;
end;
procedure Tfrm_pass.passnoEnter(Sender: TObject);
begin
passno.Color:=clskyblue;
end;
procedure Tfrm_pass.usernoEnter(Sender: TObject);
begin
userno.Color:=clskyblue;
end;
end.