📄 show_all_player.frm
字号:
VERSION 5.00
Object = "{5E9E78A0-531B-11CF-91F6-C2863C385E30}#1.0#0"; "msflxgrd.ocx"
Begin VB.Form Show_all_player
BackColor = &H00C0C0C0&
BorderStyle = 1 'Fixed Single
Caption = "All Players"
ClientHeight = 5985
ClientLeft = 45
ClientTop = 330
ClientWidth = 7785
FillColor = &H00808080&
ForeColor = &H00C0C0C0&
Icon = "Show_all_player.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
MDIChild = -1 'True
MinButton = 0 'False
ScaleHeight = 5985
ScaleWidth = 7785
ShowInTaskbar = 0 'False
Begin VB.CheckBox Check2
Caption = " "
Height = 195
Left = 2160
TabIndex = 12
Top = 5400
Visible = 0 'False
Width = 75
End
Begin VB.CommandButton sort
BackColor = &H00E0E0E0&
Caption = "&Sort"
Height = 255
Left = 3480
Style = 1 'Graphical
TabIndex = 11
Top = 5640
Width = 975
End
Begin VB.CommandButton Command3
BackColor = &H00E0E0E0&
Caption = "E&xit"
Height = 255
Left = 6600
Style = 1 'Graphical
TabIndex = 4
Top = 5640
Width = 975
End
Begin VB.CommandButton Command2
BackColor = &H00E0E0E0&
Caption = "Full &Screen"
Height = 255
Left = 2040
Style = 1 'Graphical
TabIndex = 3
Top = 5640
Width = 1095
End
Begin VB.CommandButton Command1
BackColor = &H00E0E0E0&
Caption = "&Print"
Height = 255
Left = 4800
Style = 1 'Graphical
TabIndex = 2
Top = 5640
Width = 975
End
Begin VB.CommandButton Find
BackColor = &H00E0E0E0&
Caption = "&Find"
Height = 255
Left = 240
Style = 1 'Graphical
TabIndex = 1
Top = 5640
Width = 975
End
Begin MSFlexGridLib.MSFlexGrid grdOther
Bindings = "Show_all_player.frx":0442
Height = 4875
Left = 360
TabIndex = 0
Top = 540
Width = 7095
_ExtentX = 12515
_ExtentY = 8599
_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
Begin VB.Data datOther
BackColor = &H00000000&
Connect = "Access"
DatabaseName = "tennis.mdb"
DefaultCursorType= 0 'DefaultCursor
DefaultType = 2 'UseODBC
Exclusive = 0 'False
ForeColor = &H00FFFFFF&
Height = 390
Left = 2280
Options = 0
ReadOnly = 0 'False
RecordsetType = 1 'Dynaset
RecordSource = "Participant"
Top = 5235
Visible = 0 'False
Width = 3840
End
Begin VB.Label Label6
Alignment = 2 'Center
BorderStyle = 1 'Fixed Single
Caption = "Nationality"
Height = 255
Left = 6055
TabIndex = 10
Top = 240
Width = 1140
End
Begin VB.Label Label5
Alignment = 2 'Center
BorderStyle = 1 'Fixed Single
Caption = "Sponsor"
Height = 255
Left = 4585
TabIndex = 9
Top = 240
Width = 1450
End
Begin VB.Label Label4
Alignment = 2 'Center
BorderStyle = 1 'Fixed Single
Caption = "Sexe"
Height = 255
Left = 3610
TabIndex = 8
Top = 240
Width = 975
End
Begin VB.Label Label3
Alignment = 2 'Center
BorderStyle = 1 'Fixed Single
Caption = "Rank"
Height = 255
Left = 2840
TabIndex = 7
Top = 240
Width = 770
End
Begin VB.Label Label2
Alignment = 2 'Center
BorderStyle = 1 'Fixed Single
Caption = "Surname"
Height = 255
Left = 1600
TabIndex = 6
Top = 240
Width = 1240
End
Begin VB.Label Label1
Alignment = 2 'Center
BorderStyle = 1 'Fixed Single
Caption = "Name"
Height = 255
Left = 360
TabIndex = 5
Top = 240
Width = 1240
End
Begin VB.Shape Shape1
BackColor = &H80000004&
BackStyle = 1 'Opaque
BorderWidth = 2
Height = 5415
Left = 240
Top = 120
Width = 7335
End
Begin VB.Shape Shape2
BackColor = &H00E0E0E0&
BackStyle = 1 'Opaque
BorderColor = &H00E0E0E0&
BorderWidth = 3
Height = 5505
Left = 195
Top = 75
Width = 7440
End
End
Attribute VB_Name = "Show_all_player"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private Sub Command1_Click()
On Error GoTo era:
Show_all_player.PrintForm
Exit Sub
era:
MsgBox "printer error!!!", 48, "error"
End Sub
Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Command1.FontBold = True
sort.FontBold = False
End Sub
Private Sub Command2_Click()
full.Show
End Sub
Private Sub Command2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Command2.FontBold = True
sort.FontBold = False
End Sub
Private Sub Command3_Click()
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 Find_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Find.FontBold = True
End Sub
Private Sub Find_Click()
frmOther.Show
End Sub
Private Sub Form_Load()
grdOther.ColWidth(1) = 1240
grdOther.ColWidth(4) = 1470
grdOther.ColWidth(5) = 1140
grdOther.ColWidth(0) = 1240
grdOther.ColWidth(2) = 770
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Find.FontBold = False
Command1.FontBold = False
Command2.FontBold = False
Command3.FontBold = False
sort.FontBold = False
End Sub
Private Sub Label1_Click()
grdOther.ColSel = 0
grdOther.Col = 0
If Check2 = False Then
grdOther.sort = flexSortStringAscending
Check2.Value = 1
Else
grdOther.sort = flexSortStringDescending
Check2 = 0
End If
End Sub
Private Sub Label2_Click()
grdOther.ColSel = 1
grdOther.Col = 1
If Check2 = False Then
grdOther.sort = flexSortStringAscending
Check2.Value = 1
Else
grdOther.sort = flexSortStringDescending
Check2 = 0
End If
End Sub
Private Sub Label3_Click()
grdOther.ColSel = 2
grdOther.Col = 2
If Check2 = False Then
grdOther.sort = flexSortNumericAscending
Check2.Value = 1
Else
grdOther.sort = flexSortNumericDescending
Check2 = 0
End If
End Sub
Private Sub Label4_Click()
grdOther.ColSel = 3
grdOther.Col = 3
If Check2 = False Then
grdOther.sort = flexSortStringAscending
Check2.Value = 1
Else
grdOther.sort = flexSortStringDescending
Check2 = 0
End If
End Sub
Private Sub Label5_Click()
grdOther.ColSel = 4
grdOther.Col = 4
If Check2 = False Then
grdOther.sort = flexSortStringAscending
Check2.Value = 1
Else
grdOther.sort = flexSortStringDescending
Check2 = 0
End If
End Sub
Private Sub Label6_Click()
grdOther.ColSel = 5
grdOther.Col = 5
If Check2 = False Then
grdOther.sort = flexSortStringAscending
Check2.Value = 1
Else
grdOther.sort = flexSortStringDescending
Check2 = 0
End If
End Sub
Private Sub sort_Click()
frmSort_b.Show
End Sub
Private Sub sort_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
sort.FontBold = True
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -