sysconfig.pas

来自「亚惠快餐管理信息系统 包括亚惠快餐管理的各项功能」· PAS 代码 · 共 80 行

unit SysConfig;

interface

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

type
  TFrmSysConfig = class(TForm)
    GroupBox1: TGroupBox;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    procedure BitBtn1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

procedure SetWork;

implementation

uses PublicUnit;

{$R *.dfm}

procedure SetWork;
var
  FrmSysConfig: TFrmSysConfig;
begin
  Application.CreateForm(TFrmSysConfig, FrmSysConfig);
  FrmSysConfig.ShowModal;
  FrmSysConfig.Free;
end;

{-------------------------------------------------------------------------------}

procedure TFrmSysConfig.FormShow(Sender: TObject);
begin
  Edit1.Text := PublicUnit.DbName;
  Edit2.Text := PublicUnit.DBUser;
  Edit3.Text := PublicUnit.DBPass;
  Edit4.Text := PublicUnit.DBPass;
end;

{-------------------------------------------------------------------------------}

procedure TFrmSysConfig.BitBtn1Click(Sender: TObject);
var
  ti: TInifile;
begin
  if not MessageDlg('系统配置将严重的影响系统的运行，您确定要继续您的配置吗？',
    mtConfirmation, [mbYes, mbNo], 0) <> mrYes then
    Exit;
  if Edit3.Text <> Edit4.Text then
  begin
    MessageDlg('前后输入的口令不对，请重试！', mtConfirmation, [mbYes], 0);
    Exit;
  end;
  ti := TInifile.Create(ExtractFilePath(Application.ExeName) + 'System.ini');
  ti.WriteString('System', 'DbName', EncryFunc(Edit1.Text));
  ti.WriteString('System', 'DbUser', EncryFunc(Edit2.Text));
  ti.WriteString('System', 'DbPass', EncryFunc(Edit3.Text));
  ti.Free;
  MessageDlg('系统配置成功！', mtConfirmation, [mbYes], 0);
end;

end.