valiconn2m.~pas

来自「本文重点研究的是医院西药药房管理系统」· ~PAS 代码 · 共 63 行

unit ValiConn2M;

interface

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

type
  TValiConn2 = 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
  ValiConn2: TValiConn2;

implementation

uses datamz2,XyMzQuitM, datamz;

{$R *.DFM}

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

end;

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

procedure TValiConn2.BitBtn2Click(Sender: TObject);
begin
 edit2.text:='';
 Valiconn2.Close;

end;

end.