passm.~pas

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

unit PassM;

interface

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

type
  TPass = class(TForm)
    GroupBox2: TGroupBox;
    BitBtn7: TBitBtn;
    BitBtn8: TBitBtn;
    Edit3: TEdit;
    Edit4: TEdit;
    Label3: TLabel;
    Label4: TLabel;
    Label2: TLabel;
    Edit2: TEdit;
    procedure BitBtn7Click(Sender: TObject);
    procedure BitBtn8Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Pass: TPass;

implementation
 uses datamz;
{$R *.DFM}

procedure TPass.BitBtn7Click(Sender: TObject);
begin
  if edit3.Text='' then
    begin
     showmessage('请输入口令!');
     exit;
    end;
  if edit3.text<>edit4.text then
    begin
     showmessage('修改口领与复合口令不符!');
     exit;
    end;
  Datamzf.PassCommand.CommandText:='exec sp_password '+ ''''
     +edit2.text+''''+','+''''+edit3.text+'''';
  try
    datamzf.PassCommand.Execute;
    pass.Close;
  except
    showmessage('操作失败!');
  end;
end;

procedure TPass.BitBtn8Click(Sender: TObject);
begin
  pass.Close;
end;

procedure TPass.FormClose(Sender: TObject; var Action: TCloseAction);
begin
 Pass.Release;
end;

end.