bar.pas

程序用Delphi6编写

unit Bar;

interface
uses SysUtils, registry;

var
  //frmConfig-计费
  ZDSF: Double = 1; //最低收费
  FeiLu: Double = 3; //费率(元/小时)
  ZXDW: Double = 0.5; //最小计费单位
  YECL: Integer = 3; //余额处理

  EnableYHSD: Boolean = False;


  YouHui: array[1..15] of Double;

  //frmConfig-会员
  YHL: Word = 80; //优惠率
  HY_PTSD: Boolean = True;
  HY_YHSD, HY_TX, HY_TZ: Boolean;

  //frmConfig-高级
  AutoClear: Boolean = True; // 下机后自动清除上机记录
  AddHyMoney: Boolean = False; //将会员上机费用加入到“每日结算”
  JsByDate: Integer = 0;


procedure WriteConfig;
procedure ReadConfig;

implementation

uses MainDM;

procedure WriteConfig;
var
  Reg: TRegistry;
  I: Integer;
  S: string;
begin
  Reg := TRegistry.Create;
  try
    Reg.OpenKey('Software\lingxi\server\Config', True);
    Reg.WriteFloat('ZDSF', ZDSF);
    Reg.WriteFloat('FeiLu', FeiLu);
    Reg.WriteFloat('ZXDW', ZXDW);
    Reg.WriteInteger('YECL', YECL);
    Reg.WriteBool('EnableYHSD', EnableYHSD);
    Reg.WriteBool('HY_PTSD', HY_PTSD);
    Reg.WriteBool('HY_YHSD', HY_YHSD);
    Reg.WriteBool('HY_TX', HY_TX);
    Reg.WriteInteger('YHL', YHL);
    Reg.WriteBool('AutoClear', AutoClear);
    Reg.WriteBool('AddHyMoney', AddHyMoney);
    Reg.WriteInteger('JsByDate', JsByDate);

    for I := Low(YouHui) to High(YouHui) do
    begin
      S := 'YH' + IntToStr(I);
      Reg.WriteFloat(S, YouHui[I]);
    end;

  finally
    Reg.Free;
  end;

end;

procedure ReadConfig;
var
  Reg: TRegistry;
  I: Integer;
  S: string;
  KeyGood: Boolean;
begin
  Reg := TRegistry.Create;
  try
    KeyGood := Reg.OpenKey('Software\lingxi\server\Config', False);
    if KeyGood then
    begin
      ZDSF := Reg.ReadFloat('ZDSF');
      FeiLu := Reg.ReadFloat('FeiLu');
      ZXDW := Reg.ReadFloat('ZXDW');
      YECL := Reg.ReadInteger('YECL');
      EnableYHSD := Reg.ReadBool('EnableYHSD');
      HY_PTSD := Reg.ReadBool('HY_PTSD');
      HY_YHSD := Reg.ReadBool('HY_YHSD');
      HY_TX := Reg.ReadBool('HY_TX');
      YHL := Reg.ReadInteger('YHL');
      AutoClear := Reg.ReadBool('AutoClear');
      AddHyMoney := Reg.ReadBool('AddHyMoney');
      JsByDate := Reg.ReadInteger('JsByDate');

      for I := Low(YouHui) to High(YouHui) do
      begin
        S := 'YH' + IntToStr(I);
        YouHui[I] := Reg.ReadFloat(S);
      end;
    end;
  finally
    Reg.Free;
  end;
end;

end.