📄
字号:
VERSION 5.00
Object = "{DD44C0E7-B2CF-11D1-8DD3-444553540000}#1.0#0"; "cell32.ocx"
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX"
Begin VB.Form Frm_edit
Caption = "Form1"
ClientHeight = 6510
ClientLeft = 60
ClientTop = 345
ClientWidth = 8160
Icon = "编辑窗口.frx":0000
LinkTopic = "Form1"
MDIChild = -1 'True
ScaleHeight = 6510
ScaleWidth = 8160
WindowState = 2 'Maximized
Begin MSComDlg.CommonDialog CommonDialog1
Left = 5310
Top = 5790
_ExtentX = 847
_ExtentY = 847
_Version = 393216
End
Begin CELLLib.Cell Cell1
Height = 4935
Left = 0
TabIndex = 0
Top = 360
Width = 7755
_Version = 65536
_ExtentX = 13679
_ExtentY = 8705
_StockProps = 0
End
End
Attribute VB_Name = "Frm_edit"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'***********************************************
'* 模 块 名 称 :编辑窗口
'* 功 能 描 述 :
'* 程序员姓名 :奚俊峰
'* 最后修改人 :奚俊峰
'* 最后修改时间:2002/01/21
'***********************************************
Option Explicit
Public ml_col As Long '当前列
Public ml_row As Long '当前行
Public mcls_new_report As cls_new_report '新建报表类
Public mcls_new_report_model As cls_new_report_model '新建报表模板类
Public mcls_open_report As cls_open_report '打开报表类
Public mcls_open_report_model As cls_open_report_model '打开报表模板类
Public ml_edit_lx As Integer '当前编辑的表格的类型
'1?打开报表
'2?打开报表模板
'3?打开文件
'4?新建报表
'5?新建报表模板
'6?新建文件
'7?新建汇总表文件
Public ms_filename As String '当前打开或新建的文件名称
Dim mai_parmtype_ncs() As Integer
Dim mai_parmdefault_ncs() As Integer
Dim mai_parmtype_qms() As Integer
Dim mai_parmdefault_qms() As Integer
Dim i As Integer, j As Integer
Dim ms_save_time As String
'-------------------------------------------------------------------
'
'新函数增加说明:
'
'(1)添加该函数的帮助说明
' 在 :Private Function mf_addfunctioin
' 格式:参见财务函数的格式
'
'(2)添加函数执行过程的处理
' 在 :Private Sub Cell1_OnExecuteUserFunc
' 格式:参见财务函数执行过程的处理
' 加: Case "YourFunctionName"
' 函数过程处理
'
'-------------------------------------------------------------------
'增加新函数
Private Function mf_addfunction()
Dim rt As Boolean
Dim ls_hssm As String
'1.年初余额
ls_hssm = "函数名称:" & vbCrLf & _
" JE_NCYE ----年初余额" & vbCrLf & _
"函数格式:" & vbCrLf & _
" JE_NCYE(""科目编码"",""年"",""月"",""辅助项1"",""辅助项2"")" & vbCrLf & _
"参数表示:" & vbCrLf & _
" 年:可以输入“本年”?“去年”或任意数值?" & vbCrLf & _
" 月:可以输入“本月”?“上月”或1--12任意数值?" & vbCrLf & _
" 辅助项1:可以输入“标识+辅助项码”,其中标识为: P-职员 D-部门 C-往来客户 S-供应商 I-项目分类 J-项目?" & _
"例如:P0500表示编码为0500的职员?" & vbCrLf & _
" 辅助项2:同上?区别:只有在辅助项1有内容时才起作用,增加一个标识“*”,当输入“*”时,表示取辅助项1的汇总数?" & _
"例如:辅助项1为“财务部”,辅助项2为“*”,表示取财务部所有人员的费用总和?"
ReDim mai_parmtype_ncs(5) As Integer
ReDim mai_parmdefault_ncs(5) As Integer
For i = 0 To 4
mai_parmtype_ncs(i) = 1
mai_parmdefault_ncs(i) = 1
Next i
rt = Cell1.DoAddUserFunctionEx("财务总帐函数", "JE_NCYE", 4, 5, mai_parmtype_ncs(0), mai_parmdefault_ncs(0), ls_hssm)
If rt = False Then MsgBox "增加用户自定义函数失败!", vbOKOnly, "百利/ERP5.0-电子报表"
'2.期初余额
ls_hssm = "函数名称:" & vbCrLf & _
" JE_QCYE ----期初余额" & vbCrLf & _
"函数格式:" & vbCrLf & _
" JE_QCYE(""科目编码"",""年"",""月"",""辅助项1"",""辅助项2"")" & vbCrLf & _
"参数表示:" & vbCrLf & _
" 年:可以输入“本年”?“去年”或任意数值?" & vbCrLf & _
" 月:可以输入“本月”?“上月”或1--12任意数值?" & vbCrLf & _
" 辅助项1:可以输入“标识+辅助项码”,其中标识为: P-职员 D-部门 C-往来客户 S-供应商 I-项目分类 J-项目?" & _
"例如:P0500表示编码为0500的职员?" & vbCrLf & _
" 辅助项2:同上?区别:只有在辅助项1有内容时才起作用,增加一个标识“*”,当输入“*”时,表示取辅助项1的汇总数?" & _
"例如:辅助项1为“财务部”,辅助项2为“*”,表示取财务部所有人员的费用总和?"
ReDim mai_parmtype_qms(5) As Integer
ReDim mai_parmdefault_qms(5) As Integer
For i = 0 To 4
mai_parmtype_qms(i) = 1
mai_parmdefault_qms(i) = 1
Next i
rt = Cell1.DoAddUserFunctionEx("财务总帐函数", "JE_QCYE", 4, 5, mai_parmtype_qms(0), mai_parmdefault_qms(0), ls_hssm)
If rt = False Then MsgBox "增加用户自定义函数失败!", vbOKOnly, "百利/ERP5.0-电子报表"
'3.期末余额
ls_hssm = "函数名称:" & vbCrLf & _
" JE_QMYE ----期末余额" & vbCrLf & _
"函数格式:" & vbCrLf & _
" JE_QMYE(""科目编码"",""年"",""月"",""辅助项1"",""辅助项2"")" & vbCrLf & _
"参数表示:" & vbCrLf & _
" 年:可以输入“本年”?“去年”或任意数值?" & vbCrLf & _
" 月:可以输入“本月”?“上月”或1--12任意数值?" & vbCrLf & _
" 辅助项1:可以输入“标识+辅助项码”,其中标识为: P-职员 D-部门 C-往来客户 S-供应商 I-项目分类 J-项目?" & _
"例如:P0500表示编码为0500的职员?" & vbCrLf & _
" 辅助项2:同上?区别:只有在辅助项1有内容时才起作用,增加一个标识“*”,当输入“*”时,表示取辅助项1的汇总数?" & _
"例如:辅助项1为“财务部”,辅助项2为“*”,表示取财务部所有人员的费用总和?"
ReDim mai_parmtype_qms(5) As Integer
ReDim mai_parmdefault_qms(5) As Integer
For i = 0 To 4
mai_parmtype_qms(i) = 1
mai_parmdefault_qms(i) = 1
Next i
rt = Cell1.DoAddUserFunctionEx("财务总帐函数", "JE_QMYE", 4, 5, mai_parmtype_qms(0), mai_parmdefault_qms(0), ls_hssm)
If rt = False Then MsgBox "增加用户自定义函数失败!", vbOKOnly, "百利/ERP5.0-电子报表"
'4.本期借方发生额
ls_hssm = "函数名称:" & vbCrLf & _
" JE_BQJFS ----本期借方发生额" & vbCrLf & _
"函数格式:" & vbCrLf & _
" JE_BQJFS(""科目编码"",""年"",""月"",""辅助项1"",""辅助项2"")" & vbCrLf & _
"参数表示:" & vbCrLf & _
" 年:可以输入“本年”?“去年”或任意数值?" & vbCrLf & _
" 月:可以输入“本月”?“上月”或1--12任意数值?" & vbCrLf & _
" 辅助项1:可以输入“标识+辅助项码”,其中标识为: P-职员 D-部门 C-往来客户 S-供应商 I-项目分类 J-项目?" & _
"例如:P0500表示编码为0500的职员?" & vbCrLf & _
" 辅助项2:同上?区别:只有在辅助项1有内容时才起作用,增加一个标识“*”,当输入“*”时,表示取辅助项1的汇总数?" & _
"例如:辅助项1为“财务部”,辅助项2为“*”,表示取财务部所有人员的费用总和?"
ReDim mai_parmtype_qms(5) As Integer
ReDim mai_parmdefault_qms(5) As Integer
For i = 0 To 4
mai_parmtype_qms(i) = 1
mai_parmdefault_qms(i) = 1
Next i
rt = Cell1.DoAddUserFunctionEx("财务总帐函数", "JE_BQJFS", 4, 5, mai_parmtype_qms(0), mai_parmdefault_qms(0), ls_hssm)
If rt = False Then MsgBox "增加用户自定义函数失败!", vbOKOnly, "百利/ERP5.0-电子报表"
'5.本期贷方发生额
ls_hssm = "函数名称:" & vbCrLf & _
" JE_BQDFS ----本期贷方发生额" & vbCrLf & _
"函数格式:" & vbCrLf & _
" JE_BQDFS(""科目编码"",""年"",""月"",""辅助项1"",""辅助项2"")" & vbCrLf & _
"参数表示:" & vbCrLf & _
" 年:可以输入“本年”?“去年”或任意数值?" & vbCrLf & _
" 月:可以输入“本月”?“上月”或1--12任意数值?" & vbCrLf & _
" 辅助项1:可以输入“标识+辅助项码”,其中标识为: P-职员 D-部门 C-往来客户 S-供应商 I-项目分类 J-项目?" & _
"例如:P0500表示编码为0500的职员?" & vbCrLf & _
" 辅助项2:同上?区别:只有在辅助项1有内容时才起作用,增加一个标识“*”,当输入“*”时,表示取辅助项1的汇总数?" & _
"例如:辅助项1为“财务部”,辅助项2为“*”,表示取财务部所有人员的费用总和?"
ReDim mai_parmtype_qms(5) As Integer
ReDim mai_parmdefault_qms(5) As Integer
For i = 0 To 4
mai_parmtype_qms(i) = 1
mai_parmdefault_qms(i) = 1
Next i
rt = Cell1.DoAddUserFunctionEx("财务总帐函数", "JE_BQDFS", 4, 5, mai_parmtype_qms(0), mai_parmdefault_qms(0), ls_hssm)
If rt = False Then MsgBox "增加用户自定义函数失败!", vbOKOnly, "百利/ERP5.0-电子报表"
'6.累计借方发生额
ls_hssm = "函数名称:" & vbCrLf & _
" JE_LJJFS ----累计借方发生额" & vbCrLf & _
"函数格式:" & vbCrLf & _
" JE_LJJFS(""科目编码"",""年"",""月"",""辅助项1"",""辅助项2"")" & vbCrLf & _
"参数表示:" & vbCrLf & _
" 年:可以输入“本年”?“去年”或任意数值?" & vbCrLf & _
" 月:可以输入“本月”?“上月”或1--12任意数值?" & vbCrLf & _
" 辅助项1:可以输入“标识+辅助项码”,其中标识为: P-职员 D-部门 C-往来客户 S-供应商 I-项目分类 J-项目?" & _
"例如:P0500表示编码为0500的职员?" & vbCrLf & _
" 辅助项2:同上?区别:只有在辅助项1有内容时才起作用,增加一个标识“*”,当输入“*”时,表示取辅助项1的汇总数?" & _
"例如:辅助项1为“财务部”,辅助项2为“*”,表示取财务部所有人员的费用总和?"
ReDim mai_parmtype_qms(5) As Integer
ReDim mai_parmdefault_qms(5) As Integer
For i = 0 To 4
mai_parmtype_qms(i) = 1
mai_parmdefault_qms(i) = 1
Next i
rt = Cell1.DoAddUserFunctionEx("财务总帐函数", "JE_LJJFS", 4, 5, mai_parmtype_qms(0), mai_parmdefault_qms(0), ls_hssm)
If rt = False Then MsgBox "增加用户自定义函数失败!", vbOKOnly, "百利/ERP5.0-电子报表"
'7.累计贷方发生额
ls_hssm = "函数名称:" & vbCrLf & _
" JE_LJDFS ----累计贷方发生额" & vbCrLf & _
"函数格式:" & vbCrLf & _
" JE_LJDFS(""科目编码"",""年"",""月"",""辅助项1"",""辅助项2"")" & vbCrLf & _
"参数表示:" & vbCrLf & _
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -