【正文】 = select * from Purchase where amp。 _ Trim() amp。 Trim() amp。 39。 amp。 Trim() _ amp。 39。 amp。 amp。 Trim() amp。 amp。 Trim() amp。 _ Trim() amp。 39。 amp。 Trim() amp。 39。 myerr:End Sub5)其余控件可按照相關(guān)操作完成，這樣，采購(gòu)/出庫(kù)查詢功能就全部實(shí)現(xiàn)了。運(yùn)行程序，登錄后進(jìn)入到系統(tǒng)主窗口，單擊菜單欄中的采購(gòu)查/出庫(kù)查詢，： 采購(gòu)查詢運(yùn)行效果圖 出庫(kù)查詢運(yùn)行效果圖 創(chuàng)建供應(yīng)商管理/裝配車間管理窗口在供應(yīng)商管理中，允許用戶對(duì)供應(yīng)商按照一定的條件查詢，然后對(duì)符合條件的供應(yīng)商的信息進(jìn)行編輯和查看。為了便于用戶對(duì)多個(gè)供應(yīng)商進(jìn)行比較評(píng)價(jià)，此處采用了Tab頁(yè)的形式顯示供應(yīng)商信息。和供應(yīng)商管理類似，在裝配車間管理中同樣允許用戶對(duì)車間信息進(jìn)行檢索、編輯和查看。創(chuàng)建裝配車間管理窗口的步驟如下：1) 按照前述方法在應(yīng)用程序中新增一個(gè)Windows窗口frmCJGL。2) 在窗口中添加控件，并設(shè)置相關(guān)屬性；3) 使用Adodc控件連接數(shù)據(jù)庫(kù)；4)在打開(kāi)這個(gè)窗口時(shí)，需要將各種不同的查詢標(biāo)準(zhǔn)添加到Command1的子項(xiàng)中。然后將Customer數(shù)據(jù)表中的第一條記錄的各個(gè)字段顯示在“裝配車間”選項(xiàng)卡中的相應(yīng)位置。雙擊frmCJGL，輸入如下代碼：x = Array(客戶簡(jiǎn)稱, 客戶全稱, 地址, 郵政編碼, 電話, 傳真, 聯(lián)系人) For i = 0 To 6 39。 向bo1添加查詢項(xiàng)目列表 (x(i)) Next i = 0 If 0 Then For i = 0 To 7 39。初始化給gys(i)賦值 If (i) Then gys(i).Text = (i) Else gys(i).Text = End If Next i End If = 0 39。顯示第一個(gè)選項(xiàng)卡這樣，車間管理部分的功能就設(shè)計(jì)完成了，供應(yīng)商管理可以參照相關(guān)操作完成。運(yùn)行程序后，單擊菜單欄中的供應(yīng)商管理和車間管理，： 供應(yīng)商管理運(yùn)行效果圖 裝配車間管理運(yùn)行效果圖 創(chuàng)建密碼設(shè)置窗口密碼設(shè)置是權(quán)限設(shè)置的一部分。已有用戶（一般是管理員），可以在系統(tǒng)中為新加入的用戶或員工增加用戶名和密碼。當(dāng)新用戶第一次登錄的時(shí)候，一般都要求更改自己的密碼。密碼設(shè)置窗口的的創(chuàng)建過(guò)程如下：1) 按照前述方法在應(yīng)用程序中新增一個(gè)Windows窗口frmMMSZ。2)按照前述方法在窗口中添加一個(gè)Adodc控件，命名為adoMMSE，設(shè)置其Visible屬性為False。設(shè)置其連接屬性，使其連接到PURCHASEANDSALE數(shù)據(jù)庫(kù)，并檢索Users數(shù)據(jù)表中記錄。3)創(chuàng)建控件并設(shè)置控件屬性4)當(dāng)用戶打開(kāi)窗口的時(shí)，需要查詢PURCHASEANDSALE數(shù)據(jù)庫(kù)的Users數(shù)據(jù)表，將這個(gè)數(shù)據(jù)表中用戶字段以下的所有信息都添加到Combo1組合框中。進(jìn)入窗口加載事件，輸入如下代碼：Private Sub Command1_Click() = adCmdText = select 用戶 ,密碼 from users where 用戶=39。 _ amp。 Trim() amp。 39。 With If .RecordCount 1 Then GoTo myerr .MoveFirst DoEvents strPwd = !密碼 If Trim() strPwd Then 39。輸入的原密碼錯(cuò)誤 Dim a a = MsgBox(對(duì)不起，您輸入的密碼錯(cuò)誤！, vbInformation, 提示) GoTo myerr End If If Trim() Trim() Then If MsgBox(對(duì)不起，您兩次輸入的密碼不一致，請(qǐng)重新輸入！, _ vbInformation, 提示) = vbYes Then End If GoTo myerr End If End With (1) = Trim(Trim()) If MsgBox(密碼修改成功！, vbInformation, 提示) = vbOK Then Unload Me End Ifmyerr:End Sub運(yùn)行程序，經(jīng)過(guò)登錄后進(jìn)入到系統(tǒng)主窗口，單擊菜單欄中的“密碼設(shè)置”按鈕，可以修改密碼。： 密碼設(shè)置運(yùn)行效果圖 創(chuàng)建退出窗口在這個(gè)應(yīng)用程序中，在菜單欄和工具欄中都設(shè)置了退出功能，以方便用戶操作。實(shí)現(xiàn)退出功能的步驟如下：1) 單擊菜單欄中的“退出系統(tǒng)”菜單，輸入如下代碼：Private Sub TCXT_Click()Unload MeEnd Sub2) 在用戶選擇退出本系統(tǒng)時(shí)，需要進(jìn)行確認(rèn)，雙擊frmMain窗體，進(jìn)入其卸載詢問(wèn)事件，輸入如下代碼：：Private Sub Form_Unload(Cancel As Integer)If MsgBox(確定要退出本系統(tǒng)嗎？, vbYesNo + vbQuestion, 提示) = vbNo ThenCancel = TrueEnd IfEnd Sub3) 按照前述方法將工具欄中的“退出功能”圖標(biāo)按鈕和工具欄中的“退出系統(tǒng)”菜單欄項(xiàng)綁定。這樣，退出系統(tǒng)的所有功能都完成了。至此，系統(tǒng)設(shè)計(jì)的所有功能全部完成。4 總結(jié)與展望本系統(tǒng)具有：操作簡(jiǎn)便，用戶界面直觀；可實(shí)現(xiàn)企業(yè)管理程序化、條理化、規(guī)范化；提供及時(shí)、可靠的數(shù)據(jù)資料，并自動(dòng)對(duì)數(shù)據(jù)進(jìn)行分析；多數(shù)據(jù)操作選項(xiàng)采用人工選擇的方式，避免了用戶記憶一些不必要的指令，減輕用戶操作負(fù)擔(dān)。在一定程度上能夠克服庫(kù)存管理研究的缺點(diǎn)與不足。本案例中設(shè)計(jì)的系統(tǒng)基本上包含了日常制造企業(yè)中常用的功能，基本上能夠滿足企業(yè)的日常業(yè)務(wù)需要。但是，為了提高系統(tǒng)的運(yùn)行效率，完善系統(tǒng)的功能，增強(qiáng)企業(yè)信息的安全性，還可以從以下幾個(gè)方面對(duì)本系統(tǒng)進(jìn)行改進(jìn)和擴(kuò)展。1) 完善用戶管理和權(quán)限管理功能：權(quán)限管理可以通過(guò)角色定義來(lái)實(shí)現(xiàn)。在系統(tǒng)中定義幾種不同的角色，每種角色的功能權(quán)限對(duì)應(yīng)系統(tǒng)中的不同的可用菜單項(xiàng)。每種角色的權(quán)限，由系統(tǒng)管理員設(shè)置。沒(méi)登錄一個(gè)新用戶時(shí)，需要設(shè)置其相應(yīng)的角色。這樣，當(dāng)有用戶登陸時(shí)，不但需要檢查其密碼，還需要檢查其權(quán)限，然后根據(jù)用戶權(quán)限設(shè)置系統(tǒng)菜單的結(jié)構(gòu)。2) 增加日志功能：當(dāng)用戶登錄系統(tǒng)時(shí)，系統(tǒng)在后臺(tái)記錄下登錄的時(shí)間和登錄名稱，將這些信息寫(xiě)入到日志文件中。當(dāng)用戶登錄成功進(jìn)行各種操作的時(shí)候，系統(tǒng)在后臺(tái)記錄下各種操作的事件，用戶名稱，操作類型等信息，寫(xiě)入到日志文件中，這樣，當(dāng)企業(yè)的系統(tǒng)發(fā)生問(wèn)題的時(shí)候，系統(tǒng)管理員可以通過(guò)系統(tǒng)日志文件來(lái)確認(rèn)問(wèn)題產(chǎn)生的根源。3) 增加報(bào)表功能：利用PrintGrid控件可以方便的生成和打印報(bào)表，但該控件不是VB中自帶控件，需要安裝才能使用。4) 增加采購(gòu)和出庫(kù)對(duì)庫(kù)存的自動(dòng)盤(pán)點(diǎn)功能：本案例中庫(kù)存盤(pán)點(diǎn)是需要人工干預(yù)的，當(dāng)企業(yè)的采購(gòu)和出庫(kù)活動(dòng)頻繁時(shí)，這種方式就會(huì)影響企業(yè)的正常業(yè)務(wù)運(yùn)轉(zhuǎn)?？蓪?duì)出庫(kù)單和入庫(kù)單的產(chǎn)生功能進(jìn)行擴(kuò)展，當(dāng)每發(fā)生一個(gè)入庫(kù)或出庫(kù)作業(yè)時(shí)，都應(yīng)該自動(dòng)調(diào)用庫(kù)存盤(pán)點(diǎn)功能對(duì)庫(kù)存進(jìn)行結(jié)算。經(jīng)過(guò)以上幾個(gè)方面的擴(kuò)充和改進(jìn)，本系統(tǒng)就可以完全勝任制造企業(yè)庫(kù)存管理的日常業(yè)務(wù)需求了。參考文獻(xiàn)[1] 陳豐照,鄒士忠. 管理信息系統(tǒng)的特征及發(fā)展趨勢(shì)[J].鄭州航空工業(yè)管理學(xué)院學(xué)報(bào), 2003,(04).[2] 高梅. 面向中小企業(yè)銷售網(wǎng)絡(luò)管理信息系統(tǒng)的研究. 東南大學(xué)碩士學(xué)位論文. 2004:12[3] Wang John。Yan Ruiliang。Hollister Kimberly. A historic of management science research in China[J]Omega, 2008,(6).[4] 俞立平. 管理信息系統(tǒng)的過(guò)去、現(xiàn)在與未來(lái)[J].企業(yè)經(jīng)濟(jì), 2003,(06).[5] 王紀(jì)東。柳贊. 管理信息系統(tǒng)在現(xiàn)代企業(yè)中的運(yùn)用[J].經(jīng)濟(jì)師, 2008,(03).[6] 李偉超. 我國(guó)中小企業(yè)信息化模式問(wèn)題研究. 情報(bào)科學(xué). 2006,(2):200203[7] 劉渝妍. ERP 在中小企業(yè)管理中的實(shí)施及應(yīng)用研究. 昆明理工大學(xué)碩士學(xué)位論文. 2005:2020[8] 吳杰平. 三顆螺絲釘?shù)墓适?供銷存哪個(gè)環(huán)節(jié)都不能短腿[J].信息系統(tǒng)工程, 2004,(05).[9] in C,。Lin Y T. Issues on the reduction of demandvariance in the supply chain[J]International Journalof Production Research, 2006,(9).[10] Bin Lin. SCM in China dairy industryProceedings of the 7th international conference on Electronic merce, 2005.[11] K. B. Hendricks。V. R. Singhal。J. K. Stratman. The Impact of Enterprise Systems on Corporate Performance:A Study of ERP, SCM and CRM System Implementations[J]Journal of Operator Theory, 2007,(25).[12] 張建輝. 對(duì)MRPⅡ/ERP系統(tǒng)的分析與展望[J].中國(guó)工程科學(xué), 2004,(10).[13] 陳勇. MRP、MRPⅡ及ERP的發(fā)展過(guò)程及在企業(yè)中的應(yīng)用[J].計(jì)算機(jī)與網(wǎng)絡(luò), 2005,(17).[14] R. TacakoliMoghaddam。. Application of fuzzy lead time to material requirement planning systemProceedings of 8th conference on 8thWseas International conference on Fuzzy Systems, 2007.[15] Seewald N. Enterprise resource planning tops manufactures39。 IT budgets[J]Chemical Weekly, 2002.[16] Bose Indranil。Pal Raktim。Ye Alex. ERP and SCM systems integration:The case of a valve manufacturer in China[J]Information and Management, 2008,(4).[17] 米娜. MRPⅡ在中國(guó)的應(yīng)用[J].科技管理研究, 2000,(01).[18] 何建武,廖增良. 我國(guó)企業(yè)應(yīng)用企業(yè)資源系統(tǒng)(MRP Ⅱ/ERP)失敗的原因探究[J].中國(guó)會(huì)計(jì)電算化, 2002,(06).[19] 楊華. 我國(guó)制造企業(yè)實(shí)施MRPⅡ存在的問(wèn)題與對(duì)策研究[J].工業(yè)技術(shù)經(jīng)濟(jì), 2003,(01).[20] :[21] 李蘇劍,游戰(zhàn)清,:電子工業(yè)出版社2005:P51[22] [23] [24] 求是科技Visual Basic [25] 戴紅，逯燕玲，致 謝這次畢業(yè)設(shè)計(jì)得到了很多老師、同學(xué)和同事的幫助，其中我的導(dǎo)師陳躍鵬老師對(duì)我的關(guān)心和支持尤為重要，每次遇到難題，我最先做的就是向陳老師尋求幫助，而陳老師每次不管忙或閑，總會(huì)抽空來(lái)找我面談，然后一起商量解決的辦法。 另外，感謝校方給予我這樣一次機(jī)會(huì)，能夠獨(dú)立地完成一個(gè)課題，并在這個(gè)過(guò)程當(dāng)中，給予我們各種方便，使我們?cè)诩磳㈦x校的最后一段時(shí)間里，能夠更多學(xué)習(xí)一些實(shí)踐應(yīng)用知識(shí)，增強(qiáng)了我們實(shí)踐操作和動(dòng)手應(yīng)用能力，提高了獨(dú)立思考的能力。再一次對(duì)我的母校表示感謝。 感謝在整個(gè)畢業(yè)設(shè)計(jì)期間和我密切合作的同學(xué)，和曾經(jīng)在各個(gè)方面給予過(guò)我?guī)椭幕锇閭?，在大學(xué)生活即將結(jié)束的最后的日子里，我們?cè)僖淮窝堇[了團(tuán)結(jié)合作的童話，把一個(gè)龐大的，從來(lái)沒(méi)有上手的課題，圓滿地完成了。正是因?yàn)橛辛四銈兊膸椭?，才讓我不僅學(xué)到了本次課題所涉及的新知識(shí)，更讓我感覺(jué)到了知識(shí)以外的東西，那就是團(tuán)結(jié)的力量。 最后，感謝所有在這次畢業(yè)設(shè)計(jì)中給予過(guò)我?guī)椭娜恕? 第59頁(yè) 共59頁(yè)