评价网 > 科教论文 > 工学毕业论文 > 计算机论文 > 正文

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

2013-06-14 01:09 内存 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 

软件平台: windows xp操作系统 +微软 access
 一个好的库存管理系统，不仅仅是一次性制作完美就算了，由于企业的情况在不断地变化，软件系统的内容也需要随之调整，让人感觉内容时刻在变更，给人常新的感觉，而且给访问者很好的印象。这就要求管理员对库存管理系统进行长期的不间断的维护。
一.系统设置
    1） 锁定：当登陆到本机的操作员临时离开时，为防止别人操作而设定,只有登陆本机的人,通过输入密码后才能解除锁定。
    2） 登陆设置:对操作员进行管理维护 和 修改密码（对登陆本系统的操作员密码进行修改）,本     
系统中第 一个登陆的用户为最高权限用户，具有删除操作权限, 其它用户没有此权限，删     除功能不可用。
本系统的所有操作员将显示在右边的表格里，双击任何一个操作员可对其进行编辑。     
    3) 操作员入口：用来改变登陆的用户。
二.库存
     1)元件登记:对库存的元件进行登记维护。
     2)产品登记:对库存的产品进行登记维护。
     3)库存查询:对库存的元件和产品数量进行查询。
三.入库信息
入库单: 生成入库信息。对入库单的增,改,删,查和打印做操作。 （科教范文网 lw.nSeAc.com编辑发布）
 首先单击新增按钮，激活导入数据和导入历史数据 两个按钮，导入数据按钮是对一次的入库单进行的导入 而导入历史数据是对多个入库单进行导 入。若没有导入的数据则单击靠近产品名称的查找按钮，会弹出产品信息窗体选择或添加产品后，单击确定按 钮则传回相应的产品信息，然后输入相应的其它信息后，单击添加按钮，则一条入库信息将显示在表格里，可按此操作重复添加其它的入库信息，然后单击确定按钮保存后，将激活打印按钮进行打印。
 2)入库查询：通过对入库单号，元件名称，时间，公司名称的设置对入库单进行查询。
 具体操作如下：
 首先选择相应的单选框便击活相应选项，输入或选择所需的条件，点击确定按钮，弹出相应
 的查询结果。
     3)统计：通过对时间设置，对入库元件的数量和总金额进行统计。
四.出库信息
    1)出库单：同入库类似。
    2)出库查询：同入库类似。
 3）统计：同入库类似。
五.数据维护
        1）数据备份：对数据库进行定期备份，防止数据的丢失。
        2）供应商信息：对供应商的用户进行添加，修改，删除等维护。

七.模拟配货
  1）产品材料组成：对我公司的产品的材料组成进行配置。首先选择配置产品列表框，然后可以
     选择添加配件或者导入材料组成的excel 表，对我公司的产品进行配置。
   2）产品模拟配货：选择模拟配货的产品，在模拟量中添入模拟量的数值，然后选择模拟配按钮,便自动和库存做比较，显示出库存需求的数据。
 八．工具管理

   工具管理采用了同元件管理相似的做法，操作基本相同。
 

 4.2安全与保护措施
 由于库存管理涉及到一个企业的商业秘密信息,不宜公开,否则会给企业带来不可估量的损失.所有我们有必要对本系统的安全与保护措施进行加强.  常用的做法有数据库备份.合理设置管理权限等.
 
 4.3系统的登录及使用说明
 
 
 输入用户名与密码验证.
 Private Sub CmdOk_Click()
 On Error GoTo l
 Dim rs As Recordset
     Set rs = New ADODB.Recordset
     rs.Source = "select * from usertable"
     rs.Open , cn, adOpenKeyset, adLockOptimistic
     rs.Filter = "username='" & UserNameCmb & "'"
     If Not rs.BOF Or Not rs.EOF Then
         Usrpass = Trim(rs.Fields!userpwd)
         rs.Close
         Set rs = Nothing
         UsrName = UserNameCmb.Text
         If Usrpass = UserPassTxt.Text Then
           Unload Me
          ' Unload frmSplash
           'MDIMain.Show