📄 frm_main.frm
字号:
VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "mscomctl.ocx"
Begin VB.Form Frm_main
AutoRedraw = -1 'True
BorderStyle = 1 'Fixed Single
Caption = "学生订票管理系统-服务器端"
ClientHeight = 6405
ClientLeft = 150
ClientTop = 435
ClientWidth = 9300
LinkTopic = "Form1"
LockControls = -1 'True
MaxButton = 0 'False
ScaleHeight = 6405
ScaleWidth = 9300
StartUpPosition = 2 '屏幕中心
Begin MSComctlLib.StatusBar StatusBar1
Align = 2 'Align Bottom
Height = 300
Left = 0
TabIndex = 1
Top = 6105
Width = 9300
_ExtentX = 16404
_ExtentY = 529
_Version = 393216
BeginProperty Panels {8E3867A5-8586-11D1-B16A-00C0F0283628}
NumPanels = 4
BeginProperty Panel1 {8E3867AB-8586-11D1-B16A-00C0F0283628}
Style = 6
Object.Width = 2541
MinWidth = 2541
TextSave = "2008-1-19"
EndProperty
BeginProperty Panel2 {8E3867AB-8586-11D1-B16A-00C0F0283628}
Style = 5
Object.Width = 2188
MinWidth = 2188
TextSave = "11:52"
EndProperty
BeginProperty Panel3 {8E3867AB-8586-11D1-B16A-00C0F0283628}
Object.Width = 7762
MinWidth = 7762
Text = "欢迎使用学生订票管理系统"
TextSave = "欢迎使用学生订票管理系统"
EndProperty
BeginProperty Panel4 {8E3867AB-8586-11D1-B16A-00C0F0283628}
Object.Width = 3528
MinWidth = 3528
EndProperty
EndProperty
End
Begin MSComctlLib.Toolbar Toolbar1
Align = 1 'Align Top
Height = 855
Left = 0
TabIndex = 0
Top = 0
Width = 9300
_ExtentX = 16404
_ExtentY = 1508
ButtonWidth = 1773
ButtonHeight = 1349
Appearance = 1
ImageList = "ImageList1"
_Version = 393216
BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628}
NumButtons = 7
BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "列车时刻表"
Key = "lcsk"
ImageIndex = 1
EndProperty
BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "车次查询"
Key = "cccx"
ImageIndex = 2
EndProperty
BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "订票管理"
Key = "dpgl"
ImageIndex = 3
EndProperty
BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "退票管理"
Key = "tpgl"
ImageIndex = 4
EndProperty
BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "剩余车票"
Key = "sycp"
ImageIndex = 5
EndProperty
BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "信息统计"
Key = "tjxx"
ImageIndex = 6
EndProperty
BeginProperty Button7 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "退出系统"
Key = "exit"
ImageIndex = 7
EndProperty
EndProperty
Begin MSComctlLib.ImageList ImageList1
Left = 7935
Top = 150
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483643
ImageWidth = 32
ImageHeight = 32
MaskColor = 12632256
_Version = 393216
BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628}
NumListImages = 7
BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Frm_main.frx":0000
Key = ""
EndProperty
BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Frm_main.frx":0C54
Key = ""
EndProperty
BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Frm_main.frx":18A8
Key = ""
EndProperty
BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Frm_main.frx":24FC
Key = ""
EndProperty
BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Frm_main.frx":3150
Key = ""
EndProperty
BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Frm_main.frx":3DA4
Key = ""
EndProperty
BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Frm_main.frx":49F8
Key = ""
EndProperty
EndProperty
End
End
Begin VB.Image Image1
Height = 5400
Left = -30
Picture = "Frm_main.frx":564C
Top = 795
Width = 9300
End
Begin VB.Menu jbxx
Caption = "基本信息管理"
Begin VB.Menu main
Caption = "操作员管理"
End
Begin VB.Menu stu
Caption = "学生信息管理"
End
Begin VB.Menu csh
Caption = "初始化"
End
Begin VB.Menu g
Caption = "-"
End
Begin VB.Menu end
Caption = "退出系统"
End
End
Begin VB.Menu ccxx
Caption = "车次信息管理"
Begin VB.Menu lcskb
Caption = "列车时刻表"
End
Begin VB.Menu ccxxlr
Caption = "列车信息设置"
End
Begin VB.Menu gg
Caption = "-"
End
Begin VB.Menu cccx
Caption = "车次查询"
End
End
Begin VB.Menu dpxx
Caption = "订票信息管理"
Begin VB.Menu dp
Caption = "订票管理"
End
Begin VB.Menu dpcx
Caption = "订票查询"
End
Begin VB.Menu ggg
Caption = "-"
End
Begin VB.Menu tp
Caption = "退票管理"
End
Begin VB.Menu tpcx
Caption = "退票查询"
End
Begin VB.Menu gggg
Caption = "-"
End
Begin VB.Menu sycp
Caption = "剩余车票查询"
End
Begin VB.Menu tj
Caption = "统计信息"
End
End
Begin VB.Menu end1
Caption = "退出系统"
End
End
Attribute VB_Name = "Frm_main"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub cccx_Click()
Frm_cccx.Show
End Sub
Private Sub ccxxlr_Click()
Frm_lcsz.Show
Load Frm_lcdj
End Sub
Private Sub csh_Click()
Unload Me
Frm_csh.Show
End Sub
Private Sub dp_Click()
Load Frm_dpgl
Frm_dpgl.Show
End Sub
Private Sub dpcx_Click()
Frm_dpcx.Show
End Sub
Private Sub qx_Click()
Frm_qxgl.Show
End Sub
Private Sub end_Click()
End
End Sub
Private Sub lcskb_Click()
Frm_lcskb.Show
End Sub
Private Sub end1_Click()
End
End Sub
Private Sub sjbf_Click()
Shell App.Path & "\数据库备份与恢复.exe", 1
End Sub
Private Sub sjhf_Click()
Shell App.Path & "\数据库备份与恢复.exe", 1
End Sub
Private Sub main_Click()
frm_gly.Show
End Sub
Private Sub stu_Click()
Frm_stu.Show 1
End Sub
Private Sub sycp_Click()
Load Frm_sycp
Frm_sycp.Show 1
End Sub
Private Sub tj_Click()
Frm_xxtj.Show
End Sub
Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
Select Case Button.Key
Case "lcsk"
lcskb_Click
Case "dpgl"
dp_Click
Case "cccx"
cccx_Click
Case "tpgl"
tp_Click
Case "tjxx"
tj_Click
Case "sycp"
sycp_Click
Case "exit"
If MsgBox("确定退出系统？", 4, "学生订票管理系统") = vbYes Then
End
End If
End Select
End Sub
Private Sub tp_Click()
Load Frm_tpgl
Frm_tpgl.Show
End Sub
Private Sub tpcx_Click()
Frm_tpcx.Show
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -