📄 frmmain.frm
字号:
frmlen.Show '调用设备借还管理界面
Case 3
frmmend.Show '调用设备维修管理界面
Case 4
frmbro.Show '调用设备报废管理界面
Case 5
frmpey.Show '调用设备赔偿管理界面
Case 6
Frmin.Show '调用入库查询与统计界面
Case 7
Frmmend1.Show '调用维修查询与统计界面
Case 8
Frmlend.Show '调用借还查询与统计界面
Case 9
Frmbroke.Show '调用报废查询与统计界面
Case 10
Frmpey1.Show '调用赔偿查询与统计界面
Case 11
frmEt.Show '调用设备类型管理界面
Case 12
frmEq.Show '调用设备基本信息管理界面
Case 13
frmlabAD.Show '调用实验室管理员管理界面
Case 14
frmLab.Show '调用实验室信息管理管理界面
Case 15
frmort.Show '调用供应商管理界面
Case 16
frmUser.Show '调用使用者管理界面
Case 17
frmadmin.Show '调用用户管理界面
Case 18
frmser.Show '调用修改密码界面
Case 19
frmlim.Show '调用权限管理界面
Case 20
frmbf.Show '调用数据库备份与恢复管理界面
Case 21
frmloginfo.Show '调用事务日志
Case 22
'调用帮助文件
ShellExecute Me.hwnd, vbNullString, "帮助文件.CHM", vbNullString, "", SW_SHOWNORMAL
Case 23
frmabout.Show '调用关于界面
End Select
End Sub
'鼠标移动到lab上面，相应的lab(index)的颜色发生变化
Private Sub Lab_MouseMove(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
Select Case Index
Case 0
Lab(0).BackColor = &HFF8080
For i = 1 To Lab.UBound
Lab(i).BackColor = &HFFFFFF
Next i
Case 1
Lab(0).BackColor = &HFFFFFF
Lab(1).BackColor = &HFF8080
For i = 2 To Lab.UBound
Lab(i).BackColor = &HFFFFFF
Next i
Case 2
For i = 0 To 1
Lab(i).BackColor = &HFFFFFF
Next i
Lab(2).BackColor = &HFF8080
For i = 3 To Lab.UBound
Lab(i).BackColor = &HFFFFFF
Next i
Case 3
For i = 0 To 2
Lab(i).BackColor = &HFFFFFF
Next i
Lab(3).BackColor = &HFF8080
For i = 4 To Lab.UBound
Lab(i).BackColor = &HFFFFFF
Next i
Case 4
For i = 0 To 3
Lab(i).BackColor = &HFFFFFF
Next i
Lab(4).BackColor = &HFF8080
For i = 5 To Lab.UBound
Lab(i).BackColor = &HFFFFFF
Next i
Case 5
For i = 0 To 4
Lab(i).BackColor = &HFFFFFF
Next i
Lab(5).BackColor = &HFF8080
For i = 6 To Lab.UBound
Lab(i).BackColor = &HFFFFFF
Next i
Case 6
For i = 0 To 5
Lab(i).BackColor = &HFFFFFF
Next i
Lab(6).BackColor = &HFF8080
For i = 7 To Lab.UBound
Lab(i).BackColor = &HFFFFFF
Next i
Case 7
For i = 0 To 6
Lab(i).BackColor = &HFFFFFF
Next i
Lab(7).BackColor = &HFF8080
For i = 8 To Lab.UBound
Lab(i).BackColor = &HFFFFFF
Next i
Case 8
For i = 0 To 7
Lab(i).BackColor = &HFFFFFF
Next i
Lab(8).BackColor = &HFF8080
For i = 9 To Lab.UBound
Lab(i).BackColor = &HFFFFFF
Next i
Case 9
For i = 0 To 8
Lab(i).BackColor = &HFFFFFF
Next i
Lab(9).BackColor = &HFF8080
For i = 10 To Lab.UBound
Lab(i).BackColor = &HFFFFFF
Next i
Case 10
For i = 0 To 9
Lab(i).BackColor = &HFFFFFF
Next i
Lab(10).BackColor = &HFF8080
For i = 11 To Lab.UBound
Lab(i).BackColor = &HFFFFFF
Next i
Case 11
For i = 0 To 10
Lab(i).BackColor = &HFFFFFF
Next i
Lab(11).BackColor = &HFF8080
For i = 12 To Lab.UBound
Lab(i).BackColor = &HFFFFFF
Next i
Case 12
For i = 0 To 11
Lab(i).BackColor = &HFFFFFF
Next i
Lab(12).BackColor = &HFF8080
For i = 13 To Lab.UBound
Lab(i).BackColor = &HFFFFFF
Next i
Case 13
For i = 0 To 12
Lab(i).BackColor = &HFFFFFF
Next i
Lab(13).BackColor = &HFF8080
For i = 14 To Lab.UBound
Lab(i).BackColor = &HFFFFFF
Next i
Case 14
For i = 0 To 13
Lab(i).BackColor = &HFFFFFF
Next i
Lab(14).BackColor = &HFF8080
For i = 15 To Lab.UBound
Lab(i).BackColor = &HFFFFFF
Next i
Case 15
For i = 0 To 14
Lab(i).BackColor = &HFFFFFF
Next i
Lab(15).BackColor = &HFF8080
For i = 16 To Lab.UBound
Lab(i).BackColor = &HFFFFFF
Next i
Case 16
For i = 0 To 15
Lab(i).BackColor = &HFFFFFF
Next i
Lab(16).BackColor = &HFF8080
For i = 17 To Lab.UBound
Lab(i).BackColor = &HFFFFFF
Next i
Case 17
For i = 0 To 16
Lab(i).BackColor = &HFFFFFF
Next i
Lab(17).BackColor = &HFF8080
For i = 18 To Lab.UBound
Lab(i).BackColor = &HFFFFFF
Next i
Case 18
For i = 0 To 17
Lab(i).BackColor = &HFFFFFF
Next i
Lab(18).BackColor = &HFF8080
For i = 19 To Lab.UBound
Lab(i).BackColor = &HFFFFFF
Next i
Case 19
For i = 0 To 18
Lab(i).BackColor = &HFFFFFF
Next i
Lab(19).BackColor = &HFF8080
For i = 20 To Lab.UBound
Lab(i).BackColor = &HFFFFFF
Next i
Case 20
For i = 0 To 19
Lab(i).BackColor = &HFFFFFF
Next i
Lab(20).BackColor = &HFF8080
For i = 21 To Lab.UBound
Lab(i).BackColor = &HFFFFFF
Next i
Case 21
For i = 0 To 20
Lab(i).BackColor = &HFFFFFF
Next i
Lab(21).BackColor = &HFF8080
For i = 22 To Lab.UBound
Lab(i).BackColor = &HFFFFFF
Next i
Case 22
For i = 0 To 21
Lab(i).BackColor = &HFFFFFF
Next i
Lab(22).BackColor = &HFF8080
For i = 23 To Lab.UBound
Lab(i).BackColor = &HFFFFFF
Next i
Case 23
For i = 0 To 22
Lab(i).BackColor = &HFFFFFF
Next i
Lab(23).BackColor = &HFF8080
End Select
End Sub
Private Sub lblHeader_Click(Index As Integer)
MenuHeader_Click (Index)
End Sub
'点击menu1控件数组，调用相应界面
Private Sub menu1_Click(Index As Integer)
Select Case Index
Case 1
frmbuy.Show '调用设备购置管理界面
Case 2
frmuse.Show '调用设备使用管理管理界面
Case 3
frmlen.Show '调用设备借还管理界面
Case 4
frmmend.Show '调用设备维修管理界面
Case 5
frmbro.Show '调用设备报废管理界面
Case 6
frmpey.Show '调用设备赔偿管理界面
End Select
End Sub
'点击menu4控件数组，调用相应界面
Private Sub menu4_Click(Index As Integer)
Select Case Index
Case 1
frmadmin.Show '调用用户管理界面
Case 2
frmser.Show '调用密码修改管理界面
Case 3
frmlim.Show '调用权限管理界面
Case 4
For Each Form In Forms
If frmmain.Caption = "实验室设备管理系统" Then
frmmain.Show
Else
Unload Form
End If
Next Form
frmbf.Show '调用数据备份与恢复管理界面
Case 5
frmloginfo.Show
End Select
End Sub
'点击menu5控件数组，调用相应界面
Private Sub menu5_Click(Index As Integer)
Select Case Index
Case 1
'调用帮助文件
ShellExecute Me.hwnd, vbNullString, "帮助文件.CHM", vbNullString, "", SW_SHOWNORMAL
Case 2
frmabout.Show
End Select
End Sub
'点击工具栏上的按钮，响应相应事件
Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
Select Case Button.Index
Case 1
frmmain.Hide
frmlog.Show
'重新登录时，须将前一次登录时的用户名和密码清空
frmlog.txtuser.Text = ""
frmlog.txtid.Text = ""
Case 2
frmser.Show '调用密码修改界面
Case 3
frmstuinfo.Show '调用综合查询界面
Case 4
Case 5
frmabout.Show '调用关于界面
Case 6
'调用帮助文件
ShellExecute Me.hwnd, vbNullString, "帮助文件.CHM", vbNullString, "", SW_SHOWNORMAL
End Select
End Sub
Private Sub TX_Click()
X = Shell("C:\Program Files\Outlook Express\wab.exe", 1)
End Sub
'判断是否确定退出
Private Sub 退出_Click()
Dim rs As New ADODB.Recordset
If MsgBox("确实要退出实验室设备管理系统吗？", vbYesNo + vbQuestion + vbDefaultButton1, "确认窗口") = vbYes Then
rs.Open "select * from SysAd_Info where Admin_Name='" & Trim(frmlog.txtuser.Text) & "'", DBCnn, adOpenStatic, adLockOptimistic
rs.Fields("Times") = 0
rs.Update
rs.Close
End
End If
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -