改、删除和确认报废申请信息;
*审批经理可以审批报废申请信息。
4.8.1设备报废申请编辑窗体
设备报废申请编辑窗体的名称为FrmDiscardEdit,它的布局如图4-13所示。
当单击"确定"按钮时触发Cmd_ok_click事件,代码如下:
PrivateSubCmd_OK_Click()
'如果为申请,则需要检查用户录入数据的有效性
IfLen(Trim(txtDevNo))=0Then
MsgBox("请选择设备")
Cmd_DeviceSel.SetFocus
ExitSub
EndIf
IfLen(Trim(txtUserName))=0Then
MsgBox"请输入申请人"
txtUserName.SetFocus
ExitSub
EndIf
IfLen(Trim(txtReason))=0Then
MsgBox"请输入报废原因"
txtReason.SetFocus
ExitSub
EndIf
'把用户录入的数据赋值到数据库对象变量中
WithMyDiscard
.DevNo=MakeStr(txtDevNo)
.CreateDate=Format(dtCreateDate.Value,"yyyy-mm-dd")
.DisSum=Val(txtDSum)
.UserName=MakeStr(txtUserName)
.Status="申请"
.Reason=MakeStr(txtReason)
'根据变量Modify的值,决定是插入新数据,还是修改已有的数据
IfModify=FalseThen
.Insert
Else
.Update(OriId)
EndIf
EndWith
'关闭窗口
UnloadMe
窗体中其他代码与设备维护信息编辑窗体相似。
4.8.2设备报废申请管理窗体
报废申请管理窗体的名称为FrmDiscard,窗体布局如图4-14所示。
图4-14
报废申请管理中包含两种记录,一种为还没有提交的设备报废申请;另一种为不同意报废的申请记录。
当单击"提交"按钮时触发Cmd_submit_click事件,对应的代码如下:
PrivateSubCmd_Submit_Click()
IfAdodc1.Recordset.EOF=TrueThen
MsgBox"请选择记录"
ExitSub
EndIf
IfMsgBox("是否确定要提交,提交后将不能更改记录",vbYesNo,"请确认")=vbNoThen
ExitSub
EndIf
'设置报废单编号
FrmDiscardSubmit.OriId=Adodc1.Recordset.Fields(0)
'选择审批人
FrmDiscardSubmit.Show1
GridRefresh
EndSub
当用户提交报废申请时,需要选择审批人,选择审批人的窗体为FrmDiscardSubmit,它的窗体布局如图4-15所示。
图4-15
单击"提交"触发Cmd_submit_click事件,对应的代码如下:
PrivateSubCmd_Submit_Click()
'更改报废申请状态和审批人
MyDiscard.Checker=dco_UserName.BoundText
MyDiscard.Status="提交"
MyDiscard.UpdateStatusOriId,1
UnloadMe
EndSub
提交设备报废申请的同时更改申请单的状态,并添加审批人信息。
4.8.3设备报废审批管理窗体
报废审批管理窗体为FrmDiscardApproval,窗体的布局如图4-16所示。
图4-16
报废审批管理中显示的记录是状态为"提交"、"同意"、和"报废"的报废单。用户审批提交给自己的申请,已经同意的报废申请报废申请可以被执行报废操作。
4.8.4设备报废审批编辑窗体
设备报废申请的审批窗体为FrmDiscardAppEdit,窗体的布局如图4-17所示。
图4-17
当单击"同意报废"按钮触发Cmd_OK_click事件,代码如下:
'如果为同意报废,则需要检查用户录入数据的有效性
PrivateSubCmd_OK_Click()
IfLen(Trim(txtResult))=0Then
MsgBox"请输入处理意见"
txtResult.SetFocus
ExitSub
EndIf
'把用户录入的数据赋值到数据库对象变量中
WithMyDiscard
.CheckDate=MakeStr(dtCheckDate.Value)
.Result=MakeStr(txtResult)
.Status="同意"
.UpdateApproval(OriId)
EndWith
'关闭窗口
UnloadMe
EndSub
第五章测试
5.1测试环境
A、操作系统:Windows2000AdvancedServer,Windows2000Server,WindowsNT,Windows2003
B、数据引擎:MicrosoftSqlServer2000
D、硬件要求:专业服务器即可
E、带宽要求:2M共享或更高
5.2测试方针
操作说明:
1)、打开服务管理器
2)、打开企业管理器,设计每一张表
3)、全部完成之后,双击图标便可
5.3时间特性
为保证后台数据的及时更新,特在网站设计过程中加了一个自动刷新后台数据这个功能。
5.4编程工具
编程语言:Vb
数据库:SQLSERVER2000
5.5测试的技术与策略
5.5.1测试的技术
测试主要分两种方法:
白盒测试:白盒测试检测软件内部的逻辑结构,仔细检查过程的细节为基础通过提供一组指定条件和循环的测试用例,对穿过软件的逻辑路径进行测试,可以在不同点检查程序的状态,以确定实际状态与预期状态是否一致。
黑盒测试:黑盒测试着眼于软件外部特性,而不考虑软件内部的逻辑结构。黑盒测试指的是从软件的接口进行测试,主要看它是否能正常接受数据和输出正确的结果。
每个系统的测试都会用到两种方法。当使用黑盒时发现功能不能实现、编译出错、输入出错或输出不是预期的结果时,更多的会使用白盒测试,跟踪到程序的内部看逻辑是否有不正确的地方。
5.5.2测试的策略
单元测试:主要检验软件设计的最小单位--模块。
单元测试可分人工测试和计算机测试,人工测试更多的是代码审核,而测试软件则是计算机测试的常用的手段。
集成测试:主要目标是发现与接口有关的问题。
它主要两种方法:①一种是先测试每一块模块,在把所有模块按设计结合在一起成为所需要的程序,称之为非渐增式测试②另一种是把要装配的两块测试完,再把它们组合起来测试,接下来再测试要装配的下个模块,在装配后再测试,称之为渐增式测试。
(其中在渐增方式的测试中,一种是自上而下的结合方法,另一种是自下而上的方法。)
第六章结论
经过这次毕业设计,我感到自己无论在专业知识方面,还是在自学能力方面都有了很大的收获。让我学到了以前我从没有接触过的新的知识,有些虽然学过,但从没有真正用过的知识有了一定深入的了解,而且还增加了实践操作能力及综合运用能力。需要注意的一点是,在设计过程中,一定要合理的掌驼时间,安排时间。要严格按照预期设定的时间安排,完成指定地各项任务。否则,只会让自己过得很累。
此次所使用的visualbasic语言对我来说虽然以前学过,但是从未很深的去了解,而通过这次的设计,我对它已经有了一定的了解。特别是对ADO数据控件,已经比较熟悉。SQLServer也是以前学过,对数据库的操作有初步掌握,此次毕业设计也使用SQLServer数据库,这无疑增长了我这方面的经验,使我数据库有了更深一步的了解与认识。
另外,通过此次毕业设计,本人对开发一个软件的各个阶段有了一定的了解,深刻体会到设计一个好的系统,从需求分析→概要设计→详细设计→系统的实现与编码→测试,每一步都非常的重要,特点是书写代码时良好的习惯会对错误的检查和代码的维护有很大的帮助,而不像以前写代码,只想实现要实现的功能,不管代码的书写质量,内存空间的有效利用等问题,而且一段好的代码,必须要有注释.
但是由于时间仓促,加上水平有限,本系统的功能还不齐全,系统中也会存在着错误是在所难免,恳请各位老师批评指正。
在整个实践过程中,还留下很多缺陷和不足。在对本系统开发过程中,为了赶进度,对许多知识还没做到深入的了解,对调试时产生的一些问题常常感到无从下手,当然最后通过老师的指导和同学的帮助下,问题也一一得以解决。
致谢
三年的大学生涯即将结束,借此机会向三年来关心过我,帮助过我得老师,同学们表示深深的谢意!
经过这三个月的努力,我的作品出来了。虽然有些功能还不尽人意,漏洞也很多,但我已经非常努力了,因为自己的能力实在太有限了。
这个设计
上一篇:
VB银行代扣代发工资系统(论文和程序)
下一篇:
谈谈我国养老旅游产品开发策略