buy.frm

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

VERSION 5.00
Object = "{FAEEE763-117E-101B-8933-08002B2F4F5A}#1.1#0"; "DBLIST32.OCX"
Begin VB.Form Buy_ticket 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "Buy ticket"
   ClientHeight    =   6540
   ClientLeft      =   4575
   ClientTop       =   3525
   ClientWidth     =   6540
   Icon            =   "buy.frx":0000
   LinkTopic       =   "Form2"
   MaxButton       =   0   'False
   MDIChild        =   -1  'True
   ScaleHeight     =   6777.203
   ScaleMode       =   0  'User
   ScaleWidth      =   6540
   Begin VB.CommandButton Command2 
      BackColor       =   &H00E0E0E0&
      Caption         =   "&Dates"
      Height          =   255
      Left            =   2280
      Style           =   1  'Graphical
      TabIndex        =   38
      Top             =   6000
      Width           =   2055
   End
   Begin VB.CommandButton Command1 
      BackColor       =   &H00E0E0E0&
      Caption         =   "&Find"
      Height          =   255
      Left            =   2760
      Style           =   1  'Graphical
      TabIndex        =   37
      Top             =   5400
      Width           =   1095
   End
   Begin VB.TextBox Text12 
      Height          =   285
      Left            =   1680
      TabIndex        =   28
      Text            =   "Text12"
      Top             =   0
      Visible         =   0   'False
      Width           =   615
   End
   Begin VB.TextBox Text11 
      Height          =   285
      Left            =   1080
      TabIndex        =   27
      Text            =   "Text11"
      Top             =   0
      Visible         =   0   'False
      Width           =   615
   End
   Begin VB.Data Data1 
      Caption         =   "Data1"
      Connect         =   "Access"
      DatabaseName    =   "tennis.mdb"
      DefaultCursorType=   0  'DefaultCursor
      DefaultType     =   2  'UseODBC
      Exclusive       =   0   'False
      Height          =   300
      Left            =   0
      Options         =   0
      ReadOnly        =   0   'False
      RecordsetType   =   1  'Dynaset
      RecordSource    =   "Participant_nompre"
      Top             =   0
      Visible         =   0   'False
      Width           =   1140
   End
   Begin VB.Frame Frame1 
      Caption         =   "Games :"
      Height          =   4695
      Left            =   360
      TabIndex        =   2
      Top             =   480
      Width           =   5775
      Begin VB.OptionButton Option7 
         Height          =   255
         Left            =   120
         TabIndex        =   34
         Top             =   3480
         Width           =   255
      End
      Begin VB.OptionButton Option6 
         Height          =   255
         Left            =   120
         TabIndex        =   33
         Top             =   4200
         Width           =   255
      End
      Begin VB.TextBox Text16 
         Height          =   285
         Left            =   360
         Locked          =   -1  'True
         TabIndex        =   32
         Top             =   3480
         Width           =   2175
      End
      Begin VB.TextBox Text15 
         Height          =   285
         Left            =   3000
         Locked          =   -1  'True
         TabIndex        =   31
         Top             =   3480
         Width           =   2175
      End
      Begin VB.TextBox Text14 
         Height          =   285
         Left            =   360
         Locked          =   -1  'True
         TabIndex        =   30
         Top             =   4200
         Width           =   2175
      End
      Begin VB.TextBox Text13 
         Height          =   285
         Left            =   3000
         Locked          =   -1  'True
         TabIndex        =   29
         Top             =   4200
         Width           =   2175
      End
      Begin VB.TextBox Text2 
         Height          =   285
         Left            =   3000
         Locked          =   -1  'True
         TabIndex        =   26
         Top             =   480
         Width           =   2175
      End
      Begin VB.TextBox Text10 
         Height          =   285
         Left            =   3000
         Locked          =   -1  'True
         TabIndex        =   25
         Top             =   2880
         Width           =   2175
      End
      Begin VB.OptionButton Option3 
         Height          =   255
         Left            =   120
         TabIndex        =   24
         Top             =   1680
         Width           =   255
      End
      Begin VB.TextBox Text9 
         Height          =   285
         Left            =   360
         Locked          =   -1  'True
         TabIndex        =   23
         Top             =   2880
         Width           =   2175
      End
      Begin VB.TextBox Text8 
         Height          =   285
         Left            =   3000
         Locked          =   -1  'True
         TabIndex        =   22
         Top             =   2280
         Width           =   2175
      End
      Begin VB.TextBox Text7 
         Height          =   285
         Left            =   360
         Locked          =   -1  'True
         TabIndex        =   21
         Top             =   2280
         Width           =   2175
      End
      Begin VB.TextBox Text6 
         Height          =   285
         Left            =   3000
         Locked          =   -1  'True
         TabIndex        =   20
         Top             =   1680
         Width           =   2175
      End
      Begin VB.TextBox Text5 
         Height          =   285
         Left            =   360
         Locked          =   -1  'True
         TabIndex        =   19
         Top             =   1680
         Width           =   2175
      End
      Begin VB.TextBox Text4 
         Height          =   285
         Left            =   3000
         Locked          =   -1  'True
         TabIndex        =   18
         Top             =   1080
         Width           =   2175
      End
      Begin VB.TextBox Text3 
         Height          =   285
         Left            =   360
         Locked          =   -1  'True
         TabIndex        =   17
         Top             =   1080
         Width           =   2175
      End
      Begin VB.TextBox Text1 
         Height          =   285
         Left            =   360
         Locked          =   -1  'True
         TabIndex        =   16
         Top             =   480
         Width           =   2175
      End
      Begin VB.VScrollBar VScroll1 
         Enabled         =   0   'False
         Height          =   4585
         Left            =   5520
         Max             =   1
         TabIndex        =   15
         Top             =   100
         Width           =   255
      End
      Begin VB.OptionButton Option5 
         Height          =   255
         Left            =   120
         TabIndex        =   6
         Top             =   2880
         Width           =   255
      End
      Begin VB.OptionButton Option4 
         Height          =   255
         Left            =   120
         TabIndex        =   5
         Top             =   2280
         Width           =   255
      End
      Begin VB.OptionButton Option2 
         Height          =   255
         Left            =   120
         TabIndex        =   4
         Top             =   1080
         Width           =   255
      End
      Begin VB.OptionButton Option1 
         Height          =   255
         Left            =   120
         TabIndex        =   3
         Top             =   480
         Width           =   255
      End
      Begin MSDBCtls.DBList DBList11 
         Height          =   255
         Left            =   840
         TabIndex        =   12
         Top             =   5000
         Width           =   2175
         _ExtentX        =   3836
         _ExtentY        =   450
         _Version        =   393216
      End
      Begin MSDBCtls.DBList DBList12 
         Height          =   255
         Left            =   3480
         TabIndex        =   14
         Top             =   5000
         Width           =   2295
         _ExtentX        =   4048
         _ExtentY        =   450
         _Version        =   393216
      End
      Begin VB.Label Label8 
         Alignment       =   2  'Center
         BorderStyle     =   1  'Fixed Single
         Caption         =   "vs"
         Height          =   255
         Left            =   2520
         TabIndex        =   36
         Top             =   3480
         Width           =   495
      End
      Begin VB.Label Label7