📄 adtxtform.frm
字号:
Height = 255
Index = 1
Left = 3840
TabIndex = 60
Top = 2160
Width = 255
End
Begin VB.Label Label8
BorderStyle = 1 'Fixed Single
Height = 375
Left = 3240
TabIndex = 57
Top = 2040
Width = 615
End
Begin VB.Label Label5
BorderStyle = 1 'Fixed Single
Height = 375
Left = 4080
TabIndex = 48
Top = 720
Width = 495
End
Begin VB.Label Label2
Caption = "日"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Index = 5
Left = 3840
TabIndex = 25
Top = 2640
Width = 255
End
Begin VB.Label Label2
Caption = "月"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Index = 4
Left = 2640
TabIndex = 24
Top = 2640
Width = 255
End
Begin VB.Label Label2
Caption = "年"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Index = 3
Left = 1440
TabIndex = 23
Top = 2640
Width = 255
End
Begin VB.Label Label2
Caption = "记录:"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Index = 2
Left = 240
TabIndex = 15
Top = 2160
Width = 615
End
Begin VB.Label Label2
Caption = "时间"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Index = 1
Left = 480
TabIndex = 14
Top = 1440
Width = 495
End
Begin VB.Label Label2
Caption = "球队列表"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Index = 0
Left = 240
TabIndex = 13
Top = 840
Width = 975
End
End
Begin VB.Frame Frame1
Caption = "球员记录"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 10215
Left = 240
TabIndex = 0
Top = 360
Width = 4695
Begin VB.TextBox Text5
Alignment = 2 'Center
DataField = "Day"
DataSource = "Data4"
Height = 270
Index = 0
Left = 3120
TabIndex = 53
Top = 2640
Width = 975
End
Begin VB.TextBox Text4
Alignment = 2 'Center
DataField = "Month"
DataSource = "Data4"
Height = 270
Index = 0
Left = 2040
TabIndex = 51
Top = 2640
Width = 735
End
Begin VB.TextBox Text3
Alignment = 2 'Center
DataField = "Year"
DataSource = "Data4"
Height = 270
Index = 0
Left = 480
TabIndex = 22
Top = 2640
Width = 1215
End
Begin VB.ComboBox Combo2
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 360
Left = 1440
TabIndex = 12
Top = 1440
Width = 2655
End
Begin VB.CommandButton Command4
Caption = "下一条"
Height = 375
Left = 3240
TabIndex = 11
Top = 9480
Width = 975
End
Begin VB.CommandButton Command3
Caption = "修改"
Height = 375
Left = 2280
TabIndex = 10
Top = 9480
Width = 975
End
Begin VB.CommandButton Command2
Caption = "添加"
Height = 375
Left = 1320
TabIndex = 9
Top = 9480
Width = 975
End
Begin VB.CommandButton Command1
Caption = "上一条"
Height = 375
Left = 360
TabIndex = 8
Top = 9480
Width = 975
End
Begin VB.TextBox Text1
DataField = "Text"
DataSource = "Data4"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 6015
Left = 240
MultiLine = -1 'True
ScrollBars = 2 'Vertical
TabIndex = 7
Top = 3240
Width = 4215
End
Begin VB.ComboBox Combo1
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 360
Left = 1440
Style = 2 'Dropdown List
TabIndex = 6
Top = 720
Width = 2655
End
Begin VB.Data Data4
Caption = "Data4"
Connect = "Access"
DatabaseName = ""
DefaultCursorType= 0 '缺省游标
DefaultType = 2 '使用 ODBC
Exclusive = 0 'False
Height = 285
Left = 3480
Options = 0
ReadOnly = 0 'False
RecordsetType = 1 'Dynaset
RecordSource = ""
Top = 120
Visible = 0 'False
Width = 1215
End
Begin VB.Label Label11
Alignment = 2 'Center
Height = 375
Left = 960
TabIndex = 62
Top = 2040
Width = 2295
End
Begin VB.Label Label10
Caption = "条"
Height = 255
Index = 2
Left = 3840
TabIndex = 61
Top = 2160
Width = 255
End
Begin VB.Label Label7
BorderStyle = 1 'Fixed Single
Height = 375
Left = 3240
TabIndex = 56
Top = 2040
Width = 615
End
Begin VB.Label Label4
BorderStyle = 1 'Fixed Single
Height = 375
Left = 4080
TabIndex = 47
Top = 720
Width = 495
End
Begin VB.Label Label1
Caption = "日"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Index = 5
Left = 4080
TabIndex = 21
Top = 2640
Width = 255
End
Begin VB.Label Label1
Caption = "月"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Index = 4
Left = 2760
TabIndex = 20
Top = 2640
Width = 255
End
Begin VB.Label Label1
Caption = "年"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Index = 3
Left = 1680
TabIndex = 19
Top = 2640
Width = 255
End
Begin VB.Label Label1
Caption = "记录:"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Index = 2
Left = 240
TabIndex = 5
Top = 2160
Width = 615
End
Begin VB.Label Label1
Caption = "时间"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Index = 1
Left = 360
TabIndex = 4
Top = 1440
Width = 495
End
Begin VB.Label Label1
Caption = "球员列表"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Index = 0
Left = 240
TabIndex = 3
Top = 840
Width = 975
End
End
End
Attribute VB_Name = "AdtxtForm"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'定义修改状态标志位
Dim ad1 As Boolean
Dim ad2 As Boolean
Dim ad3 As Boolean
'数据库变量
Dim db As Database
'记录集变量
Dim rs1 As Recordset
Dim rs2 As Recordset
Dim rs3 As Recordset
Private Sub Combo1_Click()
'选择一名球员
Label4.Caption = GetID(Combo1)
Label7.Caption = GetSum(Data4.Recordset, Val(Label4.Caption))
Label11.Caption = GetName(rs1, Data4.Recordset.Fields(0))
End Sub
Private Sub Combo2_Click()
'选择球员记录时段
n = GetSum(Data4.Recordset, Val(Label4.Caption))
Data4.Recordset.MoveFirst
i = 0
While Data4.Recordset.Fields(2) < Val(Combo2)
Call Command4_Click
i = i + 1
If i >= n Then Exit Sub
Wend
End Sub
Private Sub Combo3_Click()
'选择一支球队
Label5.Caption = GetID(Combo3)
Label8.Caption = GetSum(Data5.Recordset, Val(Label5.Caption))
Label12.Caption = GetName(rs2, Data5.Recordset.Fields(0))
End Sub
Private Sub Combo4_Click()
'选择球队记录时段
n = GetSum(Data5.Recordset, Val(Label5.Caption))
Data5.Recordset.MoveFirst
i = 0
While Data5.Recordset.Fields(2) < Val(Combo4)
Call Command8_Click
i = i + 1
If i >= n Then Exit Sub
Wend
End Sub
Private Sub Combo5_Click()
'选择一名教练
Label6.Caption = GetID(Combo5)
Label9.Caption = GetSum(Data6.Recordset, Val(Label6.Caption))
Label13.Caption = GetName(rs3, Data6.Recordset.Fields(0))
End Sub
Private Sub Combo6_Click()
'选择教练记录时段
n = GetSum(Data6.Recordset, Val(Label6.Caption))
Data6.Recordset.MoveFirst
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -