📄 frmitemtax.frm
字号:
VERSION 5.00
Object = "{81110CCB-022B-11D3-A348-0080C89152FF}#1.2#0"; "ORAGLIST.OCX"
Begin VB.Form frmItemTax
BorderStyle = 3 'Fixed Dialog
Caption = "新增商品税率"
ClientHeight = 2475
ClientLeft = 45
ClientTop = 330
ClientWidth = 6630
HelpContextID = 30034
KeyPreview = -1 'True
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 2475
ScaleWidth = 6630
ShowInTaskbar = 0 'False
StartUpPosition = 2 '屏幕中心
Begin VB.CheckBox chkStop
Caption = "停用"
Height = 285
Left = 5280
TabIndex = 13
Top = 2100
Width = 675
End
Begin ListRefer.ListText lstTxtItemTax
Height = 285
Index = 0
Left = 1530
TabIndex = 7
Top = 1390
Width = 3435
_ExtentX = 6059
_ExtentY = 503
CodeSort = -1 'True
BackColor = -2147483643
MaxLenth = 16
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.TextBox txtItemTax
Height = 285
Index = 2
Left = 3930
MaxLength = 8
TabIndex = 5
Top = 890
Width = 1005
End
Begin VB.TextBox txtItemTax
Height = 285
Index = 1
Left = 1530
MaxLength = 8
TabIndex = 3
Top = 890
Width = 975
End
Begin VB.TextBox txtItemTax
Height = 285
Index = 0
Left = 1530
MaxLength = 16
TabIndex = 1
Top = 390
Width = 3435
End
Begin VB.CommandButton cmdItemTax
Height = 345
Index = 2
Left = 5280
Style = 1 'Graphical
TabIndex = 12
Tag = "1009"
Top = 960
UseMaskColor = -1 'True
Width = 1215
End
Begin VB.CommandButton cmdItemTax
Height = 350
Index = 1
Left = 5280
Style = 1 'Graphical
TabIndex = 11
Tag = "1002"
Top = 570
UseMaskColor = -1 'True
Width = 1215
End
Begin VB.CommandButton cmdItemTax
Height = 350
Index = 0
Left = 5280
Style = 1 'Graphical
TabIndex = 10
Tag = "1001"
Top = 180
UseMaskColor = -1 'True
Width = 1215
End
Begin ListRefer.ListText lstTxtItemTax
Height = 285
Index = 1
Left = 1530
TabIndex = 9
Top = 1890
Width = 3435
_ExtentX = 6059
_ExtentY = 529
CodeSort = -1 'True
BackColor = -2147483643
MaxLenth = 16
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.Label lblItemTax
Caption = "销项税科目(&C)"
Height = 195
Index = 4
Left = 300
TabIndex = 8
Top = 1920
Width = 1185
End
Begin VB.Label lblItemTax
Caption = "进项税科目(&A)"
Height = 195
Index = 3
Left = 300
TabIndex = 6
Top = 1470
Width = 1185
End
Begin VB.Label lblItemTax
Caption = "销项税率%(&S)"
Height = 195
Index = 2
Left = 2700
TabIndex = 4
Top = 930
Width = 1095
End
Begin VB.Label lblItemTax
Caption = "进项税率%(&P)"
Height = 195
Index = 1
Left = 300
TabIndex = 2
Top = 930
Width = 1095
End
Begin VB.Label lblItemTax
Caption = "税率名称(&N)"
Height = 195
Index = 0
Left = 300
TabIndex = 0
Top = 420
Width = 1005
End
End
Attribute VB_Name = "frmItemTax"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'作者： 郑权
'日期：98.07.25
'功能: 完成商品税率的增、删、改。
'接口： AddCard 增加商品税率记录。
' 参数：intModal 显示模式，strName 用户输入值
' EditCard 修改商品税率记录。
' 参数： lngID 被修改的记录的ID，intModal 显示模式
' DelCard 删除商品税率记录。
' 参数： lngID 被删除的记录的ID
'
Option Explicit
Private mblnIsChanged As Boolean
Private mblnIsList As Boolean
Private mblnIsExist As Boolean
Private mblnIsRefer As Boolean
Private mlngTaxID As Long
Private mstrTaxName As String
Private mstrLastTaxName As String
Private mdblPurchaseTaxRate As Double
Private mdblLastPurchaseTaxRate As Double
Private mblnIsInActive As Boolean
Private mblnLastIsInActive As Boolean
Private mdblSaleTaxRate As Double
Private mdblLastSaleTaxRate As Double
Private mlngPurchaseTaxAccountID As Long
Private mlngLastPurchaseTaxAccountID As Long
Private mlngSaleTaxAccountID As Long
Private mlngLastSaleTaxAccountID As Long
'Private WithEvents mclsMainControl As MainControl
Private Enum lstStation
Add = 1
Edit = 2
None = 3
End Enum
Private station(1) As lstStation
Private ID As Long
Private mblnIsEditAdd As Boolean
Private mblnChangeIsFirst As Boolean
Private mblnIsCancel As Boolean '是否是敲了CANCEL键
Public Sub EditCard(ByVal lngID As Long, Optional intModal As Integer = 0)
Dim lngResult As Integer
mlngTaxID = lngID
If mlngTaxID = 0 Then
ShowMsg 0, "税率不存在，不能修改！", vbExclamation + MB_TASKMODAL, "修改商品税率"
Unload Me
Exit Sub
End If
If Not InitCard Then Exit Sub
Show intModal
End Sub
Public Function AddCard(Optional strName As String = "", Optional intModal As Integer = 0, _
Optional ByVal IsList As Boolean = False) As Long
Dim lngResult As Integer
mlngTaxID = 0
Me.Caption = "新增商品税率"
mblnIsList = IsList
InitCard (strName)
Show intModal
AddCard = ID
End Function
Private Function TaxIsPlan(ByVal lngTaxID As Long) As Boolean
Dim strSql As String
Dim recTax As rdoResultset
TaxIsPlan = False
If Not TaxIsUsed(lngTaxID) Then Exit Function
strSql = "select * from itemnature where lngTaxID=" & lngTaxID
Set recTax = gclsBase.BaseDB.OpenResultset(strSql, rdOpenStatic)
If recTax.EOF Then Exit Function
Do While Not recTax.EOF
If Trim(recTax!strCostMethod) = "6" Or Trim(recTax!strCostMethod) = 7 Then
TaxIsPlan = True
Exit Function
End If
recTax.MoveNext
Loop
End Function
Private Function InitCard(Optional ByVal strName As String = "") As Boolean
Dim strSql As String
Dim recTax As rdoResultset
Dim recTemp As rdoResultset
Dim i As Integer
InitCard = True
mblnIsChanged = False
mblnChangeIsFirst = True
If mlngTaxID > 0 Then
Caption = "修改商品税率"
cmdItemTax(2).Visible = False
strSql = "SELECT * FROM Tax WHERE lngTaxID=" & mlngTaxID
Set recTax = gclsBase.BaseDB.OpenResultset(strSql, rdOpenStatic)
If recTax.EOF = True Then
Unload Me
InitCard = False
Exit Function
Else
mstrLastTaxName = recTax!strTaxName
txtItemTax(0).Text = mstrLastTaxName
mdblLastPurchaseTaxRate = recTax!dblPurchaseTaxRate
If mdblLastPurchaseTaxRate > 0 And mdblLastPurchaseTaxRate < 1 Then
txtItemTax(1).Text = "0" & CStr(mdblLastPurchaseTaxRate)
Else
txtItemTax(1).Text = CStr(mdblLastPurchaseTaxRate)
End If
mdblLastSaleTaxRate = recTax!dblSaleTaxRate
If mdblLastSaleTaxRate > 0 And mdblLastSaleTaxRate < 1 Then
txtItemTax(2).Text = "0" & CStr(mdblLastSaleTaxRate)
Else
txtItemTax(2).Text = CStr(mdblLastSaleTaxRate)
End If
mblnLastIsInActive = (recTax!blnIsInActive = 1)
chkStop.Value = IIf(mblnLastIsInActive, 1, 0)
mlngPurchaseTaxAccountID = recTax!lngPurchaseTaxAccountID
mlngSaleTaxAccountID = recTax!lngSaleTaxAccountID
If mlngTaxID = 1 Then
For i = 0 To 2
'txtItemTax(i).Text = 0
txtItemTax(i).Enabled = False
txtItemTax(i).TabStop = False
txtItemTax(i).BackColor = &H80000004
Next
For i = 0 To 1
' lstTxtItemTax(i).SeekId -1
lstTxtItemTax(i).Text = ""
lstTxtItemTax(i).Enabled = False
lstTxtItemTax(i).TabStop = False
lstTxtItemTax(i).BackColor = &H80000004
Next
For i = 0 To 4
lblItemTax(i).Enabled = False
Next
chkStop.Enabled = False
Exit Function
End If
mlngLastPurchaseTaxAccountID = recTax!lngPurchaseTaxAccountID
mlngLastSaleTaxAccountID = recTax!lngSaleTaxAccountID
strSql = "SELECT strAccountName FROM Account WHERE lngAccountID=" & mlngLastPurchaseTaxAccountID
Set recTemp = gclsBase.BaseDB.OpenResultset(strSql, rdOpenStatic)
If recTemp.RowCount > 0 Then
settlistbox lstTxtItemTax(0), 0
lstTxtItemTax(0).SeekId mlngLastPurchaseTaxAccountID
End If
recTemp.Close
strSql = "SELECT strAccountName FROM Account WHERE lngAccountID=" & mlngLastSaleTaxAccountID
Set recTemp = gclsBase.BaseDB.OpenResultset(strSql, rdOpenStatic)
If recTemp.RowCount > 0 Then
settlistbox lstTxtItemTax(1), 1
lstTxtItemTax(1).SeekId mlngLastSaleTaxAccountID
End If
recTemp.Close
End If
If TaxIsPlan(mlngTaxID) Then
For i = 1 To 2
txtItemTax(i).Enabled = False
txtItemTax(i).TabStop = False
txtItemTax(i).BackColor = &H80000004
Next
Else
For i = 1 To 2
txtItemTax(i).Enabled = True
txtItemTax(i).BackColor = &H80000005
Next
End If
Else
cmdItemTax(2).Visible = True
mstrLastTaxName = strName
txtItemTax(0).Text = Trim(mstrLastTaxName)
mdblLastPurchaseTaxRate = 0
txtItemTax(1).Text = CStr(mdblLastPurchaseTaxRate)
mdblLastSaleTaxRate = 0
txtItemTax(2).Text = CStr(mdblLastSaleTaxRate)
mblnLastIsInActive = False
chkStop.Value = IIf(mblnLastIsInActive, 1, 0)
mlngLastPurchaseTaxAccountID = 0
lstTxtItemTax(0).Text = ""
mlngLastSaleTaxAccountID = 0
lstTxtItemTax(1).Text = ""
End If
For i = 1 To 2
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -