采購管理系統(tǒng)課程設(shè)計說明書

前言作業(yè)背景本文根據(jù)《管理信息系統(tǒng)開發(fā)實踐》課程要求而做。課程作業(yè)要求如下：管理信息系統(tǒng)開發(fā)作為獨立的教學(xué)環(huán)節(jié)，是學(xué)習(xí)完《管理信息系統(tǒng)》課程并進行完專業(yè)實習(xí)后進行的一次全面的綜合練習(xí)。其目的在于加深對管理信息系統(tǒng)基礎(chǔ)理論和基本知識的理解，掌握使用信息系統(tǒng)分析、設(shè)計的基本方法，提高解決實際管理問題、開發(fā)信息系統(tǒng)的實踐能力。具體內(nèi)容是：用信息系統(tǒng)開發(fā)工具（例如PowerBuilder、Delphi、Vb、Vfp等）開發(fā)一個實用的中小型采購管理信息系統(tǒng)。具體要求如下：1、 根據(jù)課程實踐時間選擇適當(dāng)規(guī)模大小的設(shè)計課題。針對信息系統(tǒng)課程實踐的具體特點，體現(xiàn)項目管理的思想。2、 根據(jù)合理的進度安排，按照系統(tǒng)開發(fā)的流程及方法，踏實地開展課程實踐活動。3、 課程實踐過程中，根據(jù)選題的具體需求，在開發(fā)各環(huán)節(jié)中撰寫相關(guān)的技術(shù)文檔，最后要求提交詳細(xì)的課程實踐報告。4、 開發(fā)出可以運行的管理信息系統(tǒng)，通過上機檢查。選題說明進入21世紀(jì)，隨著技術(shù)進步和客戶需求多樣化，企業(yè)經(jīng)營的市場環(huán)境發(fā)生了很大的變化,從過去的供應(yīng)商主導(dǎo)的、靜態(tài)的、簡單的市場環(huán)境變成客戶為主導(dǎo)的、動態(tài)的、復(fù)雜的市場環(huán)境。企業(yè)之間由單純產(chǎn)品質(zhì)量、性能方面的競爭轉(zhuǎn)向企業(yè)所在的供應(yīng)鏈之間的競爭。在企業(yè)經(jīng)營管理中,采購是最重要的一個環(huán)節(jié)。它對于企業(yè)降低經(jīng)營成本、確保產(chǎn)品質(zhì)量、縮短生產(chǎn)周期具有非常重要的意義。采購管理為降低采購成本，提高采購效益提供了廣闊的空間，但也同時為采購管理帶來了新的機遇和挑戰(zhàn)。目前,我國大多數(shù)企業(yè)仍然沒有建立健全的供應(yīng)鏈管理體系,物資的采購還存在機構(gòu)設(shè)置分散,資源浪費嚴(yán)重,信息傳遞滯后等問題?；舅悸吠ㄟ^對課程設(shè)計的要求而進行初步調(diào)查，從提高采購管理的需求入手,給出了適合中小企業(yè)的采購管理系統(tǒng)整體設(shè)計方案。在系統(tǒng)業(yè)務(wù)流程改造和功能模塊的設(shè)計中體現(xiàn)出先進的采購管理思想,并對采購業(yè)務(wù)管理的具體內(nèi)容進行了分析與設(shè)計。作業(yè)目標(biāo)該系統(tǒng)將有效的整合企業(yè)內(nèi)外部的資源,加強企業(yè)與供應(yīng)商之間的緊密合作,增強企業(yè)采購業(yè)務(wù)的透明度,規(guī)范標(biāo)準(zhǔn)業(yè)務(wù)流程,提高采購的效率和質(zhì)量,提升企業(yè)的核心競爭力。通過對采購管理系統(tǒng)設(shè)計與開發(fā)，使采購部門的工作效率大大提升，實現(xiàn)采購管理工作的信息化，網(wǎng)絡(luò)化等，從而降低采購的總體成本，增加企業(yè)的利潤，并能更好的完成企業(yè)最終目標(biāo)。1.3工作業(yè)績個人主要工作我的課程設(shè)計主要是有4項主要界面，主要內(nèi)容包括采購信息系統(tǒng)的權(quán)限管理、采購信息系統(tǒng)的采購訂單，采購信息系統(tǒng)的采購付款，采購信息系統(tǒng)的訂單收貨。同時還進行了程序的調(diào)試、數(shù)據(jù)準(zhǔn)備與錄入、系統(tǒng)轉(zhuǎn)換與評價等。系統(tǒng)實施階段既是成功地實現(xiàn)新系統(tǒng)，又是取得用戶對系統(tǒng)信任的關(guān)鍵。主要收獲通過對全通公司的采購管理系統(tǒng)進行設(shè)計，使我不僅了解到系統(tǒng)實施部分的內(nèi)容，也使我更深的掌握了管理信息系統(tǒng)的開發(fā)方法以及重要性。開發(fā)一個管理信息系統(tǒng)好像建一棟大樓，系統(tǒng)分析、系統(tǒng)設(shè)計是根據(jù)用戶的要求畫出各種藍(lán)圖，系統(tǒng)實施是調(diào)集各類人員、設(shè)備、材料，在現(xiàn)場根據(jù)圖紙按實施方案的要求把“大樓”建起來。更重要是我終于明白了VB原來這么有用。通過對這個系統(tǒng)的開發(fā)設(shè)計，使我這學(xué)期所學(xué)的管理信息系統(tǒng)得到了運用，實現(xiàn)了從理論到實踐的升華，一個完善的管理信息系統(tǒng)可以促使公司向信息化方向發(fā)展，將管理工作統(tǒng)一化、規(guī)范化、現(xiàn)代化，使公司處于一個信息靈敏、管理科學(xué)、決策準(zhǔn)確的良性循環(huán)中，為公司帶來跟高的效益。系統(tǒng)規(guī)劃可行性分析2.1.1可行性研究方法通過調(diào)查分析采購供應(yīng)管理信息系統(tǒng)所具備的能力及實現(xiàn)的方法。確定總體結(jié)構(gòu)，利用數(shù)據(jù)庫所具有的能力，以最簡潔最容易的方法，使其成為一個初級的系統(tǒng)軟件。2.1.2可行性綜合分析（1） 可行性：系統(tǒng)現(xiàn)階段的發(fā)展過程中，利用現(xiàn)有人力和物力是完全具備的能力開發(fā)出來的，作為階段性產(chǎn)品，日后的發(fā)展空間大，實現(xiàn)方法逐步簡單容易。對于該系統(tǒng)的技術(shù)要求，現(xiàn)行的軟件開發(fā)條件，環(huán)境，完全可以實現(xiàn)。SQLServer2000完全可以提供該系統(tǒng)的操作要求和數(shù)據(jù)庫需求。但由于SQLServer較Access復(fù)雜，本設(shè)計又是注重研究系統(tǒng)的實現(xiàn)，所以采購管理信息系統(tǒng)在Access技術(shù)上是完全可行的。（2） 技術(shù)可行性：該系統(tǒng)的開發(fā)要求是界面簡單，易于操作。（3） 經(jīng)濟可行性：該系統(tǒng)做為課程設(shè)計開發(fā)，經(jīng)濟可行性必然不能完全考察出來，但本人認(rèn)為此次設(shè)計的采購管理信息系統(tǒng)完全可行。（4） 管理可行性：此次采購管理系統(tǒng)的設(shè)計由于操作簡單，內(nèi)容較少，且炒作簡單，同時又能適應(yīng)大部分的采購系統(tǒng)，故能使采購流程效率提高。又經(jīng)過權(quán)限的設(shè)置，幫助他們能夠快速準(zhǔn)確和職能化的工作，減少作業(yè)量并提高效率。系統(tǒng)分析系統(tǒng)分析在整個開發(fā)過程中，是要解決“做什么”的問題。從邏輯上，或者說從信息處理的功能需求上提出系統(tǒng)的方案，即邏輯模型，為下一階段進行物理方案設(shè)計、解決“怎么做”提供依據(jù)。本企業(yè)采購管理業(yè)務(wù)的系統(tǒng)功能：1．采購訂單：如果企業(yè)向供應(yīng)商訂貨物時，開據(jù)入庫訂單，以便了解收貨情況并預(yù)先安排存放貨物的倉庫。2．訂單收貨：是“采購訂單”上的貨到后入庫完成交易。3．采購開單：就是貨物購買后直接進入倉庫，此時倉庫商品增加。4．采購付款：付款給供應(yīng)商，支付金額自動登帳進入明細(xì)賬中。5．采購?fù)素洠菏前焉唐吠嘶亟o供應(yīng)商，退貨時有幾種方式，如選擇退款沖應(yīng)付款，則系統(tǒng)數(shù)據(jù)庫會自動更改用戶與供應(yīng)商的交易情況，自動修改明細(xì)賬；如選擇退貨收回現(xiàn)款，表示退貨以現(xiàn)金的形式收回，現(xiàn)金形式也分為二種，一種是以銀行賬戶的，另一種是以現(xiàn)金的，用戶可自行選擇。6．系統(tǒng)操作人員口令及權(quán)限管理。3.1詳細(xì)調(diào)查分析業(yè)務(wù)流程圖業(yè)務(wù)流程圖(transactionflowdiagram,簡稱TFD),就是用一些規(guī)定的符號及連線來表示某個具體業(yè)務(wù)處理過程。是一種用盡可能少、盡可能簡單的方法來描述業(yè)務(wù)處理過程的方法。付款單退款單入庫單收貨單米購訂單采購員供應(yīng)商退貨單2份-庫工付款單退款單入庫單收貨單米購訂單采購員供應(yīng)商退貨單2份-庫工財務(wù)部3.2系統(tǒng)的邏輯模型3.2.1數(shù)據(jù)流程圖3.2.2數(shù)據(jù)字典數(shù)據(jù)字典是對描述數(shù)據(jù)流程圖中的數(shù)據(jù)項、數(shù)據(jù)流、數(shù)據(jù)存儲、加工處理邏輯等組成部分的嚴(yán)格定義，下面是本系統(tǒng)的部分?jǐn)?shù)據(jù)字典。(1)數(shù)據(jù)流的描述數(shù)據(jù)流編號G-01數(shù)據(jù)流名稱米購訂單簡述企業(yè)購置商品時內(nèi)部流動的單據(jù)數(shù)據(jù)流來源采購部門數(shù)據(jù)流去向米購員數(shù)據(jù)項組成訂單號+經(jīng)手人+日期+貨物名稱+貨物代碼+數(shù)量+貨物單價+金額單價+摘要+供應(yīng)商+商品編號+聯(lián)系電話+預(yù)入倉庫數(shù)據(jù)流量25張/天高峰流量50張/天(2)處理邏輯描述處理邏輯編號P1處理邏輯名稱采購處理簡述對采購訂單進行統(tǒng)計，開出采購單輸入的數(shù)據(jù)流采購訂單處理描述對米購訂單進行處理，將所訂的貨物進行分類，編制合理有效的米購單輸出的數(shù)據(jù)流采購單處理頻率1張/小時(3)數(shù)據(jù)存儲的:苗述數(shù)據(jù)存儲編號F1數(shù)據(jù)存儲名稱收貨表簡述采購的貨物的記錄數(shù)據(jù)存儲組成貨物名稱+貨物代碼+貨物數(shù)量+貨物單價+貨物單位+金額+日期關(guān)鍵字貨物相關(guān)聯(lián)的處理P1(4)外部實體的?苗述外部實體編號S1

外部實體名稱米購員簡述米購商品人員輸入的數(shù)據(jù)流米購訂單輸出的數(shù)據(jù)流米購訂單3.3.1組織結(jié)構(gòu)分析組織結(jié)構(gòu)圖如下：|1計劃ijII!|1計劃ijII!札r.R":4系統(tǒng)設(shè)計4.2總體設(shè)計4.2.1功能結(jié)構(gòu)圖設(shè)計

4.3詳細(xì)設(shè)計4.3.1輸入輸出設(shè)計輸出設(shè)備：屏幕輸出方式：顯示輸出與打印輸出輸出形式：報表輸出形式輸入設(shè)計：對輸入信息進行校驗1?在登陸界面：用戶名及密碼不能為空，如不填寫兩者或兩者之一，則會彈出對話框提醒〃請輸入用戶名與密碼！"如果用戶輸入的密碼不是密碼管理表中的用戶名及密碼，則會彈出對話框提醒〃無該用戶！"2?在采購訂單： 訂單號不能為空，否則會彈出對話框提醒〃請輸入完整信息，輸入訂單號編號為數(shù)字！〃在單價和數(shù)量中輸入數(shù)字，金額項目會自動顯示為兩者乘積結(jié)果。5系統(tǒng)實施一、登錄界面當(dāng)輸入的賬號和密碼符合Access數(shù)據(jù)庫中的cgdl表中的數(shù)據(jù)時時，焦點落在確定上面,此時點擊確定就可以登入系統(tǒng)。若錯誤，則會彈出對話框提醒“用戶名密碼錯誤，請重新輸入!”并且它的輸入密碼為“*”，是在屬性欄中的passwordchar設(shè)置“*”。用戶名及密碼不能為空，如不填寫兩者或兩者之一，則會彈出對話框提醒〃請輸入用戶名與密碼！〃如果用戶輸入的密碼不是密碼管理表中的用戶名及密碼，則會彈出對話框提醒〃無該用戶！"設(shè)置了訪問權(quán)限，根據(jù)不同人的管理職能提供相應(yīng)的管理權(quán)限圖5-1登陸窗口它的具體代碼為：PrivateSubCommandl_Click()DimsqlAsStringDimcgdlAsNewADODB.RecordsetDimdlqxAsStringIfTrim(Textl.Text)=ThenMsgBox"用戶名不能為空，請重新輸入！"Textl.SetFocusElsesql="select*fromcgdlwhere登錄名='"&Trim(Textl.Text)&cgdl.Opensql,cnn,adOpenKeyset,adLockPessimisticIfcgdl.EOF=TrueThenMsgBox"用戶名不存在，請重新輸入！"，vbOKOnly+vbExclamation,Textl.Text=Text2.Text="”Textl.SetFocusElseIfTrim(cgdl.Fields(”密碼"))=Trim(Text2.Text)ThenForm2.Showdlqx="select*from權(quán)限管理where用戶名='"&Trim(Textl.Text)&"'"Adodc2.RecordSource=dlqxAdodc2.RefreshIfAdodc2.Recordset.Fields("權(quán)限管理")="Yes"ThenForm2.權(quán)限管理(lO).Enabled=TrueEndIfIfAdodc2.Recordset.Fields(“采購付款")="Yes"ThenForm2.釆購付款(5).Enabled=TrueEndIfIfAdodc2.Recordset.Fields("釆購訂單")="Yes"ThenForm2.釆購訂單(2).Enabled=TrueEndIfIfAdodc2.Recordset.Fields("訂單收貨")="Yes"ThenForm2.訂單收貨(3).Enabled=TrueEndIfUnloadMeElseMsgBox"密碼不正確,請重輸入！",vbOKOnly+vbExclamation,〃〃Text2.SetFocusText2.Text=""EndIfEndIfEndIfcgdl.CloseEndSubPrivateSubCommand2_Click()EndEndSubPrivateSubForm_Load()EndSubPrivateSubText2_KeyPress(KeyAsciiAsInteger)IfKeyAscii=13ThenCommand1.SetFocusEndIfEndSub二、主界面

新塔產(chǎn)品=品柜關(guān)I逼已產(chǎn)品乘購適貨新塔產(chǎn)品=品柜關(guān)I逼已產(chǎn)品乘購適貨圖5-2主界面主界面是登陸后最基礎(chǔ)的一個界面，內(nèi)容包括采購訂單，采購付款，訂單收貨，采購查詢,采購開單，密碼修改，權(quán)限管理，采購開單，幫助，新增產(chǎn)品等。它的具體代碼為：PrivateSubToolbarl_ButtonClick(ByValButtonAsMSComctlLib.Button)SelectCaseButton.KeyCase〃采購訂單〃LoadForm3Form3.ShowCase〃新增產(chǎn)品〃LoadForm5Form5.ShowCase〃產(chǎn)品幫助〃MsgBox"該產(chǎn)品正在試運行，不能顯示幫助！",vbOKOnly,""Form2.ShowCase"退出系統(tǒng)"Case〃產(chǎn)品相關(guān)〃MsgBox"本采購系統(tǒng)由倪斯文制作！"Case"退出產(chǎn)品"EndEndSelectEndSubPrivateSub采購查詢_Click(IndexAsInteger)Form5.ShowEndSubPrivateSub采購訂單_Click(IndexAsInteger)Form3.ShowEndSubPrivateSub采購付款Click(IndexAsInteger)Form8.ShowEndSubPrivateSub訂單收貨_Click(IndexAsInteger)Form4.ShowEndSubPrivateSub權(quán)限管理_Click(IndexAsInteger)Form7.ShowEndSubPrivateSub新增產(chǎn)品_Click(IndexAsInteger)Form5.ShowEndSub3、商品采購訂單企業(yè)向供應(yīng)商訂貨物時，開據(jù)入庫訂單，以便了解收貨情況并預(yù)先安排存放貨物的倉庫。在界面內(nèi)填入相應(yīng)的商品信息，點擊保存則會將所輸入的采購信息保存到采購信息管理表中。如果輸入有誤，且已保存，可以應(yīng)用刪除功能，將錯誤信息刪除，同時可以計算出應(yīng)付金額。訂單號不能為空，否則會彈出對話框提醒"請輸入完整信息，輸入訂單號編號為數(shù)字！"在單價和數(shù)量中輸入數(shù)字，金額項目會自動顯示為兩者乘積結(jié)果。圖5-3商品信息的錄入它的具體代碼為：DimcgAsNewADODB.RecordsetPrivateSubCommand1_Click（）Dimcgdd1AsStringcgddl=""select*from采購訂單管理""IfTrim（Text12.Text）=""ThenMsgBox"電話號碼不能為空",vbOKOnly+vbExclamation,Text12.SetFocusExitSubEndIfIfTrim（Text7.Text）=""ThenMsgBox"單價不能為空",vbOKOnly+vbExclamation,""Text7.SetFocusExitSubEndIfIfTrim（Text1.Text）=""ThenMsgBox"數(shù)量不能為空",vbOKOnly+vbExclamation,""Text14.SetFocusExitSubEndIfcg.Opencgdd1,cnn,adOpenKeyset,adLockOptimisticcg.AddNewcg.Fields（""交貨時間""）=Datecg.Fields（""經(jīng)手人""）=DataCombol.Textcg.Fields（""摘要""）=TextlO.Textcg.Fields（""聯(lián)系電話""）=Textl2.Textcg.Fields（""商品名稱""）=Combo3.Textcg.Fields（""商品編號""）=Combo4.Textcg.Fields（""單價""）=Text7.Textcg.Fields（""數(shù)量""）=Textl.Textcg.Fields（""預(yù)入倉庫""）=Combol.Textcg.Fields（"供應(yīng)商"）=Combo2.Textcg.Fields（"錄入時間"）=DTPickerl.Valuecg.Fields（"交貨時間"）=DTPicker2.Valuecg.Fields（"訂單號"）=Label20.Captioncg.Fields（"合計金額"）=Labell9.Captioncg.Updatecg.AddNewcg.Fields（"預(yù)入倉庫"）=Combol.Textcg.Fields（"供應(yīng)商"）=Combo2.Textcg.Fields（"錄入時間"）=DTPickerl.Valuecg.Fields（"交貨時間"）=DTPicker2.Valuecg.Fields（"訂單號"）=Label20.Captioncg.Fields（"交貨時間"）=Datecg.Fields（"經(jīng)手人"）=DataCombo1.Textcg.Fields（"摘要"）=Text10.Textcg.Fields（"聯(lián)系電話"）=Text12.Textcg.Fields（"商品名稱"）=DataCombo3.Textcg.Fields（"商品編號"）=DataCombo2.Textcg.Fields（"單價"）=Text3.Textcg.Fields（"數(shù)量"）=Text2.Textcg.Fields（"合計金額"）=Label21.Captioncg.Updatecg.CloseMsgBox"保存成功",vbOKOnly+vbExclamation,Adodcl.RefreshEndSubPrivateSubCommand2_Click（）DimMagAsIntegerMag=MsgBox（"是否刪除！"，vbYesNo,"警告"）IfMag=vbYesThenAdodcl.Recordset.Delete'刪除記錄EndIfLabell9.Caption=Val（Text7.Text）*Val（Textl.Text）EndSubPrivateSubCommand3_Click（）UnloadMeEndSubPrivateSubCommand4_Click（）Text9.Text=""Textl0.Text=""Textl2.Text=""Text7.Text=""Textl.Text=""Adodcl.Recordset.AddNewEndSubPrivateSubForm_Load（）Label20.Caption=Trim（Format（Val（Year（Date）&Month（Date）&Day（Date）&Hour（Time）&Minute（Time）&Second（Time））,"00000000000000"））EndSubPrivateSubTextl_Change（）Labell9.Caption=Val（Text7.Text）*Val（Textl.Text）

EndSubPrivateSubText2_Change()Label21.Caption二Val(Text3.Text)*Val(Text2.Text)EndSub4、訂單收貨訂單收貨：是“采購訂單”上的貨到后入庫完成交易。對采購訂單表中商品的訂單號進行查詢，會在表中顯示出來，說明其沒有入庫，可點擊“詳單查詢”，把相應(yīng)信息保存到收貨管理表中。同時刪除采購訂單中相應(yīng)的內(nèi)容。并計算出支付的金額。5.訂單收貨訂單詳單查詢確定坡瑾刪除取消10201161495452圖5-4訂單收貨5.訂單收貨訂單詳單查詢確定坡瑾刪除取消10201161495452圖5-4訂單收貨曲品定稱訂單曇004百事可樂00201161-|ooi可口可樂002011B1001可口可樂02011614(1丄一 =它的具體代碼為：PrivateSubCommandl_Click()DimdhAsStringdh=""select*from采購訂單管理where訂單號二'"&Combol.Text&Adodcl.RecordSource=dhAdodcl.RefreshSetDataGridl.DataSource=AdodclDimsumAsDouble 'sum就是所有的和sum=0 '先給賦值為0Adodcl.Recordset.MoveFirstDoWhileNotAdodcl.Recordset.EOF '從開始一直到結(jié)尾，累加sum=sum+Val(Adodc1.Recordset.Fields(12))Adodcl.Recordset.MoveNextLoopTextl.Text=str(sum) '保存到textl中去Adodcl.Recordset.MoveFirstEndSubPrivateSubCommand2_Click()DimdhAsStringdh=""select*from采購訂單管理where訂單號二'""&Combol.Text&Adodcl.RecordSource=dhAdodcl.RefreshDimshAsStringsh=""select*from收貨表""Adodc2.RecordSource=shAdodc2.RefreshAdodc2.Recordset.AddNewAdodc2.Recordset.FieldsC訂單號"")=Combol.TextAdodc2.Recordset.FieldsC總金額"")=Textl.TextAdodc2.Recordset.UpdateAdodcl.Recordset.DeleteMsgBox"成功收貨",vbExclamation,"提示"'付款成功后刪除該采購單Adodcl.Recordset.UpdateAdodcl.RefreshCombol.Text=""SetDataGrad=AdodclEndSubPrivateSubCommand3_Click()DimMagAsIntegerMag=MsgBox(""是否刪除！""，vbYesNo,""警告"")IfMag=vbYesThenAdodcl.Recordset.Delete'刪除記錄EndIfEndSubPrivateSubCommand4_Click()UnloadMeEndSubPrivateSubForm_Load()EndSub5、采購付款采購付款是對采購訂單中的商品進行金額統(tǒng)計并付款，并且應(yīng)知道付款時間，并將付款的單據(jù)存入公司的數(shù)據(jù)庫中，以備調(diào)查。圖5-5采購付款具體代碼為：DimfkAsNewADODB.RecordsetPrivateSubCommandl_Click()DimfklAsStringfk1=""select*from付款表""IfTextl.Text=""ThenMsgBox"應(yīng)付金額不能為空，請輸入應(yīng)付金額！",vbOKOnly+vbExclamation,"警告！〃Text2.SetFocusEndIffk.Openfkl,cnn,adOpenKeyset,adLockOptimisticfk.AddNewfk.Fields(""訂單號"")=Combo5.Textfk.Fields(""應(yīng)付金額"")=Textl.Textfk.Updatefk.CloseMsgBox"保存成功",vbOKOnly+vbExclamation,""Adodcl.RefreshEndSubPrivateSubCommand2_Click()UnloadMeForm2.ShowEndSubPrivateSubLabel7_Click()EndSubPrivateSubCommand3_Click()DimsumAsDouble 'sum就是所有的和sum=0 '先給賦值為0Adodc6.Recordset.MoveFirstDoWhileNotAdodc6.Recordset.EOF '從開始一直到結(jié)尾，累加sum=sum+Val(Adodc6.Recordset.Fields(12))Adodc6.Recordset.MoveNextLoopTextl.Text二str(sum) '保存到textl中去Adodc6.Recordset.MoveFirstEndSubPrivateSubCommand4_Click()DimstrAsStringstr=""select*from采購訂單管理where訂單號二'""&Combo5.Text&""'""Adodc4.RecordSource=strAdodc4.RefreshSetDataGridl.DataSource=Adodc4EndSubPrivateSubForm_Load()EndSub6、權(quán)限管理根據(jù)公司人員管理業(yè)務(wù)與只能的不同，分別對不同的員工提供不同的權(quán)限，并設(shè)管理員，管理下成員工的訪問權(quán)限。Form7 「三〕1亙圖5-6權(quán)限管理具體代碼如下：PrivateSubCommand1_Click()DimsqlllAsStringDimqxllAsNewADODB.Recordsetsqlll=""select*from權(quán)限管理where用戶名二'""&Label3.Caption&""'""qx11.Opensql11,cnn,adOpenKeyset,adLockOptimisticqx11.Fields(1)=Combo1.Textqx11.Fields(3)=Combo2.Textqx11.Fields(4)=Combo3.Textqx11.Fields(2)=Combo4.Textqx11.Updateqx11.CloseMsgBox"保存成功!",vbOKOnly,""UnloadMeEndSubPrivateSubdatagrid1_rowcolchange(lastrowAsVariant,ByVallastcolAsInteger)Label3.Caption二DataGridl.ColumnsC用戶名").TextEndSubPrivateSubForm_Load()Calldatagrid1_rowcolchange(lastrow,lastcol)Combo1.AddItem"Yes"Combo1.AddItem"No"Combo2.AddItem"Yes"Combo2.AddItem"No"Combo3.AddItem"Yes"Combo3.AddItem"No"Combo4.AddItem"Yes"Combo4.AddItem"No"EndSubPrivateSubText2_Change()EndSubPrivateSubLabel3_Click()EndSub開發(fā)環(huán)境首先選擇可視化的開發(fā)界面的簡單易操作的開發(fā)語言為開發(fā)平臺，充分的利用WINDOWS自帶的資源，既可以減少開發(fā)的工作量，也確保了程序的最大兼容性。MicrosoftVisualBasic6.0中文企業(yè)版符合了這項要求，即功能強大，又操作簡單。MicrosoftVisualBasic6.0中文企業(yè)版在功能方面優(yōu)于MicrosoftVisualBasic6.0的其他版本。對于數(shù)據(jù)庫的選擇，對于中小程序來說，SQL與ACCESS都可以滿足開發(fā)的要求，SQL需要另外進