configunit.~pas

华海成本核算辅助系统是基于用友U8企业资源管理系统开发的一套半成品成本统计分析软件。本软件界面美观、初始化简单、操作快捷、功能全面、报表多样等优点

unit ConfigUnit;

interface

uses
  Classes, SysUtils, IniFiles, Forms, Windows;

const
  csInidatabaseSection = 'database';
  csIniparamSection = 'param';

  {Section: database}
  csInidatabasepath = 'path';

  {Section: param}
  csIniparambegindate = 'begindate';
  csIniparamenddate = 'enddate';
  csIniparamdepreciation = 'depreciation';
  csIniparamCheckOut = 'checkout';
  csIniparamCheckIn = 'checkin';

type
  TIniOptions = class(TObject)
  private
    {Section: database}
    Fdatabasepath: string;

    {Section: param}
    Fparambegindate: String;
    Fparamenddate: String;
    Fparamdepreciation: Double;
    FparamCheckOut : Double ;
    FparamCheckIn : Double ;
  public
    procedure LoadSettings(Ini: TIniFile);
    procedure SaveSettings(Ini: TIniFile);
    
    procedure LoadFromFile(const FileName: string);
    procedure SaveToFile(const FileName: string);

    {Section: database}
    property databasepath: string read Fdatabasepath write Fdatabasepath;

    {Section: param}
    property parambegindate: String read Fparambegindate write Fparambegindate;
    property paramenddate: String read Fparamenddate write Fparamenddate;
    property paramdepreciation: Double read Fparamdepreciation write Fparamdepreciation;
    property paramCheckOut : Double read FparamCheckOut write FparamCheckOut ;
    property paramCheckIn : Double  read FparamCheckIn write FparamCheckIn ; 
  end;

var
  IniOptions: TIniOptions = nil;

implementation

procedure TIniOptions.LoadSettings(Ini: TIniFile);
begin
  if Ini <> nil then
  begin
    {Section: database}
    Fdatabasepath := Ini.ReadString(csInidatabaseSection, csInidatabasepath, '');

    {Section: param}
    Fparambegindate := Ini.ReadString(csIniparamSection, csIniparambegindate, '');
    Fparamenddate := Ini.ReadString(csIniparamSection, csIniparamenddate, '');
    Fparamdepreciation := Ini.ReadFloat(csIniparamSection, csIniparamdepreciation, 0);
    FparamCheckOut := Ini.ReadFloat(csIniparamSection,csIniparamCheckOut ,0);
    FparamCheckIn := Ini.ReadFloat(csIniparamSection,csIniparamCheckIn ,0);
    FparamCheckIn2 := Ini.ReadFloat(csIniparamSection,csIniparamCheckIn2 ,0);
  end;
end;

procedure TIniOptions.SaveSettings(Ini: TIniFile);
begin
  if Ini <> nil then
  begin
    {Section: database}
    Ini.WriteString(csInidatabaseSection, csInidatabasepath, Fdatabasepath);

    {Section: param}
    Ini.WriteString(csIniparamSection, csIniparambegindate, Fparambegindate);
    Ini.WriteString(csIniparamSection, csIniparamenddate, Fparamenddate);
    Ini.WriteFloat(csIniparamSection, csIniparamdepreciation, Fparamdepreciation);
    Ini.WriteFloat(csIniparamSection,csIniparamCheckOut ,FparamCheckOut);
    Ini.WriteFloat(csIniparamSection,csIniparamCheckIn ,FparamCheckIn);
  end;
end;

procedure TIniOptions.LoadFromFile(const FileName: string);
var
  Ini: TIniFile;
begin
  if FileExists(FileName) then
  begin
    Ini := TIniFile.Create(FileName);
    try
      LoadSettings(Ini);
    finally
      Ini.Free;
    end;
  end;
end;

procedure TIniOptions.SaveToFile(const FileName: string);
var
  Ini: TIniFile;
begin
  Ini := TIniFile.Create(FileName);
  try
    SaveSettings(Ini);
  finally
    Ini.Free;
  end;
end;

initialization
  IniOptions := TIniOptions.Create;

finalization
  IniOptions.Free;

end.