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

源码开发语言/平台
当前位置：首页 > 源码/资料 > 数据库系统 > 查看源码
ReduceKinds.cpp
资源名称：Equipment.rar　[点击查看]
上传用户：latoyin
上传日期：2017-10-19
资源大小：2882k
文件大小：7k
源码类别：

数据库系统

开发平台：

Visual C++

ReduceKinds.cpp：源码内容
  1. // ReduceKinds.cpp : implementation file
  2. //
  4. #include "stdafx.h"
  5. #include "Equipment.h"
  6. #include "ReduceKinds.h"
  8. #ifdef _DEBUG
  9. #define new DEBUG_NEW
  10. #undef THIS_FILE
  11. static char THIS_FILE[] = __FILE__;
  12. #endif
  13. extern CEquipmentApp theApp;
  14. /////////////////////////////////////////////////////////////////////////////
  15. // CReduceKinds dialog
  18. CReduceKinds::CReduceKinds(CWnd* pParent /*=NULL*/)
  19. : CDialog(CReduceKinds::IDD, pParent)
  20. {
  21. m_hIcon = AfxGetApp()->LoadIcon(IDR_MAINTITLE);
  22. }
  25. void CReduceKinds::DoDataExchange(CDataExchange* pDX)
  26. {
  27. CDialog::DoDataExchange(pDX);
  28. //{{AFX_DATA_MAP(CReduceKinds)
  29. DDX_Control(pDX, IDC_EDIT1, kind);
  30. DDX_Control(pDX, IDC_LIST, list);
  31. //}}AFX_DATA_MAP
  32. }
  35. BEGIN_MESSAGE_MAP(CReduceKinds, CDialog)
  36. //{{AFX_MSG_MAP(CReduceKinds)
  37. ON_NOTIFY(NM_CLICK, IDC_LIST, OnClickList)
  38. ON_COMMAND(ID_BUTTONADD, OnButtonadd)
  39. ON_COMMAND(ID_BUTTONCLOSE, OnButtonclose)
  40. ON_COMMAND(ID_BUTTONDELETE, OnButtondelete)
  41. ON_COMMAND(ID_BUTTONREFRESH, OnButtonrefresh)
  42. ON_COMMAND(ID_BUTTONUPDATE, OnButtonupdate)
  43. //}}AFX_MSG_MAP
  44. END_MESSAGE_MAP()
  46. /////////////////////////////////////////////////////////////////////////////
  47. // CReduceKinds message handlers
  49. void CReduceKinds::OnOK() 
  50. {
  52. }
  54. BOOL CReduceKinds::OnInitDialog() 
  55. {
  56. CDialog::OnInitDialog();
  57. SetIcon(m_hIcon,true);
  58. //设置列表风格
  59. list.SetExtendedStyle(LVS_REPORT|LVS_EX_FULLROWSELECT|LVS_OWNERDRAWFIXED |LVS_EX_FLATSB|LVS_SHOWSELALWAYS|LVS_EX_HEADERDRAGDROP);
  60. list.InsertColumn(1,"资产减少方式");//向列表中添加列
  61. list.SetColumnWidth(0,300);//设置列宽度
  62. OnButtonrefresh();
  63. toolbar.Create(TBSTYLE_FLAT|CCS_TOP|WS_CHILD|WS_VISIBLE|WS_BORDER|CCS_ADJUSTABLE|TBSTYLE_WRAPABLE,CRect(0,0,0,0),this,IDR_TOOLBAR2);
  64. toolbar.SetBitmapSize(CSize(32,32));
  65. imagelist.Create(32,32,ILC_COLOR32|ILC_MASK,0,0);
  66. for (int n =0;n<5;n++)
  67. {
  68. imagelist.Add(theApp.LoadIcon(n+IDI_ICON1));
  69. }
  71. toolbar.SetImageList(&imagelist);
  72. //toolbar.AddBitmap(5,IDR_TOOLBAR2);
  73. TBBUTTON  buttons[6];
  74. for (int i =0; i<6;i++)
  75. {
  76. CString str;
  77. int strlength;
  78. CCHAR *temp;
  79. str.LoadString(ID_BUTTONADD+i-1);//第一个按钮为分隔条
  80. strlength = str.GetLength()+1;
  81. temp = str.GetBufferSetLength(strlength);
  82. temp[strlength]= '';
  83. temp[strlength-1]= '';
  84. if (i<1)
  85. buttons[i].fsStyle =TBSTYLE_SEP;
  86. else
  87. {
  88. buttons[i].fsStyle =TBSTYLE_BUTTON;
  89. }
  90. buttons[i].fsState =TBSTATE_ENABLED;
  91. buttons[i].dwData =0;
  92. buttons[i].idCommand = ID_BUTTONADD+i-1;
  93. buttons[i].iString = toolbar.AddStrings(temp);
  94. buttons[i].iBitmap = i-1;
  95. str.ReleaseBuffer();
  96. }
  98. toolbar.AutoSize();
  99. toolbar.AddButtons(6,buttons);
  100. toolbar.ShowWindow(SW_SHOW);
  101. return TRUE;  // return TRUE unless you set the focus to a control
  102.               // EXCEPTION: OCX Property Pages should return FALSE
  103. }
  105. BOOL CReduceKinds::PreTranslateMessage(MSG* pMsg) 
  106. {
  107. if (pMsg->message ==WM_KEYDOWN)
  108. if (pMsg->wParam ==13)
  109. pMsg->wParam = 9;
  110. return CDialog::PreTranslateMessage(pMsg);
  111. }
  113. bool CReduceKinds::IsRepeated(CString str)
  114. {
  115. CString sql;
  116. sql.Format("select * from tb_decreasekinds where decreasekinds = '%s'",str);
  117. theApp.datamanage->Record1->raw_Close();
  118. theApp.datamanage->Record1->Open((_bstr_t)sql,theApp.datamanage->GetConn().GetInterfacePtr(),adOpenKeyset,adLockOptimistic,adCmdText);
  119. if(theApp.datamanage->Record1->RecordCount>0)
  120. return true;
  121. return false;
  122. }
  124. void CReduceKinds::OnClickList(NMHDR* pNMHDR, LRESULT* pResult) 
  125. {
  126. int currentrow = list.GetSelectionMark();//得到当前行
  127. if (currentrow!=-1)
  128. {
  129. kind.SetWindowText(list.GetItemText(currentrow,0));
  130. }
  131. else
  132. kind.SetWindowText("");
  133. *pResult = 0;
  134. }
  136. void CReduceKinds::OnButtonadd() 
  137. {
  138. CString str;
  139. kind.GetWindowText(str);
  140. if (!str.IsEmpty())
  141. {
  142. if (!IsRepeated(str))
  143. {
  144. try
  145. {
  146. CString sql;
  147. sql.Format("insert into tb_decreasekinds values ('%s')",str);
  148. theApp.datamanage->ExecSQL(sql);
  149. this->MessageBox("操作成功.","提示",64);
  150. kind.SetWindowText("");
  151. kind.SetFocus();
  152. }
  153. catch(...)
  154. {
  155. this->MessageBox("操作失败.","提示",64);
  156. kind.SetFocus();
  157. kind.SetSel(0);
  158. }
  159. OnButtonrefresh() ;
  160. }
  161. else
  162. MessageBox("该类别已存在.","提示",64);
  163. }
  164. else
  165. AfxMessageBox("基础信息不能为空.",0,0);
  166. }
  168. void CReduceKinds::OnButtonclose() 
  169. {
  170. EndDialog(0);
  171. }
  173. void CReduceKinds::OnButtondelete() 
  174. {
  175. if(MessageBox("确实要删除当前记录吗?","提示",MB_YESNO)==IDYES)
  176. if (theApp.datamanage->GetRecordset()->RecordCount>0)
  177. {
  178. int currentrow = list.GetSelectionMark();//得到当前行
  179. if (currentrow!=-1)
  180. {
  181. CString sql,olddata;
  182. olddata = list.GetItemText(currentrow,0);
  183. sql.Format("delete tb_decreasekinds where decreasekinds = '%s'",olddata);
  184. try
  185. {
  186. theApp.datamanage->ExecSQL(sql);
  187. MessageBox("操作成功.","提示",64);
  188. }
  189. catch(_com_error &e)
  190. {
  191. MessageBox("操作失败.","提示",64);
  192. }
  193. OnButtonrefresh();
  194. }
  195. else
  196. {
  197. MessageBox("请在表格中选择欲删除的数据.","提示",64);
  198. }
  199. }
  201. else
  202. MessageBox("当前没有可删除的记录.","提示");
  203. }
  205. void CReduceKinds::OnButtonrefresh() 
  206. {
  207. kind.SetWindowText("");
  208. list.DeleteAllItems();
  209. theApp.datamanage->GetRecordset()->raw_Close();
  210. theApp.datamanage->GetRecordset()->Open("select decreasekinds as 资产减少方式 from tb_decreasekinds",theApp.datamanage->GetConn().GetInterfacePtr(),adOpenKeyset,adLockPessimistic,adCmdText);
  211. if (theApp.datamanage->GetRecordset()->RecordCount >0)
  212. {
  213. while (! theApp.datamanage->GetRecordset()->ADOEOF)
  214. {
  215. CString str;
  216. _variant_t temp;
  217. temp =theApp.datamanage->GetRecordset()->GetCollect((long)0);
  218. str = temp.bstrVal;
  219. list.InsertItem(0,str,0);
  220. theApp.datamanage->GetRecordset()->MoveNext();
  221. }
  222. }
  223. }
  225. void CReduceKinds::OnButtonupdate() 
  226. {
  227. if (theApp.datamanage->GetRecordset()->RecordCount >0)
  228. {
  229. if(MessageBox("确实要修改当前数据吗?","提示",MB_YESNO)==IDYES )
  230. {
  231. CString str;
  232. kind.GetWindowText(str);
  233. if (str.IsEmpty()) //判断能力基础信息是否为空
  234. {
  235. MessageBox("基础信息不能为空","提示",64);
  236. }
  237. else if (!IsRepeated(str))
  238. {
  239. int currentrow = list.GetSelectionMark();//得到当前行
  240. if (currentrow!=-1)
  241. {
  242. try
  243. {
  244. CString sql,olddata;
  245. olddata = list.GetItemText(currentrow,0);
  246. sql.Format("update tb_decreasekinds set decreasekinds = '%s' where decreasekinds = '%s'",str,olddata);
  247. theApp.datamanage->ExecSQL(sql);
  248. this->MessageBox("操作成功.","提示",64);
  249. kind.SetWindowText("");
  250. kind.SetFocus();
  251. }
  252. catch(...)
  253. {
  254. MessageBox("操作失败.","提示",64);
  255. }
  256. OnButtonrefresh() ;
  257. }
  258. else
  259. {
  260. MessageBox("当前没有可修改的数据.","提示",64);
  261. }
  262. }
  263. else
  264. MessageBox("该类别已经存在.","提示",64);
  265. }
  266. }
  267. else
  268. MessageBox("当前没有可修改的数据.","提示",64);
  269. }