VB040计算机维修管理系统源代码设计与实现
1.无需注册登录,支付后按照提示操作即可获取该资料.
2.资料以网页介绍的为准,下载后不会有水印.资料仅供学习参考之用.
密 惠 保
维修日志：左边为列表框，采用TreeView控件，右边为维修日志详细界面，采用Frame控件分成多个操作区域，并用TabStrip实现维修信息和历史记录的分页显示，录入采用多种控件（textbox、combox、optionbutton等），维修日志存储在数据表wxrz，采用ADO实现对数据库的操作，用Recordset 的AddNew方法实现插入操作，Update提交数据更新，Delete删除数据，代码如下：
think58好，好think58
[来源：http://think58.com]
[资料来源：http://think58.com]'定义数据库连接变量
Dim cn As Connection
Dim rs As Recordset
Dim parenttemp As String
Dim childtemp As String
[版权所有：http://think58.com]
think58
Private Sub BMPX_Click()
[资料来源：http://think58.com]
If BMPX.Checked = True Then
BMPX.Checked = False
[资料来源：http://www.THINK58.com]
Else
copyright think58 [来源：http://www.think58.com]
[版权所有：http://think58.com] BMPX.Checked = True
End If
BXRQ.Checked = False
[版权所有：http://think58.com]
XFRQ.Checked = False
End Sub
think58
[来源：http://www.think58.com]
[来源：http://www.think58.com]
think58 [资料来源：http://www.THINK58.com]
Private Sub BXRQ_Click()
If BXRQ.Checked = True Then
think58.com
[资料来源：http://THINK58.com]
[来源：http://www.think58.com] BXRQ.Checked = False
[资料来源：www.THINK58.com]
Else
BXRQ.Checked = True
[资料来源：http://THINK58.com]
End If
BMPX.Checked = False
XFRQ.Checked = False
think58好，好think58
[版权所有：http://think58.com]
End Sub
[来源：http://think58.com]
[资料来源：THINK58.com]
Private Sub Combo1_Click()
本文来自think58 [来源：http://www.think58.com]
[来源：http://www.think58.com]Text3(2).Text = Combo1.Text
Combo1.Visible = False
End Sub
[资料来源：THINK58.com]
本文来自think58 [资料来源：www.THINK58.com]
[来源：http://think58.com]第六章 测试计划
6.1 引言：
[来源：http://think58.com]
为了发现程序中错误，确定其性质，并且加以纠正，进行一系列测试。
6.2 计划：
think58好，好think58 [版权所有：http://think58.com]
[资料来源：http://THINK58.com]以下是我测试本系统的过程。
下面是我对“添加部门”操作进行单元测试的过程，见图表16、图表17。
[资料来源：THINK58.com]