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