📄
字号:
TabIndex = 25
Top = 1140
Width = 810
End
Begin VB.Line Line2
BorderColor = &H80000005&
X1 = 180
X2 = 6300
Y1 = 990
Y2 = 990
End
Begin VB.Line Line1
X1 = 120
X2 = 6270
Y1 = 960
Y2 = 960
End
Begin VB.Label Label29
AutoSize = -1 'True
Caption = "操作员:"
Height = 180
Left = 4380
TabIndex = 24
Top = 360
Width = 630
End
Begin VB.Label Lbl_Operator
BorderStyle = 1 'Fixed Single
Height = 240
Left = 5025
TabIndex = 23
Top = 330
Width = 1170
End
Begin VB.Label Lbl_Period
AutoSize = -1 'True
BorderStyle = 1 'Fixed Single
Height = 240
Left = 4050
TabIndex = 22
Top = 330
Width = 240
End
Begin VB.Label Label5
AutoSize = -1 'True
Caption = "期间:"
Height = 180
Left = 3570
TabIndex = 21
Top = 360
Width = 450
End
Begin VB.Label Lbl_Year
AutoSize = -1 'True
BorderStyle = 1 'Fixed Single
Height = 240
Left = 3000
TabIndex = 20
Top = 330
Width = 480
End
Begin VB.Label Label3
AutoSize = -1 'True
Caption = "会计年度:"
Height = 180
Left = 2160
TabIndex = 19
Top = 360
Width = 810
End
Begin VB.Label Lbl_Num
BorderStyle = 1 'Fixed Single
Height = 240
Left = 1050
TabIndex = 18
Top = 330
Width = 1050
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "卡片编号:"
Height = 180
Left = 240
TabIndex = 17
Top = 360
Width = 810
End
Begin VB.Label LblName
AutoSize = -1 'True
Caption = "使用状况:"
ForeColor = &H00000000&
Height = 180
Index = 10
Left = 3300
TabIndex = 42
Tag = "FAState"
Top = 1870
Width = 810
End
Begin VB.Label LblName
AutoSize = -1 'True
Caption = "使用状况:"
Height = 180
Index = 9
Left = 240
TabIndex = 41
Top = 1870
Width = 810
End
Begin VB.Label LblName
AutoSize = -1 'True
Caption = "资产类别:"
Height = 180
Index = 11
Left = 240
TabIndex = 43
Top = 2235
Width = 810
End
End
Begin MSComctlLib.TreeView TreeView
Height = 5865
Left = 30
TabIndex = 14
Top = 630
Width = 3165
_ExtentX = 5583
_ExtentY = 10345
_Version = 393217
Indentation = 661
LabelEdit = 1
LineStyle = 1
Style = 7
ImageList = "ImageList2"
Appearance = 1
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 MSComctlLib.Toolbar SzToolbar
Align = 1 'Align Top
Height = 555
Left = 0
TabIndex = 15
Top = 0
Width = 9720
_ExtentX = 17145
_ExtentY = 979
ButtonWidth = 820
ButtonHeight = 926
AllowCustomize = 0 'False
Appearance = 1
Style = 1
ImageList = "ImageList1"
_Version = 393216
BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628}
NumButtons = 2
BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "帮助"
Key = "bz"
ImageKey = "bz"
EndProperty
BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "退出"
Key = "fh"
ImageKey = "tc"
EndProperty
EndProperty
BorderStyle = 1
Begin MSComctlLib.ImageList ImageList1
Left = 5760
Top = 0
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483643
ImageWidth = 16
ImageHeight = 16
MaskColor = 12632256
_Version = 393216
BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628}
NumListImages = 2
BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "固定资产变动.frx":1FA0
Key = "bz"
EndProperty
BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "固定资产变动.frx":233A
Key = "tc"
EndProperty
EndProperty
End
End
Begin MSComctlLib.ImageList ImageList2
Left = 0
Top = 0
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483643
ImageWidth = 16
ImageHeight = 16
MaskColor = 12632256
_Version = 393216
BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628}
NumListImages = 4
BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "固定资产变动.frx":26D4
Key = "T"
EndProperty
BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "固定资产变动.frx":2FAE
Key = "C"
EndProperty
BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "固定资产变动.frx":3888
Key = "Cl"
EndProperty
BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "固定资产变动.frx":48DA
Key = "O"
EndProperty
EndProperty
End
End
Attribute VB_Name = "FAVari_Variation"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'*******************************************************
'* 模 块 名 称 :资产变动
'* 功 能 描 述 :资产变动
'* 程序员姓名 :徐衍民
'* 最后修改人 :徐衍民
'* 最后修改时间:2001/11/29
'* 备 注:自定义模块
'*******************************************************
Dim RecDigest As New ADODB.Recordset '常用摘要表
Dim jdzygs As Integer '控件焦点转移个数
Dim Lrzt As Integer '录入状态标志(0-非录入状态 1-增加 2-修改)
Dim ReportTitle As String '报表主标题
Dim Tsxx As String '提示信息
Dim Rs_Temp As ADODB.Recordset '打开数据集临时变量
Dim Sqlstr As String '字符串变量
Dim MaxCode As String '最大变动单据号变量
Dim Jsqte As Integer '控件个数变量
'以下为固定使用变量(文本框)
Dim Textvar() As Variant '存储变体型文本框信息
Dim Textboolean() As Boolean '存储布尔型文本框信息
Dim Textint() As Integer '存储整型文本框信息
Dim Textstr() As String '存储字符型文本框信息
Dim Max_Text_Index As Integer '最大录入文本框索引值
Dim TextGroupCode As String '文本框录入分组编码
Dim TextValiLock As Boolean '文本框失去焦点是否进行有效性控制判断
Dim TextValiJudgeLock() As Boolean '文本框录入有效性判断控制锁
Dim CurTextIndex As Integer '当前文本框索引值
Dim TextChangeLock As Boolean '文本框内容变换控制锁
'<<<<<<<<<<<<<<<<<<
Dim nodX As Node '树控件Node集合变量
Private Sub Form_Activate() '填充窗体内容
If Me.AutoRedraw = False Then
'填充文本框
Call Card_Rs
End If
Me.AutoRedraw = True
End Sub
Private Sub Form_KeyPress(KeyAscii As Integer) '控 制 焦 点 转 移
jdzygs = 14
Select Case KeyAscii
Case vbKeyReturn
If Kjjdzy(jdzygs) Then
KeyAscii = 0
End If
Case 39 '屏蔽"'"
KeyAscii = 0
End Select
End Sub
Private Sub Form_Load() '窗体装入
'添加树
Add_Tree
'以下为文本框处理程序
TextGroupCode = "Gdzc_Variation"
Call Drwbkxx(TextGroupCode, Textvar(), Textboolean(), Textint(), Textstr()) '读入文本框录入信息
Call Wbkcsh
'初始化时显示值
Xt_Year.Caption = Xtyear '会计年度
Xt_Period.Caption = Format(Xtmm, "00") '会计期间
Xt_Czy.Caption = Xtczy '操作员姓名
End Sub
'录入文本框初始化
Private Sub Wbkcsh()
Dim Jsqte As Integer
'最大录入文本框索引值
Max_Text_Index = Textvar(1)
ReDim TextValiJudgeLock(Max_Text_Index)
For Jsqte = 0 To Max_Text_Index
LrText(Jsqte).Text = ""
Next Jsqte
For Jsqte = 3 To Max_Text_Index
If Len(Trim(Textstr(Jsqte, 1))) <> 0 Then
If Textboolean(Jsqte, 1) Then
If Jsqte <> 0 And Not Textboolean(Jsqte, 3) Then
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -