📄 form2.frm
字号:
VERSION 5.00
Object = "{67397AA1-7FB1-11D0-B148-00A0C922E820}#6.0#0"; "MSADODC.OCX"
Object = "{CDE57A40-8B86-11D0-B3C6-00A0C90AEA82}#1.0#0"; "MSDATGRD.OCX"
Begin VB.Form Form2
Caption = "赛马情况表"
ClientHeight = 5145
ClientLeft = 60
ClientTop = 345
ClientWidth = 7305
LinkTopic = "Form2"
MDIChild = -1 'True
ScaleHeight = 5145
ScaleWidth = 7305
ShowInTaskbar = 0 'False
Begin VB.Frame Frame2
Height = 3855
Left = 120
TabIndex = 9
Top = 1200
Width = 7095
Begin VB.CommandButton Command6
Caption = "刷 新"
Height = 375
Left = 4680
TabIndex = 13
Top = 3360
Width = 1335
End
Begin VB.CommandButton Command4
Caption = "添加记录"
Height = 375
Left = 1560
TabIndex = 11
Top = 3360
Width = 1335
End
Begin VB.CommandButton Command5
Caption = "删除记录"
Height = 375
Left = 3120
TabIndex = 10
Top = 3360
Width = 1335
End
Begin MSAdodcLib.Adodc Adodc1
Height = 375
Left = 120
Top = 2880
Width = 6855
_ExtentX = 12091
_ExtentY = 661
ConnectMode = 0
CursorLocation = 3
IsolationLevel = -1
ConnectionTimeout= 15
CommandTimeout = 30
CursorType = 3
LockType = 3
CommandType = 8
CursorOptions = 0
CacheSize = 50
MaxRecords = 0
BOFAction = 0
EOFAction = 0
ConnectStringType= 1
Appearance = 1
BackColor = -2147483643
ForeColor = -2147483640
Orientation = 0
Enabled = -1
Connect = ""
OLEDBString = ""
OLEDBFile = ""
DataSourceName = ""
OtherAttributes = ""
UserName = ""
Password = ""
RecordSource = ""
Caption = "Adodc1"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
_Version = 393216
End
Begin MSDataGridLib.DataGrid DataGrid1
Height = 2775
Left = 120
TabIndex = 12
Top = 120
Width = 6855
_ExtentX = 12091
_ExtentY = 4895
_Version = 393216
HeadLines = 1
RowHeight = 15
BeginProperty HeadFont {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ColumnCount = 2
BeginProperty Column00
DataField = ""
Caption = ""
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
Type = 0
Format = ""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 0
EndProperty
EndProperty
BeginProperty Column01
DataField = ""
Caption = ""
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
Type = 0
Format = ""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 0
EndProperty
EndProperty
SplitCount = 1
BeginProperty Split0
BeginProperty Column00
EndProperty
BeginProperty Column01
EndProperty
EndProperty
End
End
Begin VB.Frame Frame1
Height = 1215
Left = 120
TabIndex = 0
Top = 0
Width = 7095
Begin VB.ComboBox Combo2
Height = 300
ItemData = "Form2.frx":0000
Left = 1800
List = "Form2.frx":0031
TabIndex = 14
Text = "请选择场次"
Top = 720
Width = 2175
End
Begin VB.TextBox Text1
Height = 375
Left = 720
TabIndex = 5
Top = 240
Width = 1335
End
Begin VB.CommandButton Command1
Caption = "编号查询"
Height = 375
Left = 2160
TabIndex = 4
Top = 240
Width = 975
End
Begin VB.CommandButton Command2
Caption = "显 示"
Height = 375
Left = 4080
TabIndex = 3
Top = 720
Width = 975
End
Begin VB.TextBox Text3
Height = 375
Left = 4080
TabIndex = 2
Top = 240
Width = 1575
End
Begin VB.CommandButton Command3
Caption = "关健字查询"
Height = 375
Left = 5760
TabIndex = 1
Top = 240
Width = 1215
End
Begin VB.Label Label1
Caption = "编号："
Height = 255
Left = 120
TabIndex = 8
Top = 360
Width = 735
End
Begin VB.Label Label2
Caption = "显示具体场次记录："
Height = 255
Left = 120
TabIndex = 7
Top = 840
Width = 1815
End
Begin VB.Label Label3
Caption = "关健字："
Height = 255
Left = 3360
TabIndex = 6
Top = 360
Width = 735
End
End
End
Attribute VB_Name = "Form2"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private rs As New ADODB.Recordset
Private strconn As String
Private strsql As String
Private str1 As String
Private str2 As String
Private str3 As String
Private flag As Integer
Private var1 As Variant
Private intctr As Integer
Private intj As Integer
Private xulang As Integer
Private rs3 As New ADODB.Recordset
Private strconn3 As String
Private strsql3 As String
Private s1 As String
Private s2 As String
Private Sub Adodc1_MoveComplete(ByVal adReason As ADODB.EventReasonEnum, ByVal pError As ADODB.Error, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset)
Adodc1.Caption = "当前记录为：" & Adodc1.Recordset.AbsolutePosition & "/" & Adodc1.Recordset.RecordCount
End Sub
Private Sub Command1_Click()
On Error Resume Next
str1 = "select 场次,编号,姓名,资料 from horse2 where 编号='" & Text1.Text & "'"
strconn = "provider=microsoft.jet.oledb.4.0;data source=" & App.Path & "\horse.mdb"
With rs
If .State = adStateOpen Then
.Close
End If
.ActiveConnection = strconn
.Source = str1
.LockType = adLockReadOnly
.CursorLocation = adUseClient
.CursorType = adOpenDynamic
.Open
End With
Set DataGrid1.DataSource = rs
Set Adodc1.Recordset = rs
With DataGrid1
.Columns(0).Width = 1500
.Columns(1).Width = 1000
.Columns(2).Width = 1500
.Columns(3).Width = 1500
End With
Adodc1.Caption = "当前记录为：" & Adodc1.Recordset.AbsolutePosition & "/" & Adodc1.Recordset.RecordCount
End Sub
Private Sub Command2_Click()
On Error Resume Next
str1 = "select 场次,编号,姓名,资料 from horse2 where 场次='" & Combo2.Text & "'"
strconn = "provider=microsoft.jet.oledb.4.0;data source=" & App.Path & "\horse.mdb"
With rs
If .State = adStateOpen Then
.Close
End If
.ActiveConnection = strconn
.Source = str1
.LockType = adLockReadOnly
.CursorLocation = adUseClient
.CursorType = adOpenDynamic
.Open
End With
Set DataGrid1.DataSource = rs
Set Adodc1.Recordset = rs
With DataGrid1
.Columns(0).Width = 1500
.Columns(1).Width = 1000
.Columns(2).Width = 1500
.Columns(3).Width = 1500
End With
Adodc1.Caption = "当前记录为：" & Adodc1.Recordset.AbsolutePosition & "/" & Adodc1.Recordset.RecordCount
End Sub
Private Sub Command3_Click()
On Error Resume Next
strconn = "provider=microsoft.jet.oledb.4.0;data source=" & App.Path & "\horse.mdb"
strsql = "select 场次,编号,姓名,资料 from horse2"
With rs
If .State = adStateOpen Then
.Close
End If
.ActiveConnection = strconn
.Source = strsql
.LockType = adLockReadOnly
.CursorLocation = adUseClient
.CursorType = adOpenDynamic
.Open
End With
Set DataGrid1.DataSource = rs
Set Adodc1.Recordset = rs
With DataGrid1
.Columns(0).Width = 1500
.Columns(1).Width = 1000
.Columns(2).Width = 1500
.Columns(3).Width = 1500
End With
Adodc1.Caption = "当前记录为：" & Adodc1.Recordset.AbsolutePosition & "/" & Adodc1.Recordset.RecordCount
On Error Resume Next
If Form1.Command3.Caption = "关健字查询" Then
rs.MoveFirst
Else
If (var1 + 1) < rs.RecordCount Or (var1 + 1) = rs.RecordCount Then
rs.Bookmark = var1 + 1
End If
End If
Do While Not rs.EOF
For intctr = 0 To rs.Fields.Count - 1
For intj = 1 To Len(rs(intctr))
If Mid(rs(intctr), intj, Len(Text3.Text)) = Text3.Text Then
'rs(intctr).Value.SetFocus
flag = 1
Form1.Command3.Caption = "查找下一个"
var1 = rs.Bookmark
Form2.DataGrid1.EditActive = True
Exit Do
End If
Next
Next
rs.MoveNext
Loop
If rs.EOF Then
Form1.Command3.Caption = "关健字查询"
If flag = 0 Then
MsgBox "记录没有发现", , "查询提示"
Else
MsgBox "已查找到最后", , "查询提示"
End If
rs.MoveFirst
End If
End Sub
Private Sub Command4_Click()
Form4.Show
End Sub
Private Sub Command5_Click()
If MsgBox("确定要删除记录吗？", vbYesNo, "删除记录") = vbYes Then
Form2.Adodc1.Recordset.Delete
End If
End Sub
Private Sub Command6_Click()
On Error Resume Next
Unload Me
Set rs = Nothing
Set rs3 = Nothing
Call Form_Load
End Sub
Private Sub Form_Activate()
MDIForm1.StatusBar1.SimpleText = "正在查阅... ...赛马情况表"
End Sub
Private Sub Form_Load()
On Error Resume Next
Call xudi
xulang = 1
strconn = "provider=microsoft.jet.oledb.4.0;data source=" & App.Path & "\horse.mdb"
strsql = "select 场次,编号,姓名,资料 from horse2 order by flag2"
With rs
If .State = adStateOpen Then
.Close
End If
.ActiveConnection = strconn
.Source = strsql
.LockType = adLockOptimistic
.CursorLocation = adUseClient
.CursorType = adOpenDynamic
.Open
End With
Set DataGrid1.DataSource = rs
Set Adodc1.Recordset = rs
If xulang = 1 Then
With DataGrid1
.Columns(0).Width = 1500
.Columns(1).Width = 1000
.Columns(2).Width = 1500
.Columns(3).Width = 1500
End With
End If
Adodc1.Caption = "当前记录为：" & Adodc1.Recordset.AbsolutePosition & "/" & Adodc1.Recordset.RecordCount
End Sub
Private Sub Form_Resize()
If Form2.WindowState = 0 Then
Form2.Width = 7425
Form2.Height = 5550
Form2.Frame1.Width = 7095
Form2.Frame2.Width = 7095
Form2.DataGrid1.Width = 6855
Form2.DataGrid1.Height = 2775
Form2.Frame2.Height = 3855
Form2.Adodc1.Top = 2880
Form2.Command4.Top = 3360
Form2.Command5.Top = 3360
Form2.Command6.Top = 3360
xulang = 1
End If
If Form2.WindowState = 2 Then
Form2.Frame1.Width = Form2.ScaleWidth - 200
Form2.Frame2.Width = Form2.ScaleWidth - 200
Form2.Adodc1.Top = Form2.Frame2.Height - 2000
Form2.Frame2.Height = Form2.ScaleHeight - Form2.Frame1.Height - 200
Form2.DataGrid1.Width = Form2.Frame2.Width - 200
Form2.DataGrid1.Height = Form2.Frame2.Height - 1320
Form2.Command4.Top = Form2.Frame2.Height - 600
Form2.Command5.Top = Form2.Frame2.Height - 600
Form2.Command6.Top = Form2.Frame2.Height - 600
Form2.Adodc1.Top = Form2.Frame2.Height - 1200
xulang = 2
End If
End Sub
Private Sub Form_Unload(Cancel As Integer)
MDIForm1.StatusBar1.SimpleText = ""
Set rs = Nothing
Set rs3 = Nothing
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -