📄
字号:
VERSION 5.00
Begin VB.Form CL_MakeVoucherFind
BorderStyle = 1 'Fixed Single
Caption = "生成凭证查询条件"
ClientHeight = 4170
ClientLeft = 45
ClientTop = 330
ClientWidth = 7350
HelpContextID = 130407
Icon = "处理_生成凭证查询条件.frx":0000
KeyPreview = -1 'True
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 4170
ScaleWidth = 7350
StartUpPosition = 2 'CenterScreen
Visible = 0 'False
Begin VB.CommandButton Cmd_Clear
Caption = "全清(&L)"
Height = 300
Left = 120
TabIndex = 32
Top = 3720
Width = 1120
End
Begin VB.CheckBox UnloadCheck
Caption = "Check1"
Height = 255
Left = 1620
TabIndex = 24
Top = 3870
Visible = 0 'False
Width = 975
End
Begin VB.Frame Frame1
Height = 3615
Left = 2880
TabIndex = 14
Top = 0
Width = 4365
Begin VB.CommandButton YDCommand1
Height = 300
Index = 6
Left = 3930
Picture = "处理_生成凭证查询条件.frx":1042
Style = 1 'Graphical
TabIndex = 31
Top = 2190
Visible = 0 'False
Width = 300
End
Begin VB.CommandButton YDCommand1
Height = 300
Index = 5
Left = 3930
Picture = "处理_生成凭证查询条件.frx":13CC
Style = 1 'Graphical
TabIndex = 30
Top = 1800
Visible = 0 'False
Width = 300
End
Begin VB.CommandButton YDCommand1
Height = 300
Index = 2
Left = 3930
Picture = "处理_生成凭证查询条件.frx":1756
Style = 1 'Graphical
TabIndex = 29
Top = 1050
Visible = 0 'False
Width = 300
End
Begin VB.CommandButton YDCommand1
Height = 300
Index = 1
Left = 3930
Picture = "处理_生成凭证查询条件.frx":1AE0
Style = 1 'Graphical
TabIndex = 28
Top = 690
Visible = 0 'False
Width = 300
End
Begin VB.CommandButton YDCommand1
Height = 300
Index = 4
Left = 3930
Picture = "处理_生成凭证查询条件.frx":1E6A
Style = 1 'Graphical
TabIndex = 27
Top = 1440
Visible = 0 'False
Width = 300
End
Begin VB.CommandButton YDCommand1
Height = 300
Index = 3
Left = 2190
Picture = "处理_生成凭证查询条件.frx":21F4
Style = 1 'Graphical
TabIndex = 26
Top = 1440
Visible = 0 'False
Width = 300
End
Begin VB.CommandButton YDCommand1
Height = 300
Index = 0
Left = 3930
Picture = "处理_生成凭证查询条件.frx":257E
Style = 1 'Graphical
TabIndex = 25
Top = 300
Visible = 0 'False
Width = 300
End
Begin VB.OptionButton Opti_pz
Caption = "已生成的凭证"
Height = 195
Left = 180
TabIndex = 23
Top = 3240
Visible = 0 'False
Width = 2055
End
Begin VB.OptionButton Opti_bill2
Caption = "已生成凭证的单据"
Height = 255
Left = 2250
TabIndex = 22
Top = 2760
Width = 1815
End
Begin VB.OptionButton Opti_bill1
Caption = "未生成凭证的单据"
Height = 255
Left = 150
TabIndex = 21
Top = 2760
Value = -1 'True
Width = 1935
End
Begin VB.TextBox LrText
Height = 300
Index = 6
Left = 1020
TabIndex = 6
Text = "6"
Top = 2190
Width = 2925
End
Begin VB.TextBox LrText
Height = 300
Index = 4
Left = 2730
TabIndex = 4
Text = "4"
Top = 1440
Width = 1215
End
Begin VB.TextBox LrText
Height = 300
Index = 5
Left = 1020
TabIndex = 5
Text = "5"
Top = 1815
Width = 2925
End
Begin VB.TextBox LrText
Height = 300
Index = 2
Left = 1020
TabIndex = 2
Text = "2"
Top = 1050
Width = 2925
End
Begin VB.TextBox LrText
Height = 300
Index = 3
Left = 1020
TabIndex = 3
Text = "3"
Top = 1440
Width = 1185
End
Begin VB.TextBox LrText
Height = 300
Index = 1
Left = 1020
TabIndex = 1
Text = "1"
Top = 675
Width = 2925
End
Begin VB.TextBox LrText
Height = 300
Index = 0
Left = 1020
TabIndex = 0
Text = "0"
Top = 300
Width = 2925
End
Begin VB.Line Line1
X1 = 2520
X2 = 2670
Y1 = 1590
Y2 = 1590
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "部门:"
Height = 195
Index = 3
Left = 150
TabIndex = 20
Top = 1860
Width = 405
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "记帐人:"
Height = 195
Index = 14
Left = 150
TabIndex = 19
Top = 2250
Width = 585
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "仓库:"
Height = 195
Index = 2
Left = 150
TabIndex = 18
Top = 360
Width = 405
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "单据日期:"
Height = 195
Index = 11
Left = 150
TabIndex = 17
Top = 1500
Width = 765
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "存货:"
Height = 195
Index = 12
Left = 150
TabIndex = 16
Top = 1140
Width = 405
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "存货分类:"
Height = 195
Index = 1
Left = 150
TabIndex = 15
Top = 750
Width = 765
End
End
Begin VB.CommandButton QdCommand
Caption = "确定(&O)"
Height = 300
Left = 4890
TabIndex = 7
Top = 3750
Width = 1120
End
Begin VB.CommandButton QxCommand
Caption = "取消(&C)"
Height = 300
Left = 6120
TabIndex = 13
Top = 3750
Width = 1120
End
Begin VB.Frame Frame3
Height = 3615
Left = 90
TabIndex = 8
Top = 0
Width = 2685
Begin VB.ListBox Lst_BillCode
Height = 2310
Left = 120
Style = 1 'Checkbox
TabIndex = 11
Top = 510
Width = 2445
End
Begin VB.CommandButton Com_Qbfd
Caption = "全消"
Height = 300
Left = 180
TabIndex = 10
Top = 3180
Width = 1120
End
Begin VB.CommandButton Com_Qbxz
Caption = "全选"
Height = 300
Left = 1410
TabIndex = 9
Top = 3180
Width = 1120
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "单据名称:"
Height = 195
Index = 0
Left = 150
TabIndex = 12
Top = 210
Width = 765
End
End
End
Attribute VB_Name = "CL_MakeVoucherFind"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
'**************************************************************************
'* 模 块 名 称 :生成凭证列表查询条件
'* 功 能 描 述 :
'* 程序员姓名 :杨波
'* 最后修改人 :杨波
'* 最后修改时间:2001/12/18
'* 备 注:程序中所有依实际情况自定义部分均用[>> <<]括起
'**************************************************************************
Dim SaveTxt() As String '保留文本内容
Dim SaveLst() As Boolean '保留列表内容
Dim SaveOption() As Boolean '保留option内容
'以下为固定使用变量(文本框)
Dim Tsxx As String '提示信息
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 TextChangeLock As Boolean '文本框内容变换控制锁
Dim Bln_Cancel As Boolean '取消按钮信息传递
Dim Jsqte As Integer
Dim BillCode(11) As String '单据类型编码
Dim MSQLStr As String
Private Sub Cmd_Clear_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single) '将用户输入条件全部清除(可选)
'清除文本框(Fixed)
For Jsqte = 0 To Max_Text_Index
LrText(Jsqte).Tag = ""
LrText(Jsqte).Text = ""
Next Jsqte
End Sub
Private Sub Com_Qbxz_Click() '全选
Dim i As Integer
For i = 0 To Lst_BillCode.ListCount - 1
Lst_BillCode.Selected(i) = True
Next i
End Sub
Private Sub Com_Qbfd_Click() '不选
Dim i As Integer
For i = 0 To Lst_BillCode.ListCount - 1
Lst_BillCode.Selected(i) = False
Next i
End Sub
Private Sub Form_KeyPress(KeyAscii As Integer) '控 制 焦 点 转 移
Dim jdzygs As Integer
jdzygs = 7
Select Case KeyAscii
Case vbKeyReturn
If Kjjdzy(jdzygs) Then
KeyAscii = 0
End If
Case 39 '屏蔽字符"'"
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -