mainform.frm

TMS（小型票务管理VB+Access）

Private Sub backinred_Click()
 Mainform.BackColor = &HC0&
 assist.BackColor = &HC0&
 contrast.BackColor = &HC0&
End Sub

Private Sub backinugly_Click()
 Mainform.BackColor = &H80C0FF
 assist.BackColor = &H80C0FF
 contrast.BackColor = &H80C0FF
End Sub





Private Sub defaultcolor_Click()
  Mainform.BackColor = &HE0E0E0
  assist.BackColor = &HE0E0E0
  contrast.BackColor = &HE0E0E0
End Sub

Private Sub imgBuy_ticket_Click()
    Buy_ticket.Show
End Sub
Private Sub imgBuy_ticket_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    lblBuy_ticket.ForeColor = RGB(255, 155, 255)
End Sub

Private Sub ImgContrast_Click()
    If mnucontrast.Checked = True Then
        contrast.Timer4.Enabled = True
        contrast.Timer3.Enabled = False
        mnucontrast.Checked = False
    Else
        contrast.Show
        contrast.Timer3.Enabled = True
        contrast.Timer4.Enabled = False
        mnucontrast.Checked = True
    End If

End Sub

Private Sub ImgContrast_DblClick()
    If mnucontrast.Checked = True Then
        contrast.Timer4.Enabled = True
        contrast.Timer3.Enabled = False
        mnucontrast.Checked = False
    Else
        contrast.Show
        contrast.Timer3.Enabled = True
        contrast.Timer4.Enabled = False
        mnucontrast.Checked = True
    End If

End Sub

Private Sub ImgContrast_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    lblContrast.ForeColor = RGB(255, 155, 255)
End Sub

Private Sub imgEdit_Click()
    Login.Show
End Sub
Private Sub imgEdit_dblClick()
    Login.Show
End Sub
Private Sub imgEdit_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    lblEdit.ForeColor = RGB(255, 155, 255)
End Sub
Private Sub FindImg_Click()
    Show_all_player.Show
End Sub
Private Sub FindImg_DblClick()
    Show_all_player.Show
End Sub
Private Sub FindImg_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
     lblFind.ForeColor = RGB(255, 155, 255)
End Sub

Private Sub ImgExplore_Click()
  DB_explore.Show
End Sub

Private Sub ImgExplore_DblClick()
DB_explore.Show
End Sub

Private Sub ImgHelp_Click()
    If mnuview_assisst.Checked = True Then
        assist.Timer2.Enabled = True
        assist.Timer1.Enabled = False
        mnuview_assisst.Checked = False
    Else
        assist.Timer1.Enabled = True
        assist.Timer2.Enabled = False
        mnuview_assisst.Checked = True
    End If
End Sub

Private Sub ImgHelp_DblClick()
    If mnuview_assisst.Checked = True Then
        assist.Timer2.Enabled = True
        assist.Timer1.Enabled = False
        mnuview_assisst.Checked = False
    Else
        assist.Timer1.Enabled = True
        assist.Timer2.Enabled = False
        mnuview_assisst.Checked = True
    End If
End Sub

Private Sub ImgHelp_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    lblHelp.ForeColor = RGB(255, 155, 255)
End Sub

Private Sub imgShowAll_Click()
  Show_all.Show
End Sub
Private Sub imgShowAll_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    lblShowAll.ForeColor = RGB(255, 155, 255)
End Sub
Private Sub lblBuy_ticket_Click()
    Buy_ticket.Show
End Sub

Private Sub lblBuy_ticket_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    lblBuy_ticket.ForeColor = RGB(255, 155, 255)
End Sub

Private Sub lblContrast_Click()
    If mnucontrast.Checked = True Then
        contrast.Timer4.Enabled = True
        contrast.Timer3.Enabled = False
        mnucontrast.Checked = False
    Else
        contrast.Show
        contrast.Timer3.Enabled = True
        contrast.Timer4.Enabled = False
        mnucontrast.Checked = True
    End If
  
End Sub

Private Sub lblContrast_DblClick()
    If mnucontrast.Checked = True Then
        contrast.Timer4.Enabled = True
        contrast.Timer3.Enabled = False
        mnucontrast.Checked = False
    Else
        contrast.Show
        contrast.Timer3.Enabled = True
        contrast.Timer4.Enabled = False
        mnucontrast.Checked = True
    End If

End Sub

Private Sub lblContrast_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  lblContrast.ForeColor = RGB(255, 155, 255)
End Sub

Private Sub lblEdit_Click()
    Login.Show
End Sub

Private Sub lblExplore_Click()
DB_explore.Show
End Sub

Private Sub lblExplore_DblClick()
DB_explore.Show
End Sub

Private Sub lblFind_Click()
    Show_all_player.Show
End Sub
Private Sub lblFind_DblClick()
    Show_all_player.Show
End Sub
Private Sub lblEdit_DblClick()
    Login.Show
End Sub
Private Sub lblFind_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    lblFind.ForeColor = RGB(255, 155, 255)
End Sub
Private Sub lblEdit_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    lblEdit.ForeColor = RGB(255, 155, 255)
End Sub

Private Sub lblHelp_Click()
    If mnuview_assisst.Checked = True Then
        assist.Timer2.Enabled = True
        assist.Timer1.Enabled = False
        mnuview_assisst.Checked = False
    Else
        assist.Timer1.Enabled = True
        assist.Timer2.Enabled = False
        mnuview_assisst.Checked = True
    End If
End Sub

Private Sub lblHelp_DblClick()
    If mnuview_assisst.Checked = True Then
        assist.Timer2.Enabled = True
        assist.Timer1.Enabled = False
        mnuview_assisst.Checked = False
    Else
        assist.Timer1.Enabled = True
        assist.Timer2.Enabled = False
        mnuview_assisst.Checked = True
    End If
End Sub

Private Sub lblHelp_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    lblHelp.ForeColor = RGB(255, 155, 255)
End Sub

Private Sub lblShowAll_Click()
    Call imgShowAll_Click
End Sub
Private Sub lblShowAll_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    lblShowAll.ForeColor = RGB(255, 155, 255)
End Sub
Private Sub MDIForm_Load()
    Dim PQToolTip As String
    
    PQToolTip = "Buy a ticket online ;-)"
        
    mnuPopUp.Visible = False
    mnucolor.Visible = False

End Sub

Private Sub MDIForm_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 2 Then
    Mainform.PopupMenu mnuPopUp
Else
    DoEvents
End If

End Sub

Private Sub MDIForm_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    lblBuy_ticket.ForeColor = vbWhite
    lblFind.ForeColor = vbWhite
    lblEdit.ForeColor = vbWhite
    lblShowAll.ForeColor = vbWhite
    
End Sub
Private Sub MDIForm_QueryUnload(CANCEL As Integer, UnloadMode As Integer)
    CANCEL = 0
    Unload Me
End Sub
Private Sub MDIForm_Resize()

    Dim frm As Form
    For Each frm In Forms
        If frm.Name = "Find" Or frm.Name = "QueryForm" Then
            CenterForm frm
            CenterForm frm
        End If
    Next
End Sub

Private Sub MenuHelp_Click(Index As Integer)
'MsgBox ("press the F1 key to access help")
      
      CommonDialog1.HelpFile = ".\help\help.hlp"
      CommonDialog1.HelpCommand = cdlHelpContents
      CommonDialog1.showHelp
End Sub

Private Sub mnu_explore_Click()
  DB_explore.Show
End Sub

Private Sub mnuabout_Click()
    frmSplash.Show
    frmSplash.Timer2 = True
End Sub
Private Sub mnuarrange_Click()
    Mainform.Arrange vbArrangeIcons
End Sub

Private Sub mnublue_Click()
 Picture1.BackColor = &H997367
End Sub

Private Sub mnuCascade_Click()
    Mainform.Arrange vbCascade
End Sub

Private Sub mnucontrast_Click()
    If mnucontrast.Checked = True Then
        contrast.Timer4.Enabled = True
        contrast.Timer3.Enabled = False
        mnucontrast.Checked = False
    Else
        contrast.Show
        contrast.Timer3.Enabled = True
        contrast.Timer4.Enabled = False
        mnucontrast.Checked = True
    End If

End Sub

Private Sub mnuExit_Click()
Dim rep
rep = MsgBox("Are you sure?", vbYesNo, "quit tennis manager?")
If rep = vbYes Then
  Unload Me
  Unload Find
  Unload Buy_ticket
  Unload Show_all_player
Else
  Exit Sub
End If
End Sub

Private Sub mnuHorizontally_Click()
    Mainform.Arrange vbTileHorizontal
End Sub

Private Sub mnugreen_Click()
 Picture1.BackColor = &H80000001
End Sub

Private Sub mnuhelpfile_Click()
'   Call InternetOpenURL

End Sub

Private Sub mnuhoriz_Click()
 Mainform.Arrange vbTileHorizontal
End Sub

Private Sub mnuPreviousQueries_Click()
    Buy_ticket.Show
End Sub
Private Sub mnuQuery_Click()
    Login.Show
End Sub
Private Sub mnuRecuiters_Click()
    Show_all_player.Show
End Sub

Private Sub mnured_Click()
 Picture1.BackColor = &HC0&
End Sub

Private Sub mnuRel_Click()
frmrel.Show
End Sub

Private Sub mnuShortcut_Click()
    If mnuShortcut.Checked = True Then
        Picture1.Visible = False
        mnuShortcut.Checked = False
    Else
        Picture1.Visible = True
        mnuShortcut.Checked = True
    End If
End Sub
Private Sub mnuVertically_Click()
    Mainform.Arrange vbTileVertical
End Sub

Private Sub mnuVersion_Click()
 verssion = "1.1.2"
 MsgBox "Version " & verssion & Chr(13) & "of TMS -Tennis Managment Service-", vbInformation, "Version"
End Sub
Private Sub mnuVert_Click()
   Mainform.Arrange vbTileHorizontal
End Sub

Private Sub mnuview_assisst_Click()
    If mnuview_assisst.Checked = True Then
        assist.Timer2.Enabled = True
        assist.Timer1.Enabled = False
        mnuview_assisst.Checked = False
    Else
        assist.Timer1.Enabled = True
        assist.Timer2.Enabled = False
        mnuview_assisst.Checked = True
    End If
End Sub



Private Sub mnuwhat_Click()
Mainform.WhatsThisMode

End Sub

Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 2 Then
    Mainform.PopupMenu mnuPopUp
Else
    DoEvents
End If

End Sub

Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    lblFind.ForeColor = vbWhite
    lblBuy_ticket.ForeColor = vbWhite
    lblEdit.ForeColor = vbWhite
    lblShowAll.ForeColor = vbWhite
    lblHelp.ForeColor = vbWhite
    lblContrast.ForeColor = vbWhite
    lblExplore.ForeColor = vbWhite
End Sub

'Function InternetOpenURL()
'Dim modObjIE 'As InternetExplorer
'Set modObjIE = Nothing
'    Set modObjIE = CreateObject("InternetExplorer.Application")
'    modObjIE.Visible = True
'    modObjIE.AddressBar = False
'    modObjIE.FullScreen = True
'    modObjIE.MenuBar = False
'    modObjIE.Navigate2 "file:\\\C:\tennis\help.html"
'End Function
Private Sub mnuPopUp_About_Click()
    frmSplash.Show
    frmSplash.Timer2 = True
End Sub

Private Sub mnuPopUp_Exit_Click()
Dim rep
rep = MsgBox("Are you sure?", vbYesNo, "exit program ?")
If rep = vbYes Then
  Unload Me
Else
  Exit Sub
End If
End Sub
Private Sub lblExplore_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    lblExplore.ForeColor = RGB(255, 155, 255)
End Sub
Private Sub imgExplore_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    lblExplore.ForeColor = RGB(255, 155, 255)
End Sub