unit frmSalarySet;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Spin, ComCtrls, Mask;

type
  TSalarySetForm = class(TForm)
    cmdSave: TButton;
    cmdClose: TButton;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    GroupBox1: TGroupBox;
    Label1: TLabel;
    txtHoliday: TEdit;
    Label2: TLabel;
    txtOverTime: TEdit;
    Label3: TLabel;
    txtNoneWork: TEdit;
    Label4: TLabel;
    txtLate: TEdit;
    TabSheet3: TTabSheet;
    GroupBox2: TGroupBox;
    lstServer: TListBox;
    cmdAdd: TButton;
    cmdDelete: TButton;
    Label6: TLabel;
    txtServerName: TEdit;
    TabSheet4: TTabSheet;
    GroupBox3: TGroupBox;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    txtTime1: TMaskEdit;
    txtTime3: TMaskEdit;
    txtTime2: TMaskEdit;
    txtTime4: TMaskEdit;
    procedure cmdCloseClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure lstServerClick(Sender: TObject);
    procedure cmdAddClick(Sender: TObject);
    procedure cmdDeleteClick(Sender: TObject);
    procedure cmdSaveClick(Sender: TObject);
    procedure txtServerNameChange(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  SalarySetForm: TSalarySetForm;

implementation

uses Common;

{$R *.dfm}

procedure TSalarySetForm.cmdCloseClick(Sender: TObject);
begin
    SalarySetForm.Close;
end;

procedure TSalarySetForm.FormCreate(Sender: TObject);
begin
    txtHoliday.Text:=VarToStr(ReadIniFileFloat('.\Setting.INI',
        '工資設定','請假扣款'));
    txtLate.Text:=VarToStr(ReadIniFileFloat('.\Setting.INI',
        '工資設定','遲到扣款'));
    txtOverTime.Text:=VarToStr(ReadIniFileFloat('.\Setting.INI',
        '工資設定','加班獎金'));
    txtNoneWork.Text:=VarToStr(ReadIniFileFloat('.\Setting.INI',
        '工資設定','早退扣款'));
    lstServer.Items.AddStrings(SplitString(ReadIniFileString('.\Setting.INI',
        '基本設置','服務器'),','));
    txtTime1.Text:=VarToStr(ReadIniFileString('.\Setting.INI',
        '時間設定','上午上班'));
    txtTime2.Text:=VarToStr(ReadIniFileString('.\Setting.INI',
        '時間設定','上午下班'));
    txtTime3.Text:=VarToStr(ReadIniFileString('.\Setting.INI',
        '時間設定','下午上班'));
    txtTime4.Text:=VarToStr(ReadIniFileString('.\Setting.INI',
        '時間設定','下午下班'));
end;

procedure TSalarySetForm.lstServerClick(Sender: TObject);
begin
    txtServerName.Text:=lstServer.Items[lstServer.ItemIndex];
end;

procedure TSalarySetForm.cmdAddClick(Sender: TObject);
begin
    lstServer.Items.Add(txtServerName.Text);
end;

procedure TSalarySetForm.cmdDeleteClick(Sender: TObject);
begin
    lstServer.DeleteSelected;
end;

procedure TSalarySetForm.cmdSaveClick(Sender: TObject);
var
    I:Integer;
    strServerList:string;
begin
    WriteIniFileFloat('.\Setting.INI','工資設定',
        '請假扣款',StrToFloat(txtHoliday.Text));
    WriteIniFileFloat('.\Setting.INI','工資設定',
        '遲到扣款',StrToFloat(txtLate.Text));
    WriteIniFileFloat('.\Setting.INI','工資設定',
        '加班獎金',StrToFloat(txtOverTime.Text));
    WriteIniFileFloat('.\Setting.INI','工資設定',
        '早退扣款',StrToFloat(txtNoneWork.Text));
    for I := 0 to lstServer.Items.Count-1 do
    begin
        strServerList:=strServerList+lstServer.Items[I];
        if I<>lstServer.Items.Count-1 then
            strServerList:=strServerList + ',';
    end;
    WriteIniFileString('.\Setting.INI','基本設置',
        '服務器',strServerList);
    WriteIniFileString('.\Setting.INI','時間設定',
        '上午上班',txtTime1.Text);
    WriteIniFileString('.\Setting.INI','時間設定',
        '上午下班',txtTime2.Text);
    WriteIniFileString('.\Setting.INI','時間設定',
        '下午上班',txtTime3.Text);
    WriteIniFileString('.\Setting.INI','時間設定',
        '下午下班',txtTime4.Text);

    MessageBox(Application.Handle,'已經成功保存新的設置！','信息',64);
end;

procedure TSalarySetForm.txtServerNameChange(Sender: TObject);
begin
    if Trim(txtServerName.Text)='' then
        cmdAdd.Enabled:=False
    else
        cmdAdd.Enabled:=True;
end;

end.