log.cpp

DOS下一个完整的大型程序源代码

#if !defined( __STRING_H )
#include <String.h>
#endif  // __STRING_H

#define Uses_DBase
#define Uses_Window
#define Uses_Field
#define Uses_Button
#include <ly.h>

#include "sj.h"
#include "sjcfg.h"
#include "sjdbf.h"

void SJ::AddLog( long lRec, double fAverySub )
{
   char szRecord[ rlLog ],
        *p = szRecord + 1;
   memset( szRecord, ' ', rlLog );

   memcpy( p, szDutyNum, flDuty ); // DutyNum
   p += flLogDuty;

   ::GetDate( p ); // Date
   p += flLogDate;

   sprintf( p, "%06lu", config.lBillNo ); // BillNo
   p += flLogSjNo;

   dbfSJ->GetField( lRec, fdTel, p ); // Tel.
   p += flLogTel;

   dbfSJ->GetField( lRec, fdCNo, p ); // CNo
   p += flLogCNo;

   dbfSJ->GetField( lRec, fdName, p ); // Name
   p += flLogName;

   double fTotChg = dbfSJ->GetDouble( lRec, fdTotChg );
   FormatMoney( fTotChg + fAverySub, p, flRChg ); // TotChg
   p += flRChg;

   dbfSJ->GetField( lRec, fdAChg, p );  // AChg
   //p += flChg;

   dbfLog->AppendRecord( szRecord );
   dbfLog->SaveData();
   SaveConfig();
}

void SJ::BrowLog()
{
   dbfLog->Inquiry( fdLogDate );
}

void SJ::PrintLog()
{
   dbfLog->Print( fdLogDate );
}