📄 银行存款.frm
字号:
Height = 180
Index = 9
Left = 5700
TabIndex = 24
Top = 1140
Width = 90
End
Begin VB.Label Label1
AutoSize = -1 'True
BackColor = &H00C0FFFF&
BackStyle = 0 'Transparent
Height = 180
Index = 8
Left = 3150
TabIndex = 23
Top = 1140
Width = 90
End
Begin VB.Label Label1
AutoSize = -1 'True
BackColor = &H00C0FFFF&
BackStyle = 0 'Transparent
Height = 180
Index = 6
Left = 5340
TabIndex = 22
Top = 690
Width = 90
End
Begin VB.Label Label1
AutoSize = -1 'True
BackColor = &H00C0FFFF&
BackStyle = 0 'Transparent
Height = 180
Index = 11
Left = 2520
TabIndex = 21
Top = 1590
Width = 90
End
Begin VB.Label Label1
AutoSize = -1 'True
BackColor = &H00C0FFFF&
BackStyle = 0 'Transparent
Height = 180
Index = 3
Left = 4260
TabIndex = 20
Top = 150
Width = 90
End
Begin VB.Line Line1
Index = 0
X1 = 120
X2 = 7320
Y1 = 510
Y2 = 510
End
Begin VB.Label Label1
AutoSize = -1 'True
BackColor = &H00C0FFFF&
BackStyle = 0 'Transparent
Height = 180
Index = 2
Left = 120
TabIndex = 19
Top = 150
Width = 90
End
Begin VB.Line Line1
Index = 1
X1 = 120
X2 = 7320
Y1 = 1440
Y2 = 1440
End
Begin VB.Line Line1
Index = 2
X1 = 120
X2 = 7320
Y1 = 990
Y2 = 990
End
Begin VB.Label Label1
AutoSize = -1 'True
BackColor = &H00C0FFFF&
BackStyle = 0 'Transparent
Height = 180
Index = 4
Left = 120
TabIndex = 18
Top = 660
Width = 90
End
Begin VB.Label Label1
AutoSize = -1 'True
BackColor = &H00C0FFFF&
BackStyle = 0 'Transparent
Height = 180
Index = 5
Left = 3150
TabIndex = 17
Top = 690
Width = 90
End
Begin VB.Label Label1
AutoSize = -1 'True
BackColor = &H00C0FFFF&
BackStyle = 0 'Transparent
Height = 180
Index = 7
Left = 120
TabIndex = 16
Top = 1140
Width = 90
End
Begin VB.Label Label1
AutoSize = -1 'True
BackColor = &H00C0FFFF&
BackStyle = 0 'Transparent
Height = 180
Index = 10
Left = 120
TabIndex = 15
Top = 1560
Width = 90
End
End
Begin VB.CommandButton cmdrq
Height = 270
Left = 7590
Style = 1 'Graphical
TabIndex = 13
TabStop = 0 'False
Top = 270
Width = 270
End
Begin EDITLib.Edit Editbh
Height = 264
Left = 2000
TabIndex = 0
Top = 270
Width = 850
_Version = 65536
_ExtentX = 1499
_ExtentY = 466
_StockProps = 253
ForeColor = 0
BackColor = 16777215
Appearance = 1
Property = 3
MaxLength = 8
End
Begin EDITLib.Edit Editrq
Height = 264
Left = 6465
TabIndex = 1
Top = 270
Width = 1035
_Version = 65536
_ExtentX = 1826
_ExtentY = 466
_StockProps = 253
ForeColor = 0
BackColor = 16777215
Appearance = 1
Property = 5
MaxLength = 10
End
Begin VB.Line Line2
X1 = 1915
X2 = 2000
Y1 = 390
Y2 = 390
End
Begin VB.Label Label2
BackColor = &H80000018&
BorderStyle = 1 'Fixed Single
Caption = " "
Height = 264
Left = 1110
TabIndex = 33
Top = 264
Width = 800
End
Begin VB.Label Label1
AutoSize = -1 'True
Height = 180
Index = 14
Left = 270
TabIndex = 32
Top = 2880
Width = 90
End
Begin VB.Label Label1
AutoSize = -1 'True
Height = 180
Index = 18
Left = 6240
TabIndex = 31
Top = 2880
Width = 90
End
Begin VB.Label Label1
AutoSize = -1 'True
Height = 180
Index = 16
Left = 3240
TabIndex = 30
Top = 2880
Width = 90
End
Begin VB.Shape Shape2
Height = 2055
Left = 285
Top = 630
Width = 7560
End
Begin VB.Shape Shape1
Height = 2145
Left = 240
Top = 585
Width = 7650
End
Begin VB.Label Label1
AutoSize = -1 'True
Height = 180
Index = 1
Left = 6012
TabIndex = 29
Top = 300
Width = 96
End
Begin VB.Label Label1
AutoSize = -1 'True
Height = 180
Index = 0
Left = 300
TabIndex = 28
Top = 300
Width = 90
End
Begin VB.Label Label1
AutoSize = -1 'True
Height = 180
Index = 15
Left = 825
TabIndex = 27
Top = 2880
Width = 90
End
Begin VB.Label Label1
AutoSize = -1 'True
Height = 180
Index = 17
Left = 3825
TabIndex = 26
Top = 2880
Width = 90
End
Begin VB.Label Label1
AutoSize = -1 'True
Height = 180
Index = 19
Left = 6810
TabIndex = 25
Top = 2880
Width = 90
End
End
Begin ComctlLib.ImageList ImageList1
Left = 1290
Top = 630
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483643
MaskColor = 12632256
_Version = 327682
End
Begin VB.Label Label0
AutoSize = -1 'True
BackStyle = 0 'Transparent
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 700
Underline = -1 'True
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00800000&
Height = 240
Left = 3495
TabIndex = 36
Top = 750
Width = 150
End
End
Attribute VB_Name = "frmyhck"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
' 软件著作权: 北京用友软件集团有限公司
' 系统名称: 资金计息8。0 FOR WIN95/NT
' 功能说明: 银行存款单据录入
' 作者: 魏小黎
Option Explicit
Private rsTckd As adodb.Recordset
Private isSave As Boolean
Private IsNew As Boolean
Private isFh As Boolean
Private isEnt(2) As Boolean
Private Frtin As Boolean
Private Djcopy(10) As String
Private Checkqx As Boolean
Public djnwb As Byte
' 日期参照
Private Sub cmdrq_Click()
View_Calendar Me, Editrq, Picture1.Top
End Sub
Private Sub Combo1_Click()
On Error GoTo reqer1
If Combo1.Text <> "" Then
If Combo1.Text = Editbh.Text Then
Exit Sub
End If
If rsTckd Is Nothing Then
reqer1: Set rsTckd = oV.getUnBookRst
Else
rsTckd.Requery
End If
With rsTckd
If .EOF Then
Textqk
ckdbutt
Exit Sub
Else
.MoveLast
.MoveFirst
End If
Dim dqbh As String
dqbh = Combo1.Text
Combo1.Clear
Do While Not .EOF
Combo1.AddItem Right(![cSavID], 8)
.MoveNext
Loop
FindFirst rsTckd, "cSavid >= '" & IIf(djnwb = 1, "01", "03") & dqbh & "'"
If .EOF Then
.MoveLast
End If
Editrq.SetFocus
End With
Carddata
ckdbutt
End If
End Sub
Private Sub Combo1_GotFocus()
On Error GoTo reqer2
Combo1.Clear
If rsTckd Is Nothing Then
reqer2: Set rsTckd = oV.getUnBookRst
Else
rsTckd.Requery
End If
With rsTckd
If .EOF Then
Textqk
ckdbutt
Exit Sub
Else
.MoveLast
.MoveFirst
End If
Do While Not .EOF
Combo1.AddItem Right(![cSavID], 8)
.MoveNext
Loop
If Editbh.Text <> "" Then
FindFirst rsTckd, "cSavid >= '" & IIf(djnwb = 1, "01", "03") & Editbh.Text & "'"
If .EOF Then
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -