1、物資管理信息系統(tǒng)數(shù)據(jù)庫設(shè)計(jì)報(bào)告題 目： 物資管理信息系統(tǒng) 指導(dǎo)老師： 程志軍 專 業(yè)： 物流工程技術(shù) 組長(zhǎng)： 崔慶迪（） 組號(hào)： 第六組 組員： 吳紹宏（）鄭建（）蔣元航（）李啟云（）一、課程設(shè)計(jì)目的數(shù)據(jù)庫課程設(shè)計(jì)作為一個(gè)重要的的教學(xué)環(huán)節(jié)，是物流工程技術(shù)專業(yè)集中實(shí)踐性環(huán)節(jié)系列之一，是學(xué)習(xí)完數(shù)據(jù)庫原理與應(yīng)用課程后進(jìn)行的一次全面的綜合練習(xí)。其目的在于加深對(duì)關(guān)系數(shù)據(jù)庫理論和基本知識(shí)的理解，初步掌握使用關(guān)系數(shù)據(jù)庫SQLSERVER為后臺(tái)數(shù)據(jù)庫設(shè)計(jì)一個(gè)信息管理系統(tǒng)，綜合訓(xùn)練學(xué)生的分析問題、設(shè)計(jì)的基本內(nèi)容和方法，提高解決實(shí)際管理問題的能力，以培養(yǎng)學(xué)生的專項(xiàng)技能和職業(yè)能力。 二、數(shù)據(jù)庫課程設(shè)計(jì)內(nèi)容簡(jiǎn)介物資管

2、理是一般工業(yè)、商業(yè)企業(yè)生產(chǎn)管理環(huán)節(jié)中重要的一環(huán)，需要對(duì)物資基本信息管理、物資調(diào)配信息等內(nèi)容進(jìn)行完整的監(jiān)控，這樣才能更有效的里用物資。物資入庫的時(shí)候首先需要登記物資的基本信息，包括物資的種類、名稱、型號(hào)、單位、單價(jià)等，然后登記入庫信息，包括物資基本信息，入庫地點(diǎn)，入庫人、經(jīng)辦人、物資數(shù)量等；出庫時(shí)，需要等級(jí)出庫信息；根據(jù)物資的出入庫信息的綜合，得到各種物資的余額信息。三、需求分析1、有關(guān)物資基本信息的輸入，包括物資編號(hào)、物資名稱、規(guī)格型號(hào)、種類和計(jì)量單位等。2、物資基本信息的查詢。3、物資基本信息的修改。4、添加入庫基本信息。5、刪除入庫基本信息。6、添加出庫基本信息。7、修改出庫基本信息。8、

3、刪除出庫基本信息。9、查詢出庫基本信息。10、剩余物資查詢。四、系統(tǒng)結(jié)構(gòu)分析1、物理結(jié)構(gòu)物資管理信息系統(tǒng)物資余額信息管理物資基本信息管理物資入庫信息管理物資出庫信息管理物資余額信息瀏覽物資余額信息查詢出庫物資信息查詢?nèi)霂煳镔Y信息查詢物資基本信息查詢出庫物資信息添加出庫物資信息修改入庫物資信息添加入庫物資信息修改物資基本信息添加物資基本信息修改2、 邏輯結(jié)構(gòu)（E-R圖）物資基本信息實(shí)體物資基本信息實(shí)體E-R圖：物資編號(hào)計(jì)量單位物資規(guī)格物資名稱物資入庫信息實(shí)體E-R圖：物資入庫信息實(shí)體物資基本信息保管人物資出庫信息實(shí)體出庫時(shí)間物資基本信息經(jīng)辦人領(lǐng)用人入庫時(shí)間經(jīng)辦人物資出庫信息實(shí)體E-R圖：物資余額

4、信息實(shí)體E-R圖：物資余額信息實(shí)體物資基本信息倉庫數(shù)量金 額物資調(diào)配物 資物資余額信息出庫物資信息入庫物資信息物資基本信息物資登記實(shí)體之間關(guān)系的E-R圖：五、表格設(shè)計(jì)1、物資基本信息表：列名數(shù)據(jù)類型可否為空物資編號(hào)varcharNOT NULL物資名稱varcharNOT NULL物資規(guī)格varcharNOT NULL類別varcharNULL計(jì)量單位varcharNULL2、入庫物資信息表格：列名列名數(shù)據(jù)類型可否為空入庫編號(hào)rknovarcharNOT NULL入庫物資編號(hào)rkidVarcharNOT NULL物資名稱rknameVarcharNULL規(guī)格型號(hào)rkspecVarcharNUL

5、L種類rkkindVarcharNULL單位rkunitvarcharNULL數(shù)量rkaccountfloatNOT NULL單價(jià)rkpriceFloatNOT NULL金額rkvalueFloatNOT NULL入庫時(shí)間rkdatedatetimeNOT NULL經(jīng)辦人rkdeal_personvarcharNOT NULL保管人rksave_personvarcharNOT NULL倉庫rkbasevarcharNULL備注rkmemotextNULL3、出庫物資信息表格：列名列名數(shù)據(jù)類型可否為空出庫編號(hào)lynovarcharNOT NULL出庫物資編號(hào)lyidVarcharNOT NUL

6、L物資名稱lynameVarcharNULL規(guī)格型號(hào)lyspecVarcharNULL種類lykindVarcharNULL單位lyunitvarcharNULL數(shù)量lyaccoutfloatNOT NULL單價(jià)lypricefloatNULL金額lyvalueFloatNULL入庫時(shí)間lydatedatetimeNOT NULL領(lǐng)用人lyuse_personvarcharNOT NULL經(jīng)辦人lydeal_personvarcharNOT NULL倉庫lybasevarcharNULL備注lymemotextNULL4、物資余額信息表格：列名列名數(shù)據(jù)類型可否為空物資編號(hào)yeidvarchar

7、NOT NULL物資名稱yenamevarcharNOT NULL物資型號(hào)yespecvarcharNULL類別yekindvarcharNULL計(jì)量單位YeunitfloatNULL數(shù)量yeaccountfloatNOT NULL金額 Yevalue floatNOT NULL倉庫YebasevarcharNOT NULL備注yememotextNULL六、數(shù)據(jù)庫構(gòu)建與代碼撰寫（分工完成）1、開發(fā)環(huán)境OS: Windows XP SP3 IDE: Visual C+ 6.0DataBase: SQL Server 20002、框架構(gòu)建(1)登陸界面：(2)添加物資基本信息：(3)查詢物資基本

8、信息：(4)添加入庫基本信息：(5)查詢?nèi)霂煳镔Y信息：(6)添加出庫基本信息：(7)查詢剩余物資信息：(8)菜單欄主框架：3、運(yùn)行結(jié)果(1)登陸：(2)添加基本信息：(3)添加入庫信息：(4)查詢出庫信息：七、課程設(shè)計(jì)心得體會(huì)在將近兩個(gè)星期的課程設(shè)計(jì)中，我們以小組的形式，通過合理的分工，完成了數(shù)據(jù)庫的設(shè)計(jì)。也使我們回顧了很多以前的東西，也發(fā)現(xiàn)了很多的問題，以前都沒遇見過的，收獲很大，在對(duì)不同的功能代碼是不一定可以完整的執(zhí)行的，不過大概都是一樣的，只有一些小的細(xì)節(jié)。看著自己做的系統(tǒng)，自己就會(huì)又欣慰又難過，欣慰的是自己終于把它做出來了，而且，做的還好，難過的是自己知道還有很多的不足，但是，由于認(rèn)識(shí)

9、的有限，無法去完善，才知道“書到用時(shí)方恨少”！ 此次物資管理信息系統(tǒng)的設(shè)計(jì)讓我們對(duì)數(shù)據(jù)庫的了解更深入，可以把它同實(shí)際相結(jié)合，同時(shí)，又讓我們學(xué)會(huì)了一個(gè)新的應(yīng)用軟件。 在整個(gè)設(shè)計(jì)過程中，通過怎樣對(duì)把各個(gè)管理信息連接起來的分析，鍛煉了我們對(duì)事情的分析能力，通過怎樣解決過程中出現(xiàn)的問題，提高了我們查找文獻(xiàn)的能力、對(duì)網(wǎng)絡(luò)資源的利用能力和和其他同學(xué)的交流溝通能力。而且，經(jīng)歷這次的課程設(shè)計(jì)，我們也學(xué)會(huì)了自學(xué)和分工協(xié)作。我們覺得每一次的課程設(shè)計(jì)，都是讓我們對(duì)原有的知識(shí)從了解表面到深入本質(zhì)，從個(gè)體學(xué)習(xí)到整體把握的跳躍，對(duì)新知識(shí)的汲取，更是讓我們把課本的知識(shí)應(yīng)用到實(shí)際中，讓我們了解了我們的學(xué)習(xí)有什么用，能夠解決什

10、么樣的問題，增加我們的自信和學(xué)習(xí)的動(dòng)力?？傊?，通過這次的課程設(shè)計(jì)，我們收獲匪淺。 附錄：工程模塊設(shè)計(jì)代碼Public Mycon As New ADODB.Connection Mycon用于數(shù)據(jù)庫連接Public MyRs As New ADODB.Recordset MyRS用于保存記錄集Public MyRs1 As New ADODB.Recordset MyRS1用于保存記錄集Public MyRs2 As New ADODB.Recordset MyRS2用于保存記錄集登錄界面設(shè)計(jì)代碼Dim i As Integer 變量i用于累計(jì)連接的錯(cuò)誤次數(shù)Private Sub Comman

11、d1_Click() 確定 If Trim(Text1.Text) = Then 如果用戶名為空，則給出提示 MsgBox 請(qǐng)輸入用戶名, vbExclamation, 注意 Text1.SetFocus 將焦點(diǎn)定位在用戶名文本框中 Else On Error GoTo ErrorHandler 出錯(cuò)則轉(zhuǎn)向ErrorHandler處執(zhí)行 Mycon.ConnectionString = Driver=SQL Server;Server=PC-4;Database=MMS Mycon.Open 按ConnectionString的設(shè)置打開指定的連接 Unload Me 關(guān)閉當(dāng)前窗口 Form3.

12、Show 顯示系統(tǒng)的主菜單窗口Form3 End If Exit SubErrorHandler: 錯(cuò)誤處理程序入口 i = i + 1 連接錯(cuò)誤，變量i累加1 If i = 2 Then 如果連接錯(cuò)誤次數(shù)不超過2兩次 MsgBox 連接失敗，請(qǐng)重試用戶名或密碼, vbExclamation, 注意 Text1.SetFocus Else 如果連接錯(cuò)誤次數(shù)超過2兩次 MsgBox 連接失敗次數(shù)過多，你不能使用本系統(tǒng), vbExclamation, 注意 End 結(jié)束系統(tǒng)的運(yùn)行 End IfEnd SubPrivate Sub Command2_Click() 退出按鈕 Unload Me 回到

13、主封面End SubPrivate Sub Image1_Click()End SubPrivate Sub Form_Load()End SubPrivate Sub Text1_GotFocus() 用戶名框獲得焦點(diǎn)時(shí) 選中Text1中的文本 Text1.SelStart = 0 Text1.SelLength = Len(Text1.Text)End SubPrivate Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer) If KeyCode = 13 Then 如果在用戶名框中輸入了回車鍵,則 Text2.SetFocus 將焦

14、點(diǎn)切換到密碼框 End IfEnd SubPrivate Sub Text2_GotFocus() 密碼框獲得焦點(diǎn)時(shí) 選中Text2中的文本 Text2.SelStart = 0 Text2.SelLength = Len(Text2.Text)End SubPrivate Sub Text2_KeyUp(KeyCode As Integer, Shift As Integer) If KeyCode = 13 Then 在密碼框輸入完密碼并按下了回車鍵 If Trim(Text1.Text) = Then 如果用戶名為空，則給出提示 MsgBox 請(qǐng)輸入用戶名, vbExclamation,

15、 注意 Text1.SetFocus 將焦點(diǎn)定位在用戶名文本框中 Else On Error GoTo ErrorHandler 出錯(cuò)則轉(zhuǎn)向ErrorHandler處執(zhí)行 Mycon.ConnectionString = Driver=SQL Server;Server=PC-4;Database=MMS Mycon.Open Unload Me Form3.Show 顯示系統(tǒng)的主菜單窗口Form3 End If Exit SubErrorHandler: 錯(cuò)誤處理程序入口 i = i + 1 連接錯(cuò)誤，變量i累加1 If i = 2 Then MsgBox 連接失敗，請(qǐng)重試用戶名或密碼, v

16、bExclamation, 注意 Text1.SetFocus Else MsgBox 連接失敗次數(shù)過多，你不能使用本系統(tǒng), vbExclamation, 注意 End End If End IfEnd Sub主界面設(shè)計(jì)部分代碼Private Sub about_Click()frmAbout.Show 1End SubPrivate Sub cx111_Click() If MyRs.State = adStateOpen Then MyRs.Close End If MyRs.Open material, Mycon, adOpenStatic, adLockOptimistic, adC

17、mdTableDirect 打開物資基本信息表 Form7.Caption = 按表格瀏覽物資表 Form7.Show 1 用Form7實(shí)現(xiàn)對(duì)物資基本信息表按表格瀏覽End SubPrivate Sub cx112_Click() 按行瀏覽物資表 If MyRs.State = adStateOpen Then MyRs.Close End If MyRs.Open material, Mycon, adOpenStatic, adLockOptimistic, adCmdTableDirect Form4.Caption = 按行瀏覽物資表 Form4.Show 1 用Form4實(shí)現(xiàn)對(duì)物資基

18、本信息表按行瀏覽End SubPrivate Sub sc11_Click() Dim strSql As String strSql用于保存查詢字符串 Form18.DataCombo1.Enabled = True 設(shè)置顯示物資編號(hào)的組合框有效 Form18.Label1.Enabled = True 設(shè)置顯示物資編號(hào)的文字提示有效 Form18.DataCombo2.Enabled = False 設(shè)置顯示物資名稱的組合框有效 Form18.Label2.Enabled = False 設(shè)置顯示物資名稱的文字提示無效 strSql = SELECT DISTINCT wzid FROM

19、material If MyRs1.State = adStateOpen Then 如果記錄集MyRS1處于打開狀態(tài) MyRs1.Close 關(guān)閉記錄集MyRS1 End If MyRs1.Open strSql, Mycon, adOpenStatic, adLockReadOnly 按查詢字符串strSql指定的查詢產(chǎn)生記錄集 Set Form18.DataCombo1.RowSource = MyRs1 設(shè)置Form16的顯示物資編號(hào)的組合框的數(shù)據(jù)源為MyRS1 Form18.DataCombo1.ListField = wzid 設(shè)置Form16的顯示物資編號(hào)的組合框與記錄集MyRS

20、1的學(xué)號(hào)字段綁定 Form18.DataCombo1.Text = Form18.DataCombo2.Text = Form18.Show 1End SubPrivate Sub sc12_Click() Dim strSql As String strSql用于保存查詢字符串 Form18.DataCombo1.Enabled = False 設(shè)置顯示物資編號(hào)的組合框有效 Form18.Label1.Enabled = False 設(shè)置顯示物資編號(hào)的文字提示有效 Form18.DataCombo2.Enabled = True 設(shè)置顯示物資名稱的組合框有效 Form18.Label2.En

21、abled = True 設(shè)置顯示物資名稱的文字提示無效 strSql = SELECT DISTINCT wzname FROM material 產(chǎn)生查詢字符串，用于從物資表中選擇物資名稱。 If MyRs1.State = adStateOpen Then 如果記錄集MyRS1處于打開狀態(tài) MyRs1.Close 關(guān)閉記錄集MyRS1 End If MyRs1.Open strSql, Mycon, adOpenStatic, adLockReadOnly 按查詢字符串strSql指定的查詢產(chǎn)生記錄集 Set Form18.DataCombo2.RowSource = MyRs1 設(shè)置F

22、orm16的顯示物資名稱的組合框的數(shù)據(jù)源為MyRS1 Form18.DataCombo2.ListField = wzname 設(shè)置Form16的顯示物資名稱的組合框與記錄集MyRS1的物資名稱字段綁定 Form18.DataCombo1.Text = Form18.DataCombo2.Text = Form18.Show 1End SubPrivate Sub tc_Click() If MyRs.State = adStateOpen Then MyRs.Close End If If MyRs1.State = adStateOpen Then MyRs1.Close End If I

23、f MyRs2.State = adStateOpen Then MyRs2.Close End If Set MyRs = Nothing Set MyRs1 = Nothing Set MyRs2 = Nothing Set Mycon = Nothing Unload MeEnd SubPrivate Sub sg2_Click()End SubPrivate Sub tij1_Click() 添加物資基本信息 Form9.Show 1End SubPrivate Sub xg1_Click() If MyRs.State = adStateOpen Then 如果記錄集MyRS處于打開

24、狀態(tài) MyRs.Close 關(guān)閉記錄集MyRS End If MyRs.Open material, Mycon, adOpenKeyset, adLockBatchOptimistic, adCmdTable Form12.Show 1End Sub添加物資基本信息代碼Private Sub Command1_Click() Dim strInsert As String strInsert = INSERT INTO material VALUES( & Text1.Text & , & Text2.Text & , & Text5.Text & , & Text3.Text & , &

25、Text4.Text & ) On Error GoTo errhandle 如果出錯(cuò)則轉(zhuǎn)向errhandler處執(zhí)行 Mycon.BeginTrans 開始事務(wù) Mycon.Execute (strInsert) 執(zhí)行添加 Mycon.CommitTrans 提交事務(wù) MsgBox 添加成功 顯示添加操作完成的提示消息 Text1.Text = : Text2.Text = : Text5.Text = : Text3.Text = : Text4.Text = 清空在界面上錄入的信息 Exit Suberrhandle: 錯(cuò)誤處理程序入口，當(dāng)添加操作出現(xiàn)錯(cuò)誤時(shí)執(zhí)行 MsgBox 添加失敗

26、Mycon.RollbackTrans 撤銷事務(wù)End SubPrivate Sub Command2_Click() Unload MeEnd SubPrivate Sub Form_Load()End Sub刪除物資基本信息代碼Private Sub Command1_Click() Dim strDelete As String, StudName As String If Trim(DataCombo1.Text) And Trim(DataCombo2.Text) = Then strDelete = DELETE material WHERE wzid LIKE & Trim(Da

27、taCombo1.Text) & % ElseIf Trim(DataCombo1.Text) = And Trim(DataCombo2.Text) Then strDelete = DELETE material WHERE wzname LIKE & Trim(DataCombo2.Text) & % Else Exit Sub End If Mycon.BeginTrans Mycon.Execute strDelete a = MsgBox(確定要?jiǎng)h除指定的物資基本信息嗎?, vbOKCancel + vbExclamation, 注意) If a = vbOK Then Mycon.CommitTrans MsgBox 指定的物資基本信息已經(jīng)從數(shù)據(jù)庫中刪除, vbInformation, 注意 Else Mycon.RollbackTrans MsgBox 刪除被撤消, vbExclamation, 注意 End IfEnd SubPrivate Sub Command2_Click() Unload MeEnd SubPrivate Sub Form_Load()End Sub修改物資基本信息