📄 frmiteminitlist.frm
字号:
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 datItemInit
Height = 312
Index = 3
Left = 3000
Top = 4848
Visible = 0 'False
Width = 960
_ExtentX = 1693
_ExtentY = 550
_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 datItemInit
Height = 312
Index = 4
Left = 3984
Top = 4848
Visible = 0 'False
Width = 960
_ExtentX = 1693
_ExtentY = 550
_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 datItemInit
Height = 312
Index = 5
Left = 4944
Top = 4824
Visible = 0 'False
Width = 960
_ExtentX = 1693
_ExtentY = 550
_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 datItemInit
Height = 312
Index = 6
Left = 5856
Top = 4848
Visible = 0 'False
Width = 960
_ExtentX = 1693
_ExtentY = 550
_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 = 1260
TabIndex = 14
Tag = "1018"
Top = 4425
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 = 45
TabIndex = 13
Tag = "1018"
Top = 4425
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 = 228
Left = 3636
TabIndex = 2
Top = 132
Width = 756
End
Begin VB.Label lblFindKind
Caption = "查找(&B)"
DragMode = 1 'Automatic
Height = 204
Left = 48
TabIndex = 0
Top = 144
Width = 684
End
End
Attribute VB_Name = "frmItemInitList"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
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 mclsItemInit As clsStartDel '删除类
Private mblnIsUser(6) As Boolean
Private mclsList(6) As list '列表对象
Private blnIsLoad(6) As Boolean
Private intViewID(6) As Integer
Private theEditForm As Form
Private mlngoldOperator As Long
Private mblnIsEdit(6) As Boolean
'
'方法及函数
'
'产生部门职员列表记录集
Private Function GetList(ByVal intTab As Integer) As rdoResultset
Dim BeginDate As Date
Dim EndDate As Date
Dim recRecordset As rdoResultset
Dim strSelectOfSql As String
Dim strFromOfSql As String
Dim strWhereOfSql As String
Dim strSql As String
Dim strGroup As String
Dim strHavingofsql As String
On Error Resume Next
strSelectOfSql = mclsList(intTab).ListSet.SelectOfSql
strFromOfSql = mclsList(intTab).ListSet.FromOfSql
strWhereOfSql = mclsList(intTab).ListSet.WhereOfSql
strHavingofsql = mclsList(intTab).ListSet.HavingOfSql
strSelectOfSql = "Select ItemActivity.lngActivityID As id,min(decode(ItemActivity.blnIsVoid,1,'√','')) As ""作废""," & strSelectOfSql
If Trim(strHavingofsql) <> "" Then
strHavingofsql = " HAVING " & strHavingofsql
End If
Select Case intTab
Case 0
If Trim(strWhereOfSql) <> "" Then
strWhereOfSql = " Where ItemActivity.lngActivityTypeID=41 and " & strWhereOfSql
Else
strWhereOfSql = " Where ItemActivity.lngActivityTypeID=41"
End If
Case 1
If Trim(strWhereOfSql) <> "" Then
strWhereOfSql = " Where ItemActivity.lngActivityTypeID=42 and " & strWhereOfSql
Else
strWhereOfSql = " Where ItemActivity.lngActivityTypeID=42"
End If
Case 2
If Trim(strWhereOfSql) <> "" Then
strWhereOfSql = " Where ItemActivity.lngActivityTypeID=43 and " & strWhereOfSql
Else
strWhereOfSql = " Where ItemActivity.lngActivityTypeID=43"
End If
Case 3
If Trim(strWhereOfSql) <> "" Then
strWhereOfSql = " Where ItemActivity.lngActivityTypeID=44 and " & strWhereOfSql
Else
strWhereOfSql = " Where ItemActivity.lngActivityTypeID=44"
End If
Case 4
If Trim(strWhereOfSql) <> "" Then
strWhereOfSql = " Where ItemActivity.lngActivityTypeID=45 and " & strWhereOfSql
Else
strWhereOfSql = " Where ItemActivity.lngActivityTypeID=45"
End If
Case 5
If Trim(strWhereOfSql) <> "" Then
strWhereOfSql = " Where ItemActivity.lngActivityTypeID=46 and " & strWhereOfSql
Else
strWhereOfSql = " Where ItemActivity.lngActivityTypeID=46"
End If
Case 6
If Trim(strWhereOfSql) <> "" Then
strWhereOfSql = " Where ItemActivity.lngActivityTypeID=47 and " & strWhereOfSql
Else
strWhereOfSql = " Where ItemActivity.lngActivityTypeID=47"
End If
End Select
strGroup = " GROUP BY ItemActivity.lngActivityID"
strSql = strSelectOfSql & strFromOfSql & strWhereOfSql & strGroup & strHavingofsql
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 Property Let IsShowCard(ByVal vNewValue As Boolean)
mIsShowCard = vNewValue
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -