u_formula.~pas

来自「一个小小的工资管理系统」· ~PAS 代码 · 共 69 行

unit u_formula;

interface

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

type
  TF_formula = class(TForm)
    B_cancel: TBitBtn;
    B_save: TBitBtn;
    B_reset: TBitBtn;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    i_overtime: TSpinEdit;
    Label4: TLabel;
    Label5: TLabel;
    i_errand: TSpinEdit;
    Label6: TLabel;
    Label7: TLabel;
    i_late: TSpinEdit;
    Label8: TLabel;
    Label9: TLabel;
    i_absent: TSpinEdit;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    procedure B_resetClick(Sender: TObject);
    procedure B_saveClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  F_formula: TF_formula;

implementation

{$R *.DFM}

procedure TF_formula.B_resetClick(Sender: TObject);
var
  MyInifile:TInifile;
begin
  MyInifile:=Tinifile.Create(ExtractFilePath(Paramstr(0))+'formula.ini');
  i_overtime.Value:=MyInifile.ReadInteger('Formula', 'OverTime', 150);
  i_errand.Value:=MyInifile.ReadInteger('Formula', 'Errand', 100);
  i_late.Value:=MyInifile.ReadInteger('Formula', 'Late', 10);
  i_absent.Value:=MyInifile.ReadInteger('Formula', 'Absent', 50);
end;

procedure TF_formula.B_saveClick(Sender: TObject);
var
  MyInifile:TInifile;
begin
  MyInifile:=Tinifile.Create(ExtractFilePath(Paramstr(0))+'formula.ini');
  MyInifile.WriteInteger('Formula', 'OverTime', i_overtime.Value);
  MyInifile.WriteInteger('Formula', 'Errand', i_errand.Value);
  MyInifile.WriteInteger('Formula', 'Late', i_late.Value);
  MyInifile.WriteInteger('Formula', 'Absent', i_absent.Value);
  Close;
end;

end.