📄
字号:
Width = 4260
End
Begin VB.TextBox LrText
Height = 300
Index = 4
Left = 3510
TabIndex = 4
Text = "4"
Top = 1320
Width = 1755
End
Begin VB.TextBox LrText
Height = 300
Index = 3
Left = 990
TabIndex = 3
Text = "3"
Top = 1320
Width = 1815
End
Begin VB.TextBox LrText
BackColor = &H00FFFFFF&
Height = 300
Index = 7
Left = 3510
TabIndex = 7
Text = "7"
Top = 2040
Width = 1755
End
Begin VB.TextBox LrText
BackColor = &H00FFFFFF&
Height = 300
Index = 8
Left = 990
TabIndex = 8
Text = "8"
Top = 2400
Width = 4260
End
Begin VB.TextBox LrText
Height = 300
Index = 6
Left = 990
TabIndex = 6
Text = "6"
Top = 2040
Width = 1815
End
Begin VB.TextBox LrText
BackColor = &H00FFFFFF&
Height = 300
Index = 9
Left = 990
TabIndex = 9
Text = "9"
Top = 2760
Width = 4260
End
Begin VB.CommandButton Ydcommand1
Height = 300
Index = 0
Left = 5250
Picture = "期初_单据列表条件.frx":1EA2
Style = 1 'Graphical
TabIndex = 34
Top = 600
Width = 300
End
Begin VB.CommandButton Ydcommand1
Height = 300
Index = 3
Left = 2790
Picture = "期初_单据列表条件.frx":222C
Style = 1 'Graphical
TabIndex = 33
Top = 1320
Width = 300
End
Begin VB.CommandButton Ydcommand1
Height = 300
Index = 4
Left = 5250
Picture = "期初_单据列表条件.frx":25B6
Style = 1 'Graphical
TabIndex = 32
Top = 1320
Width = 300
End
Begin VB.CommandButton Ydcommand1
Height = 300
Index = 8
Left = 5250
Picture = "期初_单据列表条件.frx":2940
Style = 1 'Graphical
TabIndex = 31
Top = 2430
Width = 300
End
Begin VB.CommandButton Ydcommand1
Height = 300
Index = 9
Left = 5250
Picture = "期初_单据列表条件.frx":2CCA
Style = 1 'Graphical
TabIndex = 30
Top = 2760
Width = 300
End
Begin VB.CommandButton Ydcommand1
Height = 300
Index = 15
Left = -69750
Picture = "期初_单据列表条件.frx":3054
Style = 1 'Graphical
TabIndex = 29
Top = 1380
Width = 300
End
Begin VB.CommandButton Ydcommand1
Height = 300
Index = 16
Left = -69750
Picture = "期初_单据列表条件.frx":33DE
Style = 1 'Graphical
TabIndex = 28
Top = 1740
Width = 300
End
Begin VB.CommandButton Ydcommand1
Height = 300
Index = 17
Left = -69750
Picture = "期初_单据列表条件.frx":3768
Style = 1 'Graphical
TabIndex = 27
Top = 2100
Width = 300
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "存货分类:"
Height = 195
Index = 13
Left = 135
TabIndex = 52
Top = 1740
Width = 765
End
Begin VB.Line Line4
X1 = -71910
X2 = -71760
Y1 = 1170
Y2 = 1170
End
Begin VB.Line Line3
X1 = -71910
X2 = -71760
Y1 = 810
Y2 = 810
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "记帐人:"
Height = 195
Index = 11
Left = -74865
TabIndex = 51
Top = 2160
Width = 585
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "制单人:"
Height = 195
Index = 10
Left = -74865
TabIndex = 50
Top = 1800
Width = 585
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "业务员:"
Height = 195
Index = 2
Left = -74865
TabIndex = 49
Top = 1440
Width = 585
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "金额:"
Height = 195
Index = 1
Left = -74865
TabIndex = 48
Top = 1080
Width = 405
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "数量:"
Height = 195
Index = 0
Left = -74865
TabIndex = 47
Top = 720
Width = 405
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "存货编码:"
Height = 195
Index = 5
Left = 135
TabIndex = 46
Top = 2100
Width = 765
End
Begin VB.Line Line2
Index = 0
X1 = 3210
X2 = 3375
Y1 = 2175
Y2 = 2175
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "供应商:"
Height = 180
Index = 3
Left = 135
TabIndex = 45
Top = 2460
Width = 630
End
Begin VB.Line Line1
Index = 0
X1 = 3210
X2 = 3375
Y1 = 1140
Y2 = 1140
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "单据号:"
Height = 180
Index = 4
Left = 135
TabIndex = 44
Top = 1020
Width = 630
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "仓库:"
Height = 180
Index = 6
Left = 135
TabIndex = 43
Top = 660
Width = 450
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "入库日期:"
Height = 180
Index = 7
Left = 135
TabIndex = 42
Top = 1380
Width = 810
End
Begin VB.Line Line1
Index = 1
X1 = 3210
X2 = 3375
Y1 = 1470
Y2 = 1470
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "入库类别:"
Height = 180
Index = 12
Left = 135
TabIndex = 41
Top = 3180
Width = 810
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "部门:"
Height = 180
Index = 8
Left = 135
TabIndex = 40
Top = 2820
Width = 450
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "保管员:"
Height = 180
Index = 9
Left = -74805
TabIndex = 39
Top = 2640
Width = 630
End
End
End
Attribute VB_Name = "Start_BillListCond"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'******************************************************************
'* 模 块 名 称 :单据列表查询条件
'* 功 能 描 述 :
'* 程序员姓名 :白凤英
'* 最后修改人 :白凤英
'* 最后修改时间:2001/11/26
'* 备 注:程序中所有依实际情况自定义部分均用[>> <<]括起
'******************************************************************
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 CurTextIndex As Integer '当前文本框索引值
Dim TextChangeLock As Boolean '文本框内容变换控制锁
Dim Bln_Cancel As Boolean '取消按钮信息传递
Private Sub Form_KeyPress(KeyAscii As Integer) '控 制 焦 点 转 移(Fixed)
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -