buy.frm

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

         Alignment       =   2  'Center
         BorderStyle     =   1  'Fixed Single
         Caption         =   "vs"
         Height          =   255
         Left            =   2520
         TabIndex        =   35
         Top             =   4200
         Width           =   495
      End
      Begin VB.Label Label6 
         Caption         =   "vs"
         Height          =   255
         Left            =   3120
         TabIndex        =   13
         Top             =   5000
         Width           =   495
      End
      Begin VB.Label Label5 
         Alignment       =   2  'Center
         BorderStyle     =   1  'Fixed Single
         Caption         =   "vs"
         Height          =   255
         Left            =   2520
         TabIndex        =   11
         Top             =   2880
         Width           =   495
      End
      Begin VB.Label Label4 
         Alignment       =   2  'Center
         BorderStyle     =   1  'Fixed Single
         Caption         =   "vs"
         Height          =   255
         Left            =   2520
         TabIndex        =   10
         Top             =   2280
         Width           =   495
      End
      Begin VB.Label Label3 
         Alignment       =   2  'Center
         BorderStyle     =   1  'Fixed Single
         Caption         =   "vs"
         Height          =   255
         Left            =   2520
         TabIndex        =   9
         Top             =   1680
         Width           =   495
      End
      Begin VB.Label Label2 
         Alignment       =   2  'Center
         BorderStyle     =   1  'Fixed Single
         Caption         =   "vs"
         Height          =   255
         Left            =   2520
         TabIndex        =   8
         Top             =   1080
         Width           =   495
      End
      Begin VB.Label Label1 
         Alignment       =   2  'Center
         BorderStyle     =   1  'Fixed Single
         Caption         =   "vs"
         Height          =   255
         Left            =   2520
         TabIndex        =   7
         Top             =   480
         Width           =   495
      End
   End
   Begin VB.CommandButton Cancel 
      BackColor       =   &H00E0E0E0&
      Cancel          =   -1  'True
      Caption         =   "&Cancel"
      Height          =   255
      Left            =   5040
      Style           =   1  'Graphical
      TabIndex        =   1
      Top             =   5400
      Width           =   1095
   End
   Begin VB.CommandButton OK 
      BackColor       =   &H00E0E0E0&
      Caption         =   "&Request"
      Default         =   -1  'True
      Height          =   255
      Left            =   360
      Style           =   1  'Graphical
      TabIndex        =   0
      Top             =   5400
      Width           =   1095
   End
   Begin VB.Line Line3 
      BorderWidth     =   4
      X1              =   3960
      X2              =   4910
      Y1              =   5720.208
      Y2              =   5720.208
   End
   Begin VB.Line Line2 
      BorderWidth     =   4
      X1              =   1570
      X2              =   2640
      Y1              =   5720.208
      Y2              =   5720.208
   End
   Begin VB.Line Line1 
      BorderWidth     =   4
      X1              =   3360
      X2              =   3360
      Y1              =   5968.913
      Y2              =   6093.265
   End
   Begin VB.Shape Shape5 
      BackColor       =   &H00808080&
      BackStyle       =   1  'Opaque
      BorderStyle     =   2  'Dash
      BorderWidth     =   4
      Height          =   450
      Left            =   2160
      Top             =   5910
      Width           =   2295
   End
   Begin VB.Shape Shape4 
      BackColor       =   &H00808080&
      BackStyle       =   1  'Opaque
      BorderStyle     =   2  'Dash
      BorderWidth     =   4
      Height          =   450
      Left            =   2640
      Top             =   5325
      Width           =   1350
   End
   Begin VB.Shape Shape3 
      BackColor       =   &H00808080&
      BackStyle       =   1  'Opaque
      BorderStyle     =   2  'Dash
      BorderWidth     =   4
      Height          =   450
      Left            =   4905
      Top             =   5325
      Width           =   1350
   End
   Begin VB.Shape Shape2 
      BackColor       =   &H00808080&
      BackStyle       =   1  'Opaque
      BorderStyle     =   2  'Dash
      BorderWidth     =   4
      Height          =   450
      Left            =   255
      Top             =   5325
      Width           =   1350
   End
   Begin VB.Shape Shape1 
      BackColor       =   &H00808080&
      BackStyle       =   1  'Opaque
      BorderStyle     =   2  'Dash
      BorderWidth     =   4
      Height          =   4935
      Left            =   255
      Top             =   390
      Width           =   6000
   End
End
Attribute VB_Name = "Buy_ticket"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private Sub CANCEL_Click()
    Unload Me
End Sub
Private Sub CANCEL_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    CANCEL.FontBold = True
    OK.FontBold = False
End Sub

Private Sub Command1_Click()
Find_match.Show

End Sub

Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
 Command1.FontBold = True
End Sub

Private Sub Command2_Click()
  plan.Show
End Sub

Private Sub Command2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
 Command2.FontBold = True
End Sub

Private Sub Form_Activate()
On Error GoTo erhand
If Data1.Recordset.BOF = True Then
 MsgBox "there is no record!", vbOKOnly, "Error"
End If
  With Data1.Recordset
    .MoveFirst
    Text1.text = !Nom_prenom
    .MoveNext
    Text2.text = !Nom_prenom
    .MoveNext
    Text3.text = !Nom_prenom
    .MoveNext
    Text4.text = !Nom_prenom
    .MoveNext
    Text5.text = !Nom_prenom
    .MoveNext
    Text6.text = !Nom_prenom
    .MoveNext
    Text7.text = !Nom_prenom
    .MoveNext
    Text8.text = !Nom_prenom
    .MoveNext
    Text9.text = !Nom_prenom
    .MoveNext
    Text10.text = !Nom_prenom
    .MoveNext
    Text13.text = !Nom_prenom
    .MoveNext
    Text14.text = !Nom_prenom
    .MoveNext
    Text15.text = !Nom_prenom
    .MoveNext
    Text16.text = !Nom_prenom
    .Close
    Exit Sub
  End With
erhand:
  Exit Sub
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    OK.FontBold = False
    CANCEL.FontBold = False
    Command1.FontBold = False
    Command2.FontBold = False
End Sub

Private Sub OK_Click()
  If Option1.Value = True Then
    Text11.text = Text1.text
    Text12.text = Text2.text
  ElseIf Option2.Value = True Then
    Text11.text = Text3.text
    Text12.text = Text4.text
  ElseIf Option3.Value = True Then
    Text11.text = Text5.text
    Text12.text = Text6.text
  ElseIf Option4.Value = True Then
    Text11.text = Text7.text
    Text12.text = Text8.text
  ElseIf Option5.Value = True Then
    Text11.text = Text9.text
    Text12.text = Text10.text
  ElseIf Option6.Value = True Then
    Text11.text = Text13.text
    Text12.text = Text14.text
  ElseIf Option7.Value = True Then
    Text11.text = Text15.text
    Text12.text = Text16.text
    
  ElseIf (Option1.Value = False) And (Option2.Value = False) _
  And (Option3.Value = False) And (Option4.Value = False) _
  And (Option5.Value = False) And (Option6.Value = False) _
  And (Option7.Value = False) Then
    MsgBox "please select a game", 48, "Error!"
    Exit Sub
  End If
send_request.Show
End Sub

Private Sub OK_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    OK.FontBold = True
    CANCEL.FontBold = False
End Sub