《电脑库存管理系统数据库课程设计说明书》由会员分享，可在线阅读，更多相关《电脑库存管理系统数据库课程设计说明书（14页珍藏版）》请在金锄头文库上搜索。
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 StringOn Error Resume NextIf Text1.Text Then With Form1.Adodc1 .RecordSource = select * from type .Refresh .Recordset.AddNew .Recordset.Fields(pname) = Text1
4、.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_Click()Dim h, l As IntegerForm1.Adodc1.RefreshForm1.Adodc1.Recordset.MoveFirstWhile Not Form1.Adodc1.Recordset.EOF
5、If Form1.Adodc1.Recordset(ID) = lv1.SelectedItem.Text Then With Form1.Adodc1 .Recordset.Delete adAffectCurrent .Recordset.Update End With End If Form1.Adodc1.Recordset.MoveNextWend resetlvEnd Sub（3）进货功能的核心代码及窗口：Private Sub Command1_Click()Dim total As IntegerDim num As Integernum = CInt(Text1.Text)I
6、f Text1.Text = 0 Then Else Form1.Adodc1.RecordSource = select intime,num,typeid from in Form1.Adodc1.Refresh With Form1.Adodc1.Recordset .AddNew .Fields(intime) = Date .Fields(num) = num .Fields(typeid) = Form4.lv1.SelectedItem.Text .Update End With With Form1.Adodc1 .RecordSource = select * from ty
7、pe .Refresh End With Form1.Adodc1.Recordset.MoveFirst While Not Form1.Adodc1.Recordset.EOF If Form1.Adodc1.Recordset(ID) = Form4.lv1.SelectedItem.Text Then total = num + CInt(Form1.Adodc1.Recordset(number) With Form1.Adodc1.Recordset .Update number, total .Update End With End If Form1.Adodc1.Records
8、et.MoveNext Wend MsgBox 进货成功 Form4.resetlv Form4.Enabled = True Unload MeEnd IfEnd Sub（4）出货功能的核心代码及窗口：Private Sub Command1_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 Form1.Adodc1.Refresh
9、With Form1.Adodc1.Recordset .AddNew .Fields(otime) = Date .Fields(num) = num .Fields(typeid) = Form4.lv1.SelectedItem.Text .Update End With With Form1.Adodc1 .RecordSource = select * from type .Refresh End With Form1.Adodc1.Recordset.MoveFirst While Not Form1.Adodc1.Recordset.EOF If Form1.Adodc1.Rec
10、ordset(ID) = Form4.lv1.SelectedItem.Text Then total = CInt(Form1.Adodc1.Recordset(number) - num With Form1.Adodc1.Recordset .Update number, total .Update End With End If Form1.Adodc1.Recordset.MoveNext Wend MsgBox 出货成功 Form4.resetlv Form4.Enabled = True Unload MeEnd IfEnd Sub（5）退货功能的核心代码及窗口：Private
11、Sub Command1_Click()Dim h, l As IntegerForm1.Adodc1.RefreshForm1.Adodc1.Recordset.MoveFirstWhile Not Form1.Adodc1.Recordset.EOF If Form1.Adodc1.Recordset(ID) = lv1.SelectedItem.Text Then With Form1.Adodc1 .Recordset.Delete adAffectCurrent .Recordset.Update End With End If Form1.Adodc1.Recordset.Move
12、NextWend resetlvEnd Sub(6)查询功能的核心代码及窗口：a.查询某种或某些电脑配件的进货量和进货时间的核心代码及窗口Private Sub Command1_Click()Dim count As IntegerDim i As Integerlv1.ListItems.Clearlv1.ColumnHeaders.ClearWith Form1.Adodc1 .RecordSource = select in.id,intime,num,pname from in,type where type.id = typeid .RefreshEnd Withcount = Form1.Adodc1.Recordset.RecordCountForm1.Adodc1.Recordset.MoveFirstlv1.ColumnHeaders.Add , , IDlv1.ColumnHeaders.Add , , 配件名称lv1.ColumnHeaders.Add , , 进货时间lv1.ColumnHeaders.Add , , 进货量i = 1While Not Form1.Adodc1.Recordset.E
