📄 frmsearch.frm
字号:
VERSION 5.00
Begin VB.Form frmSearch
AutoRedraw = -1 'True
BorderStyle = 0 'None
Caption = "Color Settings"
ClientHeight = 4650
ClientLeft = 0
ClientTop = 0
ClientWidth = 8625
MaxButton = 0 'False
MDIChild = -1 'True
MinButton = 0 'False
Picture = "frmSearch.frx":0000
ScaleHeight = 4650
ScaleWidth = 8625
ShowInTaskbar = 0 'False
Begin VB.CommandButton Command1
Caption = "&F"
Height = 345
Left = 7170
TabIndex = 13
Top = 1020
Width = 1125
End
Begin VB.ListBox List1
Height = 1035
Left = 270
TabIndex = 12
Top = 2430
Width = 6465
End
Begin VB.TextBox Text2
Height = 315
Left = 1560
TabIndex = 9
Top = 1260
Width = 1725
End
Begin VB.ComboBox SearchFlds2
Height = 315
Left = 3960
Style = 2 'Dropdown List
TabIndex = 8
Top = 1275
Width = 2445
End
Begin VB.ComboBox SearchFlds
Height = 315
Left = 3960
Style = 2 'Dropdown List
TabIndex = 7
Top = 765
Width = 2445
End
Begin VB.TextBox Text1
Height = 315
Left = 1560
TabIndex = 5
Top = 765
Width = 1725
End
Begin VB.Label lblFind
Alignment = 2 'Center
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Start Search"
ForeColor = &H00C0FFC0&
Height = 195
Left = 3045
TabIndex = 4
Tag = "ButtonLabel"
Top = 1905
Width = 915
End
Begin VB.Image imgSearch
Height = 375
Left = 2700
Picture = "frmSearch.frx":62BC2
Stretch = -1 'True
Top = 1815
Width = 1575
End
Begin VB.Label Label3
Alignment = 1 'Right Justify
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "And :"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 195
Left = 1020
TabIndex = 11
Top = 1305
Width = 465
End
Begin VB.Label Label4
Alignment = 2 'Center
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "in"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 195
Left = 3525
TabIndex = 10
Top = 1305
Width = 195
End
Begin VB.Label Label1
Alignment = 2 'Center
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "in"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 195
Left = 3525
TabIndex = 6
Top = 795
Width = 195
End
Begin VB.Label lblHelp
Alignment = 2 'Center
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Help..."
ForeColor = &H00C0FFC0&
Height = 195
Left = 840
TabIndex = 3
Tag = "ButtonLabel"
Top = 3810
Width = 495
End
Begin VB.Label Label2
Alignment = 1 'Right Justify
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Find :"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 225
Left = 600
TabIndex = 2
Top = 795
Width = 885
End
Begin VB.Label lblCategories
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Search Student Records"
BeginProperty Font
Name = "Arial"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 240
Left = 390
TabIndex = 1
Top = 60
Width = 2325
End
Begin VB.Image imgOKPicture
Height = 375
Index = 1
Left = 7170
Picture = "frmSearch.frx":645E4
Top = 510
Visible = 0 'False
Width = 1155
End
Begin VB.Image imgOKPicture
Height = 360
Index = 0
Left = 7170
Picture = "frmSearch.frx":65CCE
Stretch = -1 'True
Top = 120
Visible = 0 'False
Width = 1155
End
Begin VB.Label lblExit
Alignment = 2 'Center
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Exit"
ForeColor = &H00C0FFC0&
Height = 195
Left = 5730
TabIndex = 0
Tag = "ButtonLabel"
Top = 3810
Width = 285
End
Begin VB.Image imgExit
Height = 375
Left = 5250
Picture = "frmSearch.frx":676F0
Stretch = -1 'True
Top = 3720
Width = 1215
End
Begin VB.Image imgOptionsPanel
Height = 300
Index = 1
Left = 540
Picture = "frmSearch.frx":69112
Stretch = -1 'True
Top = 765
Width = 960
End
Begin VB.Image imgHelp
Height = 375
Left = 480
Picture = "frmSearch.frx":70BD4
Stretch = -1 'True
Top = 3720
Width = 1215
End
Begin VB.Image imgOptionsPanel
Height = 300
Index = 0
Left = 3390
Picture = "frmSearch.frx":725F6
Stretch = -1 'True
Top = 765
Width = 480
End
Begin VB.Image imgOptionsPanel
Height = 300
Index = 2
Left = 540
Picture = "frmSearch.frx":7A0B8
Stretch = -1 'True
Top = 1275
Width = 960
End
Begin VB.Image imgOptionsPanel
Height = 300
Index = 3
Left = 3390
Picture = "frmSearch.frx":81B7A
Stretch = -1 'True
Top = 1275
Width = 480
End
End
Attribute VB_Name = "frmSearch"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim iDirty As Boolean
Dim srch As New ADODB.Recordset
Dim rec As New ADODB.Recordset
Dim lst As New ADODB.Recordset
Dim srchTemp As String
Dim srchTemp2 As String
Dim LstTotal As Integer
Private Sub Command1_Click()
lblExit_Click
End Sub
Private Sub Form_Load()
'Load the main menu's form settings...
Call LoadINISettings
'Set program colors...
Call SetColors(Me)
'Form Coordinates...
Me.Width = QuickRef.MediumMenuWidth
Me.Height = QuickRef.MediumMenuHeight
Dim i As Integer
Dim fld As Field
iDirty = False
rec.ActiveConnection = dbcn
' change this by closing and changing then reopening
rec.CursorLocation = adUseClient
'persisted in memory
rec.CursorType = adOpenStatic
rec.LockType = adLockBatchOptimistic
lst.ActiveConnection = dbcn
' change this by closing and changing then reopening
lst.CursorLocation = adUseClient
'persisted in memory
lst.CursorType = adOpenStatic
lst.LockType = adLockBatchOptimistic
srch.ActiveConnection = dbcn
' change this by closing and changing then reopening
srch.CursorLocation = adUseClient
'persisted in memory
srch.CursorType = adOpenStatic
srch.LockType = adLockBatchOptimistic
' open record set
Call popCombos
Call popList
End Sub
Sub LoadINISettings()
'Form Coordinates...
Me.Left = val(ReadINI(Me.Name, "Left"))
Me.Top = val(ReadINI(Me.Name, "Top"))
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Help.HelpText = ""
'Move the form if the user is pressing and holding the mouse button...
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -