uregserver.pas

图书管理系统,采用delphi开发工具,是个小型的管理系统,该压缩文件只提供源代码

unit uRegServer;

interface

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

type
  TfrmxzBooksRegServer = class(TForm)
    Panel2: TPanel;
    Panel3: TPanel;
    FlatSpeedButton1: TFlatSpeedButton;
    FlatSpeedButton2: TFlatSpeedButton;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    procedure FormCreate(Sender: TObject);
    procedure FlatSpeedButton1Click(Sender: TObject);
    procedure FlatSpeedButton2Click(Sender: TObject);
  private
    fAppPath:string;
    Procedure CreateServerReg;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmxzBooksRegServer: TfrmxzBooksRegServer;

implementation

{$R *.dfm}

procedure TfrmxzBooksRegServer.CreateServerReg;
var Reg:TRegistry;
begin
  Reg := TRegistry.Create;
  try
    Reg.RootKey := HKEY_LOCAL_MACHINE;
    if FileExists(fAppPath) then
    begin
      if Reg.OpenKey('Software\小珠图书租赁管理系统', True) then
      begin
        Reg.WriteString('ApplicationPath',fAppPath);
        Reg.CloseKey;
        MessageDlg('小珠图书租赁管理系统数据库注册成功！' + #13 + #13 +
            '感谢使用！'
            ,mtInformation,[mbOK],0);
      end;
    end
    else
      MessageDlg('当前目录下没有找到 sysDB.mdb 文件，注册失败！',mtError,[mbOK],0);
  finally
    Reg.Free;
  end;
end;

procedure TfrmxzBooksRegServer.FormCreate(Sender: TObject);
begin
  fAppPath:=ExtractFilePath(Application.ExeName);
  fAppPath:=fAppPath + 'sysDB.MDB';
end;

procedure TfrmxzBooksRegServer.FlatSpeedButton1Click(Sender: TObject);
begin
  CreateServerReg;
end;

procedure TfrmxzBooksRegServer.FlatSpeedButton2Click(Sender: TObject);
begin
  Close;
end;

end.