📄 +
字号:
VERSION 5.00
Begin VB.Form Book_Parti_Search
BorderStyle = 3 'Fixed Dialog
Caption = "资产明细帐查询条件"
ClientHeight = 2460
ClientLeft = 45
ClientTop = 330
ClientWidth = 4455
HelpContextID = 505005
Icon = "明细帐查询条件.frx":0000
KeyPreview = -1 'True
LinkTopic = "Form1"
LockControls = -1 'True
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 2460
ScaleWidth = 4455
ShowInTaskbar = 0 'False
StartUpPosition = 2 '屏幕中心
Begin VB.CommandButton Command_Clear
Caption = "全清"
Height = 300
Left = 60
TabIndex = 17
Top = 2100
Width = 1120
End
Begin VB.Frame Frame1
ForeColor = &H00FF0000&
Height = 2025
Left = 60
TabIndex = 10
Top = 0
Width = 4335
Begin VB.CommandButton Ydcommand
Height = 300
Index = 2
Left = 3855
Picture = "明细帐查询条件.frx":1042
Style = 1 'Graphical
TabIndex = 19
Top = 930
Width = 300
End
Begin VB.CommandButton Ydcommand
Height = 300
Index = 1
Left = 3855
Picture = "明细帐查询条件.frx":13CC
Style = 1 'Graphical
TabIndex = 18
Top = 570
Width = 300
End
Begin VB.ComboBox Com_Year
Height = 300
Index = 1
Left = 2820
Style = 2 'Dropdown List
TabIndex = 4
Top = 1290
Width = 1335
End
Begin VB.ComboBox Com_Year
Height = 300
Index = 0
Left = 1050
Style = 2 'Dropdown List
TabIndex = 3
Top = 1290
Width = 1335
End
Begin VB.TextBox lrtext
Height = 300
Index = 2
Left = 1050
MaxLength = 20
TabIndex = 2
Top = 930
Width = 2805
End
Begin VB.OptionButton Opt_No
Caption = "否"
Height = 180
Left = 1920
TabIndex = 6
Top = 1710
Width = 555
End
Begin VB.OptionButton Opt_Yes
Caption = "是"
Height = 225
Left = 1230
TabIndex = 5
Top = 1695
Value = -1 'True
Width = 495
End
Begin VB.TextBox lrtext
Height = 300
Index = 1
Left = 1050
MaxLength = 20
TabIndex = 1
Top = 570
Width = 2805
End
Begin VB.TextBox lrtext
Height = 300
Index = 0
Left = 1050
MaxLength = 20
TabIndex = 0
Top = 210
Width = 2805
End
Begin VB.CommandButton Ydcommand
Height = 300
Index = 0
Left = 3855
Picture = "明细帐查询条件.frx":1756
Style = 1 'Graphical
TabIndex = 11
Top = 210
Width = 300
End
Begin VB.Line Line1
X1 = 2490
X2 = 2670
Y1 = 1440
Y2 = 1440
End
Begin VB.Label Label3
AutoSize = -1 'True
Caption = "会计期间:"
Height = 180
Left = 180
TabIndex = 16
Top = 1350
Width = 810
End
Begin VB.Label Label2
AutoSize = -1 'True
Caption = "期间合计:"
Height = 180
Left = 180
TabIndex = 15
Top = 1710
Width = 810
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "卡片编号:"
Height = 180
Index = 2
Left = 180
TabIndex = 14
Top = 990
Width = 810
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "所属部门:"
Height = 180
Index = 1
Left = 180
TabIndex = 13
Top = 630
Width = 810
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "资产类别:"
Height = 180
Index = 0
Left = 180
TabIndex = 12
Top = 270
Width = 810
End
End
Begin VB.CommandButton QdCommand
Caption = "确定(&O)"
Height = 300
Left = 2075
TabIndex = 7
Top = 2100
Width = 1120
End
Begin VB.CommandButton QxCommand
Cancel = -1 'True
Caption = "取消(&C)"
Height = 300
Left = 3275
TabIndex = 8
Top = 2100
Width = 1120
End
Begin VB.CheckBox UnloadCheck
Caption = "卸载窗体"
Height = 615
Left = 330
TabIndex = 9
Top = 3360
Width = 825
End
End
Attribute VB_Name = "Book_Parti_Search"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'******************************************************************
'* 模 块 名 称 :资产变动报表
'* 功 能 描 述 :
'* 程序员姓名 :徐衍民
'* 最后修改人 :徐衍民
'* 最后修改时间:2001/12/17
'* 备 注:
'******************************************************************
Dim Tsxx As String '系统信息提示
Dim Rs_Temp As ADODB.Recordset '打开数据集变量
Dim rstemp As ADODB.Recordset '打开数据集变量
'以下为固定使用变量(文本框)
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 Command_Clear_Click() '全清
Dim i As Integer
For i = 0 To lrtext.count - 1
lrtext(i).Text = ""
Next i
Opt_Yes.Value = True
lrtext(0).SetFocus
End Sub
Private Sub Form_KeyPress(KeyAscii As Integer) '控 制 焦 点 转 移
Dim jdzygs As Integer '控件焦点转移个数
jdzygs = 9
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() '窗体装入
Dim i As Integer
'以下为文本框处理程序
TextGroupCode = "Gdzc_Parti_Search"
Call Drwbkxx(TextGroupCode, Textvar(), Textboolean(), Textint(), Textstr()) '读入文本框录入信息
Call Wbkcsh
Set rstemp = New ADODB.Recordset
rstemp.Open "select Distinct Year,Period from Gdzc_DetailedForm order by Year,Period", Cw_DataEnvi.DataConnect, adOpenDynamic, adLockOptimistic
While Not rstemp.EOF
Com_Year(0).AddItem rstemp!Year & "." & IIf(rstemp!Period < 10, "0" & rstemp!Period, rstemp!Period)
Com_Year(1).AddItem rstemp!Year & "." & IIf(rstemp!Period < 10, "0" & rstemp!Period, rstemp!Period)
rstemp.MoveNext
Wend
rstemp.Close
Set rstemp = Nothing
If Com_Year(0).ListCount > 0 Then Com_Year(0).Text = Com_Year(0).List(0)
If Com_Year(1).ListCount > 0 Then Com_Year(1).Text = Com_Year(1).List(Com_Year(1).ListCount - 1)
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() '确 定
'录入条件有效性判断
If Not Lrtjyxxpd Then
Exit Sub
End If
Me.Hide
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -