📄
字号:
VERSION 5.00
Begin VB.Form YX_FrmAccountStruC
BorderStyle = 1 'Fixed Single
Caption = "科目结构分析查询条件"
ClientHeight = 2190
ClientLeft = 45
ClientTop = 330
ClientWidth = 5430
Icon = "因素分析_科目结构分析条件.frx":0000
KeyPreview = -1 'True
LinkTopic = "Form2"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 2190
ScaleWidth = 5430
StartUpPosition = 2 '屏幕中心
Begin VB.Frame Frame1
Height = 1575
Left = 90
TabIndex = 4
Top = 60
Width = 5265
Begin VB.TextBox LrText
Height = 300
Index = 0
Left = 990
TabIndex = 11
Text = "0"
Top = 240
Width = 2415
End
Begin VB.ComboBox Combo_Type
Height = 315
Left = 990
Style = 2 'Dropdown List
TabIndex = 10
Top = 660
Width = 1755
End
Begin VB.ComboBox Combo_BaseDate
Height = 315
Left = 2790
Style = 2 'Dropdown List
TabIndex = 9
Top = 660
Width = 2385
End
Begin VB.ComboBox Combo_SelYear
Height = 315
Left = 990
Style = 2 'Dropdown List
TabIndex = 8
Top = 1110
Width = 1755
End
Begin VB.ComboBox Combo_CompDate
Height = 315
Left = 2790
Style = 2 'Dropdown List
TabIndex = 7
Top = 1110
Width = 2385
End
Begin VB.ComboBox Cbo_AccountType
BeginProperty Font
Name = "Microsoft Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 315
ItemData = "因素分析_科目结构分析条件.frx":1042
Left = 3750
List = "因素分析_科目结构分析条件.frx":104F
Style = 2 'Dropdown List
TabIndex = 6
Top = 210
Width = 1425
End
Begin VB.CommandButton Ydcommand1
Height = 300
Index = 0
Left = 3420
Picture = "因素分析_科目结构分析条件.frx":1071
Style = 1 'Graphical
TabIndex = 5
Top = 240
Visible = 0 'False
Width = 300
End
Begin VB.Label Label1
Caption = "查询科目:"
Height = 255
Index = 11
Left = 90
TabIndex = 14
Top = 240
Width = 825
End
Begin VB.Label Label1
Caption = "比较期间:"
Height = 255
Index = 0
Left = 90
TabIndex = 13
Top = 1140
Width = 825
End
Begin VB.Label Label1
Caption = "分析期间:"
Height = 255
Index = 1
Left = 90
TabIndex = 12
Top = 690
Width = 825
End
End
Begin VB.CommandButton QdCommand
Caption = "确定(&O)"
Height = 300
Left = 3000
TabIndex = 0
Top = 1800
Width = 1120
End
Begin VB.CommandButton QxCommand
Caption = "取消(&C)"
Height = 300
Left = 4230
TabIndex = 1
Top = 1800
Width = 1120
End
Begin VB.CheckBox UnloadCheck
Caption = "卸载窗体"
Height = 615
Left = 4860
TabIndex = 2
Top = 960
Visible = 0 'False
Width = 825
End
Begin VB.Label Lbl_Comment
Height = 525
Left = -120
TabIndex = 3
Top = 1920
Visible = 0 'False
Width = 1245
End
End
Attribute VB_Name = "YX_FrmAccountStruC"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'****************************************************************
'* 模 块 名 称 : 因素分析——科目结构分析条件
'* 功 能 描 述 :
'* 程序员姓名 : 魏永生
'* 最后修改人 : 魏永生
'* 最后修改时间:2001/08/21
'* 备 注:程序中所有依实际情况自定义部分均用[>> <<]括起
'****************************************************************
Dim Tsxx As String '系统信息提示
Private UsedYear() As String '已使用年数据，如：UsedYear(0)="1999",UsedYear(1)="2000"
Private iHowManyYears As Integer '已使用的年数
Private iMaxMonth 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 Bln_Cancel As Boolean '取消按钮信息传递
Private Sub Form_KeyPress(KeyAscii As Integer) '控 制 焦 点 转 移
Dim jdzygs As Integer '控件焦点转移个数
jdzygs = 30
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()
Call GetUsedYear
Call GetUsedMonth
'填充
Call FillCombo(Combo_Type, "cwfx_AccountC", "", 0)
Call FillMonth(Combo_BaseDate, Xtyear)
Call FillYear(Combo_SelYear)
If Combo_SelYear.ListIndex <> -1 Then
Combo_CompDate.Enabled = True
Call FillMonth(Combo_CompDate, Combo_SelYear.Text)
End If
'以下为文本框处理程序
TextGroupCode = "cwfx_AccountStruA"
Call Drwbkxx(TextGroupCode, Textvar(), Textboolean(), Textint(), Textstr()) '读入文本框录入信息
Call Wbkcsh
End Sub
Private Sub FillThisYear(PastComb As ComboBox)
With PastComb
.Clear
.AddItem Xtyear
.ListIndex = 0
End With
End Sub
Private Sub FillYear(PastComb As ComboBox)
Dim i As Integer
With PastComb
.Clear
For i = 0 To iHowManyYears
.AddItem UsedYear(i)
Next
End With
End Sub
Private Sub FillMonth(PastComb As ComboBox, ByVal PastYear As String)
Dim i As Integer
With PastComb
.Clear
If iMaxMonth < 1 Then Exit Sub
For i = 1 To iMaxMonth
.AddItem PastYear & "." & Format(i, "00")
Next
End With
End Sub
Private Sub FillThreeMonth(PastComb As ComboBox, ByVal PastYear As String)
Dim i As Integer
With PastComb
.Clear
If iMaxMonth < 1 Then Exit Sub
For i = 1 To 4
.AddItem PastYear & "." & Format(((i - 1) * 3 + 1), "00") & "-" & PastYear & "." & Format((i * 3), "00")
Next
End With
End Sub
Private Sub GetUsedYear()
'由Form_Load 调用,得到此帐套已使用的年度，存于UsedYear()数据中
Dim temRs As New ADODB.Recordset
Dim strSql As String
Dim i As Integer
strSql = "SELECT DISTINCT kjyear AS cYear FROM xt_kjrlb"
Set temRs = Cw_DataEnvi.DataConnect.Execute(strSql)
iHowManyYears = temRs.RecordCount - 1
ReDim UsedYear(iHowManyYears)
With temRs
Do Until .EOF
UsedYear(i) = !cYear
i = i + 1
.MoveNext
Loop
End With
If temRs.State = adStateOpen Then temRs.Close
Set temRs = Nothing
End Sub
Private Sub GetUsedMonth()
'由Form_Load 调用,得到此帐套已使用的最大月份，存于iMaxMonth数据中
Dim temRs As New ADODB.Recordset
Dim strSql As String
Dim i As Integer
strSql = "SELECT Max(mm) AS cMonth FROM xt_kjrlb"
Set temRs = Cw_DataEnvi.DataConnect.Execute(strSql)
With temRs
If Not (.EOF And .BOF) Then
iMaxMonth = !cMonth
End If
End With
If temRs.State = adStateOpen Then temRs.Close
Set temRs = Nothing
End Sub
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
If UnloadCheck.Value <> 1 Then
Cancel = 1
Me.Hide
End If
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -