电脑库存管理系统数据库课程设计说明书

1、数据库课程设计说 明 书 学 院、系：软件学院专 业：软件工程学 生 姓 名：赵霸学 号：0926010210设 计 题 目：电脑配件库存管理系统 起 迄 日 期: 2011年5月30日 2011年6月17日指 导 教 师:李华玲   2012年 6月 17 日1. 需求分析（1）软件的功能：实现对各种电脑配件的添加、修改和删除功能；实现对各种电脑配件的进货、退货和出货的管理。（2）软件的目的：为了研究电脑配件库存管理系统软件的软件功能和开发方法，为以后的程序开发者提供可靠的依据。（3）软件的任务：完成贫困生管理系统的设计与实现，主要包括以下基本内容：1

2、）电脑配件资料的添加、修改与删除；2）电脑配件的进货、退货与出货管理；3）电脑配件的库存管理与信息统计；4）各种信息统计分析功能；5）完成程序的最终调试，必须能正常运行。（4）软件的成果：实现了对电脑配件的库存管理与信息统计以及各种信息统计分析功能。2.总体设计a程序所包括的功能：添加功能、删除功能、进货功能、出货功能、退货功能和查询功能等。b添加功能包括：添加电脑配件名称、添加各种电脑配件的进货量和出货量。c删除功能包括：删除电脑配件名称。d进货功能包括：输入各种电脑配件的进货量。e出货功能包括：输入各种电脑配件的出货量。f退货功能包括：将某种或某些电脑配件的名称以及库存量从表中删除。g查询

3、功能包括：查询某种或某些电脑配件的进货量、进货时间、出货量、出货时间。电脑配件仓 库 库配件名称ID库存量进货时间出货时间存入进货量出货量 E-R图设计 进货表 出货表3详细设计（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）进货功能的核心代码及窗口：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 "进货成功" 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.查询某种或某些电脑配件的进货

11、量和进货时间的核心代码及窗口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 , , "进货时间"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("intime") lv1.ListItems(i

13、).SubItems(3) = Form1.Adodc1.Recordset("num") i = i + 1WendEnd Subb.查询某种或某些电脑配件的出货量和出货时间的核心代码及窗口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 , , "出货时间"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.心得体会 本次课程设计，通过理论联系实际，巩固所学的知识，提高处理实际问题的能力，本次主要的设计任务是