電腦庫存管理系統(tǒng)數(shù)據(jù)庫課程設(shè)計(jì)說明書

1、數(shù)據(jù)庫課程設(shè)計(jì)說 明 書 學(xué) 院、系：軟件學(xué)院專 業(yè)：軟件工程學(xué) 生 姓 名：趙霸學(xué) 號：0926010210設(shè) 計(jì) 題 目：電腦配件庫存管理系統(tǒng) 起 迄 日 期: 2011年5月30日 2011年6月17日指 導(dǎo) 教 師:李華玲   2012年 6月 17 日1. 需求分析（1）軟件的功能：實(shí)現(xiàn)對各種電腦配件的添加、修改和刪除功能；實(shí)現(xiàn)對各種電腦配件的進(jìn)貨、退貨和出貨的管理。（2）軟件的目的：為了研究電腦配件庫存管理系統(tǒng)軟件的軟件功能和開發(fā)方法，為以后的程序開發(fā)者提供可靠的依據(jù)。（3）軟件的任務(wù)：完成貧困生管理系統(tǒng)的設(shè)計(jì)與實(shí)現(xiàn)，主要包括以下基本內(nèi)容：1

2、）電腦配件資料的添加、修改與刪除；2）電腦配件的進(jìn)貨、退貨與出貨管理；3）電腦配件的庫存管理與信息統(tǒng)計(jì)；4）各種信息統(tǒng)計(jì)分析功能；5）完成程序的最終調(diào)試，必須能正常運(yùn)行。（4）軟件的成果：實(shí)現(xiàn)了對電腦配件的庫存管理與信息統(tǒng)計(jì)以及各種信息統(tǒng)計(jì)分析功能。2.總體設(shè)計(jì)a程序所包括的功能：添加功能、刪除功能、進(jìn)貨功能、出貨功能、退貨功能和查詢功能等。b添加功能包括：添加電腦配件名稱、添加各種電腦配件的進(jìn)貨量和出貨量。c刪除功能包括：刪除電腦配件名稱。d進(jìn)貨功能包括：輸入各種電腦配件的進(jìn)貨量。e出貨功能包括：輸入各種電腦配件的出貨量。f退貨功能包括：將某種或某些電腦配件的名稱以及庫存量從表中刪除。g查詢

3、功能包括：查詢某種或某些電腦配件的進(jìn)貨量、進(jìn)貨時(shí)間、出貨量、出貨時(shí)間。電腦配件倉 庫 庫配件名稱ID庫存量進(jìn)貨時(shí)間出貨時(shí)間存入進(jìn)貨量出貨量 E-R圖設(shè)計(jì) 進(jìn)貨表 出貨表3詳細(xì)設(shè)計(jì)（1）添加功能的核心代碼及窗口：Private Sub Command1_Click()Dim str() As StringDim value() As String'On Error Resume NextIf Text1.Text <> "" Then With Form1.Adodc1 .RecordSource = "select * from type&qu

4、ot; .Refresh .Recordset.AddNew .Recordset.Fields("pname") = Text1.Text .Recordset.Fields("number") = 0 .Recordset.Update End With MsgBox "添加成功" Form3.Enabled = True Form3.resetlv Unload MeElse MsgBox "添加失敗"End IfEnd Sub（2）刪除功能的核心代碼及窗口：Private Sub Command1_Clic

5、k()Dim h, l As Integer If Form1.Adodc1.Recordset("ID") = lv1.SelectedItem.Text Then With Form1.Adodc1 .Recordset.Delete adAffectCurrent .Recordset.Update End With End IfWend resetlvEnd Sub（3）進(jìn)貨功能的核心代碼及窗口：Private Sub Command1_Click()Dim total As IntegerDim num As Integernum = CInt(Text1.Tex

6、t)If Text1.Text <= 0 Then Else Form1.Adodc1.RecordSource = "select intime,num,typeid from in" .AddNew .Fields("intime") = Date .Fields("num") = num .Update End With With Form1.Adodc1 .RecordSource = "select * from type" .Refresh End With If Form1.Adodc1.Rec

7、ordset("ID") = Form4.lv1.SelectedItem.Text Then total = num + CInt(Form1.Adodc1.Recordset("number") .Update "number", total .Update End With End If Wend MsgBox "進(jìn)貨成功" Form4.resetlv Form4.Enabled = True Unload MeEnd IfEnd Sub（4）出貨功能的核心代碼及窗口：Private Sub Command1

8、_Click()Dim total As IntegerDim num As Integernum = CInt(Text1.Text)If Text1.Text <= 0 Then Else Form1.Adodc1.RecordSource = "select otime,num,typeid from out" .AddNew .Fields("otime") = Date .Fields("num") = num .Update End With With Form1.Adodc1 .RecordSource = &qu

9、ot;select * from type" .Refresh End With If Form1.Adodc1.Recordset("ID") = Form4.lv1.SelectedItem.Text Then total = CInt(Form1.Adodc1.Recordset("number") - num .Update "number", total .Update End With End If Wend MsgBox "出貨成功" Form4.resetlv Form4.Enabled

10、= True Unload MeEnd IfEnd Sub（5）退貨功能的核心代碼及窗口：Private Sub Command1_Click()Dim h, l As Integer If Form1.Adodc1.Recordset("ID") = lv1.SelectedItem.Text Then With Form1.Adodc1 .Recordset.Delete adAffectCurrent .Recordset.Update End With End IfWend resetlvEnd Sub(6)查詢功能的核心代碼及窗口：a.查詢某種或某些電腦配件的進(jìn)貨

11、量和進(jìn)貨時(shí)間的核心代碼及窗口Private Sub Command1_Click()Dim count As IntegerDim i As IntegerWith Form1.Adodc1 .RecordSource = "select in.id,intime,num,pname from in,type where type.id = typeid" .RefreshEnd Withlv1.ColumnHeaders.Add , , "ID"lv1.ColumnHeaders.Add , , "配件名稱"lv1.ColumnHe

12、aders.Add , , "進(jìn)貨時(shí)間"lv1.ColumnHeaders.Add , , "進(jìn)貨量"i = 1 lv1.ListItems.Add , , Form1.Adodc1.Recordset("ID") lv1.ListItems(i).SubItems(1) = Form1.Adodc1.Recordset("PNAME") lv1.ListItems(i).SubItems(2) = Form1.Adodc1.Recordset("intime") lv1.ListItems(i

13、).SubItems(3) = Form1.Adodc1.Recordset("num") i = i + 1WendEnd Subb.查詢某種或某些電腦配件的出貨量和出貨時(shí)間的核心代碼及窗口Private Sub Command3_Click()Dim count As IntegerDim i As IntegerWith Form1.Adodc1 .RecordSource = "select out.id,pname,otime,num from type,out where out.typeid=type.id" .RefreshEnd Wit

14、hlv1.ColumnHeaders.Add , , "ID"lv1.ColumnHeaders.Add , , "配件名稱"lv1.ColumnHeaders.Add , , "出貨時(shí)間"lv1.ColumnHeaders.Add , , "出貨量"i = 1 lv1.ListItems.Add , , Form1.Adodc1.Recordset("ID") lv1.ListItems(i).SubItems(1) = Form1.Adodc1.Recordset("PNAME") lv1.ListItems(i).SubItems(2) = Form1.Adodc1.Recordset("otime") lv1.ListItems(i).SubItems(3) = Form1.Adodc1.Recordset("num") i = i + 1WendEnd Sub4.心得體會(huì) 本次課程設(shè)計(jì)，通過理論聯(lián)系實(shí)際，鞏固所學(xué)的知識，提高處理實(shí)際問題的能力，本次主要的設(shè)計(jì)任務(wù)是