regist.pas

BarCodePrint条码打印机打印管理

unit Regist;

interface

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

type
  TfrmRegist = class(TForm)
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label4: TLabel;
    edtPassword: TEdit;
    btnOk: TBitBtn;
    btnCancel: TBitBtn;
    Label5: TLabel;
    Label6: TLabel;
    edtDatabase: TEdit;
    procedure FormShow(Sender: TObject);
    procedure btnOkClick(Sender: TObject);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure btnCancelClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmRegist: TfrmRegist;

implementation

uses PPublic;


{$R *.DFM}

procedure TfrmRegist.FormShow(Sender: TObject);
var
Reg:TRegistry;
DataBaseName,Password:String;
begin
    Reg:=TRegistry.Create;
    try
        Reg.RootKey:=HKEY_CURRENT_USER;
        if(Reg.OpenKey('\Software\QDSCM\BarCodePrinter\DataLink',False))=true then
        begin
             DataBaseName:=Reg.ReadString('DataBaseName');
             Password:=Reg.ReadString('PassWord');
        end;
        finally
             Reg.CloseKey;
             Reg.Free;
    end;
    edtDatabase.Text:=DataBaseName;
    edtPassword.Text:=Decipher('Songcm',Password);
end;

procedure TfrmRegist.btnOkClick(Sender: TObject);
var
    Reg:TRegistry;
begin
    Reg:=TRegistry.Create;
    try
        Reg.RootKey:=HKEY_CURRENT_USER;
        Reg.OpenKey('\Software\QDSCM\BarCodePrinter\DataLink',True);
        Reg.WriteString('DataBaseName',edtDatabase.Text);
        Reg.WriteString('PassWord',cipher('Songcm',edtPassword.Text));
    finally
             Reg.CloseKey;
             Reg.Free;
    end;
       Close;
end;

procedure TfrmRegist.FormKeyPress(Sender: TObject; var Key: Char);
begin
  if Key=#13 then
  begin
    SelectNext(ActiveControl,True,True);
    Key:=#0;
  end;
end;

procedure TfrmRegist.btnCancelClick(Sender: TObject);
begin
    Close;
end;

end.