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

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

  1. 1、本文档共14页,可阅读全部内容。
  2. 2、有哪些信誉好的足球投注网站(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
  3. 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载
  4. 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
PAGE PAGE 1 word完美格式 精心整理 学习帮手 数据库课程设计 说 明 书 ? 学 院、系: 软件学院 专 业: 软件工程 学 生 姓 名: 赵霸 学 号: 0926010210 设 计 题 目: 电脑配件库存管理系统 起 迄 日 期: 2011年5月30日~ 2011年6月17日 指 导 教 师: 李华玲 ? ? ?2012年 6月 17 日 需求分析 (1)软件的功能: 实现对各种电脑配件的添加、修改和删除功能;实现对各种电脑配件的进货、退货和出货的管理。 (2)软件的目的: 为了研究电脑配件库存管理系统软件的软件功能和开发方法,为以后的程序开发者提供可靠的依据。 (3)软件的任务: 完成贫困生管理系统的设计与实现,主要包括以下基本内容: 1)电脑配件资料的添加、修改与删除; 2)电脑配件的进货、退货与出货管理; 3)电脑配件的库存管理与信息统计; 4)各种信息统计分析功能; 5)完成程序的最终调试,必须能正常运行。 (4)软件的成果: 实现了对电脑配件的库存管理与信息统计以及各种信息统计分析功能。 2.总体设计 a.程序所包括的功能:添加功能、删除功能、进货功能、出货功能、退货功能和查询功能等。 b.添加功能包括:添加电脑配件名称、添加各种电脑配件的进货量和出货量。 c.删除功能包括:删除电脑配件名称。 d.进货功能包括:输入各种电脑配件的进货量。 e.出货功能包括:输入各种电脑配件的出货量。 f.退货功能包括:将某种或某些电脑配件的名称以及库存量从表中删除。 g.查询功能包括:查询某种或某些电脑配件的进货量、进货时间、出货量、出货时间。 电脑配件 电脑配件 仓 库 库 配件名称 ID 库存量 进货时间 出货时间 存入 进货量 出货量 E-R图设计 进货表 出货表 3.详细设计 (1)添加功能的核心代码及窗口: Private Sub Command1_Click() Dim str() As String Dim value() As String On Error Resume Next If Text1.Text Then With Form1.Adodc1 .RecordSource = select * from [type] .Refresh .Recordset.AddNew .Recordset.Fields(pname) = Text1.Text .Recordset.Fields(number) = 0 .Recordset.Update End With MsgBox 添加成功 Form3.Enabled = True Form3.resetlv Unload Me Else MsgBox 添加失败 End If End Sub (2)删除功能的核心代码及窗口: Private Sub Command1_Click() Dim h, l As Integer Form1.Adodc1.Refresh Form1.Adodc1.Recordset.MoveFirst While 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.MoveNext Wend resetlv End Sub (3)进货功能的核心代码及窗口: Private Sub Command1_Click() Dim total As Integer Dim num As Integer num = CInt(Text1.Text) If Text1.Text = 0 Then Else Form1.Adodc1.RecordSource = select intime,num,typeid from [in] Form1.Adod

您可能关注的文档

文档评论(0)

文档分享 + 关注
实名认证
内容提供者

该用户很懒,什么也没介绍

1亿VIP精品文档

相关文档