📄 houabout_frm.frm
字号:
VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.Form houabout_frm
Caption = "后台管理系统"
ClientHeight = 6585
ClientLeft = 3585
ClientTop = 2745
ClientWidth = 9015
LinkTopic = "Form1"
MaxButton = 0 'False
Picture = "houabout_frm.frx":0000
ScaleHeight = 6585
ScaleWidth = 9015
Begin MSComctlLib.ImageList ImageList1
Left = 3720
Top = 0
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483643
ImageWidth = 32
ImageHeight = 32
MaskColor = 12632256
_Version = 393216
BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628}
NumListImages = 6
BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "houabout_frm.frx":ADB1
Key = ""
EndProperty
BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "houabout_frm.frx":B0CB
Key = ""
EndProperty
BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "houabout_frm.frx":BD39
Key = ""
EndProperty
BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "houabout_frm.frx":CB9B
Key = ""
EndProperty
BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "houabout_frm.frx":CEB5
Key = ""
EndProperty
BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "houabout_frm.frx":D1CF
Key = ""
EndProperty
EndProperty
End
Begin MSComctlLib.Toolbar Toolbar1
Align = 1 'Align Top
Height = 660
Left = 0
TabIndex = 0
Top = 0
Width = 9015
_ExtentX = 15901
_ExtentY = 1164
ButtonWidth = 1032
ButtonHeight = 1005
Appearance = 1
ImageList = "ImageList1"
DisabledImageList= "ImageList1"
HotImageList = "ImageList1"
_Version = 393216
BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628}
NumButtons = 6
BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628}
Key = "qing1"
Object.ToolTipText = "司机基本信息管理"
ImageIndex = 1
EndProperty
BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628}
Key = "qing2"
Object.ToolTipText = "管理员用户注册"
ImageIndex = 2
EndProperty
BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628}
Key = "qing3"
Object.ToolTipText = "公交车信息管理"
ImageIndex = 3
EndProperty
BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628}
Key = "qing4"
Object.ToolTipText = "修改当前密码"
ImageIndex = 4
EndProperty
BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628}
Key = "qing5"
Object.ToolTipText = "查看软件文档"
ImageIndex = 5
EndProperty
BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628}
Key = "qing6"
Object.ToolTipText = "查询对南昌交通状况发表意见"
ImageIndex = 6
EndProperty
EndProperty
Begin VB.Label Label1
Appearance = 0 'Flat
BackColor = &H80000005&
Caption = "南昌市后台管理系统"
ForeColor = &H000080FF&
Height = 375
Left = 3600
MousePointer = 2 'Cross
OLEDropMode = 1 'Manual
TabIndex = 1
Top = 120
Width = 4935
WordWrap = -1 'True
End
End
Begin VB.Menu xidong
Caption = "系统"
Begin VB.Menu mangezhu
Caption = "管理员注册"
End
Begin VB.Menu modify
Caption = "修改密码"
End
End
Begin VB.Menu gongmessage
Caption = "公交车信息管理"
Begin VB.Menu gongmessage1
Caption = "公交车信息管理"
End
End
Begin VB.Menu sijimessage
Caption = "司机信息管理"
Begin VB.Menu sijimessage1
Caption = "司机信息管理"
End
End
Begin VB.Menu a
Caption = "查看市民发表的意见"
Begin VB.Menu selectdriveropinion
Caption = "查看关于司机的意见"
Shortcut = ^F
End
Begin VB.Menu selectpeople
Caption = "查看关于市民的一些道德观"
Shortcut = ^G
End
Begin VB.Menu selectnanopioion
Caption = "查看关于对南昌交通的意见"
Shortcut = ^B
End
End
Begin VB.Menu menu_help
Caption = "帮助"
Begin VB.Menu about
Caption = "软件文档"
Shortcut = ^H
End
End
Begin VB.Menu xiao
Caption = "注消"
Begin VB.Menu fan
Caption = "返回登录界面"
Shortcut = ^D
End
End
Begin VB.Menu tuichu
Caption = "退出"
End
End
Attribute VB_Name = "houabout_frm"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private Sub about_Click()
help_frm.Show
End Sub
Private Sub fan_Click()
'重新显示登录界面
Unload Me
den_frm.Show
den_frm.Text1.Text = ""
den_frm.Text2.Text = ""
den_frm.Show
End Sub
Private Sub gongmessage1_Click()
'显示公交车基本管理信息
gongmessage_frm.Show
End Sub
Private Sub mangezhu_Click()
'显示管理员用户 注册
zhuzei_frm.Show
End Sub
Private Sub modify_Click()
'显示修改当前所用户的密码界面
modifypass_frm.Show
End Sub
Private Sub selectdriveropinion_Click()
'显示市民对司机发表意见界面
shitodriver_frm.Show
End Sub
Private Sub selectnanopioion_Click()
'显示市民对南昌市交通问题发表意见的界面
selectjiaoopioion_frm.Show
End Sub
Private Sub selectpeople_Click()
'显示市民对道德发表意见
selectnanopinion_frm.Show
End Sub
Private Sub sijimessage1_Click()
'显示司机基本信息管理
sijimessage_frm.Show
End Sub
Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
'使用图标来显示一些窗体
If Button.Key = "qing1" Then sijimessage_frm.Show
If Button.Key = "qing2" Then zhuzei_frm.Show
If Button.Key = "qing3" Then gongmessage_frm.Show
If Button.Key = "qing4" Then modifypass_frm.Show
If Button.Key = "qing5" Then help_frm.Show
If Button.Key = "qing6" Then selectjiaoopioion_frm.Show
End Sub
Private Sub tuichu_Click()
Dim ok As Integer
ok = MsgBox("你真的要退出系统吗？", vbOKCancel + vbExclamation, "警告")
If ok = 1 Then End
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -