【正文】 感謝張中秋老師的指導(dǎo)，使我很多滯澀的地方豁然開(kāi)朗，受益匪淺。5．課程設(shè)計(jì)結(jié)束，每個(gè)小組出一份課程設(shè)計(jì)說(shuō)明書(shū)，小組成員各自完成個(gè)人設(shè)計(jì)總結(jié)。作業(yè)目標(biāo) 庫(kù)存管理系統(tǒng)功能要求1．用戶(hù)及權(quán)限管理。讓用戶(hù)方便地處理產(chǎn)品入庫(kù)出庫(kù)等一些企業(yè)存儲(chǔ)貨物過(guò)程中最重要的事情。 flag=1。//清空產(chǎn)品列表框 while(!(m_pRecordsetadoEOF))//將查詢(xún)結(jié)果插入到產(chǎn)品列表框中 { (i,((CStoreApp*)AfxGetApp())GetStringFromVariant(m_pRecordsetGetCollect(productID)))。//清空單據(jù)列表 while(!(m_pRecordsetadoEOF))//將查詢(xún)結(jié)果插入列表框控件中 { (i,6,((CStoreApp*)AfxGetApp())GetStringFromVarian t(m_pRecordsetGetCollect(remark)))。以產(chǎn)品入庫(kù)單查詢(xún)?yōu)槔?/更新數(shù)據(jù)庫(kù) MessageBox(創(chuàng)建記錄集失敗!,錯(cuò)誤)。 if(SUCCEEDED(hTRes)) {TRACE(_T(連接成功!\n))。保存產(chǎn)品信息時(shí)先刪除數(shù)據(jù)庫(kù)中該單據(jù)已經(jīng)存在的產(chǎn)品信息，然后再將列表框中的產(chǎn)品信息存入數(shù)據(jù)庫(kù)。//構(gòu)造產(chǎn)品選擇對(duì)話(huà)框 if(()==IDOK) float total=*。//刪除所有條目 m_formDate = COleDateTime::GetCurrentTime()。 （2）為“新單”按鈕提供實(shí)現(xiàn)函數(shù)“新單”按鈕完成添加新的產(chǎn)品入庫(kù)單前的準(zhǔn)備工作，將除了“產(chǎn)品入庫(kù)單號(hào)”以外的所有編輯控件處于可用狀態(tài)，并為這些編輯控件變量賦默認(rèn)值。具體代碼如下： CString strSQL。 UpdateData(false)。//將數(shù)據(jù)更新到對(duì)話(huà)框 }（6）為“刪除”按鈕提供實(shí)現(xiàn)函數(shù)刪除選定的記錄或者是當(dāng)前記錄，先生成刪除指定產(chǎn)品編號(hào)的產(chǎn)品信息的SQL語(yǔ)句，調(diào)用數(shù)據(jù)庫(kù)連接對(duì)象Execute方法執(zhí)行該SQL語(yǔ)句將滿(mǎn)足條件的記錄從數(shù)據(jù)庫(kù)中刪除。//構(gòu)造查詢(xún)指定產(chǎn)品編號(hào)的產(chǎn)品的信息的sql語(yǔ)句 try {HRESULT hTRes。 if (SUCCEEDED(hTRes)) { hTRes = m_pRecordsetOpen((LPTSTR)(130),((CStoreApp*)AfxGetApp())(), adOpenDynamic,adLockPessimistic,adCmdText)。 //刪除按鈕不可用 UpdateData(false)。 else if(productID1000amp。//將對(duì)話(huà)框中數(shù)據(jù)更新到變量 POSITION pos = ()。 }flag=0。//打開(kāi)查詢(xún)結(jié)果記錄集 if(SUCCEEDED(hTRes)) { TRACE(_T(連接成功!\n))。然后單擊“OK”按鈕即可完成CProductInfo類(lèi)的創(chuàng)建。 // 記錄集指針的個(gè)數(shù)可根據(jù)實(shí)際的需要來(lái)確定聲明幾個(gè)_ConnectionPtr m_pConn；在StoreApp的構(gòu)造函數(shù)中定義數(shù)據(jù)庫(kù)的連接字符串：TreeConnString=_T(Data Source=SaleData。（4）倉(cāng)庫(kù)信息設(shè)置：產(chǎn)品的入庫(kù)，出庫(kù)，調(diào)撥和報(bào)損都需要倉(cāng)庫(kù)的基本信息。目前，隨著企業(yè)規(guī)模的不斷壯大，產(chǎn)品的種類(lèi)和數(shù)量都不斷增加，產(chǎn)品的流通越來(lái)越多，這就使產(chǎn)品的存儲(chǔ)需求不斷增加，需要工作人員花費(fèi)很大力氣來(lái)統(tǒng)籌管理這項(xiàng)工作，為了保證工作的正確性和可靠性同時(shí)提高管理的效率，很有必要建立一個(gè)庫(kù)存管理系統(tǒng)，使貨品管理工作規(guī)范化，系統(tǒng)化，程序化。該功能允許用戶(hù)輸入調(diào)撥單信息，在輸入過(guò)程中，程序自動(dòng)生成產(chǎn)品調(diào)撥單編號(hào)以方便對(duì)調(diào)撥產(chǎn)品的信息管理和單據(jù)的查詢(xún)，同時(shí)程序也檢查輸入的合法性。//創(chuàng)建connection對(duì)象 m_pConnConnectionTimeout = 8。(~LVS_EX_CHECKBOXES) 。//構(gòu)造查詢(xún)語(yǔ)句 try { HRESULT hTRes。//保存按鈕可用 bt_modifyEnableWindow(false)。 //刪除按鈕可用 UpdateData(false)。 //更新下一個(gè)可用的產(chǎn)品編號(hào) ((CStoreApp*)AfxGetApp())m_pIDRecordsetPutCollect(productID,_variant_t(str))。 //此處省略部分代碼 tx_numMinEnableWindow(true)。//產(chǎn)品編號(hào) //此處省略部分代碼m_pRecordsetUpdate()。 m_pRecordsetPutCollect(productName,_variant_t(m_productName))。 CString strSQL。DWORD style。//Recordset對(duì)象 if (SUCCEEDED(hTRes)) {hTRes = m_pRecordsetOpen((LPTSTR)(130), ((CStoreApp*)AfxGetApp())(), adOpenDynamic,adLockPessimistic,adCmdText)。 else if(formID100amp。 UpdateData(false)。//產(chǎn)品名稱(chēng) //此處省略部分代碼（6）為“取消選取”按鈕提供實(shí)現(xiàn)函數(shù)“取消選取”按鈕用于在修改或者新建產(chǎn)品入庫(kù)單時(shí)，刪除產(chǎn)品入庫(kù)單的產(chǎn)品列表框中的選中的產(chǎn)品。 //用于創(chuàng)建一個(gè)查詢(xún)記錄集 _RecordsetPtr m_pProductInputFormRecordset。//將“入庫(kù)單號(hào)”數(shù)據(jù)添加到產(chǎn)品入庫(kù)單數(shù)據(jù)庫(kù)中//省略部分代碼m_pRecordsetUpdate()。作用是當(dāng)列表框中的一個(gè)條目被選中時(shí)，將該條目對(duì)應(yīng)的產(chǎn)品的編號(hào)、名稱(chēng)、型號(hào)、單價(jià)、計(jì)量單位賦給對(duì)話(huà)框類(lèi)的成員變量。//刪除所有條目 strSQL=select * from productInputForm。當(dāng)單擊查詢(xún)結(jié)果中的一行時(shí)，通過(guò)查詢(xún)productInputFormView視圖，將產(chǎn)品入庫(kù)單對(duì)應(yīng)的的產(chǎn)品信息顯示在產(chǎn)品信息列表框中。以入庫(kù)產(chǎn)品統(tǒng)計(jì)匯總為例，為模塊“匯總統(tǒng)計(jì)”創(chuàng)建菜單資源ID標(biāo)題ID_analysis_productInput入庫(kù)產(chǎn)品匯總ID_analysis_productOutputForm出庫(kù)產(chǎn)品匯總（以入庫(kù)產(chǎn)品統(tǒng)計(jì)匯總為例）入庫(kù)產(chǎn)品匯總表查詢(xún)需要查詢(xún)視圖productInputFormView視圖。 }//此處省略部分代碼strSQL=strSQL+ group by storeHouse。并在設(shè)計(jì)過(guò)程中，自己分析問(wèn)題和解決問(wèn)題的能力都得到了鍛煉和提高，完善了自己的知識(shí)結(jié)構(gòu)，加深了對(duì)知識(shí)的理解。4．報(bào)表功能，統(tǒng)計(jì)打印各種報(bào)表。2．實(shí)現(xiàn)物資的出庫(kù)、入庫(kù)登記。，并附源程序清單；數(shù)據(jù)庫(kù)文件結(jié)構(gòu)進(jìn)行詳細(xì)說(shuō)明。把學(xué)過(guò)的計(jì)算機(jī)編譯原理的知識(shí)強(qiáng)化，能夠把課堂上學(xué)的知識(shí)通過(guò)自己設(shè)計(jì)的程序表示出來(lái)，加深了對(duì)理論知識(shí)的理解。在這次的設(shè)計(jì)中我學(xué)習(xí)到不少的數(shù)據(jù)庫(kù)知識(shí)，但由于自己的理論知識(shí)水平有限，實(shí)踐知識(shí)和設(shè)計(jì)經(jīng)驗(yàn)不足，在設(shè)計(jì)過(guò)程中難免存在一些問(wèn)題，甚至錯(cuò)誤，還需要進(jìn)一步的進(jìn)行學(xué)習(xí)。、明確。//數(shù)量 (i,2,((CStoreApp*)AfxGetApp())GetStringFromVariant(m_pRecordsetGetCollect(total)))。+((CStoreApp*)AfxGetApp())ToStringCTime(m_formDateBegin)+39。 _RecordsetPtr m_pRecordset。 } //此處省略部分代碼_RecordsetPtr m_pRecordset。//產(chǎn)品名稱(chēng) m_unit=(nFirstSelItem,7)。RecordsAffected,adCmdText)。//添加一條記錄 m_pProductInputFormRecordsetPutCollect(productInputFormID,_variant_t((25)))。//確定刪除條目的位置 if(pos) { int nFirstSelItem = (pos)。 }（4）為刪除按鈕提供實(shí)現(xiàn)函數(shù)：“刪除”按鈕用于刪除當(dāng)前的產(chǎn)品入庫(kù)單，刪除信息之前系統(tǒng)會(huì)提示用戶(hù)是否要?jiǎng)h除，如果選擇“是”則刪除該條記錄；否則，不進(jìn)行任何操作，直接返回。 CString str。代碼如下：if(is_search==1) //被查詢(xún)對(duì)話(huà)框調(diào)用 { bt_addEnableWindow(true)。//添加并設(shè)定列標(biāo)題//此處省略部分代碼 (6,金額,LVCFMT_LEFT,100)。//獲取刪除的記錄的位置 if(pos){ int nFirstSelItem = (pos)。//添加按鈕可用 bt_deleteEnableWindow(true)。 //提示信息 } } } catch(__error e)///捕捉異常 { CString errormessage。//將控件中的值更新到變量 _RecordsetPtr m_pRecordset。 //此處省略部分代碼 tx_numMinEnableWindow(true)。//對(duì)話(huà)框數(shù)據(jù)更新到變量 //獲取新增加的產(chǎn)品的編號(hào) int productID=((CStoreApp*)AfxGetApp())m_pIDRecordsetGetCollect(productID).intVal。作用是當(dāng)列表框中的一個(gè)條目被選中時(shí)，將該條目對(duì)應(yīng)的信息顯示到相應(yīng)的編輯框控件中，使按鈕“增加”、“修改”、“刪除”變?yōu)榭捎茫按姹P(pán)”按鈕不可用；當(dāng)沒(méi)有條目被選中時(shí)，“修改”、“刪除”、“保存”按鈕不可用，只有“增加”按鈕可用，同時(shí)將編輯框控件內(nèi)容清空并使其不可用。//產(chǎn)品編號(hào) (i,1,((CStoreApp*)AfxGetApp())GetStringFromVariant(m_pListRecordsetGetCollect(productName)))。 HRESULT hTRes。 }hRes = (_T())。（4）產(chǎn)品報(bào)損單信息的查詢(xún)：該功能不僅要對(duì)產(chǎn)品報(bào)損單據(jù)的信息（報(bào)損倉(cāng)庫(kù)、經(jīng)辦人等）進(jìn)行查詢(xún)，而且要對(duì)該單據(jù)所包括的產(chǎn)品的信息（產(chǎn)品名稱(chēng)、型號(hào)、單價(jià)等）進(jìn)行查詢(xún)。且成本低，建成后的維護(hù)費(fèi)用也與線性系統(tǒng)運(yùn)行費(fèi)用相同，而每年可以促進(jìn)企業(yè)倉(cāng)庫(kù)存儲(chǔ)的工作優(yōu)化、庫(kù)存產(chǎn)品的有效利用率，并可有效降低企業(yè)庫(kù)存的不必要支出，提高企業(yè)產(chǎn)品存儲(chǔ)資金的有效利用。 經(jīng)濟(jì)可行性在經(jīng)濟(jì)上，費(fèi)用的支出和帶來(lái)的巨大收益相比自是不能相提并論了，至于管理上，工作人員對(duì)于這項(xiàng)工程的實(shí)施必然是持贊成的態(tài)度，因?yàn)檫@樣會(huì)大大減輕他們的工作量提高工作效率。（3）產(chǎn)品調(diào)撥單信息的查詢(xún)：該功能不僅要對(duì)產(chǎn)品調(diào)撥單據(jù)的信息（入庫(kù)倉(cāng)庫(kù)、出庫(kù)倉(cāng)庫(kù)、經(jīng)辦人等）進(jìn)行查詢(xún)，而且要對(duì)該單據(jù)所包括的產(chǎn)品的信息（產(chǎn)品名稱(chēng)、型號(hào)、單價(jià)等）進(jìn)行查詢(xún)。 //顯示錯(cuò)誤信息 return FALSE。 //用于創(chuàng)建一個(gè)查詢(xún)記錄集 CString strSQL。 while(!(m_pListRecordsetadoEOF)) {(i,((CStoreApp*)AfxGetApp())GetStringFromVariant(m_pListRecordsetGetCollect(productID)))。 （2）實(shí)現(xiàn)列表框控件的NM_CLICK消息函數(shù)當(dāng)列表框中的條目被單擊（如列表框的條目被選中）時(shí)該函數(shù)自動(dòng)被調(diào)用。代碼如下：void CProductInfo::OnAdd() { UpdateData(true)。 //添加 //設(shè)定除產(chǎn)品編號(hào)以外的其他編輯控件均可用 tx_productIDEnableWindow(false)。代碼如下：void CProductInfo::OnSave() { UpdateData(true)。 //產(chǎn)品名稱(chēng) //此處省略部分代碼 AfxMessageBox(插入成功！)。 //設(shè)定按鈕的可用性 bt_addEnableWindow(true)。 //執(zhí)行sql語(yǔ)句，刪除記錄 POSITION pos = ()。 //設(shè)定新的列表框樣式 (0,產(chǎn)品編號(hào),LVCFMT_LEFT,100)。如果search=1則是被查詢(xún)對(duì)話(huà)框調(diào)用，如果search=0則是被菜單調(diào)用。formID99) (CPRK00%d,formID)。 //此處省略部分代碼 tx_remarkEnableWindow(true)。 } POSITION pos = ()。//打開(kāi)查詢(xún)記錄集 if(flag==1) //添加 { m_pProductInputFormRecordsetAddNew()。 (((CStoreApp*)AfxGetApp())m_pConn)Execute((_bstr_t)strSQL,amp。//產(chǎn)品編號(hào) m_productName=(nFirstSelItem,1)。+((CStoreApp*)AfxGetApp())ToStrin