unit_share.pas

一个小型餐饮管理系统,可支持小票打印.还存在一些小问题,希望朋友们帮助完成. QQ:15372627 E-mail:hdw802.163.com

unit Unit_Share;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs,StdCtrls, ExtCtrls,DB, DBClient,Grids,IniFiles;

Type
 TVipSet=record
 AutoJf,SearchName,Headinput,BirthdayFlag:Boolean;
 VipRate,OnePerJF,BirthdayNum:Integer;
End;

Type
 TSysSet=Record
 AllRate,ClientDisp,CTused,OverMoneyInt,OverMoneyRound:Boolean;
 AllRateNum:Currency;
 ClientDispPort:String;
 CTClearTime:Integer;
End;
Type
 TPrnSet=Record
 Title1,Title2,Title3,Title4:String;
 CopyNum,BEmptyLine,EEmptyLine:Integer;
 MoneyBox:Boolean;
End;

Type
 TDataSet=Record
 AutoBackup:Boolean;
 BackupDay,SaveNum:Integer;
End;

Type
 TydSet=Record
 Enabled:Boolean;
 TimeJG:Integer;
End;

type
 TShare=class(TObject)

 private
  MyIni:TiniFile;
 public
  constructor create;
  destructor destroy;override;
  //获取,设置 VIPSET段参数值
  Function Get_VipSet:TVipset;
  Procedure Set_Vipset(TmpVip:TVipSet);
  //获取,设置 SYSSET段参数值
  Function Get_SysSet:TSysSet;
  Procedure Set_SysSet(TmpSys:TsysSet);
  //获取,设置 PRINTERSET段参数值
  Function Get_PrnSet:TprnSet;
  Procedure Set_PrnSet(TmpPrn:TprnSet);
  //获取,设置DATASET段参数值
  Function Get_DataSet:TdataSet;
  Procedure Set_DataSet(TmpDataSet:TDataSet);
  //获取,设置YDSET段参数值
  Function Get_YdSet:TydSet;
  Procedure Set_YdSet(TmpydSet:TydSet);

  //返回格式化浮点数字符串
  Function DispCurrency(TmpFloat:Currency):String;




 end;

implementation

{ TShare }



constructor TShare.create;
Var
 FileName:String;
Begin
 FileName:=ExtractFilePath(Application.ExeName)+'DlConfig.ini';
 Myini:=TiniFile.Create(FileName);
end;

destructor TShare.destroy;
begin
  FreeAndNil(Myini);
  inherited;
end;

function TShare.Get_SysSet: TSysSet;
Var
 TmpSys:TSysSet;
begin
 TmpSys.AllRate:=Myini.ReadBool('SysSet','Allrate',False);
 TmpSys.AllRateNum:=Myini.ReadFloat('Sysset','allratenum',1);
 TmpSys.ClientDisp:=myini.ReadBool('sysset','clientdisp',False);
 TmpSys.ClientDispPort:=Myini.ReadString('Sysset','clientDispPort','Com1');
 TmpSys.CTused:=Myini.ReadBool('SysSet','CTused',False);
 TmpSys.CTClearTime:=Myini.ReadInteger('SysSet','CTClearTime',0);
 TmpSys.OverMoneyInt:=myini.ReadBool('sysset','overmoneyint',False);
 TmpSys.OverMoneyRound:=Myini.ReadBool('SysSet','OverMoneyRound',False);
 Result:=TmpSys;
end;

procedure TShare.Set_SysSet(TmpSys: TsysSet);
begin
 Myini.WriteBool('SysSet','allRate',TmpSys.AllRate);
 Myini.WriteFloat('SysSet','AllRateNum',TmpSys.AllRateNum);
 Myini.WriteBool('SysSet','ClientDisp',TmpSys.ClientDisp);
 Myini.WriteString('SysSet','ClientDispPort',TmpSys.ClientDispPort);
 Myini.WriteBool('SysSet','CTUsed',Tmpsys.CTused);
 Myini.WriteInteger('SysSet','CTClearTime',TmpSys.CTClearTime);
 Myini.WriteBool('SysSet','OverMoneyInt',TmpSys.OverMoneyInt);
 Myini.WriteBool('SysSet','OverMoneyRound',TmpSys.OverMoneyRound);
end;

function TShare.Get_VipSet: TVipset;
Var
 TmpVip:TVipSet;
begin
 TmpVip.AutoJf:=Myini.ReadBool('VipSet','AutoJF',False);
 TmpVip.OnePerJF:=Myini.ReadInteger('VipSet','onePerJF',0);
 TmpVip.SearchName:=Myini.ReadBool('VipSet','SearchName',False);
 TmpVip.Headinput:=Myini.ReadBool('VipSet','Headiput',False);
 TmpVip.VipRate:=Myini.ReadInteger('VipSet','VipRate',100);
 TmpVip.BirthdayFlag:=Myini.ReadBool('VipSet','BirthdayFlag',False);
 TmpVip.BirthdayNum:=Myini.ReadInteger('VipSet','BithdayNum',0);
 Result:=TmpVip;
end;



procedure TShare.Set_Vipset(TmpVip: TVipSet);
begin
 Myini.WriteBool('VipSet','AutoJf',TmpVip.AutoJf);
 Myini.WriteInteger('VipSet','OnePerJF',TmpVip.OnePerJF);
 Myini.WriteBool('VipSet','SearchName',TmpVip.SearchName);
 Myini.WriteBool('VipSet','Headinput',TmpVip.Headinput);
 Myini.WriteInteger('VipSet','VipRate',TmpVip.VipRate);
 Myini.WriteBool('VipSet','BirthdayFlag',TmpVip.BirthdayFlag);
 Myini.WriteInteger('vipset','bithdaynum',TmpVip.BirthdayNum);
end;

function TShare.Get_PrnSet: TprnSet;
Var
 Tmpprn:TprnSet;
begin
 TmpPrn.Title1:=Myini.ReadString('prnSet','Title1','');
 TmpPrn.Title2:=Myini.ReadString('prnSet','Title2','');
 TmpPrn.Title3:=Myini.ReadString('prnSet','Title3','');
 TmpPrn.Title4:=Myini.ReadString('prnSet','Title4','');
 TmpPrn.CopyNum:=Myini.ReadInteger('Prnset','copynum',1);
 TmpPrn.BEmptyLine:=Myini.ReadInteger('prnset','bEmptyLine',0);
 TmpPrn.EEmptyLine:=Myini.ReadInteger('prnSet','eemptyLine',0);
 TmpPrn.MoneyBox:=Myini.ReadBool('prnset','Moneybox',True);
 Result:=TmpPrn;
end;

procedure TShare.Set_PrnSet(TmpPrn: TprnSet);
begin
 Myini.WriteString('prnSet','Title1',TmpPrn.Title1);
 Myini.WriteString('prnSet','Title2',TmpPrn.Title2);
 Myini.WriteString('prnSet','Title3',TmpPrn.Title3);
 Myini.WriteString('prnSet','Title4',TmpPrn.Title4);
 Myini.WriteInteger('Prnset','copynum',TmpPrn.CopyNum);
 Myini.WriteInteger('prnset','bEmptyLine',TmpPrn.BEmptyLine);
 Myini.WriteInteger('prnSet','eemptyLine',TmpPrn.EEmptyLine);
 Myini.WriteBool('prnset','Moneybox',TmpPrn.MoneyBox);
end;

function TShare.Get_DataSet: TdataSet;
Var
 TmpDataSet:TDataSet;
begin
 TmpDataSet.AutoBackup:=Myini.ReadBool('DataSet','AutoBackup',False);
 TmpDataSet.BackupDay:=Myini.ReadInteger('DataSet','BackupDay',1);
 TmpDataSet.SaveNum:=Myini.ReadInteger('DataSet','BackupSaveNum',1);
 Result:=TmpDataSet;
end;

procedure TShare.Set_DataSet(TmpDataSet: TDataSet);
begin
 Myini.ReadBool('DataSet','AutoBackup',TmpDataSet.AutoBackup);
 Myini.ReadInteger('DataSet','BackupDay',TmpDataSet.BackupDay);
 Myini.ReadInteger('DataSet','BackupSaveNum',TmpDataset.SaveNum);
end;

function TShare.Get_YdSet: TydSet;
Var
 TmpYdSet:TYdset;
begin
 TmpYdSet.Enabled:=Myini.ReadBool('ydset','enabled',false);
 TmpYdSet.TimeJG:=Myini.ReadInteger('ydset','timejg',0);
 Result:=TmpYdSet;
end;

procedure TShare.Set_YdSet(TmpydSet: TydSet);
begin
 Myini.WriteBool('ydset','enabled',Tmpydset.Enabled);
 Myini.WriteInteger('ydset','timejg',TmpYdSet.TimeJG);
end;

function TShare.DispCurrency(TmpFloat: Currency): String;
begin
Result:=format('%*.*f',[8,2,TmpFloat]);
end;

end.