|
摘 要 本系统主要是用于辅助孟家沟港计算机中心对全港计算机的维修进行管理，使得计算机的维修脱离一种散乱的状况。系统使用后，可以对本月各种故障维修进行记录，并可在任何时候对历史维修记录进行统计。另外，在新的维修任务发生时，技术员还可以在历史资料时浏览发生故障的机器的历史维修情况，大大方便了技术员的维修工作。 内容来自www.paper51.com 本系统使用目前比较流行的VB6.0编程语言进行编写，开发过程按软件工程的基本要求分为七个步骤，即可行性报告、需求分析、项目开发计划、概要设计、详细设计、测试计划、测试分析报告。 5.2系统操作代码 copyright paper51.com
内容来自www.paper51.com 图表 12 系统操作界面 内容来自论文无忧网 www.paper51.com 系统主操作界面，实现到各个具体功能模块的入口，由菜单栏、工具栏、状态栏组成；菜单设计采用VB菜单设计器实现，工具栏采用Toolbar控件，工具栏采用StatusBar控件，显示问候文字、当前操作员信息、当前日期、时间，其中当前日期、时间采用Timer控件每1000毫秒刷新。实现代码如下： 内容来自www.paper51.com
Private Sub BMBM_Click() http://www.paper51.com '部门档案界面 内容来自论文无忧网 www.paper51.com
F_BMDA.Show 1, Me copyright paper51.com End Sub paper51.com Private Sub Form_Load() 内容来自论文无忧网 www.paper51.com
'--初始化信息加载 内容来自论文无忧网 www.paper51.com
Me.Caption = "孟家沟信息中心微机设备管理系统" 内容来自www.paper51.com
Me.Icon =LoadPicture(App.Path & "\ico\BOOKS04.ICO") copyright paper51.com
StatusBar1.Panels.Item(1).Text = "欢迎使用计算机维修管理系统" 内容来自www.paper51.com StatusBar1.Panels.Item(4).Text = " 操作员：" &operatorname paper51.com StatusBar1.Panels.Item(5).Text= " " & Year(Date) & "年" & Month(Date)& "月" & Day(Date) & "日" paper51.com
StatusBar1.Panels.Item(6).Text = " " & Format(Time,"h时mm分ss秒") copyright paper51.com End Sub http://www.paper51.com
Private Sub GZTJ_Click() 内容来自论文无忧网 www.paper51.com '故障统计界面 paper51.com
F_GZYJ.Show 1, Me http://www.paper51.com End Sub paper51.com Private Sub RYDA_Click() http://www.paper51.com '人员档案界面 http://www.paper51.com F_RYDA.Show 1, Me 内容来自www.paper51.com End Sub copyright paper51.com Private Sub RZGL_Click() 内容来自www.paper51.com '维修日志界面 copyright paper51.com
F_WXRZ.Show 1, Me 内容来自论文无忧网 www.paper51.com
End Sub 内容来自论文无忧网 www.paper51.com Private Sub SBCS_Click() copyright paper51.com End Sub paper51.com Private Sub Timer1_Timer() 内容来自www.paper51.com '状态栏时间显示 内容来自www.paper51.com StatusBar1.Panels.Item(5).Text = " " & Year(Date) &"年" & Month(Date) & "月"& Day(Date) & "日" paper51.com StatusBar1.Panels.Item(6).Text = " " & Format(Time,"h时mm分ss秒") 内容来自www.paper51.com End Sub http://www.paper51.com
Private SubToolbar1_ButtonClick(ByVal Button As MSComctlLib.Button) 内容来自www.paper51.com '工具栏定义 paper51.com Select Case Button.Key paper51.com Case "日志管理" 内容来自www.paper51.com CallRZGL_Click http://www.paper51.com Case "故障统计" http://www.paper51.com CallGZTJ_Click copyright paper51.com Case "机站配置" paper51.com
CallYJPZ_Click http://www.paper51.com
Case "系统退出" http://www.paper51.com CallXTTC_Click paper51.com End Select paper51.com End Sub 内容来自www.paper51.com Private Sub XTTC_Click() 内容来自www.paper51.com '退出 http://www.paper51.com Unload Me 内容来自论文无忧网 www.paper51.com End Sub http://www.paper51.com
Private Sub YJPZ_Click() 内容来自论文无忧网 www.paper51.com '硬件配置界面 http://www.paper51.com F_YJPZ.Show 1, Me http://www.paper51.com End Sub 内容来自www.paper51.com
5.3维修日志代码 paper51.com
内容来自论文无忧网 www.paper51.com
图表 13 维修日志界面 内容来自www.paper51.com 维修日志：左边为列表框，采用TreeView控件，右边为维修日志详细界面，采用Frame控件分成多个操作区域，并用TabStrip实现维修信息和历史记录的分页显示，录入采用多种控件（textbox、combox、optionbutton等），维修日志存储在数据表wxrz，采用ADO实现对数据库的操作，用Recordset 的AddNew方法实现插入操作，Update提交数据更新，Delete删除数据，代码如下： 内容来自论文无忧网 www.paper51.com
'定义数据库连接变量 内容来自论文无忧网 www.paper51.com
Dim cn AsConnection http://www.paper51.com Dim rs AsRecordset 内容来自www.paper51.com Dim parenttempAs String copyright paper51.com Dim childtemp AsString 内容来自www.paper51.com Private SubBMPX_Click() 内容来自论文无忧网 www.paper51.com If BMPX.Checked= True Then paper51.com BMPX.Checked = False 内容来自论文无忧网 www.paper51.com Else copyright paper51.com BMPX.Checked = True 内容来自论文无忧网 www.paper51.com End If 内容来自论文无忧网 www.paper51.com BXRQ.Checked =False http://www.paper51.com
XFRQ.Checked =False http://www.paper51.com End Sub copyright paper51.com Private SubBXRQ_Click() http://www.paper51.com If BXRQ.Checked= True Then 内容来自论文无忧网 www.paper51.com BXRQ.Checked = False http://www.paper51.com
Else http://www.paper51.com BXRQ.Checked = True 内容来自论文无忧网 www.paper51.com
End If 内容来自www.paper51.com BMPX.Checked =False paper51.com XFRQ.Checked =False 内容来自论文无忧网 www.paper51.com End Sub 内容来自论文无忧网 www.paper51.com
Private SubCombo1_Click() http://www.paper51.com
Text3(2).Text =Combo1.Text 内容来自论文无忧网 www.paper51.com Combo1.Visible =False 内容来自论文无忧网 www.paper51.com End Sub paper51.com Private SubCombo1_LostFocus() paper51.com Combo1.Visible =False copyright paper51.com End Sub 内容来自www.paper51.com Private SubCombo2_LostFocus() 内容来自论文无忧网 www.paper51.com
Combo2.Visible =False http://www.paper51.com
End Sub 内容来自www.paper51.com Private SubCombo3_LostFocus() paper51.com
Combo3.Visible =False paper51.com End Sub paper51.com Private SubCombo3_click() 内容来自www.paper51.com
Text3(1).Text =Mid(Trim(Combo3.Text), 1, 5) paper51.com Combo3.Visible =False 内容来自论文无忧网 www.paper51.com End Sub 内容来自论文无忧网 www.paper51.com
paper51.com |