📄
字号:
Set Xtgnbrec = Cw_DataEnvi.DataConnect.Execute(Ssql)
If Node.Tag = True Then
If sjgnbmStr = Trim(Xtgnbrec!sjgnbm) Then
Exit Sub
Else
sjgnbmStr = Trim(Xtgnbrec!sjgnbm)
End If
End If
lvListView.ColumnHeaders.Clear
lvListView.ListItems.Clear
lvListView.ColumnHeaders.Add 1, "rcsw", "明细", 3000, , "stb"
Do While Not Xtgnbrec.EOF
Set mitem = lvListView.ListItems.Add()
mitem.Text = Trim(Xtgnbrec!gnmc)
If Xtgnbrec.Fields("mjbz") Then
mitem.SmallIcon = "gnqx"
mitem.Icon = "y"
Else
mitem.Icon = "i"
mitem.SmallIcon = "stb"
End If
mitem.Key = "T" & Trim(Xtgnbrec!gnbm)
Xtgnbrec.MoveNext
Loop
End If
End Sub
Private Sub lvListView_KeyPress(KeyAscii As Integer)
If KeyAscii = vbKeyReturn Then
Call lvListView_DblClick
End If
End Sub
Public Sub Cshgns() '初始化系统功能树
Set Xtgnbrec = Cw_DataEnvi.DataConnect.Execute("SELECT * FROM xt_xtgnb where gnbm like '01%' and MenuList=1 order by gnbm")
tvTreeView.Nodes.Add , 4, "T", "百利/ERP5.0", "xttb"
With Xtgnbrec
Do While Not .EOF
If .Fields("mjbz") Then
Set nodX = tvTreeView.Nodes.Add("T" + Trim(.Fields("sjgnbm")), 4, "T" + Trim(.Fields("gnbm")), Trim(.Fields("gnmc")), "gnqx")
Else
If Trim(.Fields("sjgnbm")) = "" Then
Set nodX = tvTreeView.Nodes.Add("T" + Trim(.Fields("sjgnbm")), 4, "T" + Trim(.Fields("gnbm")), Trim(.Fields("gnmc")), "kpgl")
Else
Set nodX = tvTreeView.Nodes.Add("T" + Trim(.Fields("sjgnbm")), 4, "T" + Trim(.Fields("gnbm")), Trim(.Fields("gnmc")), "stb")
End If
End If
nodX.Tag = Xtgnbrec!mjbz
If Len(Trim(.Fields("sjgnbm"))) <= 2 Then
nodX.EnsureVisible
End If
.MoveNext
Loop
End With
End Sub
'系统功能树操作
Private Sub tvTreeView_BeforeLabelEdit(Cancel As Integer) '屏蔽编辑
Cancel = 1
End Sub
Private Sub tvTreeView_Collapse(ByVal Node As MSComctlLib.Node) '功能树收缩
If Node.Index <> 1 And Node.Key <> "T01" Then
Node.Image = "stb"
End If
End Sub
Private Sub tvTreeView_Expand(ByVal Node As MSComctlLib.Node) '功能树展开
If Node.Index <> 1 And Node.Key <> "T01" Then
Node.Image = "szk"
End If
End Sub
Private Sub tvTreeView_DblClick() '选择功能
If tvTreeView.SelectedItem.Children = 0 Then
Set Xtgnbrec = Cw_DataEnvi.DataConnect.Execute("SELECT * FROM xt_xtgnb where gnbm='" + Mid(Trim(tvTreeView.SelectedItem.Key), 2, Len(Trim(tvTreeView.SelectedItem.Key)) - 1) + "'")
If Not Xtgnbrec.EOF Then
gnsyte = Trim(Xtgnbrec.Fields("gnsy"))
Call Zxxymk(gnsyte)
End If
End If
End Sub
Public Sub Zxxymk(gnsy As String) '根据用户选择执行相应程序
Dim RecTemp As New ADODB.Recordset '临时使用动态集
Dim Sqlstr As String '临时查询字符串
If Len(Trim(gnsy)) = 0 Then
Exit Sub
End If
On Error GoTo ErrHandle
Select Case gnsy
'文件
Case "Cwzz_register" '用户重新注册
XT_login.HelpContextID = "0110001"
XT_login.Show 1
Case "Cwzz_quit"
Unload XT_Main
'基础信息设置
Case "Cwzz_kjkmsz" '会计科目设置
JC_KjkmszFrm.HelpContextID = "0111001"
Call XtWaitMess("Cwzz_kjkmsz")
Case "Cwzz_pzlbsz" '凭证类别设置
JC_FrmPzlbsz.HelpContextID = "0111002"
JC_FrmPzlbsz.Show 1
Case "Cwzz_cyzysz" '常用摘要设置
JC_FrmCyzysz.HelpContextID = "0111003"
JC_FrmCyzysz.Show 1
'---------------------------------------------------------
'以下为系统公用数据设置
Case "Cwzz_jsfssz" '结算方式设置
'判断用户是否有此功能执行权限,如有则写上机日志(进入)
If Not Security_Log(gnsy, Xtczybm, 1) Then
Exit Sub
End If
With Gy_BaseSet
XtReportCode = "Gy_Settlement"
.ReportTitle = "结算方式设置"
.TextGroupCode = "Gy_Settlement"
.GridCode = "Gy_Settlement"
.str_TableName = "Gy_Settlement"
.str_FieldCode = "SSCode"
.str_FieldName = "SSName"
.str_Label = "结算方式"
.Caption = "结算方式设置"
.HelpContextID = "0111004"
.Show 1
End With
Case "Cwzz_bmsz" '部门设置
'判断用户是否有此功能执行权限,如有则写上机日志(进入)
If Not Security_Log(gnsy, Xtczybm, 1) Then
Exit Sub
End If
Gy_Department.HelpContextID = "0111005"
Gy_Department.Show 1
Case "Cwzz_gszysz" '公司职员设置
'判断用户是否有此功能执行权限,如有则写上机日志(进入)
If Not Security_Log(gnsy, Xtczybm, 1) Then
Exit Sub
End If
Gy_Person.HelpContextID = "0111006"
Gy_Person.Show 1
Case "Cwzz_wbjhlsz" '外币及汇率设置
'判断用户是否有此功能执行权限,如有则写上机日志(进入)
If Not Security_Log(gnsy, Xtczybm, 1) Then
Exit Sub
End If
Gy_ForeignCurrency.HelpContextID = "0111007"
Gy_ForeignCurrency.Show 1
Case "Cwzz_wlgysfl"
'判断用户是否有此功能执行权限,如有则写上机日志(进入)
If Not Security_Log(gnsy, Xtczybm, 1) Then
Exit Sub
End If
With Gy_BaseSortSet
XtReportCode = "Gy_SupplierSort"
.ReportTitle = "供应商分类设置"
.TextGroupCode = "Gy_SupplierSort"
.GridCode = "Gy_SupplierSort"
.CodSchemeIndex = "Gy_SupplierSort"
.str_TableName = "Gy_SupplierSort"
.str_SortCode = "SupplierSortCode"
.str_SortName = "SupplierSortName"
.str_Label = "供应商分类"
.Caption = "供应商分类设置"
.HelpContextID = "0111009"
.Show 1
End With
Case "Cwzz_wlgyssz" '供应商设置
'判断用户是否有此功能执行权限,如有则写上机日志(进入)
If Not Security_Log(gnsy, Xtczybm, 1) Then
Exit Sub
End If
Gy_Supplier.HelpContextID = "0111010"
Gy_Supplier.Show
Gy_SupplierQuery.Show 1
Case "Cwzz_wldwsz" '客户设置
'判断用户是否有此功能执行权限,如有则写上机日志(进入)
If Not Security_Log(gnsy, Xtczybm, 1) Then
Exit Sub
End If
Gy_Customer.HelpContextID = "0111008"
Gy_Customer.Show
Gy_CustomerQuery.Show 1
'以上为系统公用数据设置
'---------------------------------------------------------
Case "Cwzz_xmmlsz" '项目目录设置
JC_XmflszFrm.HelpContextID = "0111011"
JC_XmflszFrm.Show 1
Case "Cwzz_dlzlmsz" '多栏帐栏目设置
JC_FrmDlzlmszMain.HelpContextID = "0111012"
JC_FrmDlzlmszMain.Show 1
Case "Cwzz_qcye" '期初余额录入
'判断用户是否有此功能执行权限,如有则写上机日志(进入)
If Not Security_Log(gnsy, Xtczybm, 1) Then
Exit Sub
End If
JC_FrmQcyelr.HelpContextID = "0112001"
JC_FrmQcyelr.Show 1
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''奚俊峰 Begin
''
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'凭证处理
Case "Cwzz_jzpzcl" '记帐凭证处理
PZ_JzpzclFrm.HelpContextID = "0113001"
Call XtWaitMess("c_jzpzcl")
Case "Cwzz_jzpzcx" '记帐凭证查询
PZ_FrmPzcxjg.HelpContextID = "0113002"
PZ_FrmPzcxjg.Show
PZ_FrmPzcxtj.Show 1
Case "Cwzz_jzpzhz" '记帐凭证汇总
PZ_FrmPzhzjg.HelpContextID = "0113003"
PZ_FrmPzhzjg.Show
PZ_FrmPzhztj.Show 1
'记帐
Case "Cwzz_jzcl" '记帐处理
'判断用户是否有此功能执行权限,如有则写上机日志(进入)
If Not Security_Log(gnsy, Xtczybm, 1) Then
Exit Sub
End If
JZ_FrmJzcl.HelpContextID = "0114001"
Call XtWaitMess("c_jzcl")
Case "Cwzz_hfjz" '恢复记帐
'判断用户是否有此功能执行权限,如有则写上机日志(进入)
If Not Security_Log(gnsy, Xtczybm, 1) Then
Exit Sub
End If
JZ_FrmHfjz.HelpContextID = "0114002"
Call XtWaitMess("c_hfjz")
'帐簿管理
Case "Cwzz_zflz" '总分类帐
'判断用户是否有此功能执行权限,如有则写上机日志(进入)
If Not Security_Log(gnsy, Xtczybm, 1) Then
Exit Sub
End If
ZB_Frmzflzjg.HelpContextID = "0116001"
ZB_Frmzflzjg.Show
ZB_Frmzflztj.Show 1
Case "Cwzz_kmyebcx" '科目发生额及余额表
'判断用户是否有此功能执行权限,如有则写上机日志(进入)
If Not Security_Log(gnsy, Xtczybm, 1) Then
Exit Sub
End If
ZB_FrmKmyebjg.HelpContextID = "0116002"
ZB_FrmKmyebjg.Show
ZB_Frmkmyebtj.Show 1
Case "Cwzz_mxzcx" '明细帐
'判断用户是否有此功能执行权限,如有则写上机日志(进入)
If Not Security_Log(gnsy, Xtczybm, 1) Then
Exit Sub
End If
ZB_Frmkmmxzjg.HelpContextID = "0116003"
ZB_Frmkmmxzjg.Show
ZB_Frmkmmxztj.Show 1
Case "Cwzz_dlzcx" '多栏帐
'判断用户是否有此功能执行权限,如有则写上机日志(进入)
If Not Security_Log(gnsy, Xtczybm, 1) Then
Exit Sub
End If
ZB_FrmDlzcxjg.HelpContextID = "0116004"
ZB_FrmDlzcxjg.Show
ZB_FrmDlzcxtj.Show 1
Case "Cwzz_rjzcx" '日记帐
'判断用户是否有此功能执行权限,如有则写上机日志(进入)
If Not Security_Log(gnsy, Xtczybm, 1) Then
Exit Sub
End If
ZB_FrmKmrjzjg.HelpContextID = "0116005"
ZB_FrmKmrjzjg.Show
ZB_FrmKmrjztj.Show 1
'辅助核算
'1.部门
Case "Cwzz_fzbm_kmyeb" '科目余额表
'判断用户是否有此功能执行权限,如有则写上机日志(进入)
If Not Security_Log(gnsy, Xtczybm, 1) Then
Exit Sub
End If
ZF_Bm_FrmKmyebjg.HelpContextID = "011701001"
ZF_Bm_FrmKmyebjg.Show
ZF_Bm_FrmKmyebtj.Show 1
Case "Cwzz_fzbm_bmyeb" '部门总帐
'判断用户是否有此功能执行权限,如有则写上机日志(进入)
If Not Security_Log(gnsy, Xtczybm, 1) Then
Exit Sub
End If
ZF_Bm_FrmBmyebjg.HelpContextID = "011701002"
ZF_Bm_FrmBmyebjg.Show
ZF_Bm_FrmBmyebtj.Show 1
Case "Cwzz_fzbm_bmslmxz" '三栏明细帐
'判断用户是否有此功能执行权限,如有则写上机日志(进入)
If Not Security_Log(gnsy, Xtczybm, 1) Then
Exit Sub
End If
ZF_Bm_Frmslmxzjg.HelpContextID = "011701003"
ZF_Bm_Frmslmxzjg.Show
ZF_Bm_Frmslmxztj.Show 1
Case "Cwzz_fzbm_bmslzz" '三栏式总帐
'判断用户是否有此功能执行权限,如有则写上机日志(进入)
If Not Security_Log(gnsy, Xtczybm, 1) Then
Exit Sub
End If
ZF_Bm_Frmslzzjg.HelpContextID = "011701004"
ZF_Bm_Frmslzzjg.Show
ZF_Bm_Frmslzztj.Show 1
Case "Cwzz_dlsmxz" '多栏帐查询
'判断用户是否有此功能执行权限,如有则写上机日志(进入)
If Not Security_Log(gnsy, Xtczybm, 1) Then
Exit Sub
End If
ZF_Bm_FrmDlzCxjg.HelpContextID = "011701005"
ZF_Bm_FrmDlzCxjg.Show
ZF_Bm_FrmDlzCxTj.Show 1
'2.个人往来
Case "Cwzz_fzgrwl_kmyeb" '科目余额表
'判断用户是否有此功能执行权限,如有则写上机日志(进入)
If Not Security_Log(gnsy, Xtczybm, 1) Then
Exit Sub
End If
ZF_Gr_FrmKmyebjg.HelpContextID = "011702001"
ZF_Gr_FrmKmyebjg.Show
ZF_Gr_FrmKmyebtj.Show 1
Case "Cwzz_fzgrwl_gryeb" '个人余额表
'判断用户是否有此功能执行权限,如有则写上机日志(进入)
If Not Security_Log(gnsy, Xtczybm, 1) Then
Exit Sub
End If
ZF_Gr_FrmGryebjg.HelpContextID = "011702002"
ZF_Gr_FrmGryebjg.Show
ZF_Gr_FrmGryebtj.Show 1
Case "Cwzz_fzgrwl_grslmxz" '三栏明细帐
'判断用户是否有此功能执行权限,如有则写上机日志(进入)
If Not Security_Log(gnsy, Xtczybm, 1) Then
Exit Sub
End If
ZF_Gr_Frmslmxzjg.HelpContextID = "011702003"
ZF_Gr_Frmslmxzjg.Show
ZF_Gr_Frmslmxztj.Show 1
Case "Cwzz_fzgr_grslzz" '三栏式总帐
'判断用户是否有此功能执行权限,如有则写上机日志(进入)
If Not Security_Log(gnsy, Xtczybm, 1) Then
Exit Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -