?? 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 + -