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

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

酒店行业

开发平台：

Java

MaterielDlg.cpp：源码内容
  1. // MaterielDlg.cpp : implementation file
  2. //
  4. #include "stdafx.h"
  5. #include "MyPos.h"
  6. #include "MaterielDlg.h"
  7. #include "ClassDlg.h"
  9. #ifdef _DEBUG
  10. #define new DEBUG_NEW
  11. #undef THIS_FILE
  12. static char THIS_FILE[] = __FILE__;
  13. #endif
  15. /////////////////////////////////////////////////////////////////////////////
  16. // CMaterielDlg dialog
  17. extern CMyPosApp theApp;
  19. CMaterielDlg::CMaterielDlg(CWnd* pParent /*=NULL*/)
  20. : CDialog(CMaterielDlg::IDD, pParent)
  21. {
  22. //{{AFX_DATA_INIT(CMaterielDlg)
  23. m_mname = _T("");
  24. //}}AFX_DATA_INIT
  25. }
  28. void CMaterielDlg::DoDataExchange(CDataExchange* pDX)
  29. {
  30. CDialog::DoDataExchange(pDX);
  31. //{{AFX_DATA_MAP(CMaterielDlg)
  32. DDX_Control(pDX, IDC_LIST_MATERIEL, m_oListmateriel);
  33. DDX_Control(pDX, IDC_TREE_MCLASS, m_oMclass);
  34. DDX_Control(pDX, IDC_CHECK_SUPPLY, m_oSupply);
  35. DDX_Control(pDX, IDC_EDIT_MSHOPCODE, m_oMshopcode);
  36. DDX_Control(pDX, IDC_EDIT_MPRICE, m_oMprice);
  37. DDX_Control(pDX, IDC_EDIT_MNAME, m_oMname);
  38. DDX_Control(pDX, IDC_EDIT_MBARCODE, m_oMbarcode);
  39. DDX_Control(pDX, IDC_COMBO_MDISCOUNT, m_oMdiscount);
  40. DDX_Text(pDX, IDC_EDIT_MNAME, m_mname);
  41. //}}AFX_DATA_MAP
  42. }
  45. BEGIN_MESSAGE_MAP(CMaterielDlg, CDialog)
  46. //{{AFX_MSG_MAP(CMaterielDlg)
  47. ON_BN_CLICKED(IDC_BUTTON_MSAVE, OnButtonMsave)
  48. ON_BN_CLICKED(IDC_BUTTON_MADD, OnButtonMadd)
  49. ON_BN_CLICKED(IDC_BUTTON_MDEL, OnButtonMdel)
  50. ON_NOTIFY(TVN_SELCHANGED, IDC_TREE_MCLASS, OnSelchangedTreeMclass)
  51. ON_NOTIFY(NM_CLICK, IDC_LIST_MATERIEL, OnClickListMateriel)
  52. ON_WM_SHOWWINDOW()
  53. //}}AFX_MSG_MAP
  54. END_MESSAGE_MAP()
  56. /////////////////////////////////////////////////////////////////////////////
  57. // CMaterielDlg message handlers
  59. void CMaterielDlg::OnButtonMsave() 
  60. {
  61. CString sql="select * from Materiel";
  62. CString snewid,sname,sdiscount,sprice,ssupply,sshopcode,sbarcode;
  63. CString sMID;
  64. _RecordsetPtr m_pRecordset; //Must define it in function!!!!
  66. UpdateData();
  68. //检查数据完整性
  69. m_oMname.GetWindowText(sname);//Get the current text in edit.
  70. m_oMprice.GetWindowText(sprice);
  71. if(sname==""||sprice=="")
  72. {
  73. AfxMessageBox("请输入商品名称、价格！");
  74. return;
  75. }
  76. m_oMname.GetWindowText(sname);//Get the current text in edit.
  78. int discount=m_oMdiscount.GetCurSel();
  79. sdiscount.Format("%d",discount);
  81. if(m_oSupply.GetCheck()==0) ssupply="0";
  82. if(m_oSupply.GetCheck()==1) ssupply="1";
  84. m_oMprice.GetWindowText(sprice);
  85. m_oMshopcode.GetWindowText(sshopcode);
  86. m_oMbarcode.GetWindowText(sbarcode);
  88. if(lNewID>lMID)
  89. {
  90. if(bRepeat(sname)==TRUE)
  91. {
  92. AfxMessageBox("商品名称重复，请重新输入！");
  93. return;
  94. }
  95. snewid.Format("%d",lNewID);
  96. try
  97. { 
  98. m_pRecordset.CreateInstance("ADODB.Recordset");
  99. m_pRecordset->Open((_variant_t)sql,_variant_t((IDispatch*)theApp.m_pConnection,true),adOpenStatic,adLockOptimistic,adCmdText);
  101.    m_pRecordset->AddNew();//insert the current into database.
  102. m_pRecordset->PutCollect("ID",_variant_t(snewid));
  103. m_pRecordset->PutCollect("NAME",_variant_t(sname));
  104. m_pRecordset->PutCollect("DISCOUNT",_variant_t(sdiscount));//Here m_discount must be a float.
  105. m_pRecordset->PutCollect("SUPPLY",_variant_t(ssupply));
  106. m_pRecordset->PutCollect("PRICE",_variant_t(sprice));
  107. m_pRecordset->PutCollect("SHOPCODE",_variant_t(sshopcode));
  108. m_pRecordset->PutCollect("BARCODE",_variant_t(sbarcode));
  109. m_pRecordset->PutCollect("CLASSID",_variant_t(sclassid));
  111. m_pRecordset->Update();//保存到库中    
  112. m_pRecordset->Close();
  113. UpdateData(FALSE);
  114. }
  115. catch(_com_error e)///捕捉异常
  116. {
  117. CString temp;
  118. temp.Format("增加商品出错:%s",e.ErrorMessage());
  119. AfxMessageBox(temp);
  120. return;
  121. }
  122. }
  123. else if(AfxMessageBox("确定修改商品资料吗？",MB_YESNO)==IDYES)
  124. {
  125. _variant_t RecordsAffected;
  126. sMID.Format("%d",lMID);
  127. sql="Update MATERIEL set NAME='"+sname+
  128. "',PRICE="+sprice+
  129. ",DISCOUNT="+sdiscount+
  130. ",SHOPCODE='"+sshopcode+
  131. "',BARCODE='"+sbarcode+
  132. "',SUPPLY="+ssupply+" where ID="+sMID+"";
  133. try
  134. { 
  135. theApp.m_pConnection->Execute((_bstr_t)sql,&RecordsAffected,adCmdText);
  136. UpdateData(FALSE);
  137. }
  138. catch(_com_error e)///捕捉异常
  139. {
  140. CString temp;
  141. temp.Format("修改商品资料出错:%s",e.ErrorMessage());
  142. AfxMessageBox(temp);
  143. return;
  144. }
  145. }
  146. CString sql1="Select * from MATERIEL where CLASSID="+sclassid+"";
  147. ReadtoList(sql1);
  148. }
  150. long CMaterielDlg::GenNewID()
  151. {
  152. CString sql;
  153. long NewID;
  154. _RecordsetPtr m_pRecordset; //Must define it in function!!!!
  156. sql="SELECT Max(ID) FROM MATERIEL";
  157. try
  158. { 
  159. m_pRecordset.CreateInstance("ADODB.Recordset");
  160. m_pRecordset->Open((_variant_t)sql,_variant_t((IDispatch*)theApp.m_pConnection,true),adOpenStatic,adLockOptimistic,adCmdText);
  162. _variant_t vIndex = (long)0;//How to get field value in only 1 record and 1 field condition.
  163. _variant_t vtemp = m_pRecordset->GetCollect(vIndex);
  164. if(vtemp.lVal>0) 
  165. NewID =(long)(m_pRecordset->GetCollect(vIndex))+1;///取得第一个字段的值(MAX ID)加1后放入id变量.
  166. else
  167. NewID=1;
  168. m_pRecordset->Close();
  169. }
  170. catch(_com_error e)///捕捉异常
  171. {
  172. CString stemp;
  173. stemp.Format("获取类别ID最大值出错:%s",e.ErrorMessage());
  174. AfxMessageBox(stemp);
  175. }
  176. return NewID;
  177. }
  179. void CMaterielDlg::AddSubTree(CString ParTree, HTREEITEM hPartItem)
  180. {
  181. HTREEITEM hCurrent;
  182. CString sql;
  183. CString curID;
  184. _RecordsetPtr m_pTRecordset; //Must define it in function!!!Becourse this is a RECURSION function.
  186. sql="SELECT * FROM MATERIELCLASS where PARENT='";
  187. sql=sql+ParTree+"'";//The 1st time Partree="1".
  188. try
  189. {
  190. m_pTRecordset.CreateInstance("ADODB.Recordset");
  191. m_pTRecordset->Open((_variant_t)sql,_variant_t((IDispatch*)theApp.m_pConnection,true),adOpenDynamic,adLockOptimistic,adCmdText);
  193. m_pTRecordset->MoveFirst();
  194. if(!m_pTRecordset->adoEOF)
  195. {
  196. while(!m_pTRecordset->adoEOF)
  197. {
  198. hCurrent = m_oMclass.InsertItem((LPCTSTR)(_bstr_t)(m_pTRecordset->GetCollect("NAME")), hPartItem, NULL);//Insert an item into current parent.
  200. curID=CClassDlg::VariantToCString(m_pTRecordset->GetCollect("ID"));
  201. if (CClassDlg::TreeSumRecordCount(curID)>0)
  202. AddSubTree(CClassDlg::VariantToCString(m_pTRecordset->GetCollect("ID")),hCurrent);//Recursion.
  204. if (!m_pTRecordset->adoEOF)
  205. m_pTRecordset->MoveNext();
  206. }
  207. }
  208. m_pTRecordset->Close();
  209. }
  210. catch(_com_error e)///捕捉异常
  211. {
  212. CString temp;
  213. temp.Format("[商品资料]读取子树出错:%s",e.ErrorMessage());
  214. AfxMessageBox(temp);
  215. return;
  216. }
  217. }
  219. void CMaterielDlg::AddTree()
  220. {
  221. TVINSERTSTRUCT tvInsert;
  222. HTREEITEM hParent;
  223. _RecordsetPtr m_pTRecordset; //Must define it in function!!!Becourse this is a RECURSION function.
  224. CString sroot,sql;
  226. tvInsert.hParent = NULL;
  227. tvInsert.hInsertAfter = NULL;
  228. tvInsert.item.mask = TVIF_TEXT;
  230. // tvInsert.item.pszText = _T("root");
  231. hParent = m_oMclass.InsertItem(&tvInsert);//HTREEITEM of root.
  233. sql="SELECT * FROM MATERIELCLASS where ID=1";
  234. try
  235. {
  236. m_pTRecordset.CreateInstance("ADODB.Recordset");
  237. m_pTRecordset->Open((_variant_t)sql,_variant_t((IDispatch*)theApp.m_pConnection,true),adOpenDynamic,adLockOptimistic,adCmdText);
  239. if(!m_pTRecordset->adoEOF)
  240. {
  241. sroot=(LPTSTR)(_bstr_t)m_pTRecordset->GetCollect("NAME");//Insert an item into current parent.
  242. }
  243. m_pTRecordset->Close();
  244. }
  245. catch(_com_error e)///捕捉异常
  246. {
  247. CString errormessage;
  248. errormessage.Format("[商品资料] 读取树出错:%s",e.ErrorMessage());
  249. AfxMessageBox(errormessage);
  250. }
  251. // tvInsert.item.pszText = _T("root");
  252. if(sroot!="")
  253. {
  254. // tvInsert.item.pszText =_T("");
  255. hParent = m_oMclass.InsertItem(&tvInsert);//HTREEITEM of root.
  257. AddSubTree("RootClass",hParent);//Here strChildTree just must not equal "root",can be anyother string.
  258. }
  259. // AddSubTree("1",hParent);//Here strChildTree just must not equal "root",can be anyother string.
  261. m_oMclass.Expand(hParent,TVE_EXPAND);
  262. }
  264. BOOL CMaterielDlg::OnInitDialog() 
  265. {
  266. CDialog::OnInitDialog();
  268. //设置list控件的文字和背景颜色
  269. m_oListmateriel.SetBkColor(RGB(255,255,255));
  270. m_oListmateriel.SetTextBkColor(RGB(161,223,212));
  272. //清空list控件的数据
  273. for(int delcolumn=100;delcolumn>=0;delcolumn--)
  274. m_oListmateriel.DeleteColumn(delcolumn);
  275. //设置list对话框的列
  276. DWORD dwStyle;
  277. RECT rect;
  278. LV_COLUMN lvc;
  280. dwStyle = m_oListmateriel.GetStyle();
  281. dwStyle |= LVS_EX_GRIDLINES |LVS_EX_FULLROWSELECT|LVS_SHOWSELALWAYS ;
  283. m_oListmateriel.SetExtendedStyle(dwStyle);
  284. m_oListmateriel.GetClientRect(&rect);
  286. lvc.mask = LVCF_TEXT | LVCF_SUBITEM | LVCF_WIDTH |LVCF_FMT;
  287. lvc.fmt=LVCFMT_LEFT;
  289. lvc.iSubItem = 0;
  290. lvc.pszText = _T("类别");
  291. lvc.cx = 80;
  292. m_oListmateriel.InsertColumn(1,&lvc);
  294. lvc.iSubItem = 1;
  295. lvc.pszText = _T("名称");
  296. lvc.cx = 150;
  297. m_oListmateriel.InsertColumn(2,&lvc);
  299. lvc.iSubItem = 2;
  300. lvc.pszText = _T("价格");
  301. lvc.cx = 65;
  302. m_oListmateriel.InsertColumn(3,&lvc);
  304. //Read the 1st class's materiels to list.
  305. // CString sql="Select * from MATERIEL where CLASSID=1";
  306. // ReadtoList(sql);
  308. return TRUE;  // return TRUE unless you set the focus to a control
  309.               // EXCEPTION: OCX Property Pages should return FALSE
  310. }
  312. void CMaterielDlg::OnButtonMadd() 
  313. {
  314. m_oMname.SetWindowText("");
  315. m_oMprice.SetWindowText("");
  316. m_oMshopcode.SetWindowText("");
  317. m_oMbarcode.SetWindowText("");
  318. lNewID=GenNewID();
  319. }
  321. void CMaterielDlg::OnButtonMdel() 
  322. {
  323. CString sql, stemp,ssclassid;
  324. _RecordsetPtr m_pRecordset;
  325. long lclassid;
  327. m_oMname.GetWindowText(stemp);//得到选中项的文本
  328. if(stemp=="")
  329. return;
  331. sql="select * from MATERIEL where NAME='"+stemp+"'";
  332. try
  333. { 
  334. m_pRecordset.CreateInstance("ADODB.Recordset");
  335. m_pRecordset->Open((_variant_t)sql,_variant_t((IDispatch*)theApp.m_pConnection,true),adOpenStatic,adLockOptimistic,adCmdText);
  337. lclassid=(long)(m_pRecordset->GetCollect("CLASSID"));
  338. if(AfxMessageBox("确定删除此商品吗？",MB_YESNO)==IDYES)
  339. {
  340. m_pRecordset->Delete(adAffectCurrent);///删除当前记录
  341. }
  342. else
  343. return;
  344. m_pRecordset->Update();   
  345. }
  346. catch(_com_error e)///捕捉异常
  347. {
  348. CString temp;
  349. temp.Format("删除商品出错:%s",e.ErrorMessage());
  350. AfxMessageBox(temp);
  351. return;
  352. }
  353. ssclassid.Format("%d",lclassid);
  354. CString sql1="Select * from MATERIEL Where CLASSID="+ssclassid+"";
  355. ReadtoList(sql1);
  356. }
  358. void CMaterielDlg::ReadtoList(CString sql)
  359. {
  360. _RecordsetPtr m_pRecordset; //Must define it in function!!!!
  362. //删除所有list中的数据。
  363. m_oListmateriel.DeleteAllItems();
  365. int numline=0;
  366. try
  367. {
  368. m_pRecordset.CreateInstance("ADODB.Recordset");
  369. m_pRecordset->Open((_variant_t)sql,_variant_t((IDispatch*)theApp.m_pConnection,true),adOpenStatic,adLockOptimistic,adCmdText);
  370. LV_ITEM lvitem;
  371. lvitem.pszText="";
  372. lvitem.mask=LVIF_TEXT;
  373. lvitem.iSubItem=0;
  374. while(!m_pRecordset->adoEOF)
  375. {
  376. lvitem.iItem=numline;
  377. m_oListmateriel.InsertItem(&lvitem);
  378. //读出数据写入到list中
  379. // m_oListmateriel.SetItemText(numline,0,(LPCTSTR)(_bstr_t)m_pRecordset->GetCollect("CLASSID"));
  380. m_oListmateriel.SetItemText(numline,0,curtext);
  381. m_oListmateriel.SetItemText(numline,1,(LPCTSTR)(_bstr_t)m_pRecordset->GetCollect("NAME"));
  382. float fprice=(float)m_pRecordset->GetCollect("PRICE");
  383. CString sprice;
  384. sprice.Format("%.2f",fprice);
  385. m_oListmateriel.SetItemText(numline,2,sprice);
  386. numline++;
  387. m_pRecordset->MoveNext();
  388. }
  389. m_pRecordset->Close();
  390. }
  391. catch(_com_error e)///捕捉异常
  392. {
  393. CString temp;
  394. temp.Format("读取商品到列表出错:%s",e.ErrorMessage());
  395. AfxMessageBox(temp);
  396. return;
  397. }
  398. //设置标题
  399. CString temp;
  400. temp.Format("共有%d条记录",numline);
  401. SetWindowText(temp);
  402. }
  404. void CMaterielDlg::OnSelchangedTreeMclass(NMHDR* pNMHDR, LRESULT* pResult) 
  405. {
  406. NM_TREEVIEW* pNMTreeView = (NM_TREEVIEW*)pNMHDR;
  408. CString sql,sql1;
  409. long lclassid;
  410. _RecordsetPtr m_pRecordset; //Must define it in function!!!
  411. HTREEITEM hCurItem;
  413. //Clear text in edit.
  414. m_oMname.SetWindowText("");
  415. m_oMprice.SetWindowText("");
  416. m_oMshopcode.SetWindowText("");
  417. m_oMbarcode.SetWindowText("");
  418. lNewID=0;//Refresh lNewID's value.
  420. hCurItem=m_oMclass.GetSelectedItem ();//Get Current item and its sub items.
  421. curtext=m_oMclass.GetItemText(hCurItem);//Read current item text into edit control.
  422. sql="SELECT * FROM MATERIELCLASS where NAME='"+curtext+"'";
  423. try
  424. {
  425. m_pRecordset.CreateInstance("ADODB.Recordset");
  426. m_pRecordset->Open((_variant_t)sql,_variant_t((IDispatch*)theApp.m_pConnection,true),adOpenDynamic,adLockOptimistic,adCmdText);
  427. if(!m_pRecordset->adoEOF)
  428. {
  429. lclassid=(long)(m_pRecordset->GetCollect("ID"));
  430. }
  431. m_pRecordset->Close();
  432. }
  433. catch(_com_error e)///捕捉异常
  434. {
  435. CString temp;
  436. temp.Format("获取类别名称出错:%s",e.ErrorMessage());
  437. AfxMessageBox(temp);
  438. return;
  439. }
  441. sclassid.Format("%d",lclassid);
  442. sql1="Select * from MATERIEL where CLASSID="+sclassid+"";
  443. ReadtoList(sql1);
  445. UpdateData(false);
  447. *pResult = 0;
  448. }
  450. void CMaterielDlg::OnClickListMateriel(NMHDR* pNMHDR, LRESULT* pResult) 
  451. {
  452. CString smname,sshopcode,sbarcode,sprice;
  453. CString sql;
  454. float fprice;
  455. int ndiscount,nsupply;
  456. _RecordsetPtr m_pRecordset; //Must define it in function!!!
  458. m_oMname.SetWindowText("");
  459. m_oMprice.SetWindowText("");
  460. m_oMshopcode.SetWindowText("");
  461. m_oMbarcode.SetWindowText("");
  463. //得到当前选中的行
  464. POSITION pos = m_oListmateriel.GetFirstSelectedItemPosition();
  465. //如果选中一行
  466. if(pos)
  467. {
  468. int nItem = m_oListmateriel.GetNextSelectedItem(pos);
  469. smname=m_oListmateriel.GetItemText(nItem,1);
  470. m_oMname.SetWindowText(smname);
  472. lNewID=0;//Refresh lNewID's value.
  473. sql="Select * from MATERIEL where NAME='"+smname+"'";
  474. try
  475. {
  476. m_pRecordset.CreateInstance("ADODB.Recordset");
  477. m_pRecordset->Open((_variant_t)sql,_variant_t((IDispatch*)theApp.m_pConnection,true),adOpenDynamic,adLockOptimistic,adCmdText);
  478. if(!m_pRecordset->adoEOF)
  479. {
  480. lMID=(long)(m_pRecordset->GetCollect("ID"));
  481. fprice=(float)(m_pRecordset->GetCollect("PRICE"));
  482. ndiscount=(long)m_pRecordset->GetCollect("DISCOUNT");
  483. nsupply=(long)m_pRecordset->GetCollect("SUPPLY");
  484. sshopcode=(LPCTSTR)(_bstr_t)m_pRecordset->GetCollect("SHOPCODE");
  485. sbarcode=(LPCTSTR)(_bstr_t)m_pRecordset->GetCollect("BARCODE");
  486. sprice.Format("%.2f",fprice);
  487. m_oMprice.SetWindowText(sprice);
  488. m_oMshopcode.SetWindowText(sshopcode);
  489. m_oMbarcode.SetWindowText(sbarcode);
  490. m_oMdiscount.SetCurSel(ndiscount);
  491. m_oSupply.SetCheck(nsupply);
  492. }
  493. m_pRecordset->Close();
  494. }
  495. catch(_com_error e)///捕捉异常
  496. {
  497. CString temp;
  498. temp.Format("读取商品资料到控件出错:%s",e.ErrorMessage());
  499. AfxMessageBox(temp);
  500. return;
  501. }
  502. }
  504. *pResult = 0;
  505. }
  507. BOOL CMaterielDlg::bRepeat(CString strFieldValue)
  508. {
  509. CString sql;
  510. BOOL br;
  511. _RecordsetPtr m_pRecordset; //Must define it in function!!!!
  513. sql="SELECT * FROM MATERIEL WHERE NAME='";
  514. sql=sql+strFieldValue+"'";
  515. try
  516. { 
  517. m_pRecordset.CreateInstance("ADODB.Recordset");
  518. m_pRecordset->Open((_variant_t)sql,_variant_t((IDispatch*)theApp.m_pConnection,true),adOpenStatic,adLockOptimistic,adCmdText);
  520. if(m_pRecordset->adoEOF)
  521. br=FALSE;
  522. if(!m_pRecordset->adoEOF)
  523. br=TRUE;
  524. m_pRecordset->Close();
  525. }
  526. catch(_com_error e)///捕捉异常
  527. {
  528. CString stemp;
  529. stemp.Format("查找商品名称出错:%s",e.ErrorMessage());
  530. AfxMessageBox(stemp);
  531. }
  532. return br;
  533. }
  535. void CMaterielDlg::OnShowWindow(BOOL bShow, UINT nStatus) 
  536. {
  537. CDialog::OnShowWindow(bShow, nStatus);
  539. m_oMclass.DeleteAllItems();
  540. AddTree();
  541. }