📄 frmtaxpersonlist.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"
Object = "{F6125AB1-8AB1-11CE-A77F-08002B2F4E98}#2.0#0"; "MSRDC20.OCX"
Begin VB.Form frmTaxPersonList
Caption = "税率税种"
ClientHeight = 3750
ClientLeft = 60
ClientTop = 345
ClientWidth = 6285
LinkTopic = "Form2"
MDIChild = -1 'True
ScaleHeight = 3750
ScaleWidth = 6285
Begin MSRDC.MSRDC datItem
Height = 330
Index = 1
Left = 4920
Top = 3360
Visible = 0 'False
Width = 1215
_ExtentX = 2143
_ExtentY = 582
_Version = 327681
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 = "MSRDC2"
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 = 0
Left = 4200
Top = 3600
Visible = 0 'False
Width = 1200
_ExtentX = 2117
_ExtentY = 582
_Version = 327681
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 VB.ComboBox cboFindKind
Height = 276
Left = 900
Style = 2 'Dropdown List
TabIndex = 3
Top = 96
Width = 1800
End
Begin VB.CheckBox chkShowAll
Caption = "全部显示"
Height = 350
Left = 3930
TabIndex = 2
Top = 3360
Width = 1095
End
Begin VB.TextBox txtFind
Height = 300
Left = 4050
TabIndex = 1
Text = "Text1"
Top = 105
Width = 1695
End
Begin VB.CommandButton cmdAgain
BeginProperty Font
Name = "Arial"
Size = 9
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 300
Left = 5730
Style = 1 'Graphical
TabIndex = 0
Tag = "1017"
Top = 90
UseMaskColor = -1 'True
Width = 300
End
Begin TabDlg.SSTab sstTypAct
Height = 2625
Left = 50
TabIndex = 4
Top = 570
Width = 6045
_ExtentX = 10663
_ExtentY = 4630
_Version = 327681
Style = 1
Tabs = 2
TabsPerRow = 4
TabHeight = 529
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
TabCaption(0) = "商品税率(&T)"
TabPicture(0) = "frmTaxPersonList.frx":0000
Tab(0).ControlEnabled= -1 'True
Tab(0).Control(0)= "msgItemType"
Tab(0).Control(0).Enabled= 0 'False
Tab(0).ControlCount= 1
TabCaption(1) = "个人所得税(&I)"
TabPicture(1) = "frmTaxPersonList.frx":001C
Tab(1).ControlEnabled= 0 'False
Tab(1).Control(0)= "msgItem"
Tab(1).ControlCount= 1
Begin MSFlexGridLib.MSFlexGrid msgItem
Bindings = "frmTaxPersonList.frx":0038
Height = 1995
Left = -74910
TabIndex = 5
Top = 450
Width = 5445
_ExtentX = 9604
_ExtentY = 3519
_Version = 65541
Rows = 10
FixedCols = 0
BackColor = 16777215
BackColorFixed = -2147483644
BackColorSel = -2147483646
BackColorBkg = 16777215
AllowBigSelection= 0 'False
FocusRect = 0
SelectionMode = 1
End
Begin MSFlexGridLib.MSFlexGrid msgItemType
Bindings = "frmTaxPersonList.frx":004D
Height = 2025
Left = 60
TabIndex = 6
Top = 450
Width = 5445
_ExtentX = 9604
_ExtentY = 3572
_Version = 65541
Rows = 10
FixedCols = 0
BackColor = 16777215
BackColorFixed = -2147483644
BackColorSel = -2147483646
BackColorBkg = 16777215
AllowBigSelection= 0 'False
FocusRect = 0
SelectionMode = 1
AllowUserResizing= 1
End
End
Begin MSForms.CommandButton cmdTypact
Height = 345
Index = 1
Left = 1260
TabIndex = 10
Tag = "1018"
Top = 3270
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 = 9
Tag = "1018"
Top = 3270
Width = 1215
Caption = "编辑"
PicturePosition = 196613
Size = "2143;609"
FontName = "宋体"
FontHeight = 180
FontCharSet = 134
FontPitchAndFamily= 34
ParagraphAlign = 3
End
Begin VB.Label lblFindKind
Caption = "查找(&F)"
Height = 180
Left = 50
TabIndex = 8
Top = 165
Width = 630
End
Begin VB.Label lblFind
Caption = "内容(&C)"
Height = 180
Left = 3300
TabIndex = 7
Top = 165
Width = 630
End
End
Attribute VB_Name = "frmTaxPersonList"
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(1) 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(1) As list '列表对象
Private blnIsLoad(1) As Boolean
Private intViewID(1) As Integer
Private mblnIsSaveListset(1) As Boolean 'Whether or not save lngViewID in List
'
'方法及函数
'
'产生部门职员列表记录集
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.SelectOfSql
strFromOfSql = mclsList(intTab).ListSet.FromOfSql
strWhereOfSql = mclsList(intTab).ListSet.WhereOfSql
Select Case intTab
Case 0
strSelectOfSql = "Select Tax.lngTaxID As id,decode(Tax.blnIsInActive,'1','√','0','') As ""停用""," & strSelectOfSql
If strWhereOfSql <> "" Then
strWhereOfSql = " Where " & strWhereOfSql
End If
Case 1
strSelectOfSql = "Select PersonTax.lngPersonTaxID As id,'' As ""停用""," & strSelectOfSql
If 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
Me.sstTypAct.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
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -