function GetHyCardMoney(const ID: string): Double;
function EncodeMoney(APt, AYh, ATx: Double; IsHy: Boolean): Double;
function DateTimeToChinesStr(ADateTime: TDateTime): string;
function GetTimes(ABeginTime, AEndTime: TDateTime): TDateTime;
function GetMoney(ATimes, AFeilu: Double): Double;
function InSect(ATime, ASectBegin, ASectEnd: TDateTime): Boolean; //针对24小时内的情况。
function InSectState(ABeginTime, AEndTime: TDateTime; ATimeSect: TTimeSect): TInSectState;
function InSectTimes(ABeginTime, ATimeLength: Double; ATimeSect: TTimeSect): TDateTime;
function EachSectMoney(ABeginTime, AEndTime: TDateTime): TEachSectMoney;
function InTongxiao(ATime: TDateTime; ATongxiaoSect: TTimeSect): Boolean;
function BuildTimeSect(ATongXiao: Boolean): TTimeSectArray;
function JiFei(AStartTime, AEndTime: TDateTime;
AFeilu, AZDSF, ARound: Double): Double;
function IsHuiyan(ID: string): Boolean; overload;
function IsHuiyan(ID: string; PassWord: string): Boolean; overload;
function NetMoney(BeginTime, EndTime: TDateTime; TongXiao: Boolean): Double; overload;
function NetMoney(BeginTime, EndTime: TDateTime; TongXiao: Boolean; UserID: string): Double; overload;
end;
var
frmMain: TfrmMain;
TheTimeSectArray: TTimeSectArray;
implementation
uses MainDM, HyFrm, Bar, DB, AddHyFrm, StartComputerFrm,
FuJiaFrm, SpFrm, ConfigFrm, JieZhangFrm, ADODB, MrjsFrm, SpNumFrm,
AboutFrm;
{$R *.DFM}
{ TfrmMain }
procedure TfrmMain.DelAllComputer;
begin
with dmMain.tblMain do
begin
while not Eof do
begin
Delete;
end;
end;
end;
上一篇:delphi通用销售管理系统