valiconnm.pas

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

unit ValiConnM;

interface

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

type
  TValiConn = class(TForm)
    Panel1: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    Edit2: TEdit;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    edit1: TDBLookupComboBox;
    procedure BitBtn1Click(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  ValiConn: TValiConn;

implementation

uses datamz,XyMzValiM;

{$R *.DFM}

procedure TValiConn.BitBtn1Click(Sender: TObject);
begin
  datamzf.XyMzLsConnection.Connected:=false;
  try
    datamzf.XyMzLsConnection.Open(edit1.text,edit2.text);
    datamzf.XyMzLsUser.active:=true;
    edit2.text:='';
    Valiconn.Close;
  except
    showmessage('登录失败,可能用户名、密码错误或者没找到服务器!');
  end;

end;

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

procedure TValiConn.BitBtn2Click(Sender: TObject);
begin
 edit2.text:='';
 Valiconn.Close;

end;

end.