📄 frmcustomlist.frm
字号:
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
Begin MSRDC.MSRDC datCustom
Height = 330
Index = 3
Left = 3630
Top = 3990
Visible = 0 'False
Width = 1200
_ExtentX = 2117
_ExtentY = 572
_Version = 393216
Options = 0
CursorDriver = 0
BOFAction = 0
EOFAction = 0
RecordsetType = 1
LockType = 3
QueryType = 0
Prompt = 3
Appearance = 1
QueryTimeout = 30
RowsetSize = 100
LoginTimeout = 15
KeysetSize = 0
MaxRows = 0
ErrorThreshold = -1
BatchSize = 15
BackColor = -2147483643
ForeColor = -2147483640
Enabled = -1 'True
ReadOnly = 0 'False
Appearance = -1 'True
DataSourceName = ""
RecordSource = ""
UserName = ""
Password = ""
Connect = ""
LogMessages = ""
Caption = "MSRDC1"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
Begin MSRDC.MSRDC datCustom
Height = 330
Index = 4
Left = 4860
Top = 4050
Visible = 0 'False
Width = 1200
_ExtentX = 2117
_ExtentY = 572
_Version = 393216
Options = 0
CursorDriver = 0
BOFAction = 0
EOFAction = 0
RecordsetType = 1
LockType = 3
QueryType = 0
Prompt = 3
Appearance = 1
QueryTimeout = 30
RowsetSize = 100
LoginTimeout = 15
KeysetSize = 0
MaxRows = 0
ErrorThreshold = -1
BatchSize = 15
BackColor = -2147483643
ForeColor = -2147483640
Enabled = -1 'True
ReadOnly = 0 'False
Appearance = -1 'True
DataSourceName = ""
RecordSource = ""
UserName = ""
Password = ""
Connect = ""
LogMessages = ""
Caption = "MSRDC1"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
Begin MSRDC.MSRDC datCustom
Height = 330
Index = 5
Left = 6060
Top = 4020
Visible = 0 'False
Width = 1200
_ExtentX = 2117
_ExtentY = 593
_Version = 393216
Options = 0
CursorDriver = 0
BOFAction = 0
EOFAction = 0
RecordsetType = 1
LockType = 3
QueryType = 0
Prompt = 3
Appearance = 1
QueryTimeout = 30
RowsetSize = 100
LoginTimeout = 15
KeysetSize = 0
MaxRows = 0
ErrorThreshold = -1
BatchSize = 15
BackColor = -2147483643
ForeColor = -2147483640
Enabled = -1 'True
ReadOnly = 0 'False
Appearance = -1 'True
DataSourceName = ""
RecordSource = ""
UserName = ""
Password = ""
Connect = ""
LogMessages = ""
Caption = "MSRDC1"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
Begin MSForms.CommandButton cmdEAR
Height = 345
Index = 1
Left = 1800
TabIndex = 14
Tag = "1018"
Top = 4530
Visible = 0 'False
Width = 1215
Caption = "报表"
PicturePosition = 196613
Size = "2143;617"
FontName = "宋体"
FontHeight = 180
FontCharSet = 134
FontPitchAndFamily= 34
ParagraphAlign = 3
End
Begin MSForms.CommandButton cmdEAR
Height = 345
Index = 0
Left = 50
TabIndex = 12
Tag = "1018"
Top = 3390
Width = 1215
Caption = "编辑"
PicturePosition = 196613
Size = "2143;617"
FontName = "宋体"
FontHeight = 180
FontCharSet = 134
FontPitchAndFamily= 34
ParagraphAlign = 3
End
Begin VB.Label lblFind
Caption = "内容(&C)"
Height = 180
Left = 3636
TabIndex = 2
Top = 150
Width = 660
End
Begin VB.Label lblFindKind
Caption = "查找(&B)"
DragMode = 1 'Automatic
Height = 180
Left = 48
TabIndex = 0
Top = 150
Width = 660
End
End
Attribute VB_Name = "frmCustomList"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
''''''''''''''''''''''''''''''''
' 自定义项目列表
' 作者：欧中建
' 日期:98.6.23
''1.1 所用类模块：List
'1.2 所用钩子函数：mclsSubClass，mclsSubClassForm。
''''''''''''''''''''''''''''''''
Option Explicit
Private mIsShowCard As Boolean '卡片窗口显示标志
Private mblnCheckNoChange As Boolean '不需要响应chkshowAll控件Change事件
Private mblnComboxNoClick As Boolean
Private WithEvents mclsMainControl As MainControl '主控对象
Attribute mclsMainControl.VB_VarHelpID = -1
Private WithEvents mclsSubClass As SubClass32.SubClass '钩子对象
Attribute mclsSubClass.VB_VarHelpID = -1
Private WithEvents mclsSubClassform As SubClass32.SubClass
Attribute mclsSubClassform.VB_VarHelpID = -1
Private mstrTitleName(5) As String
Private mblnIsUser(5) As Boolean
Private mclsList(5) As list '列表对象
Private blnIsLoad(5) As Boolean
Private intViewID(5) As Integer
'
'方法及函数
'
'产生部门职员列表记录集
Public Function GetList(ByVal intTab As Integer) As rdoResultset
Dim recRecordset As rdoResultset
Dim strSelectOfSql As String
Dim strFromOfSql As String
Dim strWhereOfSql As String
Dim strSql As String
strSelectOfSql = mclsList(intTab).ListSet.GetSelect
strFromOfSql = mclsList(intTab).ListSet.FromOfSql
strWhereOfSql = mclsList(intTab).ListSet.WhereOfSql
Select Case intTab
Case 0
strSelectOfSql = "Select Custom0.lngCustomID As id,decode(Custom0.blnIsInActive,1,'√','') As ""停用""," & strSelectOfSql
If Trim(strWhereOfSql) <> "" Then
strWhereOfSql = " Where " & strWhereOfSql
End If
Case 1
strSelectOfSql = "Select Custom1.lngCustomID As id,decode(Custom1.blnIsInActive,1,'√','') As ""停用""," & strSelectOfSql
If Trim(strWhereOfSql) <> "" Then
strWhereOfSql = " Where " & strWhereOfSql
End If
Case 2
strSelectOfSql = "Select Custom2.lngCustomID As id,decode(Custom2.blnIsInActive,1,'√','') As ""停用""," & strSelectOfSql
If Trim(strWhereOfSql) <> "" Then
strWhereOfSql = " Where " & strWhereOfSql
End If
Case 3
strSelectOfSql = "Select Custom3.lngCustomID As id,decode(Custom3.blnIsInActive,1,'√','') As ""停用""," & strSelectOfSql
If Trim(strWhereOfSql) <> "" Then
strWhereOfSql = " Where " & strWhereOfSql
End If
Case 4
strSelectOfSql = "Select Custom4.lngCustomID As id,decode(Custom4.blnIsInActive,1,'√','') As ""停用""," & strSelectOfSql
If Trim(strWhereOfSql) <> "" Then
strWhereOfSql = " Where " & strWhereOfSql
End If
Case 5
strSelectOfSql = "Select Custom5.lngCustomID As id,decode(Custom5.blnIsInActive,1,'√','') As ""停用""," & strSelectOfSql
If Trim(strWhereOfSql) <> "" Then
strWhereOfSql = " Where " & strWhereOfSql
End If
End Select
strSql = strSelectOfSql & strFromOfSql & strWhereOfSql
'Debug.Print strSql
Set recRecordset = gclsBase.BaseDB.OpenResultset(strSql, rdOpenStatic)
'列表是否为空
If recRecordset.RowCount = 0 Then
mclsList(intTab).FlexGrid.HighLight = flexHighlightNever
cmdAgain.Enabled = False
Else
mclsList(intTab).FlexGrid.HighLight = flexHighlightAlways
cmdAgain.Enabled = True
End If
mclsList(intTab).ShowAll = True
Set GetList = recRecordset
End Function
'调用接口
Public Function Showlist(ByVal lngID As Long, Optional intTab As Integer = 0) As Boolean
Dim intCount As Integer
Dim strSortField As String
Dim strSortDec As String
Dim strSql As String
Dim recTemp As rdoResultset
Dim strofFrom As String
Dim strofWhere As String
' Me.Show
' Me.ZOrder 0
With frmMain.mnuListCustom
If IsNumeric(.Tag) Then
If CLng(.Tag) > 0 Then
BringWindowToTop .Tag
Else
Me.BindingResultSet
End If
Else
Me.BindingResultSet
End If
End With
Me.sstCustom.Tab = intTab
With mclsList(intTab).ListSet
'得到排序字段
For intCount = 1 To .Columns
If .ColumnOrderType(intCount) <> 0 Then
strSortField = .ColumnFieldName(intCount)
strSortDec = .ColumnDesc(intCount)
Exit For
End If
Next
If intCount > .Columns Then
Showlist = False
Exit Function
End If
strofFrom = .FromOfSql
strofWhere = .WhereOfSql
End With
'根据lngID得到排序字段值
strSql = "Select " & strSortField & " As " & strSortDec
Select Case intTab
Case 0
If strofWhere <> "" Then
strofWhere = " where " & strofWhere & " and Custom0.lngCustomID=" & lngID
Else
strofWhere = " where Custom0.lngCustomID=" & lngID
End If
Case 1
If strofWhere <> "" Then
strofWhere = " where " & strofWhere & " and Custom1.lngCustomID=" & lngID
Else
strofWhere = " where Custom1.lngCustomID=" & lngID
End If
Case 2
If strofWhere <> "" Then
strofWhere = " where " & strofWhere & " and Custom2.lngCustomID=" & lngID
Else
strofWhere = " where Custom2.lngCustomID=" & lngID
End If
Case 3
If strofWhere <> "" Then
strofWhere = " where " & strofWhere & " and Custom3.lngCustomID=" & lngID
Else
strofWhere = " where Custom3.lngCustomID=" & lngID
End If
Case 4
If strofWhere <> "" Then
strofWhere = " where " & strofWhere & " and Custom4.lngCustomID=" & lngID
Else
strofWhere = " where Custom4.lngCustomID=" & lngID
End If
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -