📄 对帐单选择.frm
字号:
VERSION 5.00
Object = "{FE0065C0-1B7B-11CF-9D53-00AA003C9CB6}#1.1#0"; "comct232.ocx"
Object = "{A0C292A3-118E-11D2-AFDF-000021730160}#1.0#0"; "UFEDIT.OCX"
Object = "{7E0DF0CE-703B-11D3-8E57-0000210152D8}#1.0#0"; "UsRefBut.ocx"
Begin VB.Form frmRdzdXz
BorderStyle = 1 'Fixed Single
Caption = "对账单查询"
ClientHeight = 2955
ClientLeft = 1560
ClientTop = 2400
ClientWidth = 4635
HelpContextID = 88000052
Icon = "对帐单选择.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 2955
ScaleWidth = 4635
Begin VB.CommandButton Command1
Default = -1 'True
Height = 365
Index = 0
Left = 1875
Style = 1 'Graphical
TabIndex = 5
Top = 2400
Width = 1080
End
Begin VB.CommandButton Command1
Cancel = -1 'True
Height = 365
Index = 1
Left = 3160
Style = 1 'Graphical
TabIndex = 6
Top = 2400
Width = 1080
End
Begin VB.Frame Frame1
Height = 1815
Left = 330
TabIndex = 8
Top = 390
Width = 3915
Begin UsRefBut.RefCmd RefCmd1
Height = 270
Index = 1
Left = 2970
TabIndex = 13
Top = 300
Width = 315
_ExtentX = 556
_ExtentY = 476
RefMode = 1
RefUnitMode = 0
RefAccMode = 0
Enabled = -1 'True
End
Begin EDITLib.Edit Edit2
Height = 270
Left = 1170
TabIndex = 3
Top = 1200
Width = 675
_Version = 65536
_ExtentX = 1191
_ExtentY = 476
_StockProps = 253
ForeColor = 0
BackColor = 16777215
Appearance = 1
Property = 3
MaxLength = 5
End
Begin EDITLib.Edit Edit1
Height = 270
Left = 2490
TabIndex = 2
Top = 750
Width = 420
_Version = 65536
_ExtentX = 741
_ExtentY = 476
_StockProps = 253
ForeColor = 0
BackColor = 16777215
Appearance = 1
Property = 2
MaxLength = 2
End
Begin ComCtl2.UpDown UpDown1
Height = 270
Left = 2910
TabIndex = 7
Top = 750
Width = 270
_ExtentX = 423
_ExtentY = 476
_Version = 327681
Value = 1
BuddyControl = "Edit1"
BuddyDispid = 196616
OrigLeft = 1620
OrigTop = 750
OrigRight = 1890
OrigBottom = 1035
Max = 12
Min = 1
Wrap = -1 'True
Enabled = -1 'True
End
Begin EDITLib.Edit Edit3
Height = 270
Left = 2220
TabIndex = 4
Top = 1200
Width = 675
_Version = 65536
_ExtentX = 1191
_ExtentY = 476
_StockProps = 253
ForeColor = 0
BackColor = 16777215
Appearance = 1
Property = 3
MaxLength = 5
End
Begin EDITLib.Edit Edit4
Height = 270
Left = 1170
TabIndex = 0
Top = 300
Width = 1785
_Version = 65536
_ExtentX = 3149
_ExtentY = 476
_StockProps = 253
ForeColor = 0
BackColor = 16777215
Appearance = 1
MaxLength = 60
BadStr = "|'"""
End
Begin EDITLib.Edit Edit5
Height = 270
Left = 1170
TabIndex = 1
Top = 750
Width = 675
_Version = 65536
_ExtentX = 1191
_ExtentY = 476
_StockProps = 253
ForeColor = 0
BackColor = 16777215
Appearance = 1
Property = 3
MaxLength = 10
End
Begin ComCtl2.UpDown UpDown2
Height = 270
Left = 1860
TabIndex = 14
Top = 750
Width = 270
_ExtentX = 423
_ExtentY = 476
_Version = 327681
Value = 1980
BuddyControl = "Edit1"
BuddyDispid = 196616
OrigLeft = 1620
OrigTop = 750
OrigRight = 1890
OrigBottom = 1035
Max = 2099
Min = 1980
Wrap = -1 'True
Enabled = -1 'True
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "月"
Height = 180
Index = 4
Left = 3240
TabIndex = 16
Top = 795
Width = 180
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "时间"
Height = 180
Index = 3
Left = 690
TabIndex = 15
Top = 795
Width = 360
End
Begin VB.Line Line1
X1 = 1950
X2 = 2130
Y1 = 1320
Y2 = 1320
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "页数"
Height = 180
Index = 2
Left = 690
TabIndex = 11
Top = 1230
Width = 360
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "年"
Height = 180
Index = 1
Left = 2190
TabIndex = 10
Top = 795
Width = 180
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "账户号"
Height = 180
Index = 0
Left = 510
TabIndex = 9
Top = 360
Width = 540
End
End
Begin VB.Label Label2
AutoSize = -1 'True
Caption = "请输入查询条件："
Height = 180
Left = 390
TabIndex = 12
Top = 150
Width = 1440
End
End
Attribute VB_Name = "frmRdzdXz"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'软件著作权: 北京用友软件集团有限公司
'系统名称: 资金计息8.0
'功能说明: 对账单选择界面
'作者: 赵春立
Option Explicit
Public Quitfs As Boolean
Private Function VerifyFind() As Boolean
Dim sqlX As String, rsX As New UfRecordset
Dim sqlItem As String
Dim rsItem As New UfRecordset
VerifyFind = False
If Edit4 = "" Then
Beep
MsgBox "账户号不能为空，请重新输入！", vbInformation, zjGl_Name
Edit4.SetFocus
Exit Function
End If
sqlX = "SELECT * FROM FD_AccDef WHERE [cAccID]='" & Edit4 & "'"
Set rsX = dbsZJ.OpenRecordset(sqlX, dbOpenSnapshot)
If rsX.EOF Then
Beep
MsgBox "账户号不存在，请重新输入！", vbInformation, zjGl_Name
SetTxtFocus Edit4
Exit Function
ElseIf rsX![iDataSrc] = 1 Then
sqlItem = "SELECT * FROM FD_AccSet WHERE [cAccID] = '" & Edit4 & "'"
Set rsItem = dbsZJ.OpenRecordset(sqlItem, dbOpenSnapshot)
If rsItem.EOF Then
Beep
MsgBox "账户[" & Edit4 & "]未设置科目，请重新输入！", vbInformation, zjGl_Name
SetTxtFocus Edit4
Exit Function
End If
End If
If Edit1 = "" Then
Edit1 = Month(Date)
Else
If Edit1 > 12 Then Edit1 = 12
If Edit1 < 1 Then Edit1 = 1
End If
If Val(Edit5) = 0 Then 'Cuidong 2000.12.31
Edit5 = Year(zjLogInfo.curDate) 'Cuidong 2000.12.31
Else 'Cuidong 2000.12.31
If Val(Edit5) > 2099 Then Edit5 = 2099 'Cuidong 2000.12.31
If Val(Edit5) < 1980 Then Edit5 = 1980 'Cuidong 2000.12.31
End If 'Cuidong 2000.12.31
If Edit2 = "" Then Edit2 = 1
VerifyFind = True
End Function
Private Sub Command1_Click(Index As Integer)
Dim i As Integer
Select Case Index
Case 0
If VerifyFind Then
Me.Hide
For i = 0 To Forms.Count - 1
If Forms(i).Tag = "DZD" Then
BringWindowToTop Forms(i).hWnd
Forms(i).WindowState = 2
Forms(i).strAccID = Edit4
Forms(i).lngMonth = Edit1
Forms(i).lngYear = Edit5
Forms(i).lngPageFrom = Edit2
Forms(i).lngPageTo = IIf(Edit3 = "", -1, Edit3)
Forms(i).RefreshMe
DoEvents
Quitfs = False
Unload Me
Exit Sub
End If
Next i
With frmRdzd
.strAccID = Edit4
.lngMonth = Edit1
.lngYear = Edit5
.lngPageFrom = Edit2
' .lngPageTo = IIf(Edit3 = "", -1, Edit3) 'cuidong 2001.04.10
.lngPageTo = IIf(Edit3 = "", -1, IIf(Edit3 >= Edit2, Edit3, Edit2)) 'cuidong 2001.04.10
Quitfs = False
Unload Me
.Show
.Tag = "DZD"
End With
End If
Case 1: Unload Me
End Select
End Sub
Private Sub Edit1_Change()
On Error Resume Next
UpDown1.Value = Edit1
On Error GoTo 0
End Sub
Private Sub Edit2_KeyPress(KeyAscii As Integer)
If KeyAscii = Asc("-") Then KeyAscii = 0
End Sub
Private Sub Edit3_KeyPress(KeyAscii As Integer)
If KeyAscii = Asc("-") Then KeyAscii = 0
End Sub
Private Sub Edit4_KeyUp(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyF2 Then
RefCmd1(1).RunReference
Edit4.SetFocus
End If
End Sub
Private Sub Edit5_Click() 'Cuidong 2000.12.31
On Error Resume Next
UpDown2.Value = IIf(Val(Edit5) = 0, Year(zjLogInfo.curDate), Val(Edit5))
On Error GoTo 0
End Sub
Private Sub Form_Load()
Me.Icon = LoadResPicture(109, vbResIcon)
Command1(0).Picture = LoadResPicture(103, vbResBitmap)
Command1(1).Picture = LoadResPicture(104, vbResBitmap)
Edit1 = Month(zjLogInfo.curDate)
Edit5 = Year(zjLogInfo.curDate) 'Cuidong 2000.12.31
UpDown2.Value = Edit5 'Cuidong 2000.12.31
Edit2 = 1
CenterForm Me
End Sub
Private Sub Form_Unload(Cancel As Integer)
If Quitfs Then
zjLogInfo.TaskExec "FD0708", 0, zjLogInfo.cIYear
zjLogInfo.ClearError
zjGen_arr.FD0708 = False
End If
End Sub
Private Sub RefCmd1_Initialize(Index As Integer)
RefCmd1(Index).InitSys 0, dbsZJ
RefCmd1(Index).InitSys 1, Edit4
End Sub
Private Sub RefCmd1_RefCancel(Index As Integer)
Edit4.SetFocus
End Sub
Private Sub RefCmd1_RefOK(Index As Integer, Code As String)
Edit4 = Code: Edit4.SetFocus
End Sub
Private Sub UpDown1_Change()
Edit1 = UpDown1.Value
End Sub
Private Sub UpDown2_Change() 'Cuidong 2000.12.31
Edit5 = UpDown2.Value
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -