📄 frmitemnaturelistcard.frm
字号:
VERSION 5.00
Object = "{F42BDC2B-FC9B-11D1-9ABD-444553540000}#3.2#0"; "ATLEDIT.OCX"
Object = "{E0B099CD-729C-11D2-840D-444553540000}#2.0#0"; "LISTTEXT.OCX"
Begin VB.Form frmItemNatureListCard
BorderStyle = 1 'Fixed Single
Caption = "新增商品性质"
ClientHeight = 3615
ClientLeft = 45
ClientTop = 330
ClientWidth = 7350
LinkTopic = "Form1"
LockControls = -1 'True
MaxButton = 0 'False
MDIChild = -1 'True
ScaleHeight = 3615
ScaleWidth = 7350
Begin VB.ComboBox cboNature
Height = 300
Index = 0
ItemData = "frmItemNatureListCard.frx":0000
Left = 1980
List = "frmItemNatureListCard.frx":0002
Style = 2 'Dropdown List
TabIndex = 3
Top = 711
Width = 975
End
Begin AtlEdit.TEdit txtInput
Height = 300
Left = 1980
TabIndex = 1
Top = 330
Width = 3765
_ExtentX = 6641
_ExtentY = 529
maxchar = 12
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Text = ""
End
Begin VB.ComboBox cboNature
Height = 300
Index = 1
ItemData = "frmItemNatureListCard.frx":0004
Left = 1980
List = "frmItemNatureListCard.frx":0006
Style = 2 'Dropdown List
TabIndex = 7
Top = 1092
Width = 3765
End
Begin VB.CommandButton cmdOKCancel
Height = 350
Index = 2
Left = 6000
Style = 1 'Graphical
TabIndex = 20
Tag = "1009"
Top = 960
UseMaskColor = -1 'True
Width = 1215
End
Begin VB.CommandButton cmdOKCancel
Default = -1 'True
Height = 350
Index = 0
Left = 6000
Style = 1 'Graphical
TabIndex = 18
Tag = "1001"
Top = 180
UseMaskColor = -1 'True
Width = 1215
End
Begin VB.CommandButton cmdOKCancel
Cancel = -1 'True
Height = 350
Index = 1
Left = 6000
Style = 1 'Graphical
TabIndex = 19
Tag = "1002"
Top = 570
UseMaskColor = -1 'True
Width = 1215
End
Begin ListRefer.ListText lstNature
Height = 300
Index = 2
Left = 1980
TabIndex = 11
Tag = "1"
Top = 1869
Width = 3765
_ExtentX = 6641
_ExtentY = 529
BackColor = -2147483643
MaxLenth = 40
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 ListRefer.ListText lstNature
Height = 300
Index = 1
Left = 1980
TabIndex = 9
Tag = "1"
Top = 1500
Width = 3765
_ExtentX = 6641
_ExtentY = 529
BackColor = -2147483643
MaxLenth = 40
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 ListRefer.ListText lstNature
Height = 300
Index = 3
Left = 1980
TabIndex = 13
Tag = "1"
Top = 2265
Width = 3765
_ExtentX = 6641
_ExtentY = 529
BackColor = -2147483643
MaxLenth = 40
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 ListRefer.ListText lstNature
Height = 300
Index = 4
Left = 1980
TabIndex = 15
Tag = "1"
Top = 2661
Width = 3765
_ExtentX = 6641
_ExtentY = 529
BackColor = -2147483644
MaxLenth = 40
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 ListRefer.ListText lstNature
Height = 300
Index = 5
Left = 1980
TabIndex = 17
Tag = "1"
Top = 3060
Width = 3765
_ExtentX = 6641
_ExtentY = 529
BackColor = -2147483644
MaxLenth = 40
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 ListRefer.ListText lstNature
Height = 300
Index = 0
Left = 3810
TabIndex = 5
Top = 711
Width = 1935
_ExtentX = 3413
_ExtentY = 529
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 lblTitle
Caption = "税率(&Q)"
Height = 165
Index = 9
Left = 3210
TabIndex = 4
Top = 782
Width = 675
End
Begin VB.Label lblTitle
Caption = "商品性质名称(&N)"
Height = 165
Index = 0
Left = 270
TabIndex = 0
Top = 390
Width = 1455
End
Begin VB.Label lblTitle
Caption = "收入科目(&S)"
Height = 165
Index = 3
Left = 270
TabIndex = 8
Top = 1566
Width = 1455
End
Begin VB.Label lblTitle
Caption = "成本科目(&C)"
Height = 165
Index = 4
Left = 270
TabIndex = 10
Top = 1958
Width = 1455
End
Begin VB.Label lblTitle
Caption = "存货科目(&T)"
Height = 165
Index = 5
Left = 270
TabIndex = 12
Top = 2350
Width = 1455
End
Begin VB.Label lblTitle
Caption = "差异科目(&D)"
Enabled = 0 'False
Height = 165
Index = 6
Left = 270
TabIndex = 14
Top = 2742
Width = 1455
End
Begin VB.Label lblTitle
Caption = "待实现销项税科目(&A)"
Enabled = 0 'False
Height = 165
Index = 7
Left = 270
TabIndex = 16
Top = 3135
Width = 1725
End
Begin VB.Label lblTitle
Caption = "成本计算方法(&M)"
Height = 165
Index = 2
Left = 270
TabIndex = 6
Top = 1174
Width = 1455
End
Begin VB.Label lblTitle
Caption = "商品类别(&O)"
Height = 165
Index = 1
Left = 270
TabIndex = 2
Top = 782
Width = 1455
End
End
Attribute VB_Name = "frmItemNatureListCard"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' 商品性质卡片
' 作者：苏涛
' 日期：1998.07.08
'
' 功能：完成商品性质表的增、删、改操作
'
' 接口： AddCard 增加商品性质记录。
' 参数：intModal 显示模式，strName 用户输入值
' EditCard 修改商品性质记录。
' 参数： lngRecordID 被修改的记录的ID，intModal 显示模式
' DelCard 删除商品性质记录。
' 参数： lngRecordID 被删除的记录的ID
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Option Explicit
Option Compare Text
Private mblnIsNew As Boolean
Private mblnIsInit As Boolean
Private mblnIsChanged As Boolean
Private mbytCostMethod As Byte
Private mlngItemNatureID As Long
Private mlngLstID(5) As Long
Private WithEvents mclsMainControl As MainControl '主控对象
Attribute mclsMainControl.VB_VarHelpID = -1
Public Property Get getID() As Long
getID = mlngItemNatureID
End Property
'进入新增商品性质
Public Function AddCard(Optional strName As String = "", Optional intModal As Integer = 0) As Long
mlngItemNatureID = 0
mblnIsNew = True
mblnIsChanged = True
Caption = "新增商品性质"
cmdOKCancel(2).Default = True
cmdOKCancel(2).Visible = True
InitCard strName
Show intModal
AddCard = mlngItemNatureID
Refresh
ZOrder 0
' Unload MsgForm
End Function
Private Function GetTaxName(ByVal lngID As Long) As String
Dim recTax As rdoResultset, Strsql As String
Strsql = "SELECT * FROM Tax WHERE lngTaxID=" & lngID
Set recTax = gclsBase.BaseDB.OpenResultset(Strsql, rdOpenForwardOnly)
If Not recTax.EOF Then GetTaxName = recTax!strTaxName
recTax.Close
End Function
Private Sub InitCard(Optional strName As String = "", Optional ByVal _
blnFixCostMethod As Boolean = False)
Dim i As Integer, recItemNature As rdoResultset, Strsql As String
mblnIsInit = True
InitMethodBox
If mblnIsNew Then
For i = 1 To 5
mlngLstID(i) = 0
lstNature(i).Text = ""
Next i
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -