數(shù)據(jù)庫sql課程設(shè)計(jì)--- 采購管理系統(tǒng)

1、<p>　　數(shù)據(jù)庫應(yīng)用技術(shù)課 程 設(shè) 計(jì) 說 明 書</p><p>　　題目： 采購管理系統(tǒng) </p><p>　　課程設(shè)計(jì)（論文）任務(wù)書</p><p>　　說明：此表一式四份，學(xué)生、指導(dǎo)教師、教研室、系部各一份?？杉痈巾?。</p><p>　　2011年 12 月 31</p><p>

2、;　學(xué) 號(hào)學(xué)生姓名專業(yè)班級(jí)軟件工程113班</p><p>　設(shè)計(jì)題目采購管理系統(tǒng)</p><p>　設(shè)計(jì)技術(shù)參數(shù)題目要達(dá)到的目標(biāo)：完成系統(tǒng)的登陸、數(shù)據(jù)的插入刪除修改統(tǒng)計(jì)等基本操作。數(shù)據(jù)庫：SQLSERVER2005。所使用的語言、工具:VB6.0+ SQLSERVER2005+WINDOWSXP。所采用的技術(shù)、系統(tǒng)結(jié)構(gòu):ADO數(shù)據(jù)庫聯(lián)接技術(shù),系統(tǒng)結(jié)構(gòu)為C/S結(jié)構(gòu)。</p>

3、<p>　設(shè)計(jì)要求教師布置實(shí)習(xí)任務(wù)和要求時(shí)，不得缺席，并做好記錄。上機(jī)前預(yù)先把所有的源程序編寫好。上機(jī)時(shí)不得遲到，不得缺席，愛護(hù)設(shè)備，認(rèn)真調(diào)試程序。仔細(xì)查閱相關(guān)資料，認(rèn)真完成思考題。按要求書寫設(shè)計(jì)任務(wù)書，并按要求按版打印，不得雷同。</p><p>　工作量二周</p><p>　工作計(jì)劃周一聽取教師布置設(shè)計(jì)的任務(wù)及要求。周二學(xué)生查閱相關(guān)資料，進(jìn)行數(shù)據(jù)庫設(shè)計(jì)。周三至周五：詳細(xì)設(shè)計(jì)

4、與界面設(shè)計(jì)。周一至周四程序設(shè)計(jì)與上機(jī)，調(diào)試源程序。周五書寫課程設(shè)計(jì)任務(wù)書。</p><p>　參考資料《數(shù)據(jù)庫應(yīng)用技術(shù)》《數(shù)據(jù)庫應(yīng)用技術(shù)實(shí)驗(yàn)指導(dǎo)書》自編《數(shù)據(jù)庫應(yīng)用技術(shù)課程設(shè)計(jì)指導(dǎo)書》等自編</p><p>　指導(dǎo)教師評(píng)語教師：學(xué)生：</p><p><b>　　目錄</b></p><p><b>　　第一章

5、 概述4</b></p><p>　　第二章 問題定義5</p><p>　　第三章 需求分析6</p><p>　　第四章 數(shù)據(jù)庫設(shè)計(jì)9</p><p>　　第五章 界面設(shè)計(jì)13</p><p>　　第六章 設(shè)計(jì)總結(jié)21</p><p><b>　　參考文獻(xiàn)

6、22</b></p><p><b>　　第一章 概述</b></p><p>　　采購管理系統(tǒng)可幫助采購人員完成采購物料從采購計(jì)劃的制訂、采購申請(qǐng)、采購詢價(jià)、采購訂單、訂單等采購業(yè)務(wù)的全部過程，每一業(yè)務(wù)都能有效控制。采購人員在向供應(yīng)商發(fā)出采購令前不必像以前那樣，繁瑣地填寫大量的各種表格，只需審查系統(tǒng)所產(chǎn)生的每一期間內(nèi)的采購計(jì)劃即可。如遇生產(chǎn)計(jì)劃變更，采購

7、計(jì)劃相應(yīng)變化。采購人員因有了及時(shí)準(zhǔn)確的計(jì)劃信息，他們可從煩瑣的事務(wù)作業(yè)中出來，用更多的時(shí)間和精力來進(jìn)行價(jià)值分析，選項(xiàng)擇貨源和開發(fā)更多的合格供應(yīng)商。有效地采購計(jì)劃的實(shí)施及采購成本的變動(dòng)情況，幫助采購人員選擇最佳的供應(yīng)，確保采購工作高質(zhì)量、高效率、低成本地執(zhí)行，內(nèi)存王。</p><p><b>　　第二章 問題定義</b></p><p>　　總體來說，系統(tǒng)的目標(biāo)是提高采

8、購的管理水平，提高采購費(fèi)用結(jié)算的自動(dòng)化水平，提高工作效率，加大采購員采購費(fèi)用的透明度。具體的目標(biāo)包括（具體功能）：</p><p>　　系統(tǒng)設(shè)置：操作員管理、操作員密碼修改、數(shù)據(jù)備份、數(shù)據(jù)恢復(fù)、操作員權(quán)限設(shè)置。</p><p>　　采購管理：采購員管理、供應(yīng)商管理、采購材料管理、采購訂單管理、訂單信息查詢。</p><p>　　到貨管理：到貨信息管理、到貨信息查詢。

9、</p><p>　　庫存管理：庫存信息維護(hù)、庫存信息查詢、庫存信息維護(hù)。</p><p>　　退貨管理：退貨信息維護(hù)、退貨信息查詢。</p><p>　　打印報(bào)表：打印到貨信息、打印退貨信息、打印庫存信息。</p><p>　　關(guān)閉系統(tǒng)：退出系統(tǒng)、重新登錄。</p><p>　　其中涉及到的數(shù)據(jù)庫包含8個(gè)表，即貨物信

10、息表Table_cgb、訂貨信息表Table_cgdd、采購員信息表Table_cgyxx、到貨信息表Table_dhb、供應(yīng)商信息表Table_gysxx、收貨信息表Table_kcb、退貨信息表Table_thb、管理員信息表Table_xxdl。由于本系統(tǒng)涉及到許多數(shù)據(jù)的處理，這就需要有一個(gè)強(qiáng)大的后臺(tái)數(shù)據(jù)庫管理系統(tǒng)支持。目前主要的數(shù)據(jù)庫有： Visual Basic6.0、SQL Server等。 </p><

11、p><b>　　第三章 需求分析</b></p><p><b>　　一、數(shù)據(jù)庫需求分析</b></p><p>　　用戶需求具體體現(xiàn)在各種信息的提供、保存、更新和查詢，這就要求數(shù)據(jù)庫結(jié)構(gòu)能充分滿足各種信息的輸入和輸出。收集基本數(shù)據(jù)、數(shù)據(jù)結(jié)構(gòu)、數(shù)據(jù)處理的流程，組成一份詳盡的數(shù)據(jù)字典，為以后的具體設(shè)計(jì)打下基礎(chǔ)。</p><

12、p>　　在仔細(xì)錄入有關(guān)采購員信息和貨物信息的基礎(chǔ)上，將得到數(shù)據(jù)流程圖。數(shù)據(jù)庫包含8個(gè)表，即貨物信息表Table_cgb、訂貨信息表Table_cgdd、采購員信息表Table_cgyxx、到貨信息表Table_dhb、供應(yīng)商信息表Table_gysxx、收貨信息表Table_kcb、退貨信息表Table_thb、管理員信息表Table_xxdl。</p><p>　　針對(duì)一般采購信息管理系統(tǒng)的需求，通過對(duì)采

13、購員訂貨及到貨，收貨，退貨過程的內(nèi)容和數(shù)據(jù)流程分析，設(shè)計(jì)如下面所示的數(shù)據(jù)項(xiàng)和數(shù)據(jù)結(jié)構(gòu)： </p><p>　　貨物基本信息：貨物編號(hào)、貨物名稱、供應(yīng)商編號(hào)、供應(yīng)商名稱、單價(jià)、單位、結(jié)算幣、采購員編號(hào)、采購員姓名、聯(lián)系人、電話、采購日期、備注。</p><p>　　貨物訂貨信息：單號(hào)、貨物名稱、批號(hào)、供應(yīng)商編號(hào)、收貨日期、發(fā)單時(shí)間、單位、幣種、單價(jià)、數(shù)量、金額、備注、是否到貨、狀態(tài)。<

14、/p><p>　　采購員的基本信息：采購員編號(hào)、姓名、性別、年齡、民族、籍貫、學(xué)歷、電話、現(xiàn)住址。</p><p>　　到貨信息：到貨單號(hào)、單號(hào)、貨物名稱、批號(hào)、供應(yīng)商編號(hào)、收貨日期、發(fā)單日期、單位、單價(jià)、訂單數(shù)量、報(bào)損數(shù)量、報(bào)溢數(shù)量、數(shù)量、到貨日期、備注、是否到貨、狀態(tài)。</p><p>　　供應(yīng)商信息：供應(yīng)商編號(hào)、供應(yīng)商姓名、簡稱、傳真、電話、E-mail、聯(lián)系人、

15、聯(lián)系人電話、地址。</p><p>　　收貨信息：貨物編號(hào)、單號(hào)、貨物名稱、批號(hào)、供應(yīng)商編號(hào)、收貨日期、單位、單價(jià)、數(shù)量、報(bào)損數(shù)量、報(bào)溢數(shù)量、金額、到貨日期、入庫信息、狀態(tài)、備注。</p><p>　　退貨信息：退貨單號(hào)、單號(hào)、貨物名稱、批號(hào)、供應(yīng)商姓名、收貨日期、單位、單價(jià)、數(shù)量、到貨日期、貨物備注、退貨日期、退貨原因、狀態(tài)。</p><p>　　管理員信息：id

16、、用戶名、口令、系統(tǒng)維護(hù)、采購管理、到貨管理、退貨管理、庫存管理、報(bào)表統(tǒng)計(jì)。</p><p><b>　　二、數(shù)據(jù)流圖</b></p><p>　　圖3.1采購管理系統(tǒng)數(shù)據(jù)流圖</p><p><b>　　三、數(shù)據(jù)字典: </b></p><p>　　貨物基本信息表=貨物編號(hào)+貨物名稱+供應(yīng)商編號(hào)+

17、供應(yīng)商名稱+單價(jià)+單位+結(jié)算幣+采購員編號(hào)+采購員姓名+聯(lián)系人+電話+采購日期+備注</p><p>　　貨物訂貨信息=單號(hào)+貨物名稱+批號(hào)+供應(yīng)商編號(hào)+收貨日期+發(fā)單時(shí)間+單位+幣種+單價(jià)+數(shù)量+金額+備注+是否到貨+狀態(tài)</p><p>　　采購員的基本信息=采購員編號(hào)+姓名+性別+年齡+民族+籍貫+學(xué)歷+電話+現(xiàn)住址</p><p>　　到貨信息=到貨單號(hào)+單

18、號(hào)+貨物名稱+批號(hào)+供應(yīng)商編號(hào)+收貨日期+發(fā)單日期+單位+單價(jià)+訂單數(shù)量+報(bào)損數(shù)量+報(bào)溢數(shù)量+數(shù)量+到貨日期+備注+是否到貨+狀態(tài)</p><p>　　供應(yīng)商信息=供應(yīng)商編號(hào)+供應(yīng)商姓名+簡稱+傳真+電話+E-mail+聯(lián)系人+聯(lián)系人電話+地址</p><p>　　收貨信息=貨物編號(hào)+單號(hào)+貨物名稱+批號(hào)+供應(yīng)商編號(hào)+收貨日期+單位+單價(jià)+數(shù)量+報(bào)損數(shù)量+報(bào)溢數(shù)量+金額+到貨日期+入庫信息

19、+狀態(tài)+備注</p><p>　　退貨信息=退貨單號(hào)+單號(hào)+貨物名稱+批號(hào)+供應(yīng)商姓名+收貨日期+單位+單價(jià)+數(shù)量+到貨日期+貨物備注+退貨日期+退貨原因+狀態(tài)</p><p>　　管理員信息=id+用戶名+口令+系統(tǒng)維護(hù)+采購管理+到貨管理+退貨管理+庫存管理+報(bào)表統(tǒng)計(jì)</p><p><b>　　三、功能結(jié)構(gòu)圖：</b></p>

20、<p>　　圖3.2采購管理系統(tǒng)模塊</p><p><b>　　第四章 數(shù)據(jù)庫設(shè)計(jì)</b></p><p><b>　　一、概念設(shè)計(jì)：</b></p><p>　　概念結(jié)構(gòu)設(shè)計(jì)是通過對(duì)用戶需求進(jìn)行綜合、歸納與抽象，形成一個(gè)獨(dú)立于具體DBMS的概念模型，它數(shù)據(jù)庫設(shè)計(jì)的關(guān)鍵。</p><p&

21、gt;　　貨物基本信息包括：貨物編號(hào)、貨物名稱、供應(yīng)商編號(hào)、供應(yīng)商名稱、單價(jià)、單位、結(jié)算幣、采購員編號(hào)、采購員姓名、聯(lián)系人、電話、采購日期、備注。</p><p>　　圖4.1貨物信息E-R圖</p><p>　　貨物訂貨信息包括：單號(hào)、貨物名稱、批號(hào)、供應(yīng)商編號(hào)、收貨日期、發(fā)單時(shí)間、單位、幣種、單價(jià)、數(shù)量、金額、備注、是否到貨、狀態(tài)。</p><p>　　圖4.2

22、訂貨信息E-R圖</p><p>　　管理員信息包括：id、用戶名、口令、系統(tǒng)維護(hù)、采購管理、到貨管理、退貨管理、庫存管理、報(bào)表統(tǒng)計(jì)。</p><p>　　圖4.3管理員信息E-R圖</p><p><b>　　二、邏輯設(shè)計(jì)：</b></p><p>　　邏輯設(shè)計(jì)的目的是把概念數(shù)據(jù)模型轉(zhuǎn)化為數(shù)據(jù)庫管理系統(tǒng)可以處理的邏輯模

23、型。也即將由ER圖表示的概念模型轉(zhuǎn)換為DBMS通用的邏輯模型，如關(guān)系模型，然后對(duì)其進(jìn)行優(yōu)化。</p><p>　　以關(guān)系模型為目標(biāo)的邏輯結(jié)構(gòu)設(shè)計(jì)方法是將ER實(shí)體圖中概念模型映射為關(guān)系模型，并且包括一組關(guān)系定義，映射的步驟如下：</p><p>　　(1)把ER實(shí)體圖中的每個(gè)實(shí)體變換為一個(gè)關(guān)系模型。</p><p>　　(2)變換每個(gè)關(guān)系：多對(duì)多模型需要加一個(gè)單獨(dú)的關(guān)

24、系模型；而一對(duì)一的或者一對(duì)多的聯(lián)系可用在實(shí)體中增加屬性（此處為外鍵）來模型化。</p><p>　　(3)E-R圖中的屬性可轉(zhuǎn)換為關(guān)系的屬性。</p><p>　　客戶預(yù)定客房，客戶支付金額給收銀員，收銀員受管理員管理，客戶登記信息到管理員，客房的房間類型選擇通過管理員管理。</p><p>　　下面列出幾個(gè)主要的數(shù)據(jù)庫表設(shè)計(jì)：</p><p&g

25、t;　　貨物（貨物編號(hào)，貨物名稱，供應(yīng)商編號(hào)，供應(yīng)商名稱，單價(jià)，單位，結(jié)算幣，采購員編號(hào)，采購員姓名，聯(lián)系人，電話，采購日期，備注）</p><p><b>　　表4.1貨物信息</b></p><p>　　訂購貨物（單號(hào)、貨物名稱、批號(hào)、供應(yīng)商編號(hào)、收貨日期、發(fā)單時(shí)間、單位、幣種、單價(jià)、數(shù)量、金額、備注、是否到貨、狀態(tài)）</p><p>&l

26、t;b>　　表4.2訂貨信息</b></p><p><b>　　三、物理設(shè)計(jì)</b></p><p>　　該信息管理系統(tǒng)可以在Windows 2000 Server平臺(tái)上運(yùn)行，開發(fā)工具采用Visual Basic語言開發(fā)。其工作流程為：用戶登錄通過權(quán)限判斷，普通用戶不能瀏覽、閱讀和查詢信息，指定用戶可以操作，可以進(jìn)行信息錄入、修改和刪除的操作。&l

27、t;/p><p>　　系統(tǒng)的主要功能特點(diǎn)有:系統(tǒng)登錄表單，該表單的功能是在系統(tǒng)被訪問之前，要對(duì)進(jìn)入系統(tǒng)的用戶進(jìn)行安全性檢查，防止非法用戶進(jìn)行系統(tǒng)破壞數(shù)據(jù)及威脅系統(tǒng)安全，避免不必要的損失。只有合法的用戶在輸入正確的密碼后方可進(jìn)入系統(tǒng)。主界面，在該界面窗口中，共有文件、數(shù)據(jù)、關(guān)于等所有系統(tǒng)功能，用戶可以操作菜單的方式快捷地使用系統(tǒng)。更改密碼：使用本表單可以方便地修改用戶的密碼，以防密碼泄露后對(duì)數(shù)據(jù)的安全性造成威脅。<

28、;/p><p><b>　　第五章 界面設(shè)計(jì)</b></p><p>　　一、登陸窗口如下所示：</p><p>　　系統(tǒng)登入后，首先出現(xiàn)用戶登錄窗體，用戶首先等如用戶名然后輸入密碼。如果用戶3次輸入密碼不正確，將退出程序：</p><p>　　圖5.1系統(tǒng)登錄界面</p><p>　　實(shí)現(xiàn)登錄窗口功

29、能的程序代碼如下：</p><p>　　Dim itmX As ListItem '定義一個(gè)ListItem對(duì)象</p><p><b>　　Dim a</b></p><p>　　Dim key, i As String '定義字符串變量</p><p>　　Private Sub Co

30、mmand1_Click()</p><p>　　If Text2.Text = "mr" And Text1.Text = "mingrisoft" Then</p><p>　　frm_main.Check1.Value = 1</p><p>　　frm_main.Check2.Value = 1</p>

31、<p>　　frm_main.Check3.Value = 1</p><p>　　frm_main.Check4.Value = 1</p><p>　　frm_main.Check5.Value = 1</p><p>　　frm_main.Check6.Value = 1</p><p>　　frm_main.StatusBa

32、r1.Panels.Item(3).Text = "當(dāng)前操作員： mr"</p><p><b>　　Unload Me</b></p><p>　　frm_main.Show</p><p><b>　　Else</b></p><p>　　Adodc1.RecordSourc

33、e = "select * from Table_xxdl where 用戶名 ='" & Text2.Text & "'"</p><p>　　Adodc1.Refresh</p><p>　　If Adodc1.Recordset.RecordCount > 0 Then</p><p&g

34、t;　　If Trim(Text1.Text) = Trim(Text4.Text) Then</p><p>　　frm_main.Check1.Value = Adodc1.Recordset.Fields("系統(tǒng)維護(hù)")</p><p>　　frm_main.Check2.Value = Adodc1.Recordset.Fields("采購管理&quo

35、t;)</p><p>　　frm_main.Check3.Value = Adodc1.Recordset.Fields("到貨管理")</p><p>　　frm_main.Check4.Value = Adodc1.Recordset.Fields("退貨管理")</p><p>　　frm_main.Check5.Va

36、lue = Adodc1.Recordset.Fields("庫存管理")</p><p>　　frm_main.Check6.Value = Adodc1.Recordset.Fields("報(bào)表統(tǒng)計(jì)")</p><p>　　frm_main.StatusBar1.Panels.Item(3).Text = "當(dāng)前操作員： "

37、+ Adodc1.Recordset.Fields("用戶名")</p><p>　　frm_main.Text1.Text = Adodc1.Recordset.Fields("用戶名")</p><p>　　frm_main.Show</p><p><b>　　Unload Me</b></p

38、><p><b>　　Else</b></p><p>　　MsgBox "密碼不正確,請(qǐng)您確認(rèn)后重新輸入"</p><p>　　Text1.Text = ""</p><p>　　Text1.SetFocus</p><p>　　If i > 2 The

39、n</p><p>　　MsgBox "對(duì)不起,您已經(jīng)3次利用錯(cuò)誤的口令登錄本系統(tǒng),請(qǐng)您重新登錄并且輸入正確的口令!!", 64, "采購管理系統(tǒng)"</p><p><b>　　End</b></p><p><b>　　Else</b></p><p>&l

40、t;b>　　i = i + 1</b></p><p><b>　　End If</b></p><p><b>　　End If</b></p><p><b>　　Else</b></p><p>　　MsgBox "對(duì)不起 沒有此用戶的信息&q

41、uot;</p><p>　　Text2.Text = ""</p><p>　　Text1.Text = ""</p><p><b>　　End If</b></p><p><b>　　End If</b></p><p><

42、;b>　　End Sub</b></p><p>　　Private Sub Command2_Click()</p><p><b>　　End</b></p><p><b>　　End Sub</b></p><p>　　Private Sub Form_Load()<

43、/p><p>　　Me.Left = (Screen.Width - Me.Width) / 2</p><p>　　Me.Top = (Screen.Height - Me.Height) / 2</p><p>　　Adodc1.RecordSource = "select * from Table_xxdl"</p><p&

44、gt;　　Adodc1.Refresh</p><p>　　If Adodc1.Recordset.RecordCount > 0 Then</p><p>　　ListView1.Enabled = True</p><p>　　ListView1.ListItems.Clear</p><p>　　Adodc1.Recordset.

45、MoveFirst</p><p>　　Do While Adodc1.Recordset.EOF = False</p><p>　　key = Text3.Text</p><p>　　Set itmX = ListView1.ListItems.Add(, , key, 1)</p><p>　　Adodc1.Recordset.Mov

46、eNext</p><p><b>　　Loop</b></p><p><b>　　Else</b></p><p>　　ListView1.Enabled = False</p><p><b>　　End If</b></p><p><b&

47、gt;　　i = 1</b></p><p><b>　　End Sub</b></p><p>　　Private Sub ListView1_DblClick()</p><p>　　Text2.Text = ListView1.SelectedItem</p><p>　　Text1.SetFocus&

48、lt;/p><p><b>　　End Sub</b></p><p>　　Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)</p><p>　　If KeyCode = 13 Then</p><p>　　Call Command1_Click&

49、lt;/p><p><b>　　Else</b></p><p><b>　　End If</b></p><p><b>　　End Sub</b></p><p>　　Private Sub Text2_KeyDown(KeyCode As Integer, Shift As

50、Integer)</p><p>　　If KeyCode = 13 Then</p><p>　　Text1.SetFocus</p><p><b>　　Else</b></p><p><b>　　End If</b></p><p><b>　　End Su

51、b</b></p><p><b>　　二、主界面</b></p><p>　　單擊主界面上的各個(gè)按鈕，可以進(jìn)入相應(yīng)的界面中：</p><p>　　圖5.1采購管理系統(tǒng)主界面</p><p><b>　　實(shí)現(xiàn)代碼如下：</b></p><p>　　Dim i As

52、 Integer</p><p><b>　　Dim c</b></p><p>　　Private Sub CGCLGL_Click()</p><p>　　frm_cgclgl.Show</p><p><b>　　End Sub</b></p><p>　　Privat

53、e Sub CGDDGL_Click()</p><p>　　frm_cgdd.Show</p><p><b>　　End Sub</b></p><p>　　Private Sub CGYGL_Click()</p><p>　　frm_cgygl.Show</p><p><b>

54、　　End Sub</b></p><p>　　Private Sub CZYGL_Click()</p><p>　　frm_YHGL.Show</p><p><b>　　End Sub</b></p><p>　　Private Sub DDXXCX_Click()</p><p&g

55、t;　　frm_ddxx_cx.Show</p><p><b>　　End Sub</b></p><p>　　Private Sub DHXX_Click()</p><p>　　If i = 0 Or i > 1 Then '如果i=0 代表窗體啟動(dòng)時(shí)首先點(diǎn)擊到貨菜單</p><p>　　i = i

56、+ 2 '步長為2，越過打印庫存信息和打印退貨信息而引起的錯(cuò)誤信息</p><p>　　DataEnvironment1.rsCom_dhxx.Open "select * from Table_dhb"</p><p>　　If DataEnvironment1.rsCom_dhxx.RecordCount > 0 Then&l

57、t;/p><p>　　DataRep_dhxx.Show</p><p><b>　　Else</b></p><p>　　DataEnvironment1.rsCom_dhxx.Close</p><p>　　MsgBox "沒有到貨信息", 64, "采購管理系統(tǒng)"</p&g

58、t;<p><b>　　End If</b></p><p>　　ElseIf i = 1 Then</p><p>　　DataEnvironment1.rsCom_dhxx.Close</p><p>　　DataEnvironment1.rsCom_dhxx.Open "select * from Table_dh

59、b"</p><p>　　If DataEnvironment1.rsCom_dhxx.RecordCount > 0 Then</p><p>　　DataRep_dhxx.Show</p><p><b>　　Else</b></p><p>　　DataEnvironment1.rsCom_dhxx

60、.Close</p><p>　　MsgBox "沒有到貨信息", 64, "采購管理系統(tǒng)"</p><p><b>　　End If</b></p><p><b>　　Else</b></p><p><b>　　End If</b>

61、</p><p><b>　　End Sub</b></p><p>　　Private Sub DHXXCX_Click()</p><p>　　frm_dhxx_cx.Show</p><p><b>　　End Sub</b></p><p>　　Private Sub

62、 DHXXWH_Click()</p><p>　　frm_dhb.Show</p><p><b>　　End Sub</b></p><p>　　Private Sub END_Click()</p><p>　　c = MsgBox("確認(rèn)要退出采購管理系統(tǒng)嗎？", 33, "采購管理

63、系統(tǒng)")</p><p>　　If c = vbOK Then</p><p><b>　　End</b></p><p><b>　　Else</b></p><p><b>　　End If</b></p><p><b>　　E

64、nd Sub</b></p><p>　　Private Sub Form_Activate()</p><p>　　If Check1.Value = 1 Then</p><p>　　STSZ.Enabled = True</p><p>　　ElseIf Check1.Value = 0 Then</p>&l

65、t;p>　　STSZ.Enabled = False</p><p><b>　　Else</b></p><p><b>　　End If</b></p><p>　　If Check2.Value = 1 Then</p><p>　　CGGL.Enabled = True</p&g

66、t;<p>　　ElseIf Check2.Value = 0 Then</p><p>　　CGGL.Enabled = False</p><p><b>　　Else</b></p><p><b>　　End If</b></p><p>　　If Check3.Value =

67、 1 Then</p><p>　　DHGL.Enabled = True</p><p>　　ElseIf Check3.Value = 0 Then</p><p>　　DHGL.Enabled = False</p><p><b>　　Else</b></p><p><b>　

68、　End If</b></p><p>　　If Check4.Value = 1 Then</p><p>　　THGL.Enabled = True</p><p>　　ElseIf Check4.Value = 0 Then</p><p>　　THGL.Enabled = False</p><p>

69、;<b>　　Else</b></p><p><b>　　End If</b></p><p>　　If Check5.Value = 1 Then</p><p>　　XSGL.Enabled = True</p><p>　　ElseIf Check5.Value = 0 Then</p

70、><p>　　XSGL.Enabled = False</p><p><b>　　Else</b></p><p><b>　　End If</b></p><p>　　If Check6.Value = 1 Then</p><p>　　BBTJ.Enabled = True

71、</p><p>　　ElseIf Check6.Value = 0 Then</p><p>　　BBTJ.Enabled = False</p><p><b>　　Else</b></p><p><b>　　End If</b></p><p><b>　　

72、End Sub</b></p><p>　　Private Sub Form_Load()</p><p>　　Me.Left = (Screen.Width - Me.Width) / 2</p><p>　　Me.Top = (Screen.Height - Me.Height) / 2</p><p><b>　　

73、i = 0</b></p><p><b>　　End Sub</b></p><p>　　Private Sub GYSGL_Click()</p><p>　　frm_gysgl.Show</p><p><b>　　End Sub</b></p><p>　

74、　Private Sub KCTJ_Click()</p><p>　　frm_kctj.Show</p><p><b>　　End Sub</b></p><p>　　Private Sub KCXX_Click()</p><p>　　If i = 0 Or i = 1 Then '如果首先點(diǎn)擊庫存菜

75、單，那么i值變?yōu)?，代表首先點(diǎn)擊的不是退貨菜單</p><p><b>　　i = i + 1</b></p><p><b>　　Else</b></p><p><b>　　End If</b></p><p>　　DataEnvironment1.rsCom_kcxx.O

76、pen "select * from Table_kcb"</p><p>　　If DataEnvironment1.rsCom_kcxx.RecordCount > 0 Then</p><p>　　DataRep_kcxx.Show</p><p><b>　　Else</b></p><p&

77、gt;　　DataEnvironment1.rsCom_kcxx.Close</p><p>　　i = i + 2 '如果沒有打印的信息，i值就跳過1</p><p>　　MsgBox "沒有庫存信息", 64, "采購管理系統(tǒng)"</p><p><b>　　End If</b>

78、</p><p><b>　　End Sub</b></p><p>　　Private Sub MAXG_Click()</p><p>　　frm_xgmm.Show</p><p><b>　　End Sub</b></p><p>　　Private Sub QXSZ

79、_Click()</p><p>　　frm_czysz.Show</p><p><b>　　End Sub</b></p><p>　　Private Sub RELOAD_Click()</p><p><b>　　Unload Me</b></p><p>　　frm

80、_czydl.Show</p><p><b>　　End Sub</b></p><p>　　Private Sub SJBF_Click()</p><p>　　frm_sjbf.Show</p><p>　　frm_sjbf.Text4.Text = StatusBar1.Panels.Item(3).Text&l

81、t;/p><p><b>　　End Sub</b></p><p>　　Private Sub SJHF_Click()</p><p>　　Dim iTask As Long</p><p>　　MsgBox "請(qǐng)您注意,為了確保數(shù)據(jù)安全,在進(jìn)行數(shù)據(jù)恢復(fù)的同時(shí)需要關(guān)閉應(yīng)用程序,請(qǐng)您在恢復(fù)數(shù)據(jù)完成之后重新運(yùn)行應(yīng)用

82、程序", 64, "提示信息"</p><p>　　'調(diào)用數(shù)據(jù)恢復(fù)可執(zhí)行文件</p><p>　　iTask = Shell(App.Path & "\Restore.exe", vbNormalFocus)</p><p><b>　　End</b></p>&l

83、t;p><b>　　End Sub</b></p><p>　　Private Sub SYTS_Click()</p><p>　　frm_znsb.Show</p><p><b>　　End Sub</b></p><p>　　Private Sub THXX_Click()</p

84、><p>　　If i = 0 Or i = 1 Then '如果首先點(diǎn)擊退貨菜單，那么I值變?yōu)?，代表首先點(diǎn)擊的不是退貨菜單</p><p><b>　　i = i + 1</b></p><p><b>　　Else</b></p><p><b>　　End If</

85、b></p><p>　　DataEnvironment1.rsCom_thxx.Open "select * from Table_thb"</p><p>　　If DataEnvironment1.rsCom_thxx.RecordCount > 0 Then</p><p>　　DataRep_thxx.Show</p&

86、gt;<p><b>　　Else</b></p><p>　　DataEnvironment1.rsCom_thxx.Close</p><p>　　i = i + 2 '如果沒有打印的信息，I值就跳過1</p><p>　　MsgBox "沒有退貨信息", 64, &quo

87、t;采購管理系統(tǒng)"</p><p><b>　　End If</b></p><p><b>　　End Sub</b></p><p>　　Private Sub THXXCX_Click()</p><p>　　frm_thxx_cx.Show</p><p>

88、<b>　　End Sub</b></p><p>　　Private Sub THXXWH_Click()</p><p>　　frm_thgl.Show</p><p><b>　　End Sub</b></p><p>　　Private Sub Timer1_Timer()</p>

89、;<p>　　StatusBar1.Panels.Item(2).Text = Format(Now, "yyyy年mm月dd日 hh點(diǎn)mm分ss秒")</p><p><b>　　End Sub</b></p><p>　　Private Sub XSXXCX_Click()</p><p>　　frm_kc

90、xx_cx.Show</p><p><b>　　End Sub</b></p><p>　　Private Sub XSXXWH_Click()</p><p>　　frm_kcb.Show</p><p><b>　　End Sub</b></p><p><b&g

91、t;　　第六章 設(shè)計(jì)總結(jié)</b></p><p>　　這次課設(shè)，給我?guī)淼氖斋@卻遠(yuǎn)遠(yuǎn)超出了我們的預(yù)想。本次人事檔案管理的課程設(shè)計(jì)，提高了我各方面的能力操作實(shí)踐能力。通過學(xué)習(xí)和能力的培養(yǎng)，以加強(qiáng)自我發(fā)現(xiàn)問題分析問題解決問題的能力，認(rèn)真主動(dòng)完成課設(shè)的要求。我們學(xué)生主要發(fā)揮自主學(xué)習(xí)的能力，充分利用時(shí)間，安排好課設(shè)的時(shí)間計(jì)劃，并在課設(shè)過程中不斷檢測自己的計(jì)劃完成情況。</p><p>

92、　　合理的設(shè)備條件下，運(yùn)用VB6.0為前臺(tái)工具，采用VB語言，以SQL Server 2000作為后臺(tái)數(shù)據(jù)庫，在Windows XP環(huán)境下編寫并測試運(yùn)行了采購管理系統(tǒng)。我更深的了解了與掌握了SQL Server 2000技術(shù)應(yīng)用，掌握簡單的數(shù)據(jù)庫應(yīng)用程序設(shè)計(jì)方法和編寫方法。</p><p>　　通過完成這些系統(tǒng)的開發(fā)，鞏固、加深了對(duì)相關(guān)知識(shí)的理解，加強(qiáng)了知識(shí)之間的聯(lián)系，促進(jìn)了知識(shí)的遷移和應(yīng)用 。而我們并不是一切順

93、利的，在研究中遇到了各種各樣的大大小小問題，是我們自己都無法想象的。在這次的設(shè)計(jì)中，讓我深深地體現(xiàn)到即使將來進(jìn)行軟件開發(fā)不是一件簡單的事情，很多專業(yè)的術(shù)語，代碼，技術(shù)，是我們根本不理解，更是無從下手的。課設(shè)它需要設(shè)計(jì)者具有全面的專業(yè)知識(shí)、縝密的思維、嚴(yán)謹(jǐn)?shù)墓ぷ鲬B(tài)度以及較高的分析問題、解決問題的能力，而我在很多方面還有欠缺。經(jīng)過老師和同學(xué)的細(xì)心講解，幫助最終才得以完成。任何事情都不是簡單容易的，經(jīng)過這次課程設(shè)計(jì)更是讓我理解了這些話語。&l

94、t;/p><p><b>　　參考文獻(xiàn)</b></p><p>　　[1]葉俊民,汪望珠.面向?qū)ο筌浖こ蘙M],清華大學(xué)出版社</p><p>　　[2]鄭阿奇,彭作民. Visual Basic,NET程序設(shè)計(jì)教程[M],機(jī)械工業(yè)出版社</p><p>　　[3]李大友,數(shù)據(jù)庫原理[M],出版社2010,10</p

95、><p>　　[4]朱如龍,SQL Server 2000 數(shù)據(jù)庫應(yīng)用系統(tǒng)開發(fā)技術(shù)實(shí)驗(yàn)指導(dǎo)[M],機(jī)械工業(yè)出版社,1899,3</p><p>　　[5]賽奎春,SQL Server 數(shù)據(jù)庫開發(fā)實(shí)例解析[M],機(jī)械工業(yè)出版社,1986,3</p><p>　　[6]劉焰,SQL Server 2000 數(shù)據(jù)庫應(yīng)用系統(tǒng)開發(fā)技術(shù)實(shí)驗(yàn)指導(dǎo)[M],機(jī)械工業(yè)出版設(shè),1986,6&

96、lt;/p><p>　　[7]耿沖,SQL Server 2000 數(shù)據(jù)庫管理[M],機(jī)械工業(yè)出版社,1989,2</p><p>　　[8]馬里杰,SQL Server經(jīng)典案例解析[M],清華大學(xué)出版社,1999,3</p><p>　　[9]周靄,Visual Basic程序設(shè)計(jì)[M],如電子工業(yè)出版社,1999,6</p><p>　　[1