📄 frmfindbr.frm
字号:
VERSION 5.00
Object = "{5E9E78A0-531B-11CF-91F6-C2863C385E30}#1.0#0"; "MSFLXGRD.OCX"
Object = "{0D452EE1-E08F-101A-852E-02608C4D0BB4}#2.0#0"; "FM20.DLL"
Object = "{BDC217C8-ED16-11CD-956C-0000C04E4C0A}#1.1#0"; "TABCTL32.OCX"
Begin VB.Form frmFindbr
AutoRedraw = -1 'True
BorderStyle = 1 'Fixed Single
Caption = "查询"
ClientHeight = 5985
ClientLeft = 45
ClientTop = 435
ClientWidth = 9090
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 5985
ScaleWidth = 9090
StartUpPosition = 1 '所有者中心
Begin VB.CommandButton cmdTitle
Height = 375
Left = 0
TabIndex = 0
Top = 0
Width = 9135
End
Begin TabDlg.SSTab SSTab1
Height = 6015
Left = 0
TabIndex = 1
Top = 0
Width = 9135
_ExtentX = 16113
_ExtentY = 10610
_Version = 393216
Tab = 1
TabHeight = 520
TabCaption(0) = "选择字段"
TabPicture(0) = "frmFindbr.frx":0000
Tab(0).ControlEnabled= 0 'False
Tab(0).Control(0)= "Frame2"
Tab(0).Control(1)= "Frame1"
Tab(0).ControlCount= 2
TabCaption(1) = "选择条件"
TabPicture(1) = "frmFindbr.frx":001C
Tab(1).ControlEnabled= -1 'True
Tab(1).Control(0)= "Frame3"
Tab(1).Control(0).Enabled= 0 'False
Tab(1).ControlCount= 1
TabCaption(2) = "显示结果"
TabPicture(2) = "frmFindbr.frx":0038
Tab(2).ControlEnabled= 0 'False
Tab(2).Control(0)= "Frame5"
Tab(2).Control(1)= "Frame4"
Tab(2).ControlCount= 2
Begin VB.Frame Frame1
Caption = "选择要显示的字段"
Height = 4455
Left = -74880
TabIndex = 20
Top = 480
Width = 8895
Begin VB.CheckBox chkRS
Caption = "Check1"
Height = 375
Index = 0
Left = 360
TabIndex = 22
Top = 360
Width = 1455
End
Begin VB.CheckBox chkRS
Caption = "Check1"
Height = 375
Index = 1
Left = 2040
TabIndex = 21
Top = 360
Width = 1455
End
End
Begin VB.Frame Frame2
Height = 735
Left = -74880
TabIndex = 16
Top = 5040
Width = 8775
Begin MSForms.CommandButton cmdNext
Height = 375
Left = 6120
TabIndex = 19
Top = 240
Width = 975
Caption = "下一步>>"
PicturePosition = 524294
Size = "1720;661"
FontName = "宋体"
FontHeight = 180
FontCharSet = 134
FontPitchAndFamily= 34
ParagraphAlign = 3
End
Begin MSForms.CommandButton cmdExit0
Height = 375
Left = 7440
TabIndex = 18
Top = 240
Width = 975
Caption = "退出"
PicturePosition = 327683
Size = "1720;661"
Picture = "frmFindbr.frx":0054
FontName = "宋体"
FontHeight = 180
FontCharSet = 134
FontPitchAndFamily= 34
ParagraphAlign = 3
End
Begin MSForms.CommandButton cmdSelAll
Height = 375
Left = 240
TabIndex = 17
Top = 240
Width = 1095
Caption = "取消全部"
PicturePosition = 327683
Size = "1931;661"
Picture = "frmFindbr.frx":228E
FontName = "宋体"
FontHeight = 180
FontCharSet = 134
FontPitchAndFamily= 34
ParagraphAlign = 3
End
End
Begin VB.Frame Frame3
Height = 5295
Left = 120
TabIndex = 7
Top = 480
Width = 8895
Begin VB.ComboBox cboHow
Height = 300
Left = 1560
TabIndex = 9
Top = 3000
Width = 1575
End
Begin VB.TextBox txtSQL
Height = 375
Left = 0
TabIndex = 8
Top = 1200
Visible = 0 'False
Width = 8535
End
Begin MSFlexGridLib.MSFlexGrid grdHow
Height = 3735
Left = 120
TabIndex = 10
Top = 240
Width = 8655
_ExtentX = 15266
_ExtentY = 6588
_Version = 393216
RowHeightMin = 300
BackColorBkg = -2147483643
GridColor = 16744576
End
Begin MSForms.CommandButton CommandButton1
Height = 375
Left = 2040
TabIndex = 15
Top = 4800
Visible = 0 'False
Width = 975
Caption = "生成"
Size = "1720;661"
FontName = "宋体"
FontHeight = 180
FontCharSet = 134
FontPitchAndFamily= 34
ParagraphAlign = 3
End
Begin MSForms.CommandButton cmdClear
Height = 375
Left = 3630
TabIndex = 14
Top = 4800
Width = 975
Caption = "清空"
PicturePosition = 327683
Size = "1720;661"
Picture = "frmFindbr.frx":4A40
FontName = "宋体"
FontHeight = 180
FontCharSet = 134
FontPitchAndFamily= 34
ParagraphAlign = 3
End
Begin MSForms.CommandButton cmdQuery
Height = 375
Left = 6330
TabIndex = 13
Top = 4800
Width = 975
Caption = "下一步>>"
Size = "1720;661"
FontName = "宋体"
FontHeight = 180
FontCharSet = 134
FontPitchAndFamily= 34
ParagraphAlign = 3
End
Begin MSForms.CommandButton cmdBefore
Height = 375
Left = 4980
TabIndex = 12
Top = 4800
Width = 975
Caption = "<<上一步"
Size = "1720;661"
FontName = "宋体"
FontHeight = 180
FontCharSet = 134
FontPitchAndFamily= 34
ParagraphAlign = 3
End
Begin MSForms.CommandButton cmdE
Height = 375
Left = 7680
TabIndex = 11
Top = 4800
Width = 975
Caption = "退出"
PicturePosition = 327683
Size = "1720;661"
FontName = "宋体"
FontHeight = 180
FontCharSet = 134
FontPitchAndFamily= 34
ParagraphAlign = 3
End
End
Begin VB.Frame Frame4
Height = 4455
Left = -74880
TabIndex = 5
Top = 480
Width = 8895
Begin MSFlexGridLib.MSFlexGrid grdShow
Height = 4095
Left = 120
TabIndex = 6
Top = 240
Width = 8655
_ExtentX = 15266
_ExtentY = 7223
_Version = 393216
BackColorBkg = -2147483643
GridColor = 16744576
AllowUserResizing= 3
End
End
Begin VB.Frame Frame5
Height = 735
Left = -74880
TabIndex = 2
Top = 5040
Width = 8895
Begin MSForms.CommandButton cmdBf
Height = 375
Left = 6240
TabIndex = 4
Top = 240
Width = 975
Caption = "<<上一步"
Size = "1720;661"
FontName = "宋体"
FontHeight = 180
FontCharSet = 134
FontPitchAndFamily= 34
ParagraphAlign = 3
End
Begin MSForms.CommandButton cmdFisish
Height = 375
Left = 7680
TabIndex = 3
Top = 240
Width = 975
Caption = "完成"
PicturePosition = 327683
Size = "1720;661"
Picture = "frmFindbr.frx":6B7A
FontName = "宋体"
FontHeight = 180
FontCharSet = 134
FontPitchAndFamily= 34
ParagraphAlign = 3
End
End
End
End
Attribute VB_Name = "frmFindbr"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim putRs() As String
Dim number As Integer
Public strTbName As String
Dim blnDark As Boolean
'传递表名,返回字段数
Private Function CreateCT(strDBTable As String)
Dim rs As ADODB.Recordset
Dim strSql As String
Dim strMsg As String
Dim baselenx As Integer '行间隔
Dim baseleny As Integer '列间隔
Dim btop As Integer '上距
Dim bleft As Integer '左距
Dim num As Integer
Dim colmax As Integer
strSql = "select * from " & strDBTable
Set rs = ExecuteSQL(strSql, strMsg)
baselenx = 2100
baseleny = 500
btop = 500
bleft = 500
'数量
num = rs.Fields.Count
If num < 2 Then
CreateCT = num
End If
colmax = 4
chkRS(0).Left = bleft
chkRS(0).Top = btop
chkRS(0).Caption = rs.Fields(0).Name
chkRS(0).Tag = rs.Fields(0).Type
chkRS(1).Left = bleft + baselenx
chkRS(1).Top = btop
chkRS(1).Caption = rs.Fields(1).Name
chkRS(1).Tag = rs.Fields(1).Type
While (i < num)
Col = i Mod colmax
Row = i \ colmax
If i > 1 Then
Load chkRS(i)
chkRS(i).Left = Col * baselenx + bleft
chkRS(i).Top = Row * baseleny + btop
chkRS(i).Visible = True
chkRS(i).Caption = rs.Fields(i).Name
chkRS(i).Tag = rs.Fields(i).Type
End If
i = i + 1
Wend
rs.Close
Set rs = Nothing
CreateCT = num
End Function
Private Sub cboHow_GotFocus()
cboHow.Clear
'在combobox中填入值
cboHow.Text = grdHow.Text
Dim i As Integer
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -