📄 frmmain.frm
字号:
VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.Form FrmMain
Caption = "江苏大学网络信息中心网络管理系统 - v1.0 Beta"
ClientHeight = 7980
ClientLeft = 165
ClientTop = 735
ClientWidth = 11025
Icon = "FrmMain.frx":0000
LinkTopic = "Form1"
ScaleHeight = 7980
ScaleWidth = 11025
StartUpPosition = 3 '窗口缺省
WindowState = 2 'Maximized
Begin VB.PictureBox Picture1
BackColor = &H80000009&
Height = 6810
Left = 0
ScaleHeight = 6750
ScaleWidth = 10965
TabIndex = 1
Top = 840
Width = 11025
Begin VB.PictureBox Picture2
BackColor = &H8000000E&
BorderStyle = 0 'None
Height = 1695
Left = 1560
Picture = "FrmMain.frx":08CA
ScaleHeight = 1695
ScaleWidth = 8295
TabIndex = 2
Top = 2520
Width = 8295
End
Begin MSComctlLib.ImageList ImageList1
Left = 240
Top = 240
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483643
ImageWidth = 32
ImageHeight = 32
MaskColor = 12632256
_Version = 393216
BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628}
NumListImages = 5
BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "FrmMain.frx":4C5D
Key = ""
EndProperty
BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "FrmMain.frx":5537
Key = ""
EndProperty
BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "FrmMain.frx":5E11
Key = ""
EndProperty
BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "FrmMain.frx":66EB
Key = ""
EndProperty
BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "FrmMain.frx":6FC5
Key = ""
EndProperty
EndProperty
End
End
Begin MSComctlLib.Toolbar Toolbar1
Align = 1 'Align Top
Height = 810
Left = 0
TabIndex = 0
Top = 0
Width = 11025
_ExtentX = 19447
_ExtentY = 1429
ButtonWidth = 1455
ButtonHeight = 1376
Appearance = 1
Style = 1
ImageList = "ImageList1"
_Version = 393216
BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628}
NumButtons = 6
BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "设备查看"
Key = "设备查看"
ImageIndex = 1
EndProperty
BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "设备登记"
Key = "设备登记"
ImageIndex = 2
EndProperty
BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "设备操作"
Key = "设备操作"
ImageIndex = 3
EndProperty
BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "上线登记"
Key = "上线登记"
ImageIndex = 4
EndProperty
BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 3
EndProperty
BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "退出系统"
Key = "退出系统"
ImageIndex = 5
EndProperty
EndProperty
End
Begin MSComctlLib.StatusBar StatusBar1
Align = 2 'Align Bottom
Height = 285
Left = 0
TabIndex = 3
Top = 7695
Width = 11025
_ExtentX = 19447
_ExtentY = 503
_Version = 393216
BeginProperty Panels {8E3867A5-8586-11D1-B16A-00C0F0283628}
NumPanels = 4
BeginProperty Panel1 {8E3867AB-8586-11D1-B16A-00C0F0283628}
Style = 6
TextSave = "2007-09-25"
EndProperty
BeginProperty Panel2 {8E3867AB-8586-11D1-B16A-00C0F0283628}
Style = 5
TextSave = "17:14"
EndProperty
BeginProperty Panel3 {8E3867AB-8586-11D1-B16A-00C0F0283628}
Object.Width = 11360
MinWidth = 11360
Text = "江苏大学网络信息中心设计开发"
TextSave = "江苏大学网络信息中心设计开发"
EndProperty
BeginProperty Panel4 {8E3867AB-8586-11D1-B16A-00C0F0283628}
Object.Width = 7832
MinWidth = 7832
EndProperty
EndProperty
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
Begin VB.Menu mnuSystem
Caption = "系统管理(&S)"
Begin VB.Menu menuUser
Caption = "用户管理"
End
Begin VB.Menu sep1
Caption = "-"
End
Begin VB.Menu mnuPassword
Caption = "密码设置"
End
Begin VB.Menu sep2
Caption = "-"
End
Begin VB.Menu mnuConfig
Caption = "系统参数配置"
End
Begin VB.Menu sep11
Caption = "-"
End
Begin VB.Menu mnuExit
Caption = "退出"
End
End
Begin VB.Menu mnuInfo
Caption = "基本资料(&I)"
Begin VB.Menu mnuDeviceType
Caption = "设备类型"
End
Begin VB.Menu sep3
Caption = "-"
End
Begin VB.Menu mnuManufactor
Caption = "厂商"
End
Begin VB.Menu sep4
Caption = "-"
End
Begin VB.Menu mnuModel
Caption = "型号"
End
Begin VB.Menu sep5
Caption = "-"
End
Begin VB.Menu mnuLocation
Caption = "地点"
End
End
Begin VB.Menu mnuDevice
Caption = "设备管理(&D)"
Begin VB.Menu mnuDeviceList
Caption = "设备查看"
End
Begin VB.Menu sep8
Caption = "-"
End
Begin VB.Menu mnuDeviceIn
Caption = "设备登记"
End
Begin VB.Menu sep9
Caption = "-"
End
Begin VB.Menu mnuDeviceOperation
Caption = "设备操作"
End
Begin VB.Menu sep10
Caption = "-"
End
Begin VB.Menu mnuDeviceUse
Caption = "上线登记"
End
End
Begin VB.Menu mnuAccount
Caption = "设备统计(&A)"
Begin VB.Menu mnuDeviceAccount
Caption = "设备清单"
End
End
End
Attribute VB_Name = "FrmMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'****************************************************************************
'人人为我，我为人人
'枕善居收藏整理
'发布日期：2007/09/25
'描 述：江苏大学网络信息中心网络管理系统 - v1.0 Beta
'网 站：http://www.Mndsoft.com/ (VB6源码博客)
'网 站：http://www.VbDnet.com/ (VB.NET源码博客,主要基于.NET2005)
'e-mail ：Mndsoft@163.com
'e-mail ：Mndsoft@126.com
'OICQ ：88382850
' 如果您有新的好的代码别忘记给枕善居哦!
'****************************************************************************
Dim txtSQL As String
Dim MsgText As String
Dim HasError As Boolean
Private Sub Form_Load()
txtSQL = "select * from tbl_user where user_id = '" & cur_user_id & "'"
Set mrc = ExecuteSQL(txtSQL, MsgText, HasError)
If Not mrc.EOF Then
'装入权限
FrmMain.menuUser.Enabled = cur_priv_yhgl
FrmMain.mnuDeviceType.Enabled = cur_priv_jbzlgl
FrmMain.mnuManufactor.Enabled = cur_priv_jbzlgl
FrmMain.mnuModel.Enabled = cur_priv_jbzlgl
FrmMain.mnuLocation.Enabled = cur_priv_jbzlgl
FrmMain.mnuDeviceList.Enabled = cur_priv_sbck
FrmMain.mnuDeviceIn.Enabled = cur_priv_sbdj
FrmMain.mnuDeviceOperation.Enabled = cur_priv_sbcz
FrmMain.mnuDeviceUse.Enabled = cur_priv_sbsx
FrmMain.mnuDeviceAccount.Enabled = cur_priv_sbtj
FrmMain.Toolbar1.Buttons(1).Enabled = cur_priv_sbck
FrmMain.Toolbar1.Buttons(2).Enabled = cur_priv_sbdj
FrmMain.Toolbar1.Buttons(3).Enabled = cur_priv_sbcz
FrmMain.Toolbar1.Buttons(4).Enabled = cur_priv_sbsx
End If
StatusBar1.Panels.Item(4).Text = "当前用户: " & cur_truename
End Sub
Private Sub Form_Resize()
On Error Resume Next
Picture1.Width = ScaleWidth - Picture1.Left
Picture1.Height = ScaleHeight - Picture1.Top - StatusBar1.Height
Picture2.Left = ScaleWidth / 2 - Picture2.Width / 2
End Sub
Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
On Error Resume Next
Select Case Button.key
Case "设备查看"
FrmDevice.Show
Case "设备登记"
FrmDeviceRegisterList.Show
Case "设备操作"
FrmDeviceOperationList.Show
Case "上线登记"
FrmDeviceSetupList.Show
Case "退出系统"
Unload Me
End Select
End Sub
Private Sub mnuDeviceList_Click()
FrmDevice.Show
End Sub
Private Sub mnuDeviceType_Click()
FrmDeviceType.Show
End Sub
Private Sub mnuManufactor_Click()
FrmManufacturer.Show
End Sub
Private Sub mnuModel_Click()
FrmModel.Show
End Sub
Private Sub mnuLocation_Click()
FrmLocation.Show
End Sub
Private Sub mnuExit_Click()
Unload Me
End Sub
Private Sub mnuDeviceIn_Click()
FrmDeviceRegisterList.Show
End Sub
Private Sub mnuDeviceOperation_Click()
FrmDeviceOperationList.Show
End Sub
Private Sub mnuDeviceUse_Click()
FrmDeviceSetupList.Show
End Sub
Private Sub mnuDeviceAccount_Click()
FrmDeviceAccount.Show
End Sub
Private Sub menuUser_Click()
FrmUser.Show
End Sub
Private Sub mnuPassword_Click()
FrmPasswordChange.Show
End Sub
Private Sub mnuConfig_Click()
FrmConfig.txtdbaddr = config_dbaddr
FrmConfig.txtdbusername = config_dbusername
FrmConfig.txtdbpassword = config_dbpassword
FrmConfig.txtdbname = config_dbname
FrmConfig.Show vbModal
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -