企業(yè)銷售采購管理系統(tǒng)課程設(shè)計

1、交通運(yùn)輸學(xué)院課程設(shè)計 .引言1.1 需求分析隨著電子產(chǎn)品創(chuàng)新性技術(shù)的迅速發(fā)展、人民生活水平的提高，電腦已成為人們追求娛樂不可或缺的生活用品。而對于銷售這些產(chǎn)品的終端，無論是規(guī)模型的商場還是小的商店，都要求它們的采購業(yè)務(wù)能順利、高效地進(jìn)行。博宏電腦公司近年來的銷售量激增，但是采購業(yè)務(wù)成為了它獲取高效益的掣肘。該公司無論是高層領(lǐng)導(dǎo)還是員工，都希望能開發(fā)一個采購管理系統(tǒng)，對采購業(yè)務(wù)進(jìn)行管理。在該公司中，產(chǎn)品的采購管理是一項日常性的工作。電腦產(chǎn)品因其更新?lián)Q代迅速，如果做不到使產(chǎn)品的采購量以及采購時間適應(yīng)需求的變化，那么很容易造成商品積壓或脫銷，不僅影響商品的銷售業(yè)績，也會增加庫存費(fèi)以及采購環(huán)節(jié)不必要的

2、支出，最終影響公司的效益。另外，該公司的商品種類非常繁多，采購量大且頻繁，依靠傳統(tǒng)的手工處理記錄是很難對采購環(huán)節(jié)進(jìn)行及時、正確地處理。所以開發(fā)并應(yīng)用采購管理系統(tǒng)成為適應(yīng)時代發(fā)展，使管理現(xiàn)代化的重要措施。采購管理系統(tǒng)體現(xiàn)了當(dāng)今先進(jìn)的企業(yè)管理思想，對提高企業(yè)的管理水平有著重要的意義。采購管理系統(tǒng)能夠保證計劃的準(zhǔn)確性和采購的合理性，降低商品的運(yùn)營成本，讓利于消費(fèi)者，提升該公司的競爭力。1.2可行性分析可行性分析的任務(wù)是明確開發(fā)該采購管理系統(tǒng)的必要性和可行性。該公司的采購環(huán)節(jié)出現(xiàn)了制約商場發(fā)展的現(xiàn)象，利用計算機(jī)技術(shù)解決采購業(yè)務(wù)數(shù)據(jù)的處理迫在眉睫，公司的領(lǐng)導(dǎo)支持開發(fā)采購管理系統(tǒng)，管理人員、員工積極響應(yīng)。

3、因此開發(fā)采購管理系統(tǒng)的必要性與可行性是存在的。具體表現(xiàn)為：1）管理上的可行性：公司內(nèi)部的采購環(huán)節(jié)的滯后讓管理人員的日常管理工作難以順利地進(jìn)行，領(lǐng)導(dǎo)層也注意到當(dāng)前落后的采購管理手段對商品的銷售利潤影響很大，公司上下都對采購管理系統(tǒng)的開發(fā)有很大的熱情，迫切需要對其采購管理進(jìn)行改革，開發(fā)采購管理系統(tǒng)的時機(jī)已成熟。2）技術(shù)上的可行性：由于該公司的辦公室、采購部門、庫存部門、銷售部門和財務(wù)部門等都使用了電腦辦公，公司員工的素質(zhì)較高，員工的技術(shù)水平達(dá)到了采購管理系統(tǒng)所要求的水平。目前可視化開發(fā)技術(shù)及工具（如visual basic）和數(shù)據(jù)庫技術(shù)（如access）很成熟，并且該采購管理系統(tǒng)在公司現(xiàn)有的硬軟件

4、資源基礎(chǔ)上可以實施，因此技術(shù)上是可行的。3）經(jīng)濟(jì)上的可行性：該系統(tǒng)所需的硬件設(shè)備，如服務(wù)器、PC機(jī)、打印機(jī)以及網(wǎng)絡(luò)配件等的市場價格不高，且目前主流的配置就能滿足該系統(tǒng)的功能要求，設(shè)備費(fèi)用的支出很小。該公司對于此次開發(fā)MIS的經(jīng)濟(jì)效益和費(fèi)用支出進(jìn)行了比較評價，回收期短。該公司經(jīng)濟(jì)效益好，現(xiàn)金流正常，為此次項目開發(fā)提供了充足的經(jīng)費(fèi)。由于該系統(tǒng)規(guī)模小，僅在公司內(nèi)部運(yùn)行，日常的維護(hù)量不大，所以運(yùn)行費(fèi)用低。但是由于采用了采購管理系統(tǒng)，減少了采購環(huán)節(jié)的人員作業(yè)，提高了工作效率，進(jìn)而降低了商品的成本，這些費(fèi)用的節(jié)省遠(yuǎn)大于該采購管理系統(tǒng)的開發(fā)和運(yùn)行費(fèi)用。2. 系統(tǒng)分析2.1 業(yè)務(wù)流程分析 圖2.1為采購管理系

5、統(tǒng)業(yè)務(wù)流程圖：描述了系統(tǒng)內(nèi)各單位、人員之間業(yè)務(wù)關(guān)系、作業(yè)順序和管理業(yè)務(wù)流向的圖表。供應(yīng)商付款單供應(yīng)商付款單退款單退款單采購訂單采購訂單財務(wù)部采購員財務(wù)部采購員退貨單采購開單退貨單采購開單收貨單倉庫管理員收貨單倉庫管理員圖2.1 采購管理業(yè)務(wù)流程圖2.2 數(shù)據(jù)流程分析根據(jù)數(shù)據(jù)流程圖畫出的業(yè)務(wù)流程圖如圖2.2和圖2.3所示：數(shù)據(jù)流程圖能全面地描述信息系統(tǒng)邏輯模型供應(yīng)商提貨單供應(yīng)商采購處理采購處理 采購訂單圖2.2 采購管理的頂層數(shù)據(jù)流程圖財務(wù)賬簿財務(wù)賬簿財務(wù) 部財務(wù) 部 退貨單數(shù)據(jù) 訂 單 數(shù) 據(jù)采購訂單審核處理采購部供應(yīng)商采購訂單審核處理采購部供應(yīng)商 采購訂單 訂單數(shù)據(jù) 入 出 庫 庫 單 單銷

6、售部銷售部收退貨處理庫存處理 銷售報表 出、入庫數(shù)據(jù)收退貨處理庫存處理庫存臺賬庫存臺賬圖2.3 采購管理系統(tǒng)的第二層數(shù)據(jù)流程圖2.3 數(shù)據(jù)字典1）數(shù)據(jù)項的定義（以采購訂單的單據(jù)編號為例） 數(shù)據(jù)項編號：I02-01 數(shù)據(jù)項名稱：單據(jù)編號 別名：單據(jù)編號 簡述：區(qū)別采購訂單唯一性的代碼 類型與長度：字符型，長度為11 取值范圍：“20110101001”“21001231999” 2）數(shù)據(jù)結(jié)構(gòu)的定義（以采購訂單為例） 數(shù)據(jù)結(jié)構(gòu)編號：DS02-01 數(shù)據(jù)結(jié)構(gòu)名稱：采購訂單 簡述：采購部門所填采購訂單信息 數(shù)據(jù)結(jié)構(gòu)組成：DS02-02 + DS02-03 + DS02-043）數(shù)據(jù)流的定義（以采購訂單

7、為例） 數(shù)據(jù)流編號：D02-02 數(shù)據(jù)流名稱：合格的采購訂單 簡述：經(jīng)審核批準(zhǔn)的采購訂單 數(shù)據(jù)流來源：采購訂單審核處理模塊 數(shù)據(jù)流去向：采購部門 數(shù)據(jù)項組成：單據(jù)編號+錄單日期+商品編號+商品名稱+型號+規(guī)格+單位+數(shù)量+單價+合計金額+供應(yīng)商+到貨日期+聯(lián)系人+電話+業(yè)務(wù)員+摘要 數(shù)據(jù)流量：約30張/日 高峰流量：約50張/日 4）處理邏輯的定義（以采購訂單審核為例） 處理邏輯編號：P02-01 處理邏輯名稱：采購訂單審核處理 簡述：審核采購訂單是否合格并給予批準(zhǔn)或不批準(zhǔn) 輸入的數(shù)據(jù)流：采購訂單 審核處理描述：審核采購部門送來的采購訂單填寫格式是否符合要求，單據(jù)上的信息是否符合采購計劃，是否

8、真實等。不合格的單據(jù)返回采購部門，合格的單據(jù)登記采購訂單臺賬。輸出的數(shù)據(jù)流：合格的采購訂單，未批采購訂單 處理頻率：約30次/日5）數(shù)據(jù)存儲的定義（以采購訂單數(shù)據(jù)存儲為例） 數(shù)據(jù)存儲編號：F02-01 數(shù)據(jù)存儲名稱：采購訂單臺賬 簡述：存放采購訂單信息 數(shù)據(jù)存儲組成：單據(jù)編號+錄單日期+商品編號+商品名稱+型號+規(guī)格+單位+數(shù)量+單價+合計金額+預(yù)付賬戶+預(yù)付金額+供應(yīng)商+到貨日期+聯(lián)系人+電話+業(yè)務(wù)員+摘要 關(guān)鍵字：單據(jù)編號 相關(guān)聯(lián)的處理：P02-01 6）外部實體的定義（以供應(yīng)商為例） 外部實體編號：S02-01外部實體名稱：供應(yīng)商 簡述：提供商品的供應(yīng)商 輸入的數(shù)據(jù)流：D02-02 輸出

9、的數(shù)據(jù)流：D02-013. 系統(tǒng)設(shè)計3.1 系統(tǒng)總體結(jié)構(gòu)新系統(tǒng)的功能設(shè)計是以業(yè)務(wù)流程圖和數(shù)據(jù)流程圖為依據(jù)的。對該采購管理系統(tǒng)劃分為系統(tǒng)設(shè)置、資料管理、采購訂單、訂單收貨、采購開單、采購付款、采購?fù)素?、產(chǎn)品銷售等功能模塊。根據(jù)以上分析，該采購管理系統(tǒng)功能劃分圖如圖3.1所示：采購管理系統(tǒng)采購管理系統(tǒng)系統(tǒng)設(shè)置系統(tǒng)設(shè)置采購管理采購管理產(chǎn)品銷售采購?fù)素洸少徃犊畈少忛_單訂單收貨采購訂單修改密碼權(quán)限管理添加用戶產(chǎn)品銷售采購?fù)素洸少徃犊畈少忛_單訂單收貨采購訂單修改密碼權(quán)限管理添加用戶 圖3.1 采購管理系統(tǒng)功能結(jié)構(gòu)圖3.2 數(shù)據(jù)結(jié)構(gòu)與數(shù)據(jù)庫設(shè)計ER模型：概念模型的最常用的表示方法是實體-聯(lián)系方法。商品名稱商

10、品名稱型號商品編號型號商品編號訂單號訂單號規(guī)格采購訂單規(guī)格采購訂單日期供應(yīng)商名稱交給日期供應(yīng)商名稱交給聯(lián)系人編號聯(lián)系人編號供應(yīng)商供應(yīng)商電話電話名稱名稱日期交貨日期交貨商品數(shù)量商品數(shù)量商品名稱倉庫商品名稱倉庫訂單號訂單號數(shù)量采購開單數(shù)量采購開單單價商品名稱單價商品名稱商品編號商品編號圖3.2 采購管理系統(tǒng)E-R模型圖數(shù)據(jù)表的設(shè)計：這是根據(jù)數(shù)據(jù)流程圖設(shè)計的數(shù)據(jù)表主鍵列名數(shù)據(jù)類型長度允許空*供應(yīng)商代碼char3*供應(yīng)商名稱文本4*產(chǎn)品代碼char6*產(chǎn)品名稱文本4圖3.1 產(chǎn)品銷售表主鍵列名數(shù)據(jù)類型長度允許空*商品編號char6*商品名稱文本4*型號文本8*規(guī)格文本9*單位文本15*數(shù)量varcha

11、r15*單價char4*合計金額varchar19*單據(jù)編號varchar3*供應(yīng)商文本4*入庫日期datatime8*聯(lián)系人文本3*電話char11*業(yè)務(wù)員文本3*摘要文本9表3.2 商品庫存表3.3 代碼設(shè)計代碼設(shè)計部分主要是采購訂單號的設(shè)計。博宏公司的主要合作伙伴為其設(shè)計固定的編碼。采購訂單號是由供應(yīng)商名和產(chǎn)品類別構(gòu)成的。表3.3為采購訂單編號表 ：供應(yīng)商代碼*供應(yīng)商名稱產(chǎn)品代碼產(chǎn)品名稱001A經(jīng)銷商N(yùn)-01聯(lián)想電腦002B經(jīng)銷商N(yùn)-02戴爾電腦003C經(jīng)銷商N(yùn)-03索尼電腦004D經(jīng)銷商N(yùn)-04華碩電腦005E經(jīng)銷商N(yùn)-05宏基電腦006F經(jīng)銷商N(yùn)-06三星電腦007G經(jīng)銷商N(yùn)-07惠

12、普電腦表3.3 采購訂單編號表 3.4 輸入輸出設(shè)計輸出設(shè)計：輸出設(shè)備：打印機(jī)、顯示器輸出報告：輸出設(shè)計書資料代碼XS-01輸出名稱銷售報表份數(shù)1報送庫存部門項目號項目名稱位數(shù)及編輯備注1商品編號X(4)2商品名稱X(6)3型號X(6)4銷售數(shù)量X(3)表3.4 輸出設(shè)計書輸入設(shè)計： 對輸入信息進(jìn)行校驗在登陸界面： 用戶名及密碼不能為空，如不填寫兩者或兩者之一，則會彈出對話框提醒用戶不存在，請從新輸入！如果用戶輸入的密碼不是密碼管理表中的用戶名及密碼，則會彈出對話框提醒用戶不存在，請從新輸入！在產(chǎn)品銷售中：商品編號不能為空，否則會彈出對話框提醒Sorry,未找到你所查詢的數(shù)據(jù)，請查證后再試單據(jù)

13、號規(guī)格數(shù)量錄單日期單位單價商品編號到貨日期合計金額商品名稱業(yè)務(wù)員預(yù)付賬戶型號聯(lián)系人預(yù)付金額供應(yīng)商電話摘要表3.5 產(chǎn)品銷售單錄入屏幕3.5系統(tǒng)的安全設(shè)計信息系統(tǒng)安全設(shè)計主要解決以下幾個問題：止帶寬資源濫用防止無關(guān)網(wǎng)絡(luò)行為影響工作效率管控外發(fā)信息，降低泄密風(fēng)險掌握組織動態(tài)、優(yōu)化員工管理為網(wǎng)絡(luò)管理與優(yōu)化提供決策依據(jù)，防止病毒木馬等網(wǎng)絡(luò)風(fēng)險低成本且有效推行信息管理制度等4. 系統(tǒng)實施4.1 系統(tǒng)實施一、登錄界面當(dāng)輸入的賬號為：xiaolin密碼為：xiaolin 時，焦點(diǎn)會自動落在確定上面，此時點(diǎn)擊確定或按回車鍵即可以登入系統(tǒng)。若錯誤，則會彈出對話框提醒“此用戶不存在,請重新輸入！”并且它的輸入密碼

14、為“*”，是在屬性欄中的passwordchar設(shè)置“*”。用戶名及密碼不能為空，如不填寫兩者或兩者之一，則會彈出對話框提醒此用戶不存在，請從新輸入！如果用戶輸入的密碼不是密碼管理表中的用戶名及密碼，則會彈出對話框提醒此用戶不在，請從新輸入！圖4-1 登陸窗口它的具體代碼為：Dim TIM As Integer 定義一個整型變量Dim myval As String 定義一個字符串變量Private Sub Form_Load() 連接access數(shù)據(jù)庫 Adodc1.ConnectionString = Provider=Microsoft.Jet.OLEDB.4.0;Data Source

15、= & App.Path & 采購管理系統(tǒng).mdb;Persist Security Info=False Adodc1.RecordSource = select * from 用戶 Adodc1.Refresh End SubPrivate Sub Command1_Click()Static itimes As Integer Form2.StatusBar1.Panels(4).Text = Text1.Text 驗證用戶名及密碼 Adodc1.RecordSource = select * from 用戶 where 用戶名= + Text1.Text + Adodc1.Refres

16、hIf Adodc1.Recordset.RecordCount 0 Then 如果記錄數(shù)大于零 驗證密碼If Text2.Text = Adodc1.Recordset.Fields(密碼) Then Load Form2 Form2.Show Unload Me Else If Text2.Text Adodc1.Recordset.Fields(密碼) Then MsgBox 密碼錯誤,請重新輸入！, vbCritical, 系統(tǒng)提示 itimes = itimes + 1 Text2.Text = Text2.SetFocus End If End If Else MsgBox 用戶不

17、存在,請重新輸入！, vbCritical, 系統(tǒng)提示 itimes = itimes + 1 Text1.Text = Text2.Text = Text1.SetFocus End If If itimes = 3 Then 錯誤3次，退出系統(tǒng) MyMsg = MsgBox(輸入錯誤,請向管理員查詢！, vbCritical, 系統(tǒng)提示) If MyMsg = vbOK Then End End IfEnd SubPrivate Sub Command2_Click()EndEnd SubPrivate Sub text2_KeyDown(KeyCode As Integer, Shift

18、 As Integer) If KeyCode = vbKeyReturn Then Command1_Click 按回車鍵進(jìn)入End SubPrivate Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then Text2.SetFocus 按回車鍵，text2獲得焦點(diǎn)End Sub二、主界面主界面是登陸后最基礎(chǔ)的一個界面，內(nèi)容包括采購訂單，訂單收獲，采購開單，采購付款，采購?fù)素?，產(chǎn)品銷售。圖4-2 主界面它的具體代碼為：Private Sub Command1_Click()

19、Form3.ShowForm2.Enabled = FalseEnd SubPrivate Sub 供應(yīng)商資料_Click()Form21.ShowForm2.Enabled = FalseEnd SubPrivate Sub 庫存查詢_Click()Form8.ShowForm2.Enabled = FalseEnd SubPrivate Sub 權(quán)限管理_Click()Form91.ShowForm2.Enabled = FalseEnd SubPrivate Sub 添加用戶_Click()Form9.ShowForm2.Enabled = FalseEnd SubPrivate Sub

20、 退出系統(tǒng)_Click()EndEnd SubPrivate Sub 修改密碼_Click()Form92.ShowForm2.Enabled = FalseEnd Sub三添加用戶圖4-3 添加用戶它的具體代碼為：Private Sub Form_Load() 自動識別數(shù)據(jù)庫路徑Adodc1.ConnectionString = Provider=Microsoft.Jet.OLEDB.4.0;Data Source= & App.Path & 采購管理系統(tǒng).mdb;Persist Security Info=FalseAdodc1.RecordSource = select * from

21、權(quán)限設(shè)置Adodc1.RefreshAdodc2.ConnectionString = Provider=Microsoft.Jet.OLEDB.4.0;Data Source= & App.Path & 采購管理系統(tǒng).mdb;Persist Security Info=FalseAdodc2.RecordSource = select * from 用戶Adodc2.RefreshEnd SubPrivate Sub Form_Activate() Text1.SetFocus text1獲得焦點(diǎn)End SubPrivate Sub Form_Unload(Cancel As Integer

22、) Form2.Enabled = TrueEnd SubPrivate Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then Text2.SetFocus 回車text2獲得焦點(diǎn)End SubPrivate Sub text2_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then Text3.SetFocus 回車text3獲得焦點(diǎn)End SubPrivate Sub Text3

23、_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then Command1.SetFocus 回車Command1獲得焦點(diǎn)End SubPrivate Sub Command1_Click() Dim yhm 保存用戶名及密碼 If Text1.Text Then Adodc1.RecordSource = select * from 用戶 where 用戶名= + Text1.Text + If Text1.Text = Adodc1.Recordset.Fields(用戶名) Then MsgB

24、ox 已添加該用戶，請重新添加, , 系統(tǒng)提示 Text1.Text = : Text2.Text = : Text3.Text = Text1.SetFocus ElseIf Text2.Text And Text3.Text And Text2.Text = Text3.Text Then adocon.Open Provider=Microsoft.Jet.OLEDB.4.0;Data Source= & App.Path & 采購管理系統(tǒng).mdb;Persist Security Info=False adoRs.Open select * from 用戶, adocon, adOpe

25、nKeyset, adLockOptimistic adoRs.AddNew adoRs.Fields(用戶名) = Text1.Text adoRs.Fields(密碼) = Text2.Text adoRs.Update adocon.Close adocon.Open Provider=Microsoft.Jet.OLEDB.4.0;Data Source= & App.Path & 采購管理系統(tǒng).mdb;Persist Security Info=False adoRs.Open select * from 權(quán)限設(shè)置, adocon, adOpenKeyset, adLockOptim

26、istic adoRs.AddNew adoRs.Fields(用戶名) = Text1.Text adoRs.Fields(密碼) = Text2.Text adoRs.Update adocon.Close Text1.Text = : Text2.Text = : Text3.Text = MsgBox 添加用戶成功！, , 系統(tǒng)提示 ElseIf Text3.Text = Then MsgBox 請輸入確認(rèn)密碼, , 系統(tǒng)提示 Text3.SetFocus ElseIf Text2.Text Text3.Text Then MsgBox 兩次輸入的密碼不相同, , 系統(tǒng)提示 Text2

27、.Text = Text3.Text = Text2.SetFocus End If Else MsgBox 請輸入用戶名！, , 系統(tǒng)提示 End IfEnd SubPrivate Sub Command2_Click() Text1.Text = : Text2.Text = : Text3.Text = End SubPrivate Sub Command3_Click() Unload Me Form2.Show Form2.Enabled = TrueEnd Sub四密碼設(shè)置本功能允許使用者對密碼進(jìn)行修改，取保系統(tǒng)的安全與方便。如果你是系統(tǒng)的用戶，輸入用戶名可對自己的密碼進(jìn)行修改。圖

28、4-4 密碼設(shè)置它的具體代碼為：Private Sub Form_Load() Adodc1.ConnectionString = Provider=Microsoft.Jet.OLEDB.4.0;Data Source= & App.Path & 采購管理系統(tǒng).mdb;Persist Security Info=False Adodc1.RecordSource = select * from 權(quán)限設(shè)置 Adodc1.RefreshEnd SubPrivate Sub Command1_Click() If Text1.Text = Or Text2.Text = Or Text3.Text

29、 = Then MsgBox 輸入不能為空!, 48, 提示信息 Else Adodc1.RecordSource = select * from 權(quán)限設(shè)置 where 用戶名= + Text1.Text + Adodc1.Refresh If Adodc1.Recordset.RecordCount 0 Then If Text2.Text = Adodc1.Recordset.Fields(密碼) Then adocon.Open Provider=Microsoft.Jet.OLEDB.4.0;Data Source= & App.Path & 采購管理系統(tǒng).mdb;Persist Se

30、curity Info=False Set adoRs = adocon.Execute(update 權(quán)限設(shè)置 set 密碼= + Text3.Text + where 用戶名= + Text1.Text + ) adocon.Close Dim rs1 As New ADODB.Recordset rs1.Open select * from 用戶 where 用戶名= + Text1.Text + , StrCnn, adOpenKeyset, adLockPessimistic If rs1.RecordCount 0 Then rs1.Fields(密碼) = Text3.Text

31、rs1.Update rs1.Close End If MsgBox 密碼修改成功,退出密碼設(shè)置!, , 系統(tǒng)提示 Form2.Enabled = True Unload Me Else MsgBox 原密碼錯誤,請重新輸入原密碼!, , 系統(tǒng)提示 End If Else MsgBox 該用戶不存在,請重新輸入, , 系統(tǒng)提示 End IfEnd IfEnd SubPrivate Sub Form_Unload(Cancel As Integer) Form2.Enabled = TrueEnd SubPrivate Sub Command2_Click() Form2.Enabled = T

32、rue Unload Me Form2.ShowEnd SubPrivate Sub Form_Activate() Text1.SetFocus 回車text1獲得焦點(diǎn)End SubPrivate Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then Text2.SetFocus 回車text2獲得焦點(diǎn)End SubPrivate Sub text2_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKe

33、yReturn Then Text3.SetFocus 回車text3獲得焦點(diǎn)End SubPrivate Sub Text3_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 13 Then Command1_ClickEnd Sub五權(quán)限管理：圖4.5詳細(xì)的陳述了權(quán)限設(shè)置的內(nèi)容，包括系統(tǒng)設(shè)置，資料管理，采購管理，庫存管理和退貨管理。圖4-5 權(quán)限管理它的具體代碼為：Private Sub Form_Load() Adodc1.ConnectionString = Provider=Microsoft.Jet.OLEDB.4

34、.0;Data Source= & App.Path & 采購管理系統(tǒng).mdb;Persist Security Info=False Adodc1.RecordSource = select * from 權(quán)限設(shè)置 Adodc1.Refresh Adodc2.ConnectionString = Provider=Microsoft.Jet.OLEDB.4.0;Data Source= & App.Path & 采購管理系統(tǒng).mdb;Persist Security Info=False Adodc2.RecordSource = select * from 權(quán)限設(shè)置 Adodc2.Refr

35、esh Set DataList1.RowSource = Adodc2End SubPrivate Sub Form_Unload(Cancel As Integer) Form2.Enabled = TrueEnd SubPrivate Sub Datalist1_Click() Adodc1.RecordSource = select * from 權(quán)限設(shè)置 where 用戶名= & DataList1.BoundText & Adodc1.Refresh If Adodc1.Recordset.RecordCount 0 Then For i = 0 To 11 If Adodc1.R

36、ecordset.Fields(i) = -1 Then Check1(i).Value = 1 Else Check1(i).Value = 0 Next i Else DataList1.BoundText = 0 End IfEnd SubPrivate Sub Command1_Click() 全選For i = 0 To 11 Check1(i).Value = 1Next iEnd SubPrivate Sub Command2_Click() 全不選 For i = 0 To 11 Check1(i).Value = 0 Next iEnd SubPrivate Sub Comm

37、and3_Click() 為用戶設(shè)置權(quán)限 If DataList1.BoundText Then Adodc1.RecordSource = select * from 權(quán)限設(shè)置 where 用戶名= + DataList1.BoundText + Adodc1.Refresh If Adodc1.Recordset.RecordCount 0 Then For i = 0 To 11 If Check1(i).Value = 1 Then Adodc1.Recordset.Fields(i) = -1 Else Adodc1.Recordset.Fields(i) = 0 Next i Ad

38、odc1.Recordset.Update End If MsgBox 權(quán)限設(shè)置成功!, , 系統(tǒng)提示 End IfEnd SubPrivate Sub Command4_Click() Unload Me Form2.Enabled = True Form2.ShowEnd SubPrivate Sub Command5_Click() 刪除用戶 On Error Resume Next A = MsgBox(確認(rèn)刪除該用戶?, 4, 系統(tǒng)提示) If A = vbYes Then Adodc1.Recordset.Delete Adodc1.Refresh Dim rs2 As New A

39、DODB.Recordset rs2.Open select * from 用戶 where 用戶名 = + DataList1.BoundText + , StrCnn, adOpenKeyset, adLockPessimistic If rs2.RecordCount 0 Then rs2.Delete rs2.Update End If Unload Me Adodc1.Refresh Form91.Show End IfEnd Sub六采購訂單企業(yè)向供應(yīng)商訂貨物時，開據(jù)采購訂單，以便供應(yīng)商及時供貨。在界面內(nèi)填入相應(yīng)的商品信息，點(diǎn)擊添加則會將所輸入的訂單信息保存到采購訂單中中。如果輸入

40、有誤，且已保存，可以應(yīng)用刪除功能，將錯誤信息刪除。訂單號不能為空，否則會彈出對話框提醒請輸入完整信息！在單價和數(shù)量中輸入數(shù)字，金額項目會自動顯示為兩者乘積結(jié)果。圖4-6 采購商品信息的錄入它的具體代碼為：Private Sub Form_Load() 連接access數(shù)據(jù)庫 Adodc1.ConnectionString = Provider=Microsoft.Jet.OLEDB.4.0;Data Source= & App.Path & 采購管理系統(tǒng).mdb;Persist Security Info=False Adodc1.RecordSource = select * from 采購

41、訂單 Adodc1.Refresh Adodc2.ConnectionString = Provider=Microsoft.Jet.OLEDB.4.0;Data Source= & App.Path & 采購管理系統(tǒng).mdb;Persist Security Info=False Adodc2.RecordSource = select * from 供應(yīng)商資料 Adodc2.Refresh Combo1.Clear Combo1.AddItem Adodc2.Recordset.Fields(供應(yīng)商名稱) DTPicker1 = Date DTPicker2 = Date Adodc3.C

42、onnectionString = Provider=Microsoft.Jet.OLEDB.4.0;Data Source= & App.Path & 采購管理系統(tǒng).mdb;Persist Security Info=False Adodc3.RecordSource = select * from 付款明細(xì)賬 Adodc3.RefreshEnd SubPrivate Sub Command1_Click() If Text1.Text = Or Text6.Text = Then MsgBox 請輸入單據(jù)編號和商品編號, , 系統(tǒng)提示 Else If Text1.Text = Adodc1

43、.Recordset.Fields(單據(jù)編號) Or Text6.Text = Adodc1.Recordset.Fields(商品編號) Then MsgBox 單據(jù)編號和商品編號不能重復(fù)添加，請重新輸入, , 系統(tǒng)提示 Text1.Text = Text2.Text = Text3.Text = Combo3.Text = Text5.Text = Text6.Text = Text7.Text = Text8.Text = Text9.Text = Text10.Text = Text11.Text = Text12.Text = Text13.Text = Text14.Text =

44、Combo1.Text = Combo2.Text = Else Adodc1.Recordset.AddNew Adodc1.Recordset.Fields(單據(jù)編號) = Trim(Text1.Text) Adodc1.Recordset.Fields(錄單日期) = Trim(DTPicker2.Value) Adodc1.Recordset.Fields(供應(yīng)商) = Trim(Combo1.Text) Adodc1.Recordset.Fields(到貨日期) = Trim(DTPicker1.Value) Adodc1.Recordset.Fields(聯(lián)系人) = Trim(T

45、ext2.Text) Adodc1.Recordset.Fields(電話) = Trim(Text3.Text) Adodc1.Recordset.Fields(業(yè)務(wù)員) = Trim(Combo3.Text) Adodc1.Recordset.Fields(摘要) = Trim(Text5.Text) Adodc1.Recordset.Fields(商品編號) = Trim(Text6.Text) Adodc1.Recordset.Fields(商品名稱) = Trim(Text7.Text) Adodc1.Recordset.Fields(型號) = Trim(Text8.Text) A

46、dodc1.Recordset.Fields(規(guī)格) = Trim(Text9.Text) Adodc1.Recordset.Fields(單位) = Trim(Text10.Text) Adodc1.Recordset.Fields(數(shù)量) = Trim(Text11.Text) Adodc1.Recordset.Fields(單價) = Trim(Text14.Text) Adodc1.Recordset.Fields(合計金額) = Trim(Text12.Text) Adodc1.Recordset.Fields(預(yù)付賬戶) = Trim(Combo2.Text) Adodc1.Rec

47、ordset.Fields(預(yù)付金額) = Trim(Text13.Text) Adodc1.Recordset.Update Adodc3.Recordset.AddNew Adodc3.Recordset.Fields(單據(jù)編號) = Trim(Text1.Text) Adodc3.Recordset.Fields(商品編號) = Trim(Text6.Text) Adodc3.Recordset.Fields(商品名稱) = Trim(Text7.Text) Adodc3.Recordset.Fields(合計金額) = Trim(Text12.Text) Adodc3.Recordse

48、t.Fields(已預(yù)付款) = Trim(Text13.Text) Adodc3.Recordset.Fields(應(yīng)付款) = Trim(Text12.Text) - Trim(Text13.Text) Adodc3.Recordset.Update Text1.Text = Text2.Text = Text3.Text = Combo3.Text = Text5.Text = Text6.Text = Text7.Text = Text8.Text = Text9.Text = Text10.Text = Text11.Text = Text12.Text = Text13.Text

49、= Text14.Text = Combo1.Text = Combo2.Text = End If End IfEnd SubPrivate Sub Command2_Click() Text1.Text = Text2.Text = Text3.Text = Combo3.Text = Text5.Text = Text6.Text = Text7.Text = Text8.Text = Text9.Text = Text10.Text = Text11.Text = Text12.Text = Text13.Text = Text14.Text = Combo1.Text = Combo

50、2.Text = End SubPrivate Sub Command3_Click()Unload MeForm2.ShowForm2.Enabled = TrueEnd SubPrivate Sub Text12_Change() Text12.Text = Val(Text14.Text) * Val(Text11.Text)End Sub七訂單收貨訂單收貨：是“采購訂單”上的貨到貨后入庫，完成交易。對采購訂單表中商品的訂單號進(jìn)行查找。在表中可查詢訂貨商品的詳細(xì)信息，如單價、數(shù)量、商品是否入庫等，如果沒有入庫，則可應(yīng)用入庫功能，對商品進(jìn)行入庫處理。圖4.7為訂單收貨圖，包括單據(jù)編號，錄單

51、日期，供應(yīng)商，到貨日期，聯(lián)系人，電話，業(yè)務(wù)員，商品編號，商品名稱，型號，規(guī)格，單位，數(shù)量，單價。輸入單據(jù)編號就可以查找到提到的相關(guān)的所有信息。圖4-7 訂單收貨它的具體代碼為：Private Sub Form_Load() Adodc1.ConnectionString = Provider=Microsoft.Jet.OLEDB.4.0;Data Source= & App.Path & 采購管理系統(tǒng).mdb;Persist Security Info=False Adodc1.RecordSource = select * from 采購訂單 where 是否已入庫=0 order by

52、單據(jù)編號 Adodc1.Refresh Set DataGrid1.DataSource = Adodc1 DataGrid1.Refresh Adodc2.ConnectionString = Provider=Microsoft.Jet.OLEDB.4.0;Data Source= & App.Path & 采購管理系統(tǒng).mdb;Persist Security Info=False Adodc2.RecordSource = select * from 庫存商品 Adodc2.RefreshEnd SubPrivate Sub Command4_Click() 查找訂單Adodc1.Re

53、cordSource = select * from 采購訂單 where 采購訂單.單據(jù)編號 = & Text1.Text & Adodc1.RefreshEnd SubPrivate Sub Command1_Click() 入庫 Adodc2.Recordset.AddNew Adodc2.Recordset.Fields(商品編號) = Adodc1.Recordset.Fields(商品編號) Adodc2.Recordset.Fields(商品名稱) = Adodc1.Recordset.Fields(商品名稱) Adodc2.Recordset.Fields(型號) = Adod

54、c1.Recordset.Fields(型號) Adodc2.Recordset.Fields(規(guī)格) = Adodc1.Recordset.Fields(規(guī)格) Adodc2.Recordset.Fields(單位) = Adodc1.Recordset.Fields(單位) Adodc2.Recordset.Fields(數(shù)量) = Adodc1.Recordset.Fields(數(shù)量) Adodc2.Recordset.Fields(單價) = Adodc1.Recordset.Fields(單價) Adodc2.Recordset.Fields(合計金額) = Adodc1.Recor

55、dset.Fields(合計金額) Adodc2.Recordset.Fields(單據(jù)編號) = Adodc1.Recordset.Fields(單據(jù)編號) Adodc2.Recordset.Fields(入庫日期) = Adodc1.Recordset.Fields(到貨日期) Adodc2.Recordset.Fields(供應(yīng)商) = Adodc1.Recordset.Fields(供應(yīng)商) Adodc2.Recordset.Fields(聯(lián)系人) = Adodc1.Recordset.Fields(聯(lián)系人) Adodc2.Recordset.Fields(電話) = Adodc1.R

56、ecordset.Fields(電話) Adodc2.Recordset.Fields(業(yè)務(wù)員) = Adodc1.Recordset.Fields(業(yè)務(wù)員) Adodc2.Recordset.Fields(摘要) = Adodc1.Recordset.Fields(摘要) Adodc2.Recordset.Update Adodc1.Recordset.Fields(是否已入庫) = -1 Adodc1.Recordset.UpdateAdodc1.Refresh Set DataGrid1.DataSource = Adodc1 DataGrid1.Refresh Text1.Text =

57、 End SubPrivate Sub Command2_Click() Text1.Text = End SubPrivate Sub Command3_Click()Unload MeForm2.ShowForm2.Enabled = TrueEnd Sub八采購開單采購開單是企業(yè)向供應(yīng)商訂貨時，開據(jù)入庫訂單，以便了解收貨情況并預(yù)先安排存放貨物的倉庫。填入相關(guān)商品信息，將相關(guān)商品信息保存到庫存臺賬中，對于倉庫中已有的商品，數(shù)量上會在原有的基礎(chǔ)上增加。 圖4.7為采購開單圖，包括單據(jù)編號，錄單日期，供應(yīng)商，到貨日期，聯(lián)系人，電話，業(yè)務(wù)員，商品編號，商品名稱，型號，規(guī)格，單位，數(shù)量，單價。還包

58、括摘要合計金額，付款賬戶，付款金額。輸入入庫日期就會彈出在此時間段入庫的商品的信息。圖4-8 采購開單具體代碼為：Private Sub Form_Load() 連接access數(shù)據(jù)庫 Adodc1.ConnectionString = Provider=Microsoft.Jet.OLEDB.4.0;Data Source= & App.Path & 采購管理系統(tǒng).mdb;Persist Security Info=False Adodc1.RecordSource = select * from 庫存商品 Adodc1.Refresh Adodc2.ConnectionString = P

59、rovider=Microsoft.Jet.OLEDB.4.0;Data Source= & App.Path & 采購管理系統(tǒng).mdb;Persist Security Info=False Adodc2.RecordSource = select * from 付款明細(xì)賬 Adodc2.Refresh DTPicker2 = DateEnd SubPrivate Sub Command1_Click() Adodc1.Recordset.AddNew Adodc1.Recordset.Fields(單據(jù)編號) = Trim(Text11.Text) Adodc1.Recordset.Fie

60、lds(入庫日期) = Trim(DTPicker2.Value) Adodc1.Recordset.Fields(供應(yīng)商) = Trim(Combo1.Text) Adodc1.Recordset.Fields(聯(lián)系人) = Trim(Text2.Text) Adodc1.Recordset.Fields(電話) = Trim(Text3.Text) Adodc1.Recordset.Fields(業(yè)務(wù)員) = Trim(Combo3.Text) Adodc1.Recordset.Fields(摘要) = Trim(Text5.Text) Adodc1.Recordset.Fields(商品