?? 日記帳.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
'軟件著作權: 北京用友軟件集團有限公司
'系統(tǒng)名稱: 資金管理8.0
'功能說明: 日記賬
'作者: 趙春立
'CuiDong Efficiency-A 2000/06/19 效率優(yōu)化A
Option Explicit
Private lngChecked As Long '已審核單據（未記賬）
Private lngUncheck As Long '未審核單據（未記賬）
Private dSysStartDay As Date '系統(tǒng)啟用日期
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 + -