find_match.frm

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

VERSION 5.00
Object = "{5E9E78A0-531B-11CF-91F6-C2863C385E30}#1.0#0"; "msflxgrd.ocx"
Begin VB.Form Find_match 
   Caption         =   "Find game by user"
   ClientHeight    =   5310
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   4635
   Icon            =   "Find_match.frx":0000
   LinkTopic       =   "Form1"
   MDIChild        =   -1  'True
   ScaleHeight     =   5310
   ScaleWidth      =   4635
   Begin VB.CommandButton Command3 
      BackColor       =   &H00E0E0E0&
      Caption         =   "Validate"
      Height          =   255
      Left            =   360
      Style           =   1  'Graphical
      TabIndex        =   3
      Top             =   4920
      Width           =   1095
   End
   Begin VB.TextBox Text1 
      Height          =   285
      Left            =   1920
      Locked          =   -1  'True
      TabIndex        =   2
      Top             =   120
      Width           =   2415
   End
   Begin VB.CommandButton Command2 
      BackColor       =   &H00E0E0E0&
      Caption         =   "Descending"
      Height          =   255
      Left            =   360
      Style           =   1  'Graphical
      TabIndex        =   1
      Top             =   1080
      Width           =   1095
   End
   Begin VB.CommandButton Command1 
      BackColor       =   &H00E0E0E0&
      Caption         =   "Ascending"
      Height          =   255
      Left            =   360
      Style           =   1  'Graphical
      TabIndex        =   0
      Top             =   720
      Width           =   1095
   End
   Begin VB.Data Data1 
      Caption         =   "Data1"
      Connect         =   "Access"
      DatabaseName    =   "tennis.mdb"
      DefaultCursorType=   0  'DefaultCursor
      DefaultType     =   2  'UseODBC
      Exclusive       =   0   'False
      Height          =   300
      Left            =   -360
      Options         =   0
      ReadOnly        =   0   'False
      RecordsetType   =   1  'Dynaset
      RecordSource    =   "Participant_nompre"
      Top             =   0
      Visible         =   0   'False
      Width           =   1140
   End
   Begin MSFlexGridLib.MSFlexGrid Dblist1 
      Bindings        =   "Find_match.frx":0442
      Height          =   4485
      Left            =   1920
      TabIndex        =   4
      Top             =   720
      Width           =   2445
      _ExtentX        =   4313
      _ExtentY        =   7911
      _Version        =   393216
      Rows            =   6
      Cols            =   6
      FixedRows       =   0
      FixedCols       =   0
      BackColor       =   14737632
      ForeColor       =   0
      BackColorFixed  =   8421504
      ForeColorFixed  =   12632256
      ForeColorSel    =   14737632
      BackColorBkg    =   12632256
      GridColor       =   0
      GridColorFixed  =   8421504
      AllowBigSelection=   0   'False
      FillStyle       =   1
      GridLines       =   2
      ScrollBars      =   2
      SelectionMode   =   1
      Appearance      =   0
   End
End
Attribute VB_Name = "Find_match"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
 Dblist1.ColSel = 1
 Dblist1.Col = 1
 Dblist1.sort = flexSortStringAscending
End Sub

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

Private Sub Command2_Click()
 Dblist1.ColSel = 1
 Dblist1.Col = 1
 Dblist1.sort = flexSortStringDescending
End Sub

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

Private Sub Command3_Click()
 If Text1.text = (Buy_ticket.Text1) Or Text1.text = (Buy_ticket.Text2) Then
   Buy_ticket.Option1.Value = True
 ElseIf Text1.text = (Buy_ticket.Text3) Or Text1.text = (Buy_ticket.Text4) Then
   Buy_ticket.Option2.Value = True
 ElseIf Text1.text = (Buy_ticket.Text5) Or Text1.text = (Buy_ticket.Text6) Then
   Buy_ticket.Option3.Value = True
 ElseIf Text1.text = (Buy_ticket.Text7) Or Text1.text = (Buy_ticket.Text8) Then
   Buy_ticket.Option4.Value = True
 ElseIf Text1.text = (Buy_ticket.Text9) Or Text1.text = (Buy_ticket.Text10) Then
   Buy_ticket.Option5.Value = True
 ElseIf Text1.text = (Buy_ticket.Text16) Or Text1.text = (Buy_ticket.Text15) Then
   Buy_ticket.Option7.Value = True
 ElseIf Text1.text = (Buy_ticket.Text14) Or Text1.text = (Buy_ticket.Text13) Then
   Buy_ticket.Option6.Value = True
 End If
 Unload Me
End Sub

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

Private Sub DBList1_Click()
 Dblist1.ColSel = 1
 Dblist1.Col = 1
Text1 = Dblist1.text
End Sub

Private Sub Form_Load()
 Dblist1.ColWidth(0) = 0
 Dblist1.ColWidth(1) = 2445
 Find_match.Width = 4755
 Find_match.Height = 5715
End Sub

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