?? form1.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 Form1
Caption = "基本表"
ClientHeight = 5145
ClientLeft = 60
ClientTop = 345
ClientWidth = 7305
LinkTopic = "Form1"
MDIChild = -1 'True
ScaleHeight = 5145
ScaleWidth = 7305
ShowInTaskbar = 0 'False
Begin VB.Frame Frame2
Height = 3855
Left = 120
TabIndex = 10
Top = 1200
Width = 7095
Begin VB.CommandButton Command6
Caption = "刷 新"
Height = 375
Left = 4680
TabIndex = 14
Top = 3360
Width = 1335
End
Begin VB.CommandButton Command5
Caption = "刪除記錄"
Height = 375
Left = 3120
TabIndex = 13
Top = 3360
Width = 1335
End
Begin VB.CommandButton Command4
Caption = "添加記錄"
Height = 375
Left = 1560
TabIndex = 12
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 = 11
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.CommandButton Command3
Caption = "關健字查詢"
Height = 375
Left = 3480
TabIndex = 9
Top = 720
Width = 1335
End
Begin VB.TextBox Text3
Height = 375
Left = 960
TabIndex = 8
Top = 720
Width = 2415
End
Begin VB.CommandButton Command2
Caption = "姓名查詢"
Height = 375
Left = 5760
TabIndex = 6
Top = 240
Width = 975
End
Begin VB.TextBox Text2
Height = 375
Left = 4320
TabIndex = 5
Top = 240
Width = 1335
End
Begin VB.CommandButton Command1
Caption = "編號查詢"
Height = 375
Left = 2280
TabIndex = 3
Top = 240
Width = 1095
End
Begin VB.TextBox Text1
Height = 375
Left = 840
TabIndex = 2
Top = 240
Width = 1335
End
Begin VB.Label Label3
Caption = "關健字："
Height = 255
Left = 240
TabIndex = 7
Top = 840
Width = 735
End
Begin VB.Label Label2
Caption = "姓名："
Height = 255
Left = 3720
TabIndex = 4
Top = 360
Width = 735
End
Begin VB.Label Label1
Caption = "編號："
Height = 255
Left = 240
TabIndex = 1
Top = 360
Width = 735
End
End
End
Attribute VB_Name = "Form1"
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 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 horse1 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 = 900
.Columns(1).Width = 1600
.Columns(2).Width = 4000
End With
Adodc1.Caption = "當前記錄為：" & Adodc1.Recordset.AbsolutePosition & "/" & Adodc1.Recordset.RecordCount
End Sub
Private Sub Command2_Click()
On Error Resume Next
str1 = "select * from horse1 where 姓名='" & Text2.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 = 900
.Columns(1).Width = 1600
.Columns(2).Width = 4000
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 horse1"
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 = 900
.Columns(1).Width = 1600
.Columns(2).Width = 4000
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
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()
Form3.Show
End Sub
Private Sub Command5_Click()
If MsgBox("確定要刪除記錄嗎？", vbYesNo, "刪除記錄") = vbYes Then
Form1.Adodc1.Recordset.Delete
End If
End Sub
Private Sub Command6_Click()
On Error Resume Next
Unload Me
Set rs = Nothing
Call Form_Load
End Sub
Private Sub Command7_Click()
DataGrid1.EditActive = True
End Sub
Private Sub Form_Activate()
MDIForm1.StatusBar1.SimpleText = "正在查閱... ...基本情況表"
End Sub
Private Sub Form_Load()
On Error Resume Next
xulang = 1
strconn = "provider=microsoft.jet.oledb.4.0;data source=" & App.Path & "\horse.mdb"
strsql = "select * from horse1"
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
With DataGrid1
.Columns(0).Width = 900
.Columns(1).Width = 1600
.Columns(2).Width = 4000
End With
Adodc1.Caption = "當前記錄為：" & Adodc1.Recordset.AbsolutePosition & "/" & Adodc1.Recordset.RecordCount
End Sub
Private Sub Form_Resize()
If Form1.WindowState = 0 Then
Form1.Width = 7425
Form1.Height = 5550
Form1.Frame1.Width = 7095
Form1.Frame2.Width = 7095
Form1.DataGrid1.Width = 6855
Form1.DataGrid1.Height = 2775
Form1.Frame2.Height = 3855
Form1.Adodc1.Top = 2880
Form1.Command4.Top = 3360
Form1.Command5.Top = 3360
Form1.Command6.Top = 3360
xulang = 1
End If
If Form1.WindowState = 2 Then
Form1.Frame1.Width = Form1.ScaleWidth - 200
Form1.Frame2.Width = Form1.ScaleWidth - 200
Form1.Adodc1.Top = Form1.Frame2.Height - 2000
Form1.Frame2.Height = Form1.ScaleHeight - Form1.Frame1.Height - 200
Form1.DataGrid1.Width = Form1.Frame2.Width - 200
Form1.DataGrid1.Height = Form1.Frame2.Height - 1320
Form1.Command4.Top = Form1.Frame2.Height - 600
Form1.Command5.Top = Form1.Frame2.Height - 600
Form1.Command6.Top = Form1.Frame2.Height - 600
Form1.Adodc1.Top = Form1.Frame2.Height - 1200
xulang = 2
End If
End Sub
Private Sub Form_Unload(Cancel As Integer)
MDIForm1.StatusBar1.SimpleText = ""
Set rs = Nothing
End Sub
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -