unlkall.pas

集成酒店桑拿食管管理的完整程序

unit unlkall;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Db, DBTables, ExtCtrls, StdCtrls,REGISTRY;

type
  Tunlockall = class(TForm)
    Label1: TLabel;
    Button1: TButton;
    Button2: TButton;
    Bevel1: TBevel;
    s1: TStoredProc;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  unlockall: Tunlockall;

implementation

uses dataproc;

{$R *.DFM}

procedure Tunlockall.Button1Click(Sender: TObject);
var
    TT:TREGISTRY;
    ls:string;
begin
   TT:=TREGISTRY.CREATE;
   TT.ROOTKEY:=HKEY_LOCAL_MACHINE;
   if  tt.openkey('system\currentcontrolset\control\computername\computername',false) then
      ls:=tt.readstring('computername');
   tt.free;
   s1.parambyname('@iwdno').asstring:=ls;
   s1.Prepare;
   s1.execproc;
   showmessage('全部解锁成功');
   button2.setfocus;
end;

procedure Tunlockall.Button2Click(Sender: TObject);
begin
  unlockall.close;
end;

procedure Tunlockall.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  s1.free;
end;

procedure Tunlockall.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key=112 then
  begin
    if xt=0 then help(8);
  end;
  if key=13 then
     selectnext(activecontrol,true,true);
  if key=27 then
     unlockall.Close;   
end;

end.