库存管理系统+源代码+外文翻译+论文正文+开题报(6)

2013-06-14 01:09

导读：表中检索数据，并使用用户在“窗体向导”选择的版面布局或所创建的版面布局，将窗体显示在屏幕上。如果要分析数据或将数据以特定的方式打印出来

表中检索数据，并使用用户在“窗体向导”选择的版面布局或所创建的版面布局，将窗体显示在屏幕上。如果要分析数据或将数据以特定的方式打印出来，请创建一个报表。例如，可以打印一份将数据分组并计算数据总和的报表，也可以打印另一份带有各种数据格式的打印邮件标签的报表。

系统的可行性分析
系统定义明确以后,应该对系统可行性进行研究.可行性研究包括技术可行性,经济可行性以及社会可行性等方面.
技术可行性研究是根据现有的和准备充实的设备条件与技术力量来分析系统在技术上实现的可能性,弄清楚现有的技术条件能否保证顺利完成开发工作.
库存管理系统在技术可行性上完全可以胜任,由于本库存管理系统,采用单机版,对网络的研究不高,采用micorsof access数据库,以及visual basic 6.0 结合操作系统.
在设备条件上,主要考虑计算机的内存容量,外存容量,运算速度,数据精度,汉字功能,多媒体功能,可靠性以及对数据传送与通信,网络,数据库的需求以及实现的可能性.
库存管理系统在如下平台中经过测试可以正常运行:
硬件平台
CPU Intel P4 2.2G
主板 Intel 850芯片组的GA-8TX-C
内存 1×256的三星Rambus内存
硬盘 Seagate Barracuda 7200.7 80G
显卡 Unika 小妖G9800
显示器美格770PF，17寸纯平显示器
软件环境
操作系统 Microsoft WindowsXP简体中文专业版＋SP2
办公软件 Microsoft Office 2003
显卡驱动 nVIDIA ForceWare驱动56.72版For Win2000/XP

经济可行性研究的目的,是希望以最小的开发成本取得具有最佳经济效益的软件产品,它除了研究开发与维护新系统所需要的费用是否能够可靠地提供外,主要研究新系统将来带来地经济效益是否超过其开发与维护所需要大的费用,论证搞这样的一个项目是否合算. 中国大学排名
库存管理系统是方便企业管理者仓库管理员完成日常工作的得力助手,由于辅助了计算机高科技技术,大大的提高了员工,管理者的工作效率.而且软件产品的无损耗性,决定了此系统的低投入,高回报的特性,所以在经济上具有可行性.
社会可行性是指所开发的软件项目是否涉及到知识产权的纠纷等法律问题,这样的软件产品投入运行后,对生产,管理或经营体制带来变革的社会影响以及社会承认能力.

系统的组织结构分析

本系统由以下几个主要部分构成:

业务流程分析

系统的设计
系统的功能结构设计
本系统主要功能模块由:1.系统设置:锁定系统,操作员入口,登陆设置.
2.采购信息:采购单,采购查询,采购统计.
3.库存:元件登记,产品登记,库存查询.
4.入库信息:入库单,入库查询,入库统计
5.出库信息:出库单,出库查询,出库统计
6.数据维护:供应商信息,数据维护
7.模拟配货:公司材料模拟组成,公司材料模拟配套
8.工具管理:工具库存,入库管理.出库管理,入库管理
9.退出

界面设计与代码设计
创建新用户界面

创建新用户源代码:
Private Sub CmdOk_Click()
On Error GoTo gl
    If Txt(1).Enabled = False Then
     If rs.State Then
       rs.Close
     End If
     rs.Source = "select * from usertable where username= '" & MSF.TextMatrix(MSF.row, 0) & "'"
     rs.Open , cn, adOpenKeyset, adLockOptimistic
     rs!UserName = Trim(Txt(0).Text) （转载自http://www.ＮＳＥＡＣ.com中国科教评价网）
     rs.Update
     rs.Close
     Set rs = Nothing
      MSF.TextMatrix(MSF.row, 0) = Txt(0).Text
     CmdAdd.Enabled = True
     CmdAdd.SetFocus
     Exit Sub
   End If
   CmdCancel.Enabled = False
    If Len(Trim(Txt(2).Text)) = 0 Or Len(Trim(Txt(0).Text)) = 0 Or Len(Trim(Txt(1).Text)) = 0 Then
       MsgBox " 数据不完整，请检查！ ", , "提示信息"
       Exit Sub
    End If
    If Trim(Txt(2).Text) <> Trim(Txt(1).Text) Then
       MsgBox " 两次密码值不相等！ ", , ginfo
       Exit Sub
    End If
    Set rs = New ADODB.Recordset
    rs.Source = "select * from usertable order by id"
    rs.Open , cn, adOpen

上一篇：免费VB+员工管理系统(一)毕业论文下一篇：没有了