frmsalaryset.pas

被系统名叫生产信息管理系统

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.