📄 formain.frm
字号:
VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "mscomctl.ocx"
Begin VB.Form ForMain
BackColor = &H00FF8080&
Caption = "火车订售票系统"
ClientHeight = 6465
ClientLeft = 165
ClientTop = 540
ClientWidth = 9555
FillStyle = 0 'Solid
LinkTopic = "Form1"
ScaleHeight = 6465
ScaleWidth = 9555
StartUpPosition = 2 'CenterScreen
Begin MSComctlLib.Toolbar Toolbar1
Align = 1 'Align Top
Height = 660
Left = 0
TabIndex = 1
Top = 0
Width = 9555
_ExtentX = 16854
_ExtentY = 1164
ButtonWidth = 1032
ButtonHeight = 1005
Appearance = 1
ImageList = "ImageList1"
_Version = 393216
BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628}
NumButtons = 4
BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628}
Key = "B1"
Object.ToolTipText = "切换登陆"
ImageIndex = 2
EndProperty
BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628}
Key = "B2"
ImageIndex = 4
EndProperty
BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628}
Key = "B3"
ImageIndex = 5
EndProperty
BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628}
ImageIndex = 3
EndProperty
EndProperty
End
Begin MSComctlLib.ImageList ImageList1
Left = 8880
Top = 840
_ExtentX = 1005
_ExtentY = 1005
BackColor = 12615935
ImageWidth = 32
ImageHeight = 32
MaskColor = 12615935
_Version = 393216
BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628}
NumListImages = 5
BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "ForMain.frx":0000
Key = ""
EndProperty
BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "ForMain.frx":031A
Key = ""
EndProperty
BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "ForMain.frx":0BF4
Key = ""
EndProperty
BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "ForMain.frx":0F0E
Key = ""
EndProperty
BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "ForMain.frx":17E8
Key = ""
EndProperty
EndProperty
End
Begin MSComctlLib.StatusBar StatusBar1
Align = 2 'Align Bottom
Height = 405
Left = 0
TabIndex = 0
Top = 6060
Width = 9555
_ExtentX = 16854
_ExtentY = 714
_Version = 393216
BeginProperty Panels {8E3867A5-8586-11D1-B16A-00C0F0283628}
NumPanels = 5
BeginProperty Panel1 {8E3867AB-8586-11D1-B16A-00C0F0283628}
Object.Width = 3528
MinWidth = 3528
Picture = "ForMain.frx":1B02
Text = "火车订售票系统"
TextSave = "火车订售票系统"
EndProperty
BeginProperty Panel2 {8E3867AB-8586-11D1-B16A-00C0F0283628}
Style = 6
Object.Width = 2470
MinWidth = 2470
Picture = "ForMain.frx":23DC
TextSave = "2007-8-27"
EndProperty
BeginProperty Panel3 {8E3867AB-8586-11D1-B16A-00C0F0283628}
Style = 5
Object.Width = 2470
MinWidth = 2470
Picture = "ForMain.frx":26F6
TextSave = "8:48"
EndProperty
BeginProperty Panel4 {8E3867AB-8586-11D1-B16A-00C0F0283628}
Object.Width = 2893
MinWidth = 2893
Text = "当前用户 "
TextSave = "当前用户 "
EndProperty
BeginProperty Panel5 {8E3867AB-8586-11D1-B16A-00C0F0283628}
Object.Width = 3246
MinWidth = 3246
EndProperty
EndProperty
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
Begin VB.Image Image1
Height = 6420
Left = 0
Picture = "ForMain.frx":2A10
Top = 600
Width = 9600
End
Begin VB.Menu M1
Caption = "订票系统"
Begin VB.Menu M11
Caption = "订票"
End
End
Begin VB.Menu M2
Caption = "购票系统"
Begin VB.Menu M21
Caption = "购票"
End
End
Begin VB.Menu M3
Caption = "退票系统"
Begin VB.Menu M31
Caption = "退票"
End
End
Begin VB.Menu M4
Caption = "更新系统"
Begin VB.Menu M41
Caption = "列车信息更新"
End
Begin VB.Menu M42
Caption = "车票价格更新"
End
Begin VB.Menu M43
Caption = "退票信息更新"
End
Begin VB.Menu M44
Caption = "已售票信息更新"
End
End
Begin VB.Menu M5
Caption = "统计系统"
Begin VB.Menu M51
Caption = "按车次统计"
End
Begin VB.Menu M52
Caption = "按站点统计"
End
Begin VB.Menu M53
Caption = "按日期统计"
End
End
Begin VB.Menu M8
Caption = "用户设置"
Begin VB.Menu M82
Caption = "设置权限"
End
Begin VB.Menu M81
Caption = "设置密码"
End
End
Begin VB.Menu M6
Caption = "说明信息"
Begin VB.Menu M61
Caption = "说明"
End
End
Begin VB.Menu M7
Caption = "退出系统"
Begin VB.Menu M71
Caption = "退出"
End
End
End
Attribute VB_Name = "ForMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Form_Load()
ForMain.StatusBar1.Panels(4).Text = "当前用户: " & ForLogin.UserName
ForMain.StatusBar1.Panels(5).Text = "用户类型: " & ForLogin.UserType
If ForLogin.BookTicketRight = 0 Then
M11.Enabled = False
End If
If ForLogin.SaleTicketRight = 0 Then
M21.Enabled = False
End If
If ForLogin.BackTicketRight = 0 Then
M31.Enabled = False
End If
If ForLogin.TrainUpdateRight = 0 Then
M41.Enabled = False
End If
If ForLogin.TicketUpdateRight = 0 Then
M42.Enabled = False
End If
If ForLogin.Count1Right = 0 Then
M51.Enabled = False
End If
If ForLogin.Count2Right = 0 Then
M52.Enabled = False
End If
If ForLogin.Count3Right = 0 Then
M53.Enabled = False
End If
If ForLogin.SetRight = 0 Then
M82.Enabled = False
End If
If ForLogin.SetSecretRight = 0 Then
M81.Enabled = False
End If
If ForLogin.BackTicketInfoRight = 0 Then
M43.Enabled = False
End If
If ForLogin.SeledTicketInfoRight = 0 Then
M44.Enabled = False
End If
End Sub
Private Sub M11_Click()
ForUserTicket.Show
End Sub
Private Sub M21_Click()
ForSaleTicket.Show
End Sub
Private Sub M31_Click()
ForBackTicket.Show
End Sub
Private Sub M41_Click()
ForTrainData.Show
End Sub
Private Sub M42_Click()
ForTrianInfo.Show
End Sub
Private Sub M43_Click()
ForBackTicketInfo.Show
End Sub
Private Sub M44_Click()
ForSaledTicketInfo.Show
End Sub
Private Sub M51_Click()
ForCount.Show
End Sub
Private Sub M52_Click()
ForCount1.Show
End Sub
Private Sub M53_Click()
ForCount2.Show
End Sub
Private Sub M61_Click()
ForHelp.Show
End Sub
Private Sub M71_Click()
End
End Sub
Private Sub M81_Click()
ForPassw.Show
End Sub
Private Sub M82_Click()
ForSetUserRight.Show
End Sub
Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
Select Case Button.Key
Case "B1"
Unload Me
Unload ForHelp
Unload ForAddTrainData
Unload ForPassw
Unload ForSetUserRight
Unload ForTrainData
Unload ForTrainPrice
Unload ForTrianInfo
Unload ForUserInfo
ForLogin.Show
Case "B2"
ForSaleTicket.Show
Case "B3"
ForPassw.Show
End Select
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -