📄 frmscorequery.frm
字号:
VERSION 5.00
Object = "{C2A990D9-DFD1-4B7C-A432-A1DD219DC55F}#1.0#0"; "UserCtrProj.ocx"
Begin VB.Form frmScoreQuery
Caption = "查询"
ClientHeight = 5430
ClientLeft = 60
ClientTop = 345
ClientWidth = 7575
Icon = "frmScoreQuery.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 5430
ScaleWidth = 7575
StartUpPosition = 3 'Windows Default
Begin UserCtrProj.UsrCtrCombo cboResult
Height = 375
Left = 5400
TabIndex = 16
Top = 600
Width = 1575
_ExtentX = 2778
_ExtentY = 661
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ScaleWidth = 1575
ScaleMode = 0
ScaleHeight = 375
ListIndex = -1
FontSize = 8.25
FontName = "MS Sans Serif"
End
Begin UserCtrProj.UsrCtrCombo cboOperate
Height = 375
Left = 3120
TabIndex = 15
Top = 600
Width = 1815
_ExtentX = 3201
_ExtentY = 661
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ScaleWidth = 1815
ScaleMode = 0
ScaleHeight = 375
ListIndex = -1
FontSize = 8.25
FontName = "MS Sans Serif"
End
Begin UserCtrProj.UsrCtrCombo cboFields
Height = 375
Left = 600
TabIndex = 14
Top = 600
Width = 1815
_ExtentX = 3201
_ExtentY = 661
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ScaleWidth = 1815
ScaleMode = 0
ScaleHeight = 375
ListIndex = -1
FontSize = 8.25
FontName = "MS Sans Serif"
End
Begin UserCtrProj.UsrPicBtn cmdCancel
Height = 525
Left = 5520
TabIndex = 13
Top = 4800
Width = 1335
_ExtentX = 2355
_ExtentY = 926
Picture = "frmScoreQuery.frx":0442
Caption = " 取消"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
Begin UserCtrProj.UsrPicBtn cmdOk
Height = 525
Left = 3360
TabIndex = 12
Top = 4800
Width = 1335
_ExtentX = 2355
_ExtentY = 926
Picture = "frmScoreQuery.frx":0575
Caption = " 确定"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
Begin VB.CommandButton cmdModify
Caption = "修改"
Height = 375
Left = 6000
TabIndex = 11
Top = 1440
Width = 975
End
Begin VB.CheckBox chkConditions
Caption = "组合查询："
Height = 255
Left = 600
TabIndex = 10
Top = 1080
Width = 1215
End
Begin VB.Frame framRadio
Height = 495
Left = 1440
TabIndex = 7
Top = 1320
Width = 1815
Begin VB.OptionButton optOr
Caption = "Or"
Enabled = 0 'False
Height = 195
Left = 1080
TabIndex = 9
Top = 240
Width = 615
End
Begin VB.OptionButton optAnd
Caption = "And"
Enabled = 0 'False
Height = 195
Left = 240
TabIndex = 8
Top = 240
Width = 615
End
End
Begin VB.CommandButton cmdClear
Caption = "清空"
Height = 375
Left = 4920
TabIndex = 5
Top = 1440
Width = 975
End
Begin VB.CommandButton cmdAdd
Caption = "加入"
Height = 375
Left = 3840
TabIndex = 4
Top = 1440
Width = 975
End
Begin VB.TextBox txtQuery
Enabled = 0 'False
Height = 2295
Left = 600
MultiLine = -1 'True
TabIndex = 3
Top = 2280
Width = 6375
End
Begin VB.Label lblQuery
Caption = "查询条件："
Height = 255
Left = 600
TabIndex = 6
Top = 1920
Width = 975
End
Begin VB.Label lblResult
Caption = "值："
Height = 255
Left = 5400
TabIndex = 2
Top = 240
Width = 1215
End
Begin VB.Label lblOperate
Caption = "操作符："
Height = 255
Left = 3120
TabIndex = 1
Top = 240
Width = 1335
End
Begin VB.Label lblFields
Caption = "字段名："
Height = 255
Left = 600
TabIndex = 0
Top = 240
Width = 1215
End
End
Attribute VB_Name = "frmScoreQuery"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
'定义模块级属性变量，存放SQL语句
Private mstrFrmSql As String
'定义一个clsScoreQuery类的实例，用以调用封装在类中的函数
Private clsQuery As New clsScoreQuery
'定义存放查询结果记录集的对象变量，属性变量
Private mrsFrmQuery As ADODB.Recordset 'local copy
'定义存放从外部传入的记录集的对象变量，属性变量
Private mrsFrmSource As ADODB.Recordset 'local copy
'定义命令对象，属性变量
Private mcommFrmQuery As ADODB.Command 'local copy
'定义链接对象（属性变量），需要从外部获取
Private mcnnFrmQuery As ADODB.Connection 'local copy
Public Property Set cnnFrmQuery(ByVal vData As ADODB.Connection)
Set mcnnFrmQuery = vData
End Property
Public Property Get cnnFrmQuery() As ADODB.Connection
Set cnnFrmQuery = mcnnFrmQuery
End Property
Public Property Set commFrmQuery(ByVal vData As ADODB.Command)
Set mcommFrmQuery = vData
End Property
Public Property Get commFrmQuery() As ADODB.Command
Set commFrmQuery = mcommFrmQuery
End Property
Public Property Set rsFrmSource(ByVal vData As ADODB.Recordset)
Set mrsFrmSource = vData
End Property
Public Property Get rsFrmSource() As ADODB.Recordset
Set rsFrmSource = mrsFrmSource
End Property
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -