📄 日记帐.frm
字号:
VERSION 5.00
Object = "{6B7E6392-850A-101B-AFC0-4210102A8DA7}#1.3#0"; "comctl32.ocx"
Object = "{A0C292A3-118E-11D2-AFDF-000021730160}#1.0#0"; "UFEDIT.OCX"
Begin VB.Form frmBook
BackColor = &H00C0C0C0&
BorderStyle = 3 'Fixed Dialog
Caption = "日记账"
ClientHeight = 3975
ClientLeft = 750
ClientTop = 1140
ClientWidth = 6870
HelpContextID = 88000055
Icon = "日记帐.frx":0000
LinkTopic = "Form1"
LockControls = -1 'True
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 3975
ScaleWidth = 6870
ShowInTaskbar = 0 'False
Begin VB.Frame FrameX
BackColor = &H8000000E&
BorderStyle = 0 'None
Height = 1005
Left = -90
TabIndex = 9
Top = 30
Width = 8745
Begin VB.Image Image1
Height = 480
Left = 300
Picture = "日记帐.frx":000C
Top = 210
Width = 480
End
Begin VB.Label Label2
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = $"日记帐.frx":044E
Height = 540
Index = 3
Left = 990
TabIndex = 10
Top = 210
Width = 5685
WordWrap = -1 'True
End
End
Begin VB.CommandButton Command1
Cancel = -1 'True
Caption = "取消(&C)"
Height = 390
Index = 1
Left = 5460
TabIndex = 16
Top = 3420
Width = 1230
End
Begin VB.CommandButton Command1
Caption = "开始记账(&B)"
Default = -1 'True
Height = 390
Index = 0
Left = 2730
TabIndex = 1
Top = 3420
Width = 1230
End
Begin VB.Frame Frame2
ForeColor = &H00000000&
Height = 2280
Left = -10000
TabIndex = 11
Top = 960
Width = 7000
Begin ComctlLib.ProgressBar ProgressBar1
Height = 315
Left = 690
TabIndex = 12
Top = 1530
Width = 5685
_ExtentX = 10028
_ExtentY = 556
_Version = 327682
Appearance = 1
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "正在进行初始化..."
Height = 180
Index = 4
Left = 780
TabIndex = 15
Top = 600
Width = 1530
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "*"
Height = 180
Index = 1
Left = 810
TabIndex = 14
Top = 1080
Width = 90
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "*"
Height = 180
Index = 0
Left = 2520
TabIndex = 13
Top = 1080
Width = 90
End
End
Begin VB.Frame Frame1
ForeColor = &H00000000&
Height = 2280
Left = -30
TabIndex = 2
Top = 960
Width = 7000
Begin VB.CommandButton cmdRq
Height = 252
Left = 3810
Style = 1 'Graphical
TabIndex = 0
TabStop = 0 'False
Top = 1440
Width = 270
End
Begin EDITLib.Edit edtRq
Height = 270
Left = 2760
TabIndex = 6
Top = 1425
Width = 1035
_Version = 65536
_ExtentX = 1826
_ExtentY = 476
_StockProps = 253
ForeColor = 0
BackColor = 16777215
Appearance = 1
Property = 5
MaxLength = 10
End
Begin EDITLib.Edit edtChecked
Height = 270
Left = 2760
TabIndex = 7
Top = 390
Width = 735
_Version = 65536
_ExtentX = 1296
_ExtentY = 476
_StockProps = 253
ForeColor = 0
BackColor = 16777215
Appearance = 1
MaxLength = 10
Locked = -1
End
Begin EDITLib.Edit edtUnChecked
Height = 270
Left = 2760
TabIndex = 8
Top = 900
Width = 735
_Version = 65536
_ExtentX = 1296
_ExtentY = 476
_StockProps = 253
ForeColor = 0
BackColor = 16777215
Appearance = 1
MaxLength = 10
Locked = -1
End
Begin VB.Label Label3
AutoSize = -1 'True
Caption = "请选择日记账日期"
Height = 180
Left = 870
TabIndex = 5
Top = 1470
Width = 1440
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "本次已审核单据张数"
Height = 180
Index = 3
Left = 870
TabIndex = 4
Top = 435
Width = 1620
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "本次未审核单据张数"
Height = 180
Index = 2
Left = 870
TabIndex = 3
Top = 945
Width = 1620
End
End
Begin VB.Frame Frame3
ForeColor = &H00000000&
Height = 2280
Left = -10000
TabIndex = 17
Top = 990
Width = 7000
Begin VB.Label Label4
AutoSize = -1 'True
Caption = "成功完成日记账！"
BeginProperty Font
Name = "楷体_GB2312"
Size = 15
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 300
Left = 2190
TabIndex = 18
Top = 900
Width = 2535
End
End
End
Attribute VB_Name = "frmBook"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'软件著作权: 北京用友软件集团有限公司
'系统名称: 资金管理8.0
'功能说明: 日记账
'作者: 赵春立
'CuiDong Efficiency-A 2000/06/19 效率优化A
Option Explicit
Private lngChecked As Long '已审核单据（未记账）
Private lngUncheck As Long '未审核单据（未记账）
Private dSysStartDay As Date '系统启用日期
Private dDate As Date '当前日期
Private rsSumWb As New UfRecordset '用于处理总账表中外部账户的记录集
Private iNoField As Integer
Private Type tDe '定额处理
bDe As Boolean '是否定额
nDe As Currency '定额金额
dDate As Date '时间
End Type
Private DeRst() As tDe
Private Sub DeResult(AccID As String)
Dim sqlIntras As String
Dim rsIntras As New UfRecordset
Dim i As Integer
i = 1
sqlIntras = "SELECT bde, nde, dbdate FROM FD_Intras WHERE cIntrID IN (SELECT cIntrID FROM FD_AccDef WHERE cAccID = '" & AccID & "')"
Set rsIntras = dbsZJ.OpenRecordset(sqlIntras, dbOpenSnapshot)
With rsIntras
While Not .EOF
ReDim Preserve DeRst(i)
DeRst(i).bDe = !bDe
DeRst(i).nDe = IIf(IsNull(!nDe), 0, !nDe)
DeRst(i).dDate = !dbDate
i = i + 1
.MoveNext
Wend
End With
CloseRS rsIntras
End Sub
Private Sub cmdrq_Click()
DisplayCalendar edtRq, Me.hWnd, 0, 0
End Sub
Private Sub Command1_Click(Index As Integer)
Select Case Index
Case 0:
If Not IsValid Then Exit Sub
Screen.MousePointer = vbHourglass
BookPages
SucIt
Screen.MousePointer = vbDefault
Case 1:
Unload Me
End Select
End Sub
Private Sub SucIt()
Beep
Command1(1).Enabled = True
Command1(1).Caption = "完成(&S)"
Command1(1).SetFocus
Frame2.Left = -10000
Frame3.Left = -30
End Sub
Private Function IsValid() As Boolean
If Not IsDate(edtRq) Then
Beep
MsgBox "日期输入有误，请检查！", vbInformation, zjGl_Name
SetTxtFocus edtRq
Exit Function
End If
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -