?? search.frm
字號:
VERSION 5.00
Begin VB.Form frmSearch
Caption = "查找"
ClientHeight = 1290
ClientLeft = 60
ClientTop = 345
ClientWidth = 4680
Icon = "search.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 1290
ScaleWidth = 4680
ShowInTaskbar = 0 'False
Begin VB.ComboBox ComSex
Height = 300
Left = 960
TabIndex = 9
Top = 480
Width = 1455
End
Begin VB.TextBox Text1
DataField = "ID"
DataSource = "Data1"
Height = 285
Left = 960
TabIndex = 4
Top = 120
Width = 1455
End
Begin VB.TextBox Text2
DataField = "Name"
DataSource = "Data1"
Height = 285
Left = 3120
TabIndex = 3
Top = 120
Width = 1455
End
Begin VB.TextBox Text3
DataField = "Birthday"
DataSource = "Data1"
Height = 285
Left = 3120
TabIndex = 2
Top = 480
Width = 1455
End
Begin VB.CommandButton Command4
Caption = "查找第一個(&F)"
Height = 375
Left = 1800
TabIndex = 1
Top = 840
Width = 1335
End
Begin VB.CommandButton Command5
Caption = "查找下一個(N)"
Height = 375
Left = 3240
TabIndex = 0
Top = 840
Width = 1335
End
Begin VB.Label Label1
Caption = "職工編號:"
Height = 255
Index = 0
Left = 0
TabIndex = 8
Top = 120
Width = 975
End
Begin VB.Label Label1
Caption = "姓名:"
Height = 255
Index = 1
Left = 2520
TabIndex = 7
Top = 120
Width = 615
End
Begin VB.Label Label1
Caption = "性別:"
Height = 255
Index = 2
Left = 360
TabIndex = 6
Top = 480
Width = 615
End
Begin VB.Label Label1
Caption = "職稱:"
Height = 255
Index = 3
Left = 2520
TabIndex = 5
Top = 480
Width = 615
End
End
Attribute VB_Name = "frmSearch"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Const SWP_NOSIZE = &H1
Const SWP_NOMOVE = &H2
Const SWP_NOACTIVATE = &H10
Const SWP_SHOWWINDOW = &H40
Private Sub Command4_Click()
frmDocument.Data1.Recordset.MoveFirst
frmDocument.Data1.Recordset.FindFirst "[姓名]='" + Text2 + "'"
If Not frmDocument.Data1.Recordset.NoMatch Then
Exit Sub
Else
MsgBox "沒有匹配的記錄!", vbInformation + vbSystemModal, "提示"
End If
End Sub
Private Sub Form_Load()
Me.Move (Screen.Width - Me.Width) / 2, (Screen.Height - Me.Height) / 2, Me.Width, Me.Height
AniShowFrm Me.hwnd
SetWindowPos Me.hwnd, HWND_TOPMOST, Me.Left / 15, _
Me.Top / 15, Me.Width / 15, _
Me.Height / 15, SWP_NOACTIVATE Or SWP_SHOWWINDOW
With ComSex
.AddItem "男"
.AddItem "女"
.ListIndex = 0
End With
End Sub
Private Sub Form_Unload(Cancel As Integer)
AniUnloadFrm Me.hwnd
End Sub
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -