VB库存管理系统论文Access.docVIP

VB442库存管理系统论文Access P第三章nbsp;系统的设计BR3．1nbsp;系统的功能结构设计BR本系统主要功能模块由:1.系统设置:锁定系统,操作员入口,登陆设置.BR2.采购信息:采购单,采购查询,采购统计.BR3.库存:元件登记,产品登记,库存查询.BR4.入库信息:入库单,入库查询,入库统计BR5.出库信息:出库单,出库查询,出库统计BR6.数据维护:供应商信息,数据维护BR7.模拟配货:公司材料模拟组成,公司材料模拟配套BR8.工具管理:工具库存,入库管理.出库管理,入库管理BR9.退出/P PBR3．2nbsp;界面设计与代码设计BR创建新用户界面BRnbsp;BR创建新用户源代码:BRPrivate Sub CmdOk_Click()BROn Error GoTo glBRnbsp;nbsp;nbsp; If Txt(1).Enabled = False ThenBRnbsp;nbsp;nbsp;nbsp; If rs.State ThenBRnbsp;nbsp;nbsp;nbsp;nbsp;nbsp; rs.CloseBRnbsp;nbsp;nbsp;nbsp; End IfBRnbsp;nbsp;nbsp;nbsp; rs.Source = selectnbsp; * from usertable where username= amp; MSF.TextMatrix(MSF.row, 0) amp; BRnbsp;nbsp;nbsp;nbsp; rs.Open , cn, adOpenKeyset, adLockOptimisticBRnbsp;nbsp;nbsp;nbsp; rs!UserName = Trim(Txt(0).Text)BRnbsp;nbsp;nbsp;nbsp; rs.UpdateBRnbsp;nbsp;nbsp;nbsp; rs.CloseBRnbsp;nbsp;nbsp;nbsp; Set rs = NothingBRnbsp;nbsp;nbsp;nbsp;nbsp; MSF.TextMatrix(MSF.row, 0) = Txt(0).TextBRnbsp;nbsp;nbsp;nbsp; CmdAdd.Enabled = TrueBRnbsp;nbsp;nbsp;nbsp; CmdAdd.SetFocusBRnbsp;nbsp;nbsp;nbsp; Exit SubBRnbsp;nbsp; End IfBRnbsp;nbsp; CmdCancel.Enabled = FalseBRnbsp;nbsp;nbsp; If Len(Trim(Txt(2).Text)) = 0 Or Len(Trim(Txt(0).Text)) = 0 Or Len(Trim(Txt(1).Text)) = 0 ThenBRnbsp;nbsp;nbsp;nbsp;nbsp;nbsp; MsgBox 数据不完整，请检查！ , , 提示信息BRnbsp;nbsp;nbsp;nbsp;nbsp;nbsp; Exit SubBRnbsp;nbsp;nbsp; End IfBRnbsp;nbsp;nbsp; If Trim(Txt(2).Text) lt;gt; Trim(Txt(1).Text) ThenBRnbsp;nbsp;nbsp;nbsp;nbsp;nbsp; MsgBox 两次密码值不相等！ , , ginfoBRnbsp;nbsp;nbsp;nbsp;nbsp;nbsp; Exit SubBRnbsp;nbsp;nbsp; End IfBRnbsp;nbsp;nbsp; Set rs = New ADODB.RecordsetBRnbsp;nbsp;nbsp; rs.Source = selectnbsp; * from usertable order by idBRnbsp;nbsp;nbsp; rs.Open , cn, adOpenKeyset, adLockOptimisticBR3．3nbsp;输入输出设计BR输入设计包括输入方式设计、用户界面设计。在实现系统开发过程中输入设计所占的比重较大。以某厂开发的系统为例,在涉及全厂生产、经营、财务、销售、物资供应等12个子系统中,与输入输出界面相关的程序占总程序量的65%左右(当时还没有菜单和屏幕格式生成器这类软件工具)。从这一比率足以看出在一个处理管理领域的信息系统中输入输出界面的重要,一个好的输入设计能为今后系统运行带来很多方便。BR相对于输入方式来说,输出方式的设计要简单得多。从系统的角度来说输入和输出都是相对的,各级子系统的输出就是上级主系统输入。从这个意义上来说