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;
    edit1: TDBLookupComboBox;
    Edit2: TEdit;
    procedure FormActivate(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Conn: TConn;

implementation

uses datamz, Main;


{$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.n23.Enabled:=true;
    mainform.n25.Enabled:=true;
    edit2.text:='';
    conn.Visible:=false;
    mainform.Show;
  except
    showmessage('登录失败,可能用户名、密码错误或者权限不够!');
    edit2.text:='';
    conn.Visible:=false;
    mainform.Show;
  end;
end;

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

end.