📄
字号:
VERSION 5.00
Begin VB.Form YF_FrmDeptC
BorderStyle = 1 'Fixed Single
Caption = "预算分析查询条件"
ClientHeight = 4245
ClientLeft = 45
ClientTop = 330
ClientWidth = 4500
Icon = "预算分析_部门查询条件.frx":0000
KeyPreview = -1 'True
LinkTopic = "Form2"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 4245
ScaleWidth = 4500
StartUpPosition = 2 'CenterScreen
Begin VB.TextBox LrText
Height = 300
Index = 0
Left = 420
TabIndex = 10
Text = "0"
Top = 540
Width = 3585
End
Begin VB.CommandButton Ydcommand1
Height = 300
Index = 0
Left = 4020
Picture = "预算分析_部门查询条件.frx":1042
Style = 1 'Graphical
TabIndex = 9
Top = 540
Visible = 0 'False
Width = 300
End
Begin VB.Frame Frame1
Caption = "比较日期"
Height = 1185
Index = 1
Left = 150
TabIndex = 6
Top = 2400
Width = 4095
Begin VB.ComboBox Combo_SelYear
Height = 315
Left = 210
Style = 2 'Dropdown List
TabIndex = 8
Top = 225
Width = 3675
End
Begin VB.ComboBox Combo_CompDate
Height = 315
Left = 225
Style = 2 'Dropdown List
TabIndex = 7
Top = 705
Width = 3675
End
End
Begin VB.Frame Frame1
Caption = "分析日期"
Height = 1185
Index = 0
Left = 180
TabIndex = 3
Top = 1050
Width = 4065
Begin VB.ComboBox Combo_Type
Height = 315
Left = 225
Style = 2 'Dropdown List
TabIndex = 5
Top = 210
Width = 3615
End
Begin VB.ComboBox Combo_BaseDate
Height = 315
Left = 240
Style = 2 'Dropdown List
TabIndex = 4
Top = 705
Width = 3615
End
End
Begin VB.CommandButton QdCommand
Caption = "确定(&O)"
Default = -1 'True
Height = 300
Left = 1770
TabIndex = 0
Top = 3780
Width = 1120
End
Begin VB.CommandButton QxCommand
Caption = "取消(&C)"
Height = 300
Left = 2970
TabIndex = 1
Top = 3780
Width = 1120
End
Begin VB.CheckBox UnloadCheck
Caption = "卸载窗体"
Height = 615
Left = 3870
TabIndex = 2
Top = 3090
Visible = 0 'False
Width = 825
End
Begin VB.Label Lbl_Comment
Height = 525
Left = 270
TabIndex = 12
Top = 3750
Visible = 0 'False
Width = 1245
End
Begin VB.Label Label1
Caption = "查询部门:"
Height = 255
Index = 11
Left = 270
TabIndex = 11
Top = 180
Width = 825
End
End
Attribute VB_Name = "YF_FrmDeptC"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'****************************************************************
'* 模 块 名 称 : 预算分析部门查询条件
'* 功 能 描 述 :
'* 程序员姓名 : 魏永生
'* 最后修改人 : 魏永生
'* 最后修改时间:2001/08/11
'* 备 注:程序中所有依实际情况自定义部分均用[>> <<]括起
'****************************************************************
Dim Int_Curr_year As Integer '分析期年
Dim Int_Curr_month1 As Integer '分析期开始月
Dim Int_Curr_month2 As Integer '分析期结束月
Dim Int_Comp_year As Integer '比较期年
Dim Int_Comp_month1 As Integer '比较期开始月
Dim Int_Comp_month2 As Integer '比较期结束月
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()
Set Frm_AnalysisC = YF_FrmDeptC
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_DeptBudgetC"
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
Private Sub QdCommand_Click() '确 定
'录入条件有效性判断
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -