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

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

酒店行业

开发平台：

Java

ClassDlg.cpp：源码内容
  1. // ClassDlg.cpp : implementation file
  2. //
  4. #include "stdafx.h"
  5. #include "MyPos.h"
  6. #include "ClassDlg.h"
  8. #ifdef _DEBUG
  9. #define new DEBUG_NEW
  10. #undef THIS_FILE
  11. static char THIS_FILE[] = __FILE__;
  12. #endif
  14. /////////////////////////////////////////////////////////////////////////////
  15. // CClassDlg dialog
  16. extern CMyPosApp theApp;
  19. CClassDlg::CClassDlg(CWnd* pParent /*=NULL*/)
  20. : CDialog(CClassDlg::IDD, pParent)
  21. {
  22. //{{AFX_DATA_INIT(CClassDlg)
  23. m_classname = _T("");
  24. m_radiodiscount = -1;
  25. m_tempid = 0;
  26. //}}AFX_DATA_INIT
  27. }
  30. void CClassDlg::DoDataExchange(CDataExchange* pDX)
  31. {
  32. CDialog::DoDataExchange(pDX);
  33. //{{AFX_DATA_MAP(CClassDlg)
  34. DDX_Control(pDX, IDC_RADIO1_DISCOUNT, m_oRadiodiscount);
  35. DDX_Control(pDX, IDC_EDIT_CLASSNAME, m_oClassname);
  36. DDX_Control(pDX, IDC_TREE_CLASS, m_oTreeclass);
  37. DDX_Text(pDX, IDC_EDIT_CLASSNAME, m_classname);
  38. DDX_Radio(pDX, IDC_RADIO1_DISCOUNT, m_radiodiscount);
  39. DDX_Text(pDX, IDC_TEMPID, m_tempid);
  40. //}}AFX_DATA_MAP
  41. }
  44. BEGIN_MESSAGE_MAP(CClassDlg, CDialog)
  45. //{{AFX_MSG_MAP(CClassDlg)
  46. ON_NOTIFY(TVN_SELCHANGED, IDC_TREE_CLASS, OnSelchangedTreeClass)
  47. ON_BN_CLICKED(IDC_BUTTON_ADDSAME, OnButtonAddsame)
  48. ON_BN_CLICKED(IDC_BUTTON_ADDSUB, OnButtonAddsub)
  49. ON_BN_CLICKED(IDC_BUTTON_DEL, OnButtonDel)
  50. ON_BN_CLICKED(IDC_BUTTON_SAVE, OnButtonSave)
  51. //}}AFX_MSG_MAP
  52. END_MESSAGE_MAP()
  54. /////////////////////////////////////////////////////////////////////////////
  55. // CClassDlg message handlers
  57. void CClassDlg::OnSelchangedTreeClass(NMHDR* pNMHDR, LRESULT* pResult) 
  58. {
  59. NM_TREEVIEW* pNMTreeView = (NM_TREEVIEW*)pNMHDR;
  60. CString sql;
  61. CString curtext;
  62. _RecordsetPtr m_pRecordset; //Must define it in function!!!
  63. HTREEITEM hCurItem;
  65. hCurItem=m_oTreeclass.GetSelectedItem ();//Get Current item and its sub items.
  66. curtext=m_oTreeclass.GetItemText(hCurItem);//Read current item text into edit control.
  67. m_classname=curtext;
  68. sql="SELECT * FROM MATERIELCLASS where NAME='"+curtext+"'";
  69. try
  70. {
  71. m_tempid=0;
  72. m_pRecordset.CreateInstance("ADODB.Recordset");
  73. m_pRecordset->Open((_variant_t)sql,_variant_t((IDispatch*)theApp.m_pConnection,true),adOpenDynamic,adLockOptimistic,adCmdText);
  74. if(!m_pRecordset->adoEOF)
  75. {
  76. m_tempid=(long)(m_pRecordset->GetCollect("ID"));
  77. Curpar=VariantToCString(m_pRecordset->GetCollect("PARENT"));
  79. if((float)(m_pRecordset->GetCollect("DISCOUNT"))==0)
  80. m_radiodiscount=0;
  81. if((float)(m_pRecordset->GetCollect("DISCOUNT"))==1)
  82. m_radiodiscount=1;
  83. }
  84. m_pRecordset->Close();
  85. }
  86. catch(_com_error e)///捕捉异常
  87. {
  88.  CString errormessage;
  89.  MessageBox("读取单选按钮出错！",m_classname);
  90. }
  92. UpdateData(false);
  94. *pResult = 0;
  95. }
  97. void CClassDlg::AddSubTree(CString ParTree, HTREEITEM hPartItem)
  98. {
  99. HTREEITEM hCurrent;
  100. CString sql;
  101. CString curID;
  102. _RecordsetPtr m_pTRecordset; //Must define it in function!!!Becourse this is a RECURSION function.
  104. sql="SELECT * FROM MATERIELCLASS where PARENT='";
  105. sql=sql+ParTree+"'";//The 1st time Partree="1".
  106. try
  107. {
  108. m_pTRecordset.CreateInstance("ADODB.Recordset");
  109. m_pTRecordset->Open((_variant_t)sql,_variant_t((IDispatch*)theApp.m_pConnection,true),adOpenDynamic,adLockOptimistic,adCmdText);
  111. m_pTRecordset->MoveFirst();
  112. if(!m_pTRecordset->adoEOF)
  113. {
  114. while(!m_pTRecordset->adoEOF)
  115. {
  116. hCurrent = m_oTreeclass.InsertItem((LPCTSTR)(_bstr_t)(m_pTRecordset->GetCollect("NAME")), hPartItem, NULL);//Insert an item into current parent.
  118. curID=VariantToCString(m_pTRecordset->GetCollect("ID"));
  119. if (TreeSumRecordCount(curID)>0)
  120. AddSubTree(VariantToCString(m_pTRecordset->GetCollect("ID")),hCurrent);//Recursion.
  122. if (!m_pTRecordset->adoEOF)
  123. m_pTRecordset->MoveNext();
  124. }
  125. }
  126. m_pTRecordset->Close();
  127. }
  128. catch(_com_error e)///捕捉异常
  129. {
  130.  CString errormessage;
  131.  MessageBox("读取类别子树出错！",ParTree);
  132. }
  133. }
  135. void CClassDlg::AddTree()
  136. {
  137. TVINSERTSTRUCT tvInsert;
  138. HTREEITEM hParent;
  139. _RecordsetPtr m_pTRecordset; //Must define it in function!!!Becourse this is a RECURSION function.
  140. CString sroot,sql;
  142. tvInsert.hParent = NULL;
  143. tvInsert.hInsertAfter = NULL;
  144. tvInsert.item.mask = TVIF_TEXT;
  146. sql="SELECT * FROM MATERIELCLASS where ID=1";
  147. try
  148. {
  149. m_pTRecordset.CreateInstance("ADODB.Recordset");
  150. m_pTRecordset->Open((_variant_t)sql,_variant_t((IDispatch*)theApp.m_pConnection,true),adOpenDynamic,adLockOptimistic,adCmdText);
  152. if(!m_pTRecordset->adoEOF)
  153. sroot=(LPTSTR)(_bstr_t)m_pTRecordset->GetCollect("NAME");//Insert an item into current parent.
  154. m_pTRecordset->Close();
  155. }
  156. catch(_com_error e)///捕捉异常
  157. {
  158. CString errormessage;
  159. errormessage.Format("读取类别树出错:%s",e.ErrorMessage());
  160. AfxMessageBox(errormessage);
  161. }
  162. // tvInsert.item.pszText = _T("root");
  163. if(sroot!="")
  164. {
  165. // tvInsert.item.pszText =_T("");//User this line to give the tree a sum root.
  166. hParent = m_oTreeclass.InsertItem(&tvInsert);//HTREEITEM of root.
  168. // AddSubTree("1",hParent);//Here strChildTree just must not equal "root",can be anyother string.
  169. AddSubTree("RootClass",hParent);//Here strChildTree just must not equal "root",can be anyother string.
  170. }
  171. m_oTreeclass.Expand(hParent,TVE_EXPAND);
  172. }
  174. int CClassDlg::TreeSumRecordCount(CString strFieldValue)
  175. {
  176. int Sum=0;
  177. CString sql;
  178. _RecordsetPtr m_pRecordset; //Must define it in function!!!!
  180. sql="SELECT * FROM MATERIELCLASS where PARENT ='";
  181. sql=sql+strFieldValue+"'";
  182. try
  183. {
  184. m_pRecordset.CreateInstance("ADODB.Recordset");
  185. m_pRecordset->Open((_variant_t)sql,_variant_t((IDispatch*)theApp.m_pConnection,true),adOpenDynamic,adLockPessimistic,adCmdText);
  187. if(!m_pRecordset->BOF)//If current record is not the first record.
  188. {
  189. m_pRecordset->MoveFirst ();
  190. while(!m_pRecordset->adoEOF)
  191. {
  192. Sum+=1;
  193. m_pRecordset->MoveNext ();
  194. }
  195. }
  196. m_pRecordset->Close();
  197. }
  198. catch(_com_error e)///捕捉异常
  199. {
  200. CString stemp;
  201. stemp.Format("计算类别总数出错:%s",e.ErrorMessage());
  202. AfxMessageBox(stemp);
  203. }
  204. return Sum;
  205. }
  207. CString CClassDlg::VariantToCString(VARIANT var)
  208. {
  209. CString strValue;
  210. _variant_t var_t;
  211. _bstr_t bst_t;
  212. time_t cur_time;
  213. CTime time_value;
  214. COleCurrency var_currency;
  215. switch(var.vt)
  216. {
  217. case VT_EMPTY:strValue=_T("");break;
  218. case VT_UI1:strValue.Format ("%d",var.bVal);break;
  219. case VT_I2:strValue.Format ("%d",var.iVal );break;
  220. case VT_I4:strValue.Format ("%d",var.lVal);break;
  221. case VT_R4:strValue.Format ("%f",var.fltVal);break;
  222. case VT_R8:strValue.Format ("%f",var.dblVal);break;
  223. case VT_CY:
  224. var_currency=var;
  225. strValue=var_currency.Format(0);
  226. break;
  227. case VT_BSTR:
  228. var_t=var;
  229. bst_t=var_t;
  230. strValue.Format ("%s",(const char*)bst_t);
  231. break;
  232. case VT_NULL:strValue=_T("");break;
  233. case VT_DATE:
  234. cur_time=var.date;
  235. time_value=cur_time;
  236. strValue=time_value.Format("%A,%B%d,%Y");
  237. break;
  238. case VT_BOOL:strValue.Format ("%d",var.boolVal );break;
  239. default:strValue=_T("");break;
  240. }
  242. return strValue;
  243. }
  245. BOOL CClassDlg::OnInitDialog() 
  246. {
  247. CDialog::OnInitDialog();
  249. AddTree();
  250. return TRUE;  // return TRUE unless you set the focus to a control
  251.               // EXCEPTION: OCX Property Pages should return FALSE
  252. }
  254. void CClassDlg::OnButtonAddsame() 
  255. {
  256. CString sql;
  257. CString newclassname,Newpar,snewid;
  258. long lNewID;//Get new record id.
  259. _RecordsetPtr m_pRecordset; //Must define it in function!!!!
  261. hParentItem=m_oTreeclass.GetParentItem(m_oTreeclass.GetSelectedItem ());//Get parent item handle.
  263. lNewID=GenNewID();//Call the "GenNewID" function to get a new ID.
  264. snewid.Format("%d",lNewID);
  265. Newpar=Curpar;
  266. newclassname.Format("新类别%d",lNewID);
  268. try
  269. {
  270. _variant_t RecordsAffected;
  271. sql="Insert into MATERIELCLASS (ID,NAME,DISCOUNT,PARENT) VALUES ('"+snewid+"','"+newclassname+"','0','"+Newpar+"')";
  272. if(lNewID==1)
  273. sql="Insert into MATERIELCLASS (ID,NAME,DISCOUNT,PARENT) VALUES (1,'"+newclassname+"','0','RootClass')";
  274. theApp.m_pConnection->Execute((_bstr_t)sql,&RecordsAffected,adCmdText);
  275. }
  276. catch(_com_error e)///捕捉异常
  277. {
  278. CString errormessage;
  279. errormessage.Format("增加同级分类出错:%s",e.ErrorMessage());
  280. AfxMessageBox(errormessage);
  281. }
  282. m_oClassname.SetWindowText(newclassname);
  283. m_oTreeclass.InsertItem((LPCTSTR)(_bstr_t)(newclassname), hParentItem, NULL);//Insert an item into current parent.
  284. }
  286. void CClassDlg::OnButtonAddsub() 
  287. {
  288. CString sql;
  289. CString newclassname,Newpar,snewid;
  290. long lNewID;
  291. _RecordsetPtr m_pRecordset; //Must define it in function!!!!
  293. hCurrentItem=m_oTreeclass.GetSelectedItem ();//Get current item handle as sub's parent.
  295. lNewID=GenNewID();
  296. snewid.Format("%d",lNewID);
  297. Newpar.Format("%d",m_tempid);
  298. newclassname.Format("新类别%d",lNewID);
  300. try
  301. {
  302. _variant_t RecordsAffected;
  303. sql="Insert into MATERIELCLASS (ID,NAME,DISCOUNT,PARENT) VALUES ('"+snewid+"','"+newclassname+"','0','"+Newpar+"')";
  304. if(lNewID==1)
  305. sql="Insert into MATERIELCLASS (ID,NAME,DISCOUNT,PARENT) VALUES (1,'"+newclassname+"','0','RootClass')";
  306. theApp.m_pConnection->Execute((_bstr_t)sql,&RecordsAffected,adCmdText);
  307. }
  308. catch(_com_error e)///捕捉异常
  309. {
  310. CString errormessage;
  311. errormessage.Format("增加下级分类出错:%s",e.ErrorMessage());
  312. AfxMessageBox(errormessage);
  313. }
  314. m_oClassname.SetWindowText(newclassname);
  315. m_oTreeclass.InsertItem((LPCTSTR)(_bstr_t)(newclassname), hCurrentItem, NULL);//Insert an item into current parent.
  316. }
  318. void CClassDlg::OnButtonDel() 
  319. {
  320. CString sql,curID;
  321. _RecordsetPtr m_pRecordset; //Must define it in function!!!!
  322. HTREEITEM hCurItem;
  324. hCurItem=m_oTreeclass.GetSelectedItem ();//Get Current item and its sub items.
  326. sql="SELECT * FROM MATERIELCLASS where NAME ='";
  327. sql=sql+m_classname+"'";
  329. if(AfxMessageBox("确定删除此类别吗？",MB_YESNO)==IDYES)
  330. {
  331. try
  332. {
  333. m_pRecordset.CreateInstance("ADODB.Recordset");
  334. m_pRecordset->Open((_variant_t)sql,_variant_t((IDispatch*)theApp.m_pConnection,true),adOpenDynamic,adLockPessimistic,adCmdText);
  336. if(!m_pRecordset->BOF)//If current record is not the first record.
  337. {
  338. curID=VariantToCString(m_pRecordset->GetCollect("ID"));
  339. if(atol(curID)==1)
  340. {
  341. MessageBox("不能删除ID为1的类别！",m_classname);
  342. return;
  343. }
  344. if (TreeSumRecordCount(curID)==0)
  345. {
  346. if(CountMateriel(curID)>0)
  347. MessageBox("此类别下已有商品，不能删除！");
  348. else
  349. {
  350. m_pRecordset->Delete(adAffectCurrent);///删除当前记录
  351. m_oTreeclass.DeleteItem(hCurItem);
  352. }
  353. }
  354. if (TreeSumRecordCount(curID)>0)
  355. MessageBox("不能删除结点类别！",m_classname);
  356. }
  357. m_pRecordset->Update();
  358. m_pRecordset->Close();
  359. }
  360. catch(_com_error e)///捕捉异常
  361. {
  362. CString errormessage;
  363. MessageBox("删除类别出错！",m_classname);
  364. }
  365. }
  366. }
  368. void CClassDlg::OnButtonSave() 
  369. {
  370. CString sql,parent,name,sdiscount;//,stempid
  371. long discount;
  373. UpdateData();
  374. //检查数据完整性
  375. if(m_classname.IsEmpty())
  376. {
  377. AfxMessageBox("类别名称不能为空！");
  378. return;
  379. }
  381. m_oClassname.GetWindowText(name);//Get the current text in edit.
  383. if(bRepeat(name)==TRUE)
  384. {
  385. AfxMessageBox("类别名称重复！请重新输入！");
  386. return;
  387. }
  389. if(AfxMessageBox("确定要保存修改吗？",MB_YESNO)==IDYES)
  390. {
  391. int nDiscount=GetCheckedRadioButton(IDC_RADIO1_DISCOUNT,IDC_RADIO2_DISCOUNT); 
  392. switch(nDiscount)//Get if it is discount.
  393. {
  394. case IDC_RADIO1_DISCOUNT:
  395. discount=0;
  396. break;
  397. case IDC_RADIO2_DISCOUNT:
  398. discount=1;
  399. break;
  400. default:
  401. break;
  402. }
  403. sdiscount.Format("%d",discount);
  404. // stempid.Format("%d",m_tempid);
  406. try
  407. {
  408. _variant_t RecordsAffected;
  409. // sql="Update MATERIELCLASS set NAME='"+name+"',DISCOUNT='"+sdiscount+"' where ID='"+stempid+"'";
  410. sql.Format("Update MATERIELCLASS set NAME='%s',DISCOUNT=%d where ID=%d",name,discount,m_tempid);//Must add''!!!
  411. theApp.m_pConnection->Execute((_bstr_t)sql,&RecordsAffected,adCmdText);
  413. hCurrentItem=m_oTreeclass.GetSelectedItem ();//Get current item handle as sub's parent.
  414. m_oTreeclass.SetItemText(hCurrentItem,(LPCTSTR)(_bstr_t)(name));
  415. }
  416. catch(_com_error e)///捕捉异常
  417. {
  418. CString stemp;
  419. stemp.Format("修改类别出错:%s",e.ErrorMessage());//
  420. AfxMessageBox(stemp);
  421. return;
  422. }
  423. }
  424. }
  426. BOOL CClassDlg::bRepeat(CString strFieldValue)
  427. {
  428. CString sql;
  429. BOOL br;
  430. _RecordsetPtr m_pRecordset; //Must define it in function!!!!
  432. sql="SELECT * FROM MATERIELCLASS WHERE NAME='";
  433. sql=sql+strFieldValue+"'";
  434. try
  435. { 
  436. m_pRecordset.CreateInstance("ADODB.Recordset");
  437. m_pRecordset->Open((_variant_t)sql,_variant_t((IDispatch*)theApp.m_pConnection,true),adOpenStatic,adLockOptimistic,adCmdText);
  439. if(m_pRecordset->adoEOF)
  440. br=FALSE;
  441. if(!m_pRecordset->adoEOF)
  442. br=TRUE;
  443. m_pRecordset->Close();
  444. }
  445. catch(_com_error e)///捕捉异常
  446. {
  447. CString stemp;
  448. stemp.Format("查找类别名称出错:%s",e.ErrorMessage());
  449. AfxMessageBox(stemp);
  450. }
  451. return br;
  452. }
  454. int CClassDlg::GenNewID()
  455. {
  456. CString sql;
  457. int NewID;
  458. _RecordsetPtr m_pRecordset; //Must define it in function!!!!
  460. sql="SELECT Max(ID) FROM MATERIELCLASS";
  461. try
  462. { 
  463. m_pRecordset.CreateInstance("ADODB.Recordset");
  464. m_pRecordset->Open((_variant_t)sql,_variant_t((IDispatch*)theApp.m_pConnection,true),adOpenStatic,adLockOptimistic,adCmdText);
  466. _variant_t vIndex = (long)0;//How to get field value in only 1 record and 1 field condition.
  467. _variant_t vtemp = m_pRecordset->GetCollect(vIndex);
  468. if(vtemp.lVal>0) 
  469. NewID =(long)(m_pRecordset->GetCollect(vIndex))+1;///取得第一个字段的值(MAX ID)加1后放入id变量.
  470. else
  471. NewID=1;
  472. m_pRecordset->Close();
  473. }
  474. catch(_com_error e)///捕捉异常
  475. {
  476. CString stemp;
  477. stemp.Format("获取类别ID最大值出错:%s",e.ErrorMessage());
  478. AfxMessageBox(stemp);
  479. }
  480. return NewID;
  481. }
  483. int CClassDlg::CountMateriel(CString sclassid)
  484. {
  485. CString sql;
  486. int ncount;
  487. _RecordsetPtr m_pRecordset; //Must define it in function!!!!
  489. sql="SELECT count(*) as XXX FROM MATERIEL where classid="+sclassid+"";
  490. try
  491. { 
  492. m_pRecordset.CreateInstance("ADODB.Recordset");
  493. m_pRecordset->Open((_variant_t)sql,_variant_t((IDispatch*)theApp.m_pConnection,true),adOpenStatic,adLockOptimistic,adCmdText);
  495. ncount =(long)m_pRecordset->GetCollect("XXX");
  496. m_pRecordset->Close();
  497. }
  498. catch(_com_error e)///捕捉异常
  499. {
  500. CString stemp;
  501. stemp.Format("计算类别下商品数量出错:%s",e.ErrorMessage());
  502. AfxMessageBox(stemp);
  503. }
  504. return ncount;
  505. }