connm.pas

本文重点研究的是医院西药药房管理系统

unit ConnM;

interface

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

type
  TConn = class(TForm)
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Panel1: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    Edit2: TEdit;
    Edit1: TEdit;
    procedure FormActivate(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure Edit2KeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Conn: TConn;

implementation

uses datamz, Main, datamz2;


{$R *.DFM}

procedure TConn.FormActivate(Sender: TObject);
begin
 datamzf.UserQuery.Active:=true;
end;

procedure TConn.BitBtn1Click(Sender: TObject);
begin
  datamzf.XyMzValiConnection.Connected:=false;
  try
    datamzf.XyMzValiConnection.Open(edit1.text,edit2.text);
    datamzf.XyMzUser.Open;
    mainform.file1.Enabled:=true;
    mainform.edit1.Enabled:=true;
    mainform.n16.Enabled:=true;
    mainform.n25.Enabled:=true;
    edit2.text:='';
    conn.Visible:=false;
    mainform.Show;
  except
    showmessage('登录失败,可能用户名、密码错误或者权限不够!');
    datamzf.XyMzValiConnection.Connected:=false;
    edit2.text:='';
    conn.Visible:=false;
    mainform.Show;
  end;
end;

procedure TConn.BitBtn2Click(Sender: TObject);
begin
  edit2.text:='';
  conn.Visible:=false;
  mainform.Show;
end;

procedure TConn.Edit2KeyPress(Sender: TObject; var Key: Char);
begin
 case key of
   #13:
      bitbtn1.SetFocus;
   #48..#57:
     begin
      if ord(key)+5>57 then
         key:=char(ord(key)-5)
       else
         key:=char(ord(key)+5);
     end;
   #65..#90:
     begin
      if ord(key)+5>90 then
         key:=char(ord(key)-21)
       else
         key:=char(ord(key)+5);
     end;
   #97..#122:
     begin
      if ord(key)+5>122 then
         key:=char(ord(key)-21)
       else
         key:=char(ord(key)+5);
     end;
   #8:;
   else
    key:=#0;
  end


end;

end.