开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > 行业应用 > 酒店行业 > 查看源码
StatDlg.cpp
资源名称：jdcy.rar　[点击查看]
上传用户：sztwq510
上传日期：2013-06-26
资源大小：4045k
文件大小：16k
源码类别：

酒店行业

开发平台：

Java

StatDlg.cpp：源码内容
  1. // StatDlg.cpp : implementation file
  2. //
  4. #include "stdafx.h"
  5. #include "MyPos.h"
  6. #include "StatDlg.h"
  8. #ifdef _DEBUG
  9. #define new DEBUG_NEW
  10. #undef THIS_FILE
  11. static char THIS_FILE[] = __FILE__;
  12. #endif
  14. /////////////////////////////////////////////////////////////////////////////
  15. // CStatDlg dialog
  16. extern CMyPosApp theApp;
  19. CStatDlg::CStatDlg(CWnd* pParent /*=NULL*/)
  20. : CDialog(CStatDlg::IDD, pParent)
  21. {
  22. //{{AFX_DATA_INIT(CStatDlg)
  23. //}}AFX_DATA_INIT
  24. }
  27. void CStatDlg::DoDataExchange(CDataExchange* pDX)
  28. {
  29. CDialog::DoDataExchange(pDX);
  30. //{{AFX_DATA_MAP(CStatDlg)
  31. DDX_Control(pDX, IDC_DATETIMEPICKER_SD, m_oSdate);
  32. DDX_Control(pDX, IDC_DATETIMEPICKER_OD, m_oOdate);
  33. DDX_Control(pDX, IDC_RADIO_WEEK, m_oWeek);
  34. DDX_Control(pDX, IDC_EDIT_LISTTITLE, m_oListtitle);
  35. DDX_Control(pDX, IDC_LIST_REPORT, m_oListreport);
  36. DDX_Control(pDX, IDC_EDIT_ST, m_oSt);
  37. DDX_Control(pDX, IDC_EDIT_OT, m_oOt);
  38. //}}AFX_DATA_MAP
  39. }
  42. BEGIN_MESSAGE_MAP(CStatDlg, CDialog)
  43. //{{AFX_MSG_MAP(CStatDlg)
  44. ON_BN_CLICKED(IDC_BUTTON_STAT, OnButtonStat)
  45. ON_BN_CLICKED(IDC_BUTTON_PRINTREPORT, OnButtonPrintreport)
  46. //}}AFX_MSG_MAP
  47. END_MESSAGE_MAP()
  49. /////////////////////////////////////////////////////////////////////////////
  50. // CStatDlg message handlers
  52. BOOL CStatDlg::OnInitDialog() 
  53. {
  54. CDialog::OnInitDialog();
  56. m_oWeek.SetCheck(1);
  57. m_oSt.SetWindowText("00:00:00");
  58. m_oOt.SetWindowText("23:59:59");
  60. return TRUE;  // return TRUE unless you set the focus to a control
  61.               // EXCEPTION: OCX Property Pages should return FALSE
  62. }
  65. void CStatDlg::OnButtonStat() 
  66. {
  67. int n;
  68. CString sql,sfloor,scompany,ssdate,sodate,sstime,sotime;
  69. CString sbegin,send,stotal;
  70. _RecordsetPtr m_pRecordset;
  72. int nselect=GetCheckedRadioButton(IDC_RADIO_SINGLE,IDC_RADIO_WEEK); 
  73. switch(nselect)//Get if it is discount.
  74. {
  75. case IDC_RADIO_WEEK:
  76. n=0;
  77. m_oListtitle.SetWindowText("           ** 销售汇总报表 **");
  78. break;
  79. case IDC_RADIO_SINGLE:
  80. n=1;
  81. m_oListtitle.SetWindowText("             ** 单品报表 **");
  82. break;
  83. default:
  84. break;
  85. }
  87. int ncount=m_oListreport.GetCount()-1;
  88. for(int i=ncount;i>=0;i--)//Clear report listbox.
  89. m_oListreport.DeleteString(i);
  91. sql="Select * from COMPANY";
  92. try
  93. { 
  94. m_pRecordset.CreateInstance("ADODB.Recordset");
  95. m_pRecordset->Open((_variant_t)sql,_variant_t((IDispatch*)theApp.m_pConnection,true),adOpenStatic,adLockOptimistic,adCmdText);
  97. if(!m_pRecordset->adoEOF)
  98. {
  99.  sfloor=(LPCTSTR)(_bstr_t)m_pRecordset->GetCollect("FLOORNUMBER");
  100.  scompany=(LPCTSTR)(_bstr_t)m_pRecordset->GetCollect("COMPANYNAME");
  101. }
  102. m_pRecordset->Close();
  103. }
  104. catch(_com_error e)///捕捉异常
  105. {
  106. CString sdate;
  107. sdate.Format("读取楼层号出错:%s",e.ErrorMessage());
  108. AfxMessageBox(sdate);
  109. }
  110. m_oListreport.AddString("                                      ");
  111. int ns=32-scompany.GetLength()-sfloor.GetLength();
  112. CString space=" ";
  113. for(int j=0;j<ns-1;j++)
  114. space=space+" ";
  115. m_oListreport.AddString(scompany+space+"楼层号 "+sfloor);
  116. m_oListreport.AddString("---------------------------------------");
  118. m_oSdate.GetWindowText(ssdate);
  119. ssdate=Dateformat(ssdate);
  120. m_oSt.GetWindowText(sstime);
  121. sbegin=ssdate+" "+sstime;
  122. m_oListreport.AddString("开始时间:           "+sbegin);
  124. m_oOdate.GetWindowText(sodate);
  125. sodate=Dateformat(sodate);
  126. m_oOt.GetWindowText(sotime);
  127. send=sodate+" "+sotime;
  128. m_oListreport.AddString("结束时间:           "+send);
  129. m_oListreport.AddString("---------------------------------------");
  131. sql="where ENDDATE>='"+sbegin+"' and ENDDATE<='"+send+"' and STATUS='已结帐'";
  132. if(n==0)
  133. SumBillTotal(sql);
  134. if(n==1)
  135. {
  136. m_oListreport.AddString("商品名称                           数量");
  137. SumSingleItem(sql);
  138. }
  140. }
  142. CString CStatDlg::Dateformat(CString sdate)
  143. {
  144. if(sdate.GetLength()==8)
  145. {
  146. sdate.Insert(7,'0');
  147. sdate.Insert(5,'0');
  148. }
  149. if(sdate.GetLength()==9)
  150. {
  151. if(sdate.GetAt(6)=='-')
  152. sdate.Insert(5,'0');
  153. else
  154. sdate.Insert(8,'0');
  155. }
  156. return sdate;
  157. }
  159. void CStatDlg::SumBillTotal(CString scondition)
  160. {
  161. float fsum,fttl;
  162. long lcount,lpersonqa,lbillqa;
  163. CString sql,ssum,scount,spersonqa,sbillqa;
  164. _RecordsetPtr m_pRecordset; //Must define it in function!!!!
  165. CString space,space1;
  166. int i,n;
  167. //count bills quantity.
  168. sql="Select COUNT(*) as XXX from SALEBILL "+scondition+"";
  169. try
  170. { 
  171. m_pRecordset.CreateInstance("ADODB.Recordset");
  172. m_pRecordset->Open((_variant_t)sql,_variant_t((IDispatch*)theApp.m_pConnection,true),adOpenStatic,adLockOptimistic,adCmdText);
  174. lcount=(long)m_pRecordset->GetCollect("XXX");
  175. m_pRecordset->Close();
  176. }
  177. catch(_com_error e)///捕捉异常
  178. {
  179. CString stemp;
  180. stemp.Format("[报表]读取记录数出错:%s",e.ErrorMessage());
  181. AfxMessageBox(stemp);
  182. }
  183. if(lcount==0)
  184. {
  185. m_oListreport.AddString("人民币:                           0.00");
  186. return;
  187. }
  188. //Calculate sum acttotal , people's quantity and bill's quantity.
  189. sql="Select SUM(ACTTOTAL) as AAA,SUM(PEOPLES) as BBB,COUNT(*) as CCC from SALEBILL "+scondition+"";
  190. try
  191. { 
  192. m_pRecordset.CreateInstance("ADODB.Recordset");
  193. m_pRecordset->Open((_variant_t)sql,_variant_t((IDispatch*)theApp.m_pConnection,true),adOpenStatic,adLockOptimistic,adCmdText);
  195. if(!m_pRecordset->adoEOF)
  196. {
  197. fsum =m_pRecordset->GetCollect("AAA");
  198. fttl=fsum;
  199. lpersonqa=m_pRecordset->GetCollect("BBB");
  200. lbillqa=m_pRecordset->GetCollect("CCC");
  201. }
  202. ssum.Format("%.2f",fsum);
  203. spersonqa.Format("%d",lpersonqa);
  204. sbillqa.Format("%d",lbillqa);
  206. n=31-ssum.GetLength();
  207. space=" ";
  208. for(i=0;i<n-1;i++)
  209. space=space+" ";
  210. m_oListreport.AddString("人民币:"+space+ssum);
  212. m_pRecordset->Close();
  213. }
  214. catch(_com_error e)///捕捉异常
  215. {
  216. CString stemp;
  217. stemp.Format("[报表]计算单据金额出错:%s",e.ErrorMessage());
  218. AfxMessageBox(stemp);
  219. }
  220. //Sum hang bills total.
  221. _variant_t vtemp;
  222. sql="Select SUM(TOTAL) as XXX from SALEBILL "+scondition+"";
  223. sql.Replace("已结帐","挂帐");
  224. sql.Replace("ENDDATE","BEGINDATE");
  225. try
  226. { 
  227. m_pRecordset.CreateInstance("ADODB.Recordset");
  228. m_pRecordset->Open((_variant_t)sql,_variant_t((IDispatch*)theApp.m_pConnection,true),adOpenStatic,adLockOptimistic,adCmdText);
  229. vtemp=m_pRecordset->GetCollect("XXX");
  230. fsum=vtemp.dblVal;
  231. if(fsum>0)
  232. {
  233. fttl=fttl+fsum;
  234. ssum.Format("%.2f",fsum);
  235. }
  236. else
  237. ssum="0.00";
  239. n=33-ssum.GetLength();
  240. space=" ";
  241. for(i=0;i<n-1;i++)
  242. space=space+" ";
  243. m_oListreport.AddString("挂帐:"+space+ssum);
  245. m_pRecordset->Close();
  246. }
  247. catch(_com_error e)///捕捉异常
  248. {
  249. CString stemp;
  250. stemp.Format("[报表]计算单据挂帐金额出错:%s",e.ErrorMessage());
  251. AfxMessageBox(stemp);
  252. }
  253. //Sum RF bills total.
  254. sql="Select SUM(TOTAL) as XXX from SALEBILL "+scondition+" and PAYMODE=88";
  255. // sql="Select SUM(TOTAL) as XXX from (Select * from SALEBILL "+scondition+") where PAYMODE=88";
  256. try
  257. { 
  258. m_pRecordset.CreateInstance("ADODB.Recordset");
  259. m_pRecordset->Open((_variant_t)sql,_variant_t((IDispatch*)theApp.m_pConnection,true),adOpenStatic,adLockOptimistic,adCmdText);
  260. vtemp=m_pRecordset->GetCollect("XXX");
  261. fsum=vtemp.dblVal;
  262. if(fsum>0)
  263. {
  264. fttl=fttl+fsum;
  265. ssum.Format("%.2f",fsum);
  266. }
  267. else
  268. ssum="0.00";
  270. n=35-ssum.GetLength();
  271. space=" ";
  272. for(i=0;i<n-1;i++)
  273. space=space+" ";
  274. m_oListreport.AddString("RF:"+space+ssum);
  275. m_oListreport.AddString("                       ----------------");
  277. CString sttl;
  278. sttl.Format("%.2f",fttl);
  279. n=38-sttl.GetLength();
  280. space=" ";
  281. for(i=0;i<n-1;i++)
  282. space=space+" ";
  283. m_oListreport.AddString(space+sttl);
  284. m_oListreport.AddString("                                       ");
  285. m_oListreport.AddString("类别                 汇总          折扣");
  287. m_pRecordset->Close();
  288. }
  289. catch(_com_error e)///捕捉异常
  290. {
  291. CString stemp;
  292. stemp.Format("[报表]计算单据RF金额出错:%s",e.ErrorMessage());
  293. AfxMessageBox(stemp);
  294. }
  295. //Calculate class's acttotal and valtotal.
  296. // sql="Select CLASS,Sum(ACTTOTAL) as XXX,Sum(VALTOTAL) as VVV from PAYDETAIL where BILLID in (Select ID from SALEBILL "+scondition+") group by CLASS ";
  297. sql="Select CLASS,Sum(ACTTOTAL) as XXX,Sum(VALTOTAL) as VVV, count(*) from PAYDETAIL where BILLID in (Select ID from SALEBILL "+scondition+") group by CLASS having count(*)>=1";
  298. try
  299. { 
  300. m_pRecordset.CreateInstance("ADODB.Recordset");
  301. m_pRecordset->Open((_variant_t)sql,_variant_t((IDispatch*)theApp.m_pConnection,true),adOpenStatic,adLockOptimistic,adCmdText);
  303. float fat=0;
  304. float fvt=0;
  305. while(!m_pRecordset->adoEOF)
  306. {
  307. CString sclassname =(LPCTSTR)(_bstr_t)m_pRecordset->GetCollect("CLASS");
  308. float facttotal=m_pRecordset->GetCollect("XXX");
  309. float fvaltotal=m_pRecordset->GetCollect("VVV");
  310. fat=fat+facttotal;
  311. fvt=fvt+fvaltotal;
  312. CString sacttotal,svaltotal;
  313. sacttotal.Format("%.2f",facttotal);
  314. svaltotal.Format("%.2f",fvaltotal);
  316. n=25-sclassname.GetLength()-sacttotal.GetLength();
  317. space=" ";
  318. for(i=0;i<n-1;i++)
  319. space=space+" ";
  320. CString space1=" ";
  321. n=14-svaltotal.GetLength();
  322. for(i=0;i<n-1;i++)
  323. space1=space1+" ";
  324. m_oListreport.AddString(sclassname+space+sacttotal+space1+svaltotal);
  326. m_pRecordset->MoveNext();
  327. }
  328. m_oListreport.AddString("                                       ");
  329. CString sat,svt;
  330. sat.Format("%.2f",fat);
  331. svt.Format("%.2f",fvt);
  332. n=20-sat.GetLength();
  333. space=" ";
  334. for(i=0;i<n-1;i++)
  335. space=space+" ";
  336. space1=" ";
  337. n=14-svt.GetLength();
  338. for(i=0;i<n-1;i++)
  339. space1=space1+" ";
  340. m_oListreport.AddString("总计:"+space+sat+space1+svt);
  341. m_oListreport.AddString("                                       ");
  343. n=28-spersonqa.GetLength()-sbillqa.GetLength();
  344. space=" ";
  345. for(i=0;i<n-1;i++)
  346. space=space+" ";
  347. m_oListreport.AddString("人数:"+spersonqa+space+"单数:"+sbillqa);
  348. m_oListreport.AddString("                                       ");
  349. m_oListreport.AddString("-----------------未结单----------------");
  351. m_pRecordset->Close();
  352. }
  353. catch(_com_error e)///捕捉异常
  354. {
  355. CString stemp;
  356. stemp.Format("[报表]计算类别金额出错:%s",e.ErrorMessage());
  357. AfxMessageBox(stemp);
  358. }
  359. //Get non-check bill.
  360. float fnonttl=0;
  361. CString snontotal;
  362. sql="Select ID,TOTAL from SALEBILL where STATUS<>'已结帐'";
  363. try
  364. { 
  365. m_pRecordset.CreateInstance("ADODB.Recordset");
  366. m_pRecordset->Open((_variant_t)sql,_variant_t((IDispatch*)theApp.m_pConnection,true),adOpenStatic,adLockOptimistic,adCmdText);
  367. while(!m_pRecordset->adoEOF)
  368. {
  369. CString snoncheck=(LPCTSTR)(_bstr_t)m_pRecordset->GetCollect("ID");
  370. float fnontotal=(float)m_pRecordset->GetCollect("TOTAL");
  371. snontotal.Format("%.2f",fnontotal);
  372. n=38-snoncheck.GetLength()-snontotal.GetLength();
  373. space=" ";
  374. for(i=0;i<n-1;i++)
  375. space=space+" ";
  376. m_oListreport.AddString(snoncheck+space+snontotal);
  378. fnonttl=fnonttl+fnontotal;
  379. m_pRecordset->MoveNext();
  380. }
  381. if(fnonttl!=0)
  382. {
  383. snontotal.Format("%.2f",fnonttl);
  384. n=38-snontotal.GetLength();
  385. space=" ";
  386. for(i=0;i<n-1;i++)
  387. space=space+" ";
  388. m_oListreport.AddString("                       ----------------");
  389. m_oListreport.AddString(space+snontotal);
  390. }
  392. m_pRecordset->Close();
  393. }
  394. catch(_com_error e)///捕捉异常
  395. {
  396. CString stemp;
  397. stemp.Format("[报表]读取未结单出错:%s",e.ErrorMessage());
  398. AfxMessageBox(stemp);
  399. }
  401. }
  403. void CStatDlg::SumSingleItem(CString scondition)
  404. {
  405. CString sql,sitemsum,smname;
  406. long litemsum,lmid;
  407. _RecordsetPtr m_pRecordset; //Must define it in function!!!!
  409. //Select suit records and insert them into SINGLEREPORT.
  410. sql="Delete * from SINGLEREPORT";
  411. try
  412. { 
  413. _variant_t RecordsAffected;
  414. theApp.m_pConnection->Execute((_bstr_t)sql,&RecordsAffected,adCmdText);
  415. sql="Insert into SINGLEREPORT (ITEMCOUNT,MATERIELID) Select ITEMCOUNT,MATERIELID from SALEDETAIL Where BILLID in (Select ID from SALEBILL "+scondition+")";
  416. theApp.m_pConnection->Execute((_bstr_t)sql,&RecordsAffected,adCmdText);
  417. }
  418. catch(_com_error e)///捕捉异常
  419. {
  420. CString stemp;
  421. stemp.Format("[单品]插入单品项目出错:%s",e.ErrorMessage());
  422. AfxMessageBox(stemp);
  423. return;
  424. }
  426. //Get records and insert them into report listbox.
  427. sql="Select MATERIELID,Sum(ITEMCOUNT) as XXX,count(*) from SINGLEREPORT group by MATERIELID having count(*)>=1";
  428. try
  429. { 
  430. m_pRecordset.CreateInstance("ADODB.Recordset");
  431. m_pRecordset->Open((_variant_t)sql,_variant_t((IDispatch*)theApp.m_pConnection,true),adOpenStatic,adLockOptimistic,adCmdText);
  433. while(!m_pRecordset->adoEOF)
  434. {
  435. litemsum =(long)m_pRecordset->GetCollect("XXX");
  436. sitemsum.Format("%6d",litemsum);
  437. lmid=(long)m_pRecordset->GetCollect("MATERIELID");
  438. smname=GetMaterielName(lmid);
  439. CString soutname;
  440. soutname.Format("%-32s",smname);
  441. // int n=38-sitemsum.GetLength()-smname.GetLength();
  442. // CString space=" ";
  443. // for(int i=0;i<n-1;i++)
  444. // space=space+" ";
  445. // m_oListreport.AddString(smname+space+sitemsum);
  446. m_oListreport.AddString(soutname+sitemsum);
  448. m_pRecordset->MoveNext();//Don't forget this function!!
  449. }
  450. m_pRecordset->Close();
  451. }
  452. catch(_com_error e)///捕捉异常
  453. {
  454. CString stemp;
  455. stemp.Format("[单品]计算单品数量出错:%s",e.ErrorMessage());
  456. AfxMessageBox(stemp);
  457. }
  459. }
  461. CString CStatDlg::GetMaterielName(long materielid)
  462. {
  463. _RecordsetPtr m_pRecordset; //Must define it in function!!!!
  464. CString sql,smaterielid,sname;
  466. smaterielid.Format("%d",materielid);
  467. sql="Select NAME from MATERIEL where ID="+smaterielid+"";
  468. try
  469. {
  470. m_pRecordset.CreateInstance("ADODB.Recordset");
  471. m_pRecordset->Open((_variant_t)sql,_variant_t((IDispatch*)theApp.m_pConnection,true),adOpenDynamic,adLockOptimistic,adCmdText);
  473. if(!m_pRecordset->adoEOF)
  474. sname=(LPCTSTR)(_bstr_t)m_pRecordset->GetCollect("NAME");
  475. }
  476. catch(_com_error e)///捕捉异常
  477. {
  478. CString temp;
  479. temp.Format("获取商品名称出错:%s",e.ErrorMessage());
  480. AfxMessageBox(temp);
  481. }
  482. return sname;
  483. }
  485. void CStatDlg::OnButtonPrintreport() 
  486. {
  487. //获得行数
  488. int ncount = m_oListreport.GetCount();
  489. if(ncount==0)
  490. {
  491. MessageBox("无打印内容!");
  492. return;
  493. }
  494. int i;
  496. CDC dc;
  497. //把打印设备环境附加到DC对象
  498. CPrintDialog pdlg(FALSE,PD_NOPAGENUMS|PD_NOSELECTION,this);
  499. BOOL bFindPrinter=pdlg.GetDefaults();
  500. if(!bFindPrinter)
  501. return;
  502. dc.Attach(pdlg.GetPrinterDC());
  504. //取打印机的横方向和纵方向的分辨率
  505. //即每英寸点数
  506. short cxInch = dc.GetDeviceCaps(LOGPIXELSX);
  507. short cyInch = dc.GetDeviceCaps(LOGPIXELSY);
  508. //字体
  509. CFont font;
  510. VERIFY(font.CreatePointFont(96, "宋体", &dc));//为DC创建字体
  511. CFont* def_font = dc.SelectObject(&font);//保存现在的字体
  513. //根据字体宽度、高度计算每行最大字数及每页最大行数
  514. //取打印纸张高度和宽度
  515. int nPageHeight, nPageWidth;
  516. nPageHeight = dc.GetDeviceCaps(VERTRES);
  517. nPageWidth = dc.GetDeviceCaps(HORZRES);
  519. TEXTMETRIC TextM;
  520. dc.GetTextMetrics(&TextM);
  521. //字体高度 //字体平均宽度
  522. int nCharHeight = (unsigned short)TextM.tmHeight;
  523. int nCharWidth=(unsigned short)TextM.tmAveCharWidth;
  525. //每行最大字数 //每页最大行数
  526. int m_MaxLineChar = nPageWidth / nCharWidth - 8; 
  527. //每页最大行数
  528. int nMaxLinePerPage = nPageHeight/nCharHeight -3;
  529. int nCurPage =1;
  530. //页边距
  531. int nXMargin = 2;
  532. int nYMargin = 2;
  534. //设置所需打印纸张数目
  535. DOCINFO di;
  536. di.cbSize = sizeof(DOCINFO);
  537. di.lpszDocName = "Report printing"; 
  538. di.lpszOutput = (LPTSTR) NULL; 
  539. di.lpszDatatype = (LPTSTR) NULL; 
  540. di.fwType = 0; 
  541. dc.StartDoc(&di);
  542. dc.StartPage();
  544. //输出报表名称
  545. CString stitle,sftitle,space="";
  546. m_oListreport.GetWindowText(stitle);
  547. int n=(36-stitle.GetLength())/2;
  548. for(i=0;i<n;i++)
  549. space=space+" ";
  550. sftitle=space+stitle;
  551. dc.TextOut(2, nYMargin+nCharHeight,sftitle, strlen(sftitle));
  553. //输出报表内容
  554. CString sline;
  555. for(i=0; i<ncount; i++)
  556. {
  557. if(ncount+7-(nCurPage-1)*nMaxLinePerPage > nMaxLinePerPage)
  558. {
  559. //新的一页
  560. dc.EndPage();
  561. dc.StartPage();
  562. nCurPage ++;
  563. }
  564. m_oListreport.GetText(i, sline);//得到选中项的文本
  565. dc.TextOut( 2, nYMargin+(i+1-(nCurPage-1)*nMaxLinePerPage)*nCharHeight, 
  566. sline, strlen(sline));
  567. }
  569. dc.EndPage();
  570. dc.EndDoc();
  571. //打印结束
  572. //最后不要忘记将字体还原，这一句是必需的
  573. dc.SelectObject(def_font); //恢复原来的字体
  574. font.DeleteObject(); 
  576. DeleteDC(dc.Detach()); 
  577. }