uset.pas

人事档案管理

unit uSet;

interface

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

type
  TfrmSet = class(TfrmDlgBase)
    gbTopic: TGroupBox;
    edtTopic: TEdit;
    btnSetTopic: TBitBtn;
    gbBg: TGroupBox;
    btnSegImg: TBitBtn;
    btnReImg: TBitBtn;
    odImg: TOpenDialog;
    gbBirth: TGroupBox;
    btnSetBirth: TBitBtn;
    cbBirth: TCheckBox;
    procedure btnSetTopicClick(Sender: TObject);
    procedure btnSegImgClick(Sender: TObject);
    procedure btnReImgClick(Sender: TObject);
    procedure btnSetBirthClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmSet: TfrmSet;

implementation

uses uGlobal, uStainfo;

var
  iFile: TIniFile;

{$R *.dfm}

procedure TfrmSet.FormCreate(Sender: TObject);
begin
  Log.Write('进入参数设置模块');
  iFile := TIniFile.Create(App.Path + 'perset.ini');
  edtTopic.Text := App.Topic;
  cbBirth.Checked := App.StaBirth;
end;

procedure TfrmSet.FormDestroy(Sender: TObject);
begin
  inherited;
  iFile.Free;
end;

procedure TfrmSet.btnSetTopicClick(Sender: TObject);
begin
  if edtTopic.Text <> '' then
  begin
    iFile.WriteString('sTopic', 'topic', Trim(edtTopic.Text));
    App.Topic := Trim(edtTopic.Text);
    Log.Write('主题设置为' + App.Topic);
    MessageBox(Handle, '主题设置成功!', '提示', mb_IconInformation + mb_Ok);
  end
  else
  begin
    MessageBox(Handle, '请输入系统主题!', '提示', mb_IconInformation + mb_Ok);
    edtTopic.SetFocus;
  end;
end;

procedure TfrmSet.btnSegImgClick(Sender: TObject);
var
  sImgStr: string;
begin
  if odImg.Execute then
  begin
    sImgStr := iFile.ReadString('sysbg', 'bground', 'main.jpg');
    if FileExists(App.Path + sImgStr) and (sImgStr <> 'main.jpg') then DeleteFile(App.Path + sImgStr);
    sImgStr := ExtractFileName(odImg.FileName);
    CopyFile(PAnsiChar(odImg.FileName), PAnsiChar(App.Path + 'images\' + sImgStr), False);
    iFile.WriteString('sysbg', 'bground', 'images\' + sImgStr);
    App.ImgStr := sImgStr;
    Log.Write('背景设置为' + sImgStr);
    MessageBox(Handle, '背景设置成功!', '提示', mb_IconInformation + mb_Ok);
  end;
end;

procedure TfrmSet.btnReImgClick(Sender: TObject);
var
  sImgStr: string;
begin
  sImgStr := iFile.ReadString('sysbg', 'bground', '');
  if FileExists(App.Path + sImgStr) and (sImgStr <> 'main.jpg') then DeleteFile(App.Path + sImgStr);
  sImgStr := 'main.jpg';
  iFile.WriteString('sysbg', 'bground', sImgStr);
  App.ImgStr := sImgStr;
  Log.Write('背景图片复原');
  MessageBox(Handle, '背景复原成功!', '提示', mb_IconInformation + mb_Ok);
end;

procedure TfrmSet.btnSetBirthClick(Sender: TObject);
begin
  if Assigned(frmStaInfo) then frmStainfo.meoBirth.Visible := cbBirth.Checked;
  if cbBirth.Checked then
  begin
    iFile.WriteBool('staff', 'sbirth', True);
    App.StaBirth := True;
    Log.Write('生日提醒设置成功');
    MessageBox(Handle, '生日提醒设置成功!', '提示', mb_IconInformation + mb_Ok);
  end
  else
  begin
    iFile.WriteBool('staff', 'sbirth', False);
    App.StaBirth := False;
    Log.Write('生日提醒设置取消');
    MessageBox(Handle, '生日提醒已取消!', '提示', mb_IconInformation + mb_Ok);
  end;
end;

end.