📄 frmtaxtypelistcard.frm
字号:
VERSION 5.00
Begin VB.Form frmTaxTypeListcard
BorderStyle = 1 'Fixed Single
Caption = "新增个人所得税扣税标准"
ClientHeight = 2295
ClientLeft = 2220
ClientTop = 2310
ClientWidth = 5340
LinkTopic = "Form2"
LockControls = -1 'True
MaxButton = 0 'False
MDIChild = -1 'True
ScaleHeight = 2295
ScaleWidth = 5340
Begin VB.TextBox txtTaxType
Height = 270
Index = 3
Left = 2160
TabIndex = 7
Top = 1680
Width = 1215
End
Begin VB.TextBox txtTaxType
Height = 270
Index = 2
Left = 240
TabIndex = 5
Top = 1680
Width = 1215
End
Begin VB.TextBox txtTaxType
Height = 270
Index = 1
Left = 1740
TabIndex = 3
Text = "0"
Top = 840
Width = 1695
End
Begin VB.TextBox txtTaxType
Height = 285
Index = 0
Left = 1740
TabIndex = 1
Top = 360
Width = 1905
End
Begin VB.CommandButton cmdNext
Height = 350
Left = 4000
Style = 1 'Graphical
TabIndex = 10
Tag = "1009"
Top = 1080
UseMaskColor = -1 'True
Width = 1215
End
Begin VB.CommandButton cmdCancel
Cancel = -1 'True
Height = 350
Left = 4000
Style = 1 'Graphical
TabIndex = 9
Tag = "1002"
Top = 630
UseMaskColor = -1 'True
Width = 1215
End
Begin VB.CommandButton cmdOk
Default = -1 'True
Height = 350
Left = 4000
Style = 1 'Graphical
TabIndex = 8
Tag = "1001"
Top = 180
UseMaskColor = -1 'True
Width = 1215
End
Begin VB.Label lblTax
Caption = "元"
Height = 255
Index = 6
Left = 1560
TabIndex = 13
Top = 1680
Width = 255
End
Begin VB.Label lblTax
Caption = "%"
Height = 255
Index = 5
Left = 3480
TabIndex = 12
Top = 1680
Width = 255
End
Begin VB.Label lblTax
Caption = "扣除金额内税率(&T)"
Height = 255
Index = 4
Left = 2160
TabIndex = 6
Top = 1320
Width = 1575
End
Begin VB.Label lblTax
Caption = "扣除金额(&A)"
Height = 255
Index = 3
Left = 240
TabIndex = 4
Top = 1320
Width = 1215
End
Begin VB.Label lblTax
Caption = "元"
Height = 195
Index = 2
Left = 3480
TabIndex = 11
Top = 885
Width = 195
End
Begin VB.Label lblTax
Caption = "起征金额(&S)"
Height = 255
Index = 1
Left = 240
TabIndex = 2
Top = 840
Width = 1485
End
Begin VB.Label lblTax
Caption = "扣税标准名称(&N)"
Height = 255
Index = 0
Left = 240
TabIndex = 0
Top = 390
Width = 1485
End
End
Attribute VB_Name = "frmTaxTypeListcard"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' '
'功能: 完成个人所得税扣税标准的增、删、改。 '
'卡片接口: EditCard 参数: lngID 记录的ID号 '
'作用: LNGID为零是增加记录、其它为编辑记录 '
' DelCard 参数: lngID 记录的ID号 '
'作用: 删除ID号为LNGID的记录 '
'作者： 冉升 '
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Option Explicit
Private mstrTaxName As String
Private mdblStart As Double
Private mdblDeductAmount As Double
Private mdblStartTaxRate As Double
Private mblnIsNew As Boolean
Private mblnIsChanged As Boolean
Private mlngTaxID As Integer
Private mblnIsFirst As Boolean
Private WithEvents mclsMainControl As MainControl '主控对象
Attribute mclsMainControl.VB_VarHelpID = -1
Public Property Get getID()
getID = mlngTaxID
End Property
Private Sub Form_Activate()
' txtTaxType(0).SelStart = 0
' txtTaxType(0).SelLength = strLen(txtTaxType(0).Text)
' txtTaxType(0).SetFocus
End Sub
Private Sub Form_Load()
On Error GoTo ErrHandle
SetHelpID Me.hwnd, 10238
mblnIsChanged = False
Set mclsMainControl = gclsSys.MainControls.Add(Me)
frmEmployeeList.IsShowCard(3) = True
Exit Sub
Dim edtErrReturn As ErrDealType
ErrHandle:
edtErrReturn = Errors.ErrorsDeal
If edtErrReturn = edtResume Then
Resume
Else
On Error Resume Next
Unload Me
End If
End Sub
Private Sub Form_Paint()
FrameBox Me.hwnd, 120, 180, 3800, 2150
End Sub
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
Dim intResponse As Integer
If UnloadMode = vbFormControlMenu And mblnIsChanged Then
intResponse = ShowMsg(0, "当前个人所得税扣税标准已被修改，是否保存？", _
vbYesNoCancel + vbQuestion + MB_TASKMODAL, Caption)
If intResponse = vbYes Then
Cancel = Not SaveCard()
ElseIf intResponse = vbCancel Then
Cancel = True
End If
End If
If Not Cancel Then mblnIsChanged = False
End Sub
Private Sub Form_Unload(Cancel As Integer)
On Error Resume Next
mblnIsFirst = False
frmEmployeeList.IsShowCard(3) = False
Utility.UnLoadFormResPicture Me
gclsSys.MainControls.Remove Me
Set mclsMainControl = Nothing
End Sub
Private Sub cmdCancel_Click()
Unload Me
End Sub
Private Sub cmdNext_Click()
If Not SaveCard() Then
Exit Sub
End If
mlngTaxID = 0
InitCard
txtTaxType(0).SetFocus
End Sub
Private Sub cmdOK_Click()
If SaveCard Then
Unload Me
End If
End Sub
Public Function AddCard(Optional strName As String = "", Optional intModal As Integer = 0) As Long
mblnIsFirst = True
Me.Caption = "新增个人所得税扣税标准"
mlngTaxID = 0
mblnIsNew = True
InitCard strName
If Me.WindowState = 1 Then Me.WindowState = 0
Show intModal
Me.ZOrder 0
AddCard = mlngTaxID
End Function
Public Sub EditCard(ByVal lngID As Long, Optional intModal As Integer = 0)
If Not CheckIDUsed("PersonTaxType", "lngPersonTaxTypeID", lngID) Then
ShowMsg 0, "该个人所得税扣税标准不存在,不能进行修改！", _
vbExclamation + MB_TASKMODAL, Caption
Unload Me
Else
mblnIsFirst = True
mlngTaxID = lngID
mblnIsNew = False
InitCard
mblnIsFirst = False
Caption = "修改个人所得税扣税标准"
cmdNext.Visible = False
If Me.WindowState = 1 Then Me.WindowState = 0
Show intModal
If intModal <> vbModal Then
Refresh
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -