📄 frmfixedmethodlistcard.frm
字号:
VERSION 5.00
Object = "{F42BDC2B-FC9B-11D1-9ABD-444553540000}#3.3#0"; "ATLEDIT.OCX"
Object = "{E0B099CD-729C-11D2-840D-444553540000}#2.0#0"; "LISTTEXT.OCX"
Begin VB.Form frmFixedMethodListCard
BorderStyle = 1 'Fixed Single
Caption = "新增固资变动方式"
ClientHeight = 3405
ClientLeft = 45
ClientTop = 330
ClientWidth = 5805
LinkTopic = "Form1"
LockControls = -1 'True
MaxButton = 0 'False
MDIChild = -1 'True
ScaleHeight = 3405
ScaleWidth = 5805
ShowInTaskbar = 0 'False
Begin ListRefer.ListText lstMethod
Height = 300
Index = 3
Left = 2010
TabIndex = 11
Top = 2100
Width = 2145
_ExtentX = 3784
_ExtentY = 556
BackColor = -2147483643
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 lstMethod
Height = 300
Index = 2
Left = 2010
TabIndex = 9
Top = 1740
Width = 2145
_ExtentX = 3784
_ExtentY = 556
BackColor = -2147483643
MaxLenth = 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
End
Begin ListRefer.ListText lstMethod
Height = 300
Index = 1
Left = 2010
TabIndex = 7
Top = 1380
Width = 2145
_ExtentX = 3784
_ExtentY = 556
BackColor = -2147483643
MaxLenth = 30
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 lstMethod
Height = 300
Index = 0
Left = 2010
TabIndex = 5
Top = 1020
Width = 2145
_ExtentX = 3784
_ExtentY = 556
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 AtlEdit.TEdit txtInput
Height = 300
Index = 1
Left = 2010
TabIndex = 3
Top = 690
Width = 2145
_ExtentX = 3784
_ExtentY = 529
maxchar = 30
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 AtlEdit.TEdit txtInput
Height = 300
Index = 0
Left = 2010
TabIndex = 1
Top = 360
Width = 2145
_ExtentX = 3784
_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.OptionButton optType
Caption = "减少固定资产"
Height = 225
Index = 1
Left = 2670
TabIndex = 14
Top = 2780
Width = 1455
End
Begin VB.OptionButton optType
Caption = "增加固定资产"
Height = 225
Index = 0
Left = 360
TabIndex = 13
Top = 2780
Value = -1 'True
Width = 1545
End
Begin VB.CommandButton cmdOKCancel
Cancel = -1 'True
Height = 350
Index = 1
Left = 4470
Style = 1 'Graphical
TabIndex = 17
Tag = "1002"
Top = 570
UseMaskColor = -1 'True
Width = 1215
End
Begin VB.CommandButton cmdOKCancel
Height = 350
Index = 0
Left = 4470
Style = 1 'Graphical
TabIndex = 16
Tag = "1001"
Top = 180
UseMaskColor = -1 'True
Width = 1215
End
Begin VB.CommandButton cmdOKCancel
Height = 350
Index = 2
Left = 4470
Style = 1 'Graphical
TabIndex = 18
Tag = "1009"
Top = 960
UseMaskColor = -1 'True
Width = 1215
End
Begin VB.CheckBox chkPause
Caption = "停用"
Height = 225
Left = 4470
TabIndex = 15
Top = 3060
Width = 1215
End
Begin VB.Label lblTitle
AutoSize = -1 'True
Caption = "变动类型(&M)"
Height = 180
Index = 6
Left = 360
TabIndex = 12
Top = 2470
Width = 990
End
Begin VB.Label lblTitle
AutoSize = -1 'True
Caption = "固资变动方式编码(&C)"
Height = 180
Index = 0
Left = 270
TabIndex = 0
Top = 390
Width = 1710
End
Begin VB.Label lblTitle
AutoSize = -1 'True
Caption = "固资变动方式名称(&N)"
Height = 180
Index = 1
Left = 270
TabIndex = 2
Top = 720
Width = 1710
End
Begin VB.Label lblTitle
AutoSize = -1 'True
Caption = "对应科目(&A)"
Height = 180
Index = 2
Left = 270
TabIndex = 4
Top = 1080
Width = 990
End
Begin VB.Label lblTitle
AutoSize = -1 'True
Caption = "凭证模板(&T)"
Height = 180
Index = 3
Left = 270
TabIndex = 6
Top = 1440
Width = 990
End
Begin VB.Label lblTitle
AutoSize = -1 'True
Caption = "凭证摘要(&R)"
Height = 180
Index = 5
Left = 270
TabIndex = 10
Top = 2130
Width = 990
End
Begin VB.Label lblTitle
AutoSize = -1 'True
Caption = "凭证类型(&L)"
Height = 180
Index = 4
Left = 270
TabIndex = 8
Top = 1770
Width = 990
End
End
Attribute VB_Name = "frmFixedMethodListCard"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' 固定资产变动方式卡片
' 作者:郑权
' 日期：1998.07.16
'
' 功能：完成固资变动方式表的增、删、改操作
'
' 接口： AddCard 增加固资变动方式记录。
' 参数：intModal 显示模式，strName 用户输入值
' EditCard 修改固资变动方式记录。
' 参数： lngID 被修改的记录的ID，intModal 显示模式
' DelCard 删除固资变动方式记录。
' 参数： lngID 被删除的记录的ID
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Option Explicit
Private Type FixedMethodRecord '处理固资变动方式表的记录
lngFixedMethodID As Long '固资变动方式ID
strFixedMethodCode As String '固资变动方式编码
strFixedMethodName As String '固资变动方式名称
blnIsInActive As Boolean '封存标志
strFixedMethodType As String '变动类别
lngAccountID As Long '对应科目ID
lngVoucherTypeID As Long '对应凭证类别ID
lngTemplateID As Long '模板ID
strRemark As String '摘要
End Type
Private WithEvents mclsMainControl As MainControl '主控对象
Attribute mclsMainControl.VB_VarHelpID = -1
Private mblnAddRecord As Boolean '是增加记录还是修改记录
Private mstrListTextBuffer(3) As String '暂存列表框输入值，以备新增
Private mlngListIDBuffer(3) As Long '暂存列表框选择的ID，以备修改或删除
Private mfmrFixedMethod As FixedMethodRecord '暂存读写记录的数据
Private mstrSQLBuffer() As String '暂时存储对数据库的增删改操作
Private mintSQLIndex As Integer 'strSQLBuffer的索引
Private mstrInitCode As String '暂存编码的初始值，以备判断是否修改
Private ID As Long
Private mblnIsEditAdd As Boolean 'listtext框的edit和Add事件是否发生
Private mblnIsChanged As Boolean '编辑是否改变
Private mtext As String '直接输入的摘要内容
Private mblnIsCancel As Boolean '是否是敲了CANCEL键
'进入新增固资变动方式
Public Function AddCard(Optional strName As String = "", Optional intModal As Integer = 0) As Long
mblnAddRecord = True
frmFixedMethodListCard.Caption = "新增固资变动方式"
cmdOKCancel(2).Visible = True
InitAddCard strName
cmdOKCancel(0).Default = False
cmdOKCancel(2).Default = True
If Me.WindowState = 1 Then Me.WindowState = 0
Show intModal
AddCard = ID
Refresh
If intModal <> vbModal Then ZOrder 0
End Function
'初始化暂存读写记录的数据的自定义类型变量和卡片
Private Sub InitAddCard(Optional strName As String)
Dim intCounter As Integer
With mfmrFixedMethod
.lngFixedMethodID = 0
.strFixedMethodName = ""
.strFixedMethodCode = ""
.blnIsInActive = False
.strFixedMethodType = "1"
.lngTemplateID = 0
.lngAccountID = 0
.lngVoucherTypeID = 0
.strRemark = ""
End With
'If txtInput(0).Text = "Text1" Or txtInput(0).Text = "" Then
txtInput(0).Text = ""
'Else
'mstrInitCode = txtInput(0).Text
' End If
txtInput(1).Text = strName
For intCounter = 0 To 3
lstMethod(intCounter).Text = ""
mstrListTextBuffer(intCounter) = ""
mlngListIDBuffer(intCounter) = 0
Next intCounter
mtext = ""
chkPause.Value = Unchecked
InitBuffer '清空暂时存储数据库操作的数组
End Sub
'进入修改固资变动方式
Public Sub EditCard(ByVal lngID As Long, Optional intModal As Integer = 0)
' If Me.Visible = True Then
' Unload Me
' End If
mblnAddRecord = False
frmFixedMethodListCard.Caption = "修改固资变动方式"
cmdOKCancel(2).Visible = False
SelectRecord lngID '查找记录
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -