📄 frmitemlist.frm
字号:
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 datItem
Height = 330
Index = 3
Left = 3750
Top = 3690
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 datItem
Height = 330
Index = 4
Left = 4980
Top = 3690
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 datItem
Height = 330
Index = 5
Left = 6210
Top = 3690
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 MSForms.CommandButton cmdTypact
Height = 345
Index = 5
Left = 4860
TabIndex = 19
TabStop = 0 'False
Top = 5325
Visible = 0 'False
Width = 1215
Caption = "折扣管理(D)"
Size = "2143;609"
Accelerator = 68
FontName = "宋体"
FontHeight = 180
FontCharSet = 134
FontPitchAndFamily= 34
ParagraphAlign = 3
End
Begin MSForms.CommandButton cmdTypact
Height = 345
Index = 4
Left = 3660
TabIndex = 17
TabStop = 0 'False
Top = 5325
Visible = 0 'False
Width = 1215
Caption = "调整价格(A)"
Size = "2143;609"
Accelerator = 65
FontName = "宋体"
FontHeight = 180
FontCharSet = 134
FontPitchAndFamily= 34
ParagraphAlign = 3
End
Begin MSForms.CommandButton cmdTypact
Height = 345
Index = 3
Left = 2445
TabIndex = 16
TabStop = 0 'False
Top = 5325
Visible = 0 'False
Width = 1215
Caption = "经营预算(M)"
Size = "2143;609"
Accelerator = 77
FontName = "宋体"
FontHeight = 180
FontCharSet = 134
FontPitchAndFamily= 34
ParagraphAlign = 3
End
Begin MSForms.CommandButton cmdTypact
Height = 345
Index = 2
Left = 1230
TabIndex = 15
TabStop = 0 'False
Top = 5325
Visible = 0 'False
Width = 1215
Caption = "商品期初(E)"
Size = "2143;609"
Accelerator = 69
FontName = "宋体"
FontHeight = 180
FontCharSet = 134
FontPitchAndFamily= 34
ParagraphAlign = 3
End
Begin MSForms.CommandButton cmdTypact
Height = 345
Index = 1
Left = 6120
TabIndex = 14
TabStop = 0 'False
Tag = "1018"
Top = 5340
Visible = 0 'False
Width = 1215
Caption = "报表"
PicturePosition = 196613
Size = "2143;609"
FontName = "宋体"
FontHeight = 180
FontCharSet = 134
FontPitchAndFamily= 34
ParagraphAlign = 3
End
Begin MSForms.CommandButton cmdTypact
Height = 345
Index = 0
Left = 50
TabIndex = 12
Tag = "1018"
Top = 3465
Width = 1215
Caption = "编辑"
PicturePosition = 196613
Size = "2143;609"
FontName = "宋体"
FontHeight = 180
FontCharSet = 134
FontPitchAndFamily= 34
ParagraphAlign = 3
End
Begin VB.Label lblFind
Caption = "内容(&C)"
Height = 180
Left = 3360
TabIndex = 2
Top = 150
Width = 660
End
Begin VB.Label lblFindKind
Caption = "查找(&B)"
Height = 180
Left = 48
TabIndex = 0
Top = 150
Width = 660
End
End
Attribute VB_Name = "frmItemList"
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(6) 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 mclsList(5) As list '列表对象
Private blnIsLoad(5) As Boolean
Private intViewID(5) As Integer
Private mblnIsSaveListset(1) As Boolean 'whether or not save lngViewID in list
Private mblnPasteVisible As Boolean
Private mblnScrollMissFocus As Boolean
Private mintCurrentOfPaste As Integer
Private mfrmFanceAnanly As Form
Private mblnCardEdit As Boolean
Private mblnCardNew As Boolean
'方法及函数
'
'产生部门职员列表记录集
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 ItemType.lngItemTypeID As id,decode(ItemType.blnIsInActive,1,'√','') As ""停用""," & strSelectOfSql
If Trim(strWhereOfSql) <> "" Then
strWhereOfSql = " Where " & strWhereOfSql
End If
Case 1
strSelectOfSql = "Select ItemNature.lngItemNatureID As id,'' As ""停用""," & strSelectOfSql
If Trim(strWhereOfSql) <> "" Then
strWhereOfSql = " Where " & strWhereOfSql
End If
Case 2
strSelectOfSql = "Select Item.lngItemID As id,decode(Item.blnIsInActive,1,'√','') As ""停用""," & strSelectOfSql
If Trim(strWhereOfSql) <> "" Then
strWhereOfSql = " Where " & strWhereOfSql
End If
Case 3
strSelectOfSql = "Select Tax.lngTaxID As id,decode(Tax.blnIsInActive,1,'√','') As ""停用""," & strSelectOfSql
If Trim(strWhereOfSql) <> "" Then
strWhereOfSql = " Where " & strWhereOfSql
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -