PrivateSubCommand2_Click()
'退出
UnloadMe
EndSub
PrivateSubForm_Activate()
'自动获得焦点
Text1.SetFocus
EndSub
PrivateSubForm_Load()
Me.Caption="孟家沟信息中心微机设备管理系统"
'系统图标
Me.Icon=LoadPicture(App.Path&"\ico\key.ico")
'数据库连接
Setcn=NewConnection
Setrs=NewRecordset
'App.Path:--取得相对路径
cn.Open"Provider=Microsoft.Jet.OLEDB.4.0;DataSource="&App.Path&"\comp_manage.mdb;PersistSecurityInfo=False"
rs.CursorLocation=adUseClient
rs.CursorType=adOpenKeyset
'读取人员信息
rs.Open"select*fromrygl",cn,adOpenKeyset,adLockOptimistic
DimoperatorpassAsString
operatorpass=""
operatorname=""
operatormanage=False
i=1
EndSub
PrivateSubForm_Unload(CancelAsInteger)
'退出时关闭数据库连接
rs.Close
Setrs=Nothing
cn.Close
Setcn=Nothing
EndSub
PrivateSubText1_KeyPress(KeyAsciiAsInteger)
'回车键Ascii=13
IfKeyAscii=13Then
Text2.SetFocus
EndIf
EndSub
PrivateSubText2_KeyPress(KeyAsciiAsInteger)
'回车键Ascii=13
IfKeyAscii=13Then
Command1.SetFocus
EndIf
EndSub
5.2系统操作代码
图表12 系统操作界面
系统主操作界面,实现到各个具体功能模块的入口,由菜单栏、工具栏、状态栏组成;菜单设计采用VB菜单设计器实现,工具栏采用Toolbar控件,工具栏采用StatusBar控件,显示问候文字、当前操作员信息、当前日期、时间,其中当前日期、时间采用Timer控件每1000毫秒刷新。实现代码如下:
PrivateSubBMBM_Click()
'部门档案界面
F_BMDA.Show1,Me
EndSub
PrivateSubForm_Load()
'--初始化信息加载
Me.Caption="孟家沟信息中心微机设备管理系统"
Me.Icon=LoadPicture(App.Path&"\ico\BOOKS04.ICO")
StatusBar1.Panels.Item(1).Text="欢迎使用计算机维修管理系统"
StatusBar1.Panels.Item(4).Text="操作员:"&operatorname
StatusBar1.Panels.Item(5).Text=""&Year(Date)&"年"&Month(Date)&"月"&Day(Date)&"日"
StatusBar1.Panels.Item(6).Text=""&Format(Time,"h时mm分ss秒")
EndSub
PrivateSubGZTJ_Click()
'故障统计界面
F_GZYJ.Show1,Me
EndSub
PrivateSubRYDA_Click()
'人员档案界面
F_RYDA.Show1,Me
EndSub
PrivateSubRZGL_Click()
'维修日志界面
F_WXRZ.Show1,Me
EndSub
PrivateSubSBCS_Click()
EndSub
PrivateSubTimer1_Timer()
'状态栏时间显示
StatusBar1.Panels.Item(5).Text=""&Year(Date)&"年"&Month(Date)&"月"&Day(Date)&"日"
StatusBar1.Panels.Item(6).Text=""&Format(Time,"h时mm分ss秒")
EndSub
PrivateSubToolbar1_Butt(ByValButtonAsMSComctlLib.Button)
'工具栏定义
SelectCaseButton.Key
Case"日志管理"
CallRZGL_Click
Case"故障统计"
CallGZTJ_Click
Case"机站配置"
CallYJPZ_Click
Case"系统退出"
CallXTTC_Click
EndSelect
EndSub
PrivateSubXTTC_Click()
'退出
UnloadMe
EndSub
PrivateSubYJPZ_Click()
'硬件配置界面
F_YJPZ.Show1,Me
EndSub
5.3维修日志代码
图表13 维修日志界面
维修日志:左边为列表框,采用TreeView控件,右边为维修日志详细界面,采用Frame控件分成多个操作区域,并用TabStrip实现维修信息和历史记录的分页显示,录入采用多种控件(textbox、combox、optionbutton等),维修日志存储在数据表wxrz,采用ADO实现对数据库的操作,用Recordset的AddNew方法实现插入操作,Update提交数据更新,Delete删除数据,代码如下:
'定义数据库连接变量
DimcnAsConnection
DimrsAsRecordset
DimparenttempAsString
DimchildtempAsString
PrivateSubBMPX_Click()
IfBMPX.Checked=TrueThen
BMPX.Checked=False
Else
BMPX.Checked=True
EndIf
BXRQ.Checked=False
XFRQ.Checked=False
EndSub
PrivateSubBXRQ_Click()
IfBXRQ.Checked=TrueThen
BXRQ.Checked=False
Else
BXRQ.Checked=True
EndIf
BMPX.Checked=False
XFRQ.Checked=False
EndSub
PrivateSubCombo1_Click()
Text3(2).Text=Combo1.Text
Combo1.Visible=False
EndSub
PrivateSubCombo1_LostFocus()
Combo1.Visible=False
EndSub
PrivateSubCombo2_LostFocus()
Combo2.Visible=False
EndSub
PrivateSubCombo3_LostFocus()
Combo3.Visible=False
EndSub
PrivateSubCombo3_click()
Text3(1).Text=Mid(Trim(Combo3.Text),1,5)
Combo3.Visible=False
EndSub
PrivateSubCommand1_Click()
'保存新增记录
Withrs
.AddNew
!bxbm=Text3(0).Text
!sbbh=Text3(1).Text
!wcqk=Text3(2).Text
!bxgz=Text3(3).Text
!bxsrq=Text3(4).Text
!bxsj=Text3(5).Text
!xfsrq=Text3(6).Text
!xfsj=Text3(7).Text
!wxry=Text3(8).Text
!wxgs=Val(Text3(9).Text)
IfOption1.ValueThen
!gzlx=Option1.Caption
Else
IfOption2.ValueThen
!gzlx=Option2.Caption
Else
IfOption3.ValueThen
!gzlx=Option3.Caption
EndIf
EndIf
EndIf
!gzyy=Text1.Text
!cqcs=Text2.Text
.Update
EndWith
'刷新列表
Callfulltree
'清框
Callcleartext
EndSub
PrivateSubCommand2_Click()
'删除
Ifrs.RecordCount>=1Then
Withrs
.Delete
.Update
EndWith
Callfulltree
EndIf
EndSub
PrivateSubCommand3_Click()
'修改
Withrs
!bxbm=Text3(0).Text
!sbbh=Text3(1).Text
!wcqk=Text3(2).Text
!bxgz=Text3(3).Text
!bxsrq=Trim(Text3(4).Text)
!bxsj=Text3(5).Text
!xfsrq=Text3(6).Text
!xfsj=Text3(7).Text
!wxry=Text3(8).Text
!wxgs=Text3(9).Text
IfOption1.ValueThen
!gzlx=Option1.Caption
Else
IfOption2.ValueThen
!gzlx=Option2.Caption
Else
IfOption3.ValueThen
!gzlx=Option3.Caption
EndIf
EndIf
EndIf
!gzyy=Text1.Text
!cqcs=Text2.Text
.Update
EndWith
EndSub
PrivateSubCommand4_Click()
UnloadMe
EndSub
PrivateSubCommand5_Click()
Callcleartext
EndSub
PrivateSubForm_Load()
DimbmbmrsAsRecordset
'完成情况Combo1插入内容
Combo1.AddItem"未完成"
Combo1.AddItem"已完成"
'报修部门Combo2插入内容
Setcn=NewConnection
cn.Open"Provider=Microsoft.Jet.OLEDB.4.0;DataSource="&App.Path&"\comp_manage.mdb;PersistSecurityInfo=False"
Setrs=NewRecordset
rs.CursorLocation=adUseClient
rs.CursorType=adOpenKeyset
rs.Open"select*fromwxrz",cn,adOpenKeyset,adLockOptimistic
rs.MoveFirst
Setbmbmrs=NewRecordset
bmbmrs.CursorLocation=adUseClient
bmbmrs.CursorType=adOpenKeyset
bmbmrs.Open"select*frombmbm",cn,adOpenKeyset,adLockOptimistic
a=bmbmrs.RecordCount
bmbmrs.MoveFirst
DoWhileNotbmbmrs.EOF
Combo2.AddItembmbmrs!bmm&bmbmrs!bmmc
bmbmrs.MoveNext
Loop
bmbmrs.Close
Setbmbmrs=Nothing
'刷新列表
Callfulltree
'Text1(1).Text=Format(Date,"yyyymmdd")
'Text1(2)=Format(Time,"hh:mm")
'date1=DateAdd("d"
上一篇:
VB计算机等级考试管理系统-报名管理(论文和程序)
下一篇:
致享和威驰哪个好点?冲着安全和空间 推荐致享