【文章內(nèi)容簡介】 為20型號文本字段大小為20單價貨幣貨幣數(shù)量數(shù)字長整型總金額貨幣貨幣退貨年數(shù)字整型退貨月數(shù)字整型退貨日數(shù)字整型業(yè)務員編號文本字段大小為20表33 retreat表第四章 系統(tǒng)功能模塊實現(xiàn) 系統(tǒng)登錄模塊用戶登錄模塊在本系統(tǒng)的首頁。用戶輸入用戶名和密碼后，系統(tǒng)進行驗證，驗證通過進入程序的主界面。界面如圖41所示。圖41 用戶登錄界基本函數(shù)如下：void CLogInDlg::DoDataExchange(CDataExchange* pDX){ CDialog::DoDataExchange(pDX)。 //{{AFX_DATA_MAP(CLogInDlg) DDX_Control(pDX, IDOK, m_OK)。 DDX_Control(pDX, IDCANCEL, m_Cancel)。 DDX_Text(pDX, IDC_ID, m_WorkID)。 DDX_Text(pDX, IDC_PW, m_PassWord)。 //}}AFX_DATA_MAP}BEGIN_MESSAGE_MAP(CLogInDlg, CDialog)END_MESSAGE_MAP()BOOL CLogInDlg::PreTranslateMessage(MSG* pMsg) //補獲對話窗的一個事件函數(shù),(pMsg:當前截獲的一個事件的類型)//{ if(pMsgmessage == WM_LBUTTONDOWN )//判斷一個事件是否為鼠標左鍵按下的事件,(是的進行處理)// { CRect rect,rc。 (amp。rect)。 (amp。rc)。//是的,獲取按鈕的區(qū)域// CPoint point。 GetCursorPos(amp。point)。//獲取鼠標按下的位置// if((point))//判斷鼠標按下的位置是否在確定按鈕上// { UpdateData(TRUE)。 if(() || ()) { MessageBox(用戶名或密碼不能為空)。 return FALSE。 } m_times++。//不為空，登錄次數(shù)加1// ADOConn m_AdoConn。 ()。 CString sql。 (select * from worker where WorkerID=39。%s39。 and PWD=39。%s39。, m_WorkID,m_PassWord)。 = ((_bstr_t)sql)。 if(!adoEOF)//判斷登錄賬戶和密碼是否在數(shù)據(jù)庫中work表存在// { CString str。 str = (char *)(_bstr_t)GetCollect(Permissions)。 m_type = atoi(str)。 //判斷是否成功的一個函數(shù)// CDialog::OnOK()。 ()。 } else { if(m_times == 3) { MessageBox(密碼不正確已達3次，系統(tǒng)將自動退出！)。 CDialog::OnCancel()。 ()。 } else { CString str 。 (用戶名或密碼不正確，您還可以輸入%d次！,3 m_times)。 MessageBox(str)。 m_WorkID = 。 m_PassWord = 。 UpdateData(FALSE)。 } } } if((point))//如果沒在登錄按鈕的區(qū)域內(nèi)而在取消按鈕的區(qū)域內(nèi)// { CDialog::OnCancel()。//直接讓對話框消失// } } return CDialog::PreTranslateMessage(pMsg)。} 商品信息管理模塊此模塊進行對商品信息的錄入，能夠?qū)ι唐愤M行合理的管理，界面如圖42所示。圖42 商品信息管理界面查詢函數(shù)如下：void CGoodsDlg::OnSelect() { ()。 CString sql。 UpdateData(true)。 double value = 0。 int index = ()。 switch(index) { case 0: (select * from GOODS where GoodsID %s 39。%s39。,m_opStr,m_info)。 break。 case 1: (select * from GOODS where GoodsName %s 39。%s39。,m_opStr,m_info)。 break。 case 2: (select * from GOODS where GoodsBarCode %s 39。%s39。,m_opStr,m_info)。 break。 case 3: value = atof(m_info)。 (select * from GOODS where GoodsValue %s %.2f,m_opStr,value)。 break。 } ADOConn adoConn。 ()。 = ((_bstr_t)sql)。 CString workid,name,Permissions,sex,id,phone,address,pwd。 int i = 0。 while(!adoEOF) { (i,)。 (i,0,(char *)(_bstr_t)GetCollect(GoodsID))。 (i,1,(char *)(_bstr_t)GetCollect(GoodsName))。 (i,2,(char *)(_bstr_t)GetCollect(GoodsBarCode))。 (i,3,(char *)(_bstr_t)GetCollect(GoodsValue))。 MoveNext()。 }}void CGoodsDlg::OnAdd() { CString goodsid = GetGoodsID()。 CNewGoodsDlg dlg。 = goodsid。ERROR_END: if(() == IDOK) { if(( == || == || == 0) ) { MessageBox(新增商品信息不完備，請檢查！)。 goto ERROR_END。 } else { ADOConn adoConn。 ()。 CString sql。 (insert into GOODS(GoodsID,GoodsName,GoodsBarCode,GoodsValue) values(39。%s39。,39。%s39。,39。%s39。,%.2f),)。 ((_bstr_t)sql)。 (Insert into GOODSPACK(GoodsID ,PackMain,PackParts,PackAnnotation) values(39。%s39。,39。%s39。,39。%s39。,39。%s39。),\ ,)。 ((_bstr_t)sql)。 ()。 } }} 員工信息管理模塊此模塊有對員工的添加，修改，刪除等功能，能夠?qū)τ脩暨M行合理的管理，界面如圖43所示。圖43 員工管理系統(tǒng)界面對不同的用戶分不同的權(quán)限，有利于系統(tǒng)的管理，只有超級管理員才具有分配權(quán)限的功能。界面如圖44所示。圖44 員工信息設置管理界面基本函數(shù)如下：void CUserDlg::OnSelect() //查詢按鈕的處理函數(shù)//{ // TODO: Add your control notification handler code here ()。 CString sql。 int intInfo。 UpdateData(true)。 int index = ()。 switch(index) { case 0: (select * from WORKER where WorkerID = 39。%s39。,m_info)。 break。 case 1: (select * from WORKER where Name = 39。%s39。,m_info)。 break。 case 2: if(!(男)) (select * from WORKER where Sex = 1)。 else (select * from WORKER where Sex = 0)。 break。 case 3: (select * from WORKER where WorkerPosition = 39。%s39。,m_info)。 break。 case 4: intInfo = atoi(m_info)。 (select * from WORKER where Permissions = %d,intInfo)。 break。 case 5: (select * from WORKER where ID = 39。%s39。,m_info)。 break。 case 6: (select * from WORKER where Phone = 39。%s39。,m_info)。 break。 case 7: (select * from WORKER where Address = 39。%s39。,m_info)。 break。 } ADOConn adoConn。//調(diào)用ADO連接的實體連接對象// ()。 = ((_bstr_t)sql)。 CString workid,name,Permissions,sex,id,phone,address,pwd。 int i = 0。 while(!adoEOF) { (i,)。 (i,0,(char *)(_bstr_t)GetCollect(WorkerID))。 (i,1,(char *)(_bstr_t)GetCollect(PWD))。 (i,2,(char *)(_bstr_t)GetCollect(Permissions))。 (i,3,(char *)(_bstr_t)GetCollect(WorkerPosition))。 (i,4,(char *)(_bstr_t)GetCollect(Name))。 CString strSex = (char *)(_bstr_t)GetCollect(Sex)。 int bMan = atoi(strSex)。 if(bMan) (i,5,男)。 else (i,5,女)。 (i,6,(char *)(_bstr_t)GetCollect(ID))。 (i,7,(char *)(_bstr_t)GetCollect(Phone))。 (i,8,(char *)(_bstr_t)GetCollect(StartTime))。 (i,9,(char *)(_bstr_t)GetCollect(Address))。 MoveNext()。 }}此模塊有對貨物的查詢，入庫，出庫等功能，能夠?qū)┴浬踢M行合理的管理。界面如圖45所示。圖45倉庫系統(tǒng)管理界面 基本函數(shù)如下：void CStorageDlg::OnInstorage() { CInOutDlg dlg。 = true。 ERROR_DEEL: if(() == IDOK) { if( == 0 || == 0 || == ) { MessageBox(入庫貨物信息不完備，請檢查！\r\n \r\n價格與數(shù)量不能為0，需要添加進貨商信息！)。 goto ERROR_DEEL。 } CString sql。 ADOConn adoConn。 ()。 if(CheckExit(GoodsID,STORAGE)) { (UPDATE STORAGE SET GoodsLeftNum = GoodsLeftNum + %d where GoodsID =39。%s39。,)。 ((_bstr_t)sql)。 ()。 } else { (insert into STORAGE(GoodsID,GoodsLeftNum,GoodsSaleNum) \ values(39。%s39。,%d,%d),0)。 ((_bstr_t)sql)。 ()。 (()+1,)。 (())。 OnSelect()。 } CString ticketid。 CTime time = CTime::Ge