📄
字号:
VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.Form YF_FrmItemC
BorderStyle = 1 'Fixed Single
Caption = "预算分析查询条件"
ClientHeight = 2955
ClientLeft = 45
ClientTop = 330
ClientWidth = 4605
Icon = "预算分析_项目查询条件.frx":0000
KeyPreview = -1 'True
LinkTopic = "Form2"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 2955
ScaleWidth = 4605
StartUpPosition = 2 '屏幕中心
Begin VB.Frame Frame1
Height = 2235
Left = 30
TabIndex = 4
Top = 30
Width = 4545
Begin VB.TextBox LrText
Height = 330
Index = 0
Left = 990
TabIndex = 10
Text = "0"
Top = 750
Width = 3105
End
Begin VB.CommandButton Ydcommand1
Height = 289
Index = 0
Left = 4095
Picture = "预算分析_项目查询条件.frx":1042
Style = 1 'Graphical
TabIndex = 9
Top = 780
Visible = 0 'False
Width = 315
End
Begin VB.ComboBox Combo_CompDate
Height = 315
Left = 2400
Style = 2 'Dropdown List
TabIndex = 8
Top = 1710
Width = 2025
End
Begin VB.ComboBox Combo_SelYear
Height = 315
Left = 990
Style = 2 'Dropdown List
TabIndex = 7
Top = 1710
Width = 1395
End
Begin VB.ComboBox Combo_BaseDate
Height = 315
Left = 2400
Style = 2 'Dropdown List
TabIndex = 6
Top = 1230
Width = 2025
End
Begin VB.ComboBox Combo_Type
Height = 315
Left = 990
Style = 2 'Dropdown List
TabIndex = 5
Top = 1230
Width = 1395
End
Begin MSComctlLib.ImageCombo Imgebo_ItemClass
Height = 315
Left = 990
TabIndex = 11
Top = 270
Width = 3435
_ExtentX = 6059
_ExtentY = 556
_Version = 393216
ForeColor = -2147483640
BackColor = -2147483643
Locked = -1 'True
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "项目:"
Height = 195
Index = 1
Left = 90
TabIndex = 15
Top = 840
Width = 405
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "项目大类:"
Height = 180
Index = 12
Left = 90
TabIndex = 14
Top = 360
Width = 825
End
Begin VB.Label Label1
Caption = "分析期间:"
Height = 255
Index = 0
Left = 90
TabIndex = 13
Top = 1260
Width = 825
End
Begin VB.Label Label1
Caption = "比较期间:"
Height = 255
Index = 2
Left = 90
TabIndex = 12
Top = 1740
Width = 825
End
End
Begin VB.CommandButton QdCommand
Caption = "确定(&O)"
Height = 300
Left = 2190
TabIndex = 0
Top = 2490
Width = 1120
End
Begin VB.CommandButton QxCommand
Caption = "取消(&C)"
Height = 300
Left = 3390
TabIndex = 1
Top = 2490
Width = 1120
End
Begin VB.CheckBox UnloadCheck
Caption = "卸载窗体"
Height = 615
Left = 4830
TabIndex = 2
Top = 1680
Visible = 0 'False
Width = 825
End
Begin VB.Label Lbl_Comment
Height = 525
Left = 270
TabIndex = 3
Top = 2310
Visible = 0 'False
Width = 1245
End
End
Attribute VB_Name = "YF_FrmItemC"
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_FrmItemC
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
'填充项目分类列表
Call FillImageCombo(Imgebo_ItemClass, "Cwzz_ItemClass", 0)
If Imgebo_ItemClass.ComboItems.count > 0 Then
Imgebo_ItemClass.ComboItems.item(1).Selected = True
End If
'以下为文本框处理程序
TextGroupCode = "cwfx_ItemBudgetC"
Call Drwbkxx(TextGroupCode, Textvar(), Textboolean(), Textint(), Textstr()) '读入文本框录入信息
Call Wbkcsh
' Call Textwx(LrText(0))
Ydcommand1(0).Enabled = True
End Sub
Private Sub Imgebo_ItemClass_Click() '用户点击项目分类列表
If Trim(Imgebo_ItemClass.Text) = "" Then
LrText(0).Text = ""
Call Textwx(LrText(0))
Ydcommand1(0).Enabled = False
Else
Call Textyx(LrText(0))
Ydcommand1(0).Enabled = True
End If
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
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -