📄 帐户余额选择.frm
字号:
VERSION 5.00
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 frmRzhyeXz
BorderStyle = 1 'Fixed Single
Caption = "账户余额日报表"
ClientHeight = 2340
ClientLeft = 5460
ClientTop = 2820
ClientWidth = 4680
HelpContextID = 88000065
Icon = "帐户余额选择.frx":0000
LinkTopic = "Form1"
LockControls = -1 'True
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 2340
ScaleWidth = 4680
Begin VB.CommandButton Command1
Cancel = -1 'True
Height = 365
Index = 2
Left = 3135
Style = 1 'Graphical
TabIndex = 3
Top = 1785
Width = 1080
End
Begin VB.CommandButton Command1
Default = -1 'True
Height = 365
Index = 1
Left = 1635
Style = 1 'Graphical
TabIndex = 2
Top = 1785
Width = 1080
End
Begin VB.Frame Frame1
Height = 1245
Left = 270
TabIndex = 6
Top = 360
Width = 4095
Begin UsRefBut.RefCmd RefCmd1
Height = 270
Left = 3435
TabIndex = 4
Top = 330
Width = 270
_ExtentX = 476
_ExtentY = 476
RefMode = 1
RefUnitMode = 0
RefAccMode = 0
Enabled = -1 'True
End
Begin EDITLib.Edit Edit2
Height = 270
Left = 1050
TabIndex = 1
Top = 750
Width = 1125
_Version = 65536
_ExtentX = 1984
_ExtentY = 476
_StockProps = 253
ForeColor = 0
BackColor = 16777215
Appearance = 1
Property = 5
MaxLength = 10
End
Begin EDITLib.Edit Edit1
Height = 270
Left = 1050
TabIndex = 0
Top = 330
Width = 2355
_Version = 65536
_ExtentX = 4154
_ExtentY = 476
_StockProps = 253
ForeColor = 0
BackColor = 16777215
Appearance = 1
MaxLength = 60
BadStr = "|'"""
End
Begin VB.CommandButton Command1
Height = 264
Index = 0
Left = 2210
Style = 1 'Graphical
TabIndex = 5
Top = 750
Width = 264
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "日期"
Height = 180
Index = 1
Left = 540
TabIndex = 8
Top = 780
Width = 360
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "账户号"
Height = 180
Index = 0
Left = 390
TabIndex = 7
Top = 360
Width = 540
End
End
Begin VB.Label Label2
AutoSize = -1 'True
Caption = "请输入查询条件："
Height = 180
Left = 300
TabIndex = 9
Top = 120
Width = 1440
End
End
Attribute VB_Name = "frmRzhyeXz"
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
Dim rsX As New UfRecordset
Dim sqlItem As String
Dim rsItem As New UfRecordset
Dim id As Integer
VerifyFind = False
If Edit1 = "" Then
Beep
MsgBox "账户号不能为空，请重新输入！", vbInformation, zjGl_Name
Edit1.SetFocus
Exit Function
End If
sqlX = "SELECT * FROM FD_AccDef WHERE [cAccID]='" & Edit1 & "'"
Set rsX = dbsZJ.OpenRecordset(sqlX, dbOpenSnapshot)
If rsX.EOF Then
Beep
MsgBox "账户号不存在，请重新输入！", vbInformation, zjGl_Name
SetTxtFocus Edit1
Exit Function
Else
'cuidong 2001.07.06
'------------------------------
If rsX![iType] = 0 Then
MsgBox " [" & Edit1 & "]是定期帐户，请输入活期帐户！", vbInformation, zjGl_Name
SetTxtFocus Edit1
Exit Function
End If
'------------------------------
If rsX![iDataSrc] = 1 Then
sqlItem = "SELECT * FROM FD_AccSet WHERE [cAccID] = '" & Edit1 & "'"
Set rsItem = dbsZJ.OpenRecordset(sqlItem, dbOpenSnapshot)
If rsItem.EOF Then
Beep
MsgBox "账户[" & Edit1 & "]未设置科目，请重新输入！", vbInformation, zjGl_Name
SetTxtFocus Edit1
Exit Function
End If
End If
'cuidong: ????,!!!,......
' If rsX![iType] = 0 Then
' MsgBox " [" & Edit1 & "]是定期帐户，请输入活期帐户！", vbInformation, zjGl_Name
' SetTxtFocus Edit1
' Exit Function
' End If
End If
Edit2 = ForDate(Edit2)
If Not IsDate(Edit2) Then
Beep
MsgBox "日期非法，请检查！", vbInformation, zjGl_Name
SetTxtFocus Edit2
Exit Function
End If
If Not Pd_CurNddate(Edit2) Then
SetTxtFocus Edit2
Exit Function
End If
VerifyFind = True
End Function
Private Sub Command1_Click(Index As Integer)
Dim i As Integer
Select Case Index
Case 0
DisplayCalendar Edit2, Me.hWnd, Frame1.Left, Frame1.Top
Case 1
If VerifyFind Then
Me.Hide
DoEvents
For i = 0 To Forms.Count - 1
If Forms(i).Tag = "ZHYE" Then
BringWindowToTop Forms(i).hWnd
Forms(i).WindowState = 2
Forms(i).strAccID = Edit1
Forms(i).datDate = CDate(Edit2)
Forms(i).RefreshMe
Quitfs = False
Unload Me
Exit Sub
End If
Next i
With frmRzhye
.strAccID = Edit1
.datDate = CDate(Edit2)
Quitfs = False
.Show
.Tag = "ZHYE"
End With
Unload Me
End If
Case 2: Unload Me
End Select
End Sub
Private Sub Edit1_KeyUp(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyF2 Then
RefCmd1.RunReference
Edit1.SetFocus
End If
End Sub
Private Sub Edit2_KeyUp(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyF2 Then
Command1(0).Value = True
Edit2.SetFocus
End If
End Sub
Private Sub Form_Load()
Me.Icon = LoadResPicture(109, vbResIcon)
Edit2 = Format(zjLogInfo.curDate, "yyyy-mm-dd")
Command1(0).Picture = LoadResPicture(1108, vbResBitmap)
Command1(1).Picture = LoadResPicture(103, vbResBitmap)
Command1(2).Picture = LoadResPicture(104, vbResBitmap)
CenterForm Me
End Sub
Private Sub Form_Unload(Cancel As Integer)
If Quitfs Then
zjLogInfo.TaskExec "FD0707", 0, zjLogInfo.cIYear
zjGen_arr.FD0707 = False
zjLogInfo.ClearError
End If
End Sub
Private Sub RefCmd1_Initialize()
RefCmd1.InitSys 0, dbsZJ
RefCmd1.InitSys 1, Edit1
End Sub
Private Sub RefCmd1_RefCancel()
Edit1.SetFocus
End Sub
Private Sub RefCmd1_RefOK(Code As String)
Edit1 = Code
Edit1.SetFocus
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -