开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > 行业应用 > 企业管理 > 查看源码
资源名称：ERPSYS.zip　[点击查看]
上传用户：zhpu1995
上传日期：2013-09-06
资源大小：61151k
文件大小：42k
源码类别：

企业管理

开发平台：

Visual Basic

：源码内容
  1. VERSION 5.00
  2. Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
  3. Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX"
  4. Begin VB.Form Xt_Control 
  5.    Caption         =   "桌面"
  6.    ClientHeight    =   5850
  7.    ClientLeft      =   675
  8.    ClientTop       =   1665
  9.    ClientWidth     =   8880
  10.    Icon            =   "系统_主操作桌面.frx":0000
  11.    LinkTopic       =   "Form1"
  12.    MDIChild        =   -1  'True
  13.    ScaleHeight     =   5850
  14.    ScaleWidth      =   8880
  15.    WindowState     =   2  'Maximized
  16.    Begin VB.PictureBox picSplitter 
  17.       BackColor       =   &H00808080&
  18.       BorderStyle     =   0  'None
  19.       FillColor       =   &H00808080&
  20.       BeginProperty Font 
  21.          Name            =   "MS Sans Serif"
  22.          Size            =   8.25
  23.          Charset         =   0
  24.          Weight          =   400
  25.          Underline       =   0   'False
  26.          Italic          =   0   'False
  27.          Strikethrough   =   0   'False
  28.       EndProperty
  29.       Height          =   4800
  30.       Left            =   4650
  31.       ScaleHeight     =   2090.126
  32.       ScaleMode       =   0  'User
  33.       ScaleWidth      =   780
  34.       TabIndex        =   0
  35.       Top             =   780
  36.       Visible         =   0   'False
  37.       Width           =   72
  38.    End
  39.    Begin MSComctlLib.ImageList ImageList1 
  40.       Left            =   5070
  41.       Top             =   1440
  42.       _ExtentX        =   1005
  43.       _ExtentY        =   1005
  44.       BackColor       =   -2147483643
  45.       ImageWidth      =   16
  46.       ImageHeight     =   16
  47.       MaskColor       =   12632256
  48.       _Version        =   393216
  49.       BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628} 
  50.          NumListImages   =   5
  51.          BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  52.             Picture         =   "系统_主操作桌面.frx":1042
  53.             Key             =   "stb"
  54.          EndProperty
  55.          BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  56.             Picture         =   "系统_主操作桌面.frx":2094
  57.             Key             =   "xttb"
  58.          EndProperty
  59.          BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  60.             Picture         =   "系统_主操作桌面.frx":30E6
  61.             Key             =   "szk"
  62.          EndProperty
  63.          BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  64.             Picture         =   "系统_主操作桌面.frx":3480
  65.             Key             =   "kpgl"
  66.          EndProperty
  67.          BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  68.             Picture         =   "系统_主操作桌面.frx":44D2
  69.             Key             =   "gnqx"
  70.          EndProperty
  71.       EndProperty
  72.    End
  73.    Begin MSComctlLib.ListView lvListView 
  74.       Height          =   4785
  75.       Left            =   2115
  76.       TabIndex        =   5
  77.       Top             =   765
  78.       Width           =   2295
  79.       _ExtentX        =   4048
  80.       _ExtentY        =   8440
  81.       Arrange         =   2
  82.       LabelEdit       =   1
  83.       LabelWrap       =   -1  'True
  84.       HideSelection   =   -1  'True
  85.       OLEDragMode     =   1
  86.       OLEDropMode     =   1
  87.       PictureAlignment=   1
  88.       _Version        =   393217
  89.       Icons           =   "ImageList2"
  90.       SmallIcons      =   "ImageList1"
  91.       ColHdrIcons     =   "ImageList1"
  92.       ForeColor       =   -2147483640
  93.       BackColor       =   -2147483643
  94.       BorderStyle     =   1
  95.       Appearance      =   1
  96.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  97.          Name            =   "宋体"
  98.          Size            =   9
  99.          Charset         =   134
  100.          Weight          =   400
  101.          Underline       =   0   'False
  102.          Italic          =   0   'False
  103.          Strikethrough   =   0   'False
  104.       EndProperty
  105.       OLEDragMode     =   1
  106.       OLEDropMode     =   1
  107.       NumItems        =   0
  108.    End
  109.    Begin VB.PictureBox picTitles 
  110.       Align           =   1  'Align Top
  111.       Appearance      =   0  'Flat
  112.       BorderStyle     =   0  'None
  113.       BeginProperty Font 
  114.          Name            =   "MS Sans Serif"
  115.          Size            =   8.25
  116.          Charset         =   0
  117.          Weight          =   400
  118.          Underline       =   0   'False
  119.          Italic          =   0   'False
  120.          Strikethrough   =   0   'False
  121.       EndProperty
  122.       ForeColor       =   &H80000008&
  123.       Height          =   300
  124.       Left            =   0
  125.       ScaleHeight     =   300
  126.       ScaleWidth      =   8880
  127.       TabIndex        =   1
  128.       TabStop         =   0   'False
  129.       Top             =   420
  130.       Width           =   8880
  131.       Begin VB.Label lblTitle 
  132.          BorderStyle     =   1  'Fixed Single
  133.          Caption         =   "百利/ERP5.0"
  134.          Height          =   270
  135.          Index           =   0
  136.          Left            =   0
  137.          TabIndex        =   3
  138.          Tag             =   " 树形视图:"
  139.          Top             =   12
  140.          Width           =   2016
  141.       End
  142.       Begin VB.Label lblTitle 
  143.          BorderStyle     =   1  'Fixed Single
  144.          Caption         =   " 列表视图:"
  145.          Height          =   270
  146.          Index           =   1
  147.          Left            =   2078
  148.          TabIndex        =   2
  149.          Tag             =   " 列表视图:"
  150.          Top             =   12
  151.          Width           =   3216
  152.       End
  153.    End
  154.    Begin MSComDlg.CommonDialog dlgCommonDialog 
  155.       Left            =   3360
  156.       Top             =   2160
  157.       _ExtentX        =   847
  158.       _ExtentY        =   847
  159.       _Version        =   393216
  160.    End
  161.    Begin MSComctlLib.TreeView tvTreeView 
  162.       Height          =   4800
  163.       Left            =   30
  164.       TabIndex        =   4
  165.       Top             =   720
  166.       Width           =   2010
  167.       _ExtentX        =   3545
  168.       _ExtentY        =   8467
  169.       _Version        =   393217
  170.       Indentation     =   564
  171.       LabelEdit       =   1
  172.       Style           =   7
  173.       ImageList       =   "ImageList1"
  174.       Appearance      =   1
  175.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  176.          Name            =   "宋体"
  177.          Size            =   9
  178.          Charset         =   134
  179.          Weight          =   400
  180.          Underline       =   0   'False
  181.          Italic          =   0   'False
  182.          Strikethrough   =   0   'False
  183.       EndProperty
  184.    End
  185.    Begin MSComctlLib.Toolbar tbToolBar 
  186.       Align           =   1  'Align Top
  187.       Height          =   420
  188.       Left            =   0
  189.       TabIndex        =   6
  190.       Top             =   0
  191.       Width           =   8880
  192.       _ExtentX        =   15663
  193.       _ExtentY        =   741
  194.       ButtonWidth     =   609
  195.       ButtonHeight    =   582
  196.       AllowCustomize  =   0   'False
  197.       Appearance      =   1
  198.       ImageList       =   "imlToolbarIcons"
  199.       _Version        =   393216
  200.       BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628} 
  201.          NumButtons      =   10
  202.          BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  203.             Style           =   3
  204.          EndProperty
  205.          BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  206.             Key             =   "返回"
  207.             Object.ToolTipText     =   "返回"
  208.             ImageKey        =   "xq"
  209.          EndProperty
  210.          BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  211.             Key             =   "向前"
  212.             Object.ToolTipText     =   "向前"
  213.             ImageKey        =   "xh"
  214.          EndProperty
  215.          BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  216.             Style           =   3
  217.          EndProperty
  218.          BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  219.             Style           =   3
  220.          EndProperty
  221.          BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  222.             Style           =   3
  223.          EndProperty
  224.          BeginProperty Button7 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  225.             Key             =   "大图标"
  226.             Object.ToolTipText     =   "大图标"
  227.             ImageKey        =   "dtb"
  228.             Style           =   2
  229.             Value           =   1
  230.          EndProperty
  231.          BeginProperty Button8 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  232.             Key             =   "小图标"
  233.             Object.ToolTipText     =   "小图标"
  234.             ImageKey        =   "xtb"
  235.             Style           =   2
  236.          EndProperty
  237.          BeginProperty Button9 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  238.             Key             =   "列表"
  239.             Object.ToolTipText     =   "列表"
  240.             ImageKey        =   "lb"
  241.             Style           =   2
  242.          EndProperty
  243.          BeginProperty Button10 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  244.             Key             =   "详细资料"
  245.             Object.ToolTipText     =   "详细资料"
  246.             ImageKey        =   "xxzl"
  247.             Style           =   2
  248.          EndProperty
  249.       EndProperty
  250.    End
  251.    Begin MSComctlLib.ImageList imlToolbarIcons 
  252.       Left            =   5040
  253.       Top             =   840
  254.       _ExtentX        =   1005
  255.       _ExtentY        =   1005
  256.       BackColor       =   -2147483643
  257.       ImageWidth      =   16
  258.       ImageHeight     =   16
  259.       MaskColor       =   12632256
  260.       _Version        =   393216
  261.       BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628} 
  262.          NumListImages   =   6
  263.          BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  264.             Picture         =   "系统_主操作桌面.frx":486C
  265.             Key             =   "xq"
  266.          EndProperty
  267.          BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  268.             Picture         =   "系统_主操作桌面.frx":4C06
  269.             Key             =   "xh"
  270.          EndProperty
  271.          BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  272.             Picture         =   "系统_主操作桌面.frx":4FA0
  273.             Key             =   "dtb"
  274.          EndProperty
  275.          BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  276.             Picture         =   "系统_主操作桌面.frx":533A
  277.             Key             =   "xtb"
  278.          EndProperty
  279.          BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  280.             Picture         =   "系统_主操作桌面.frx":56D4
  281.             Key             =   "lb"
  282.          EndProperty
  283.          BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  284.             Picture         =   "系统_主操作桌面.frx":5A6E
  285.             Key             =   "xxzl"
  286.          EndProperty
  287.       EndProperty
  288.    End
  289.    Begin MSComctlLib.ImageList ImageList2 
  290.       Left            =   5040
  291.       Top             =   2040
  292.       _ExtentX        =   1005
  293.       _ExtentY        =   1005
  294.       BackColor       =   -2147483643
  295.       ImageWidth      =   32
  296.       ImageHeight     =   32
  297.       MaskColor       =   12632256
  298.       _Version        =   393216
  299.       BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628} 
  300.          NumListImages   =   3
  301.          BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  302.             Picture         =   "系统_主操作桌面.frx":5E08
  303.             Key             =   "y"
  304.          EndProperty
  305.          BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  306.             Picture         =   "系统_主操作桌面.frx":6AE2
  307.             Key             =   ""
  308.          EndProperty
  309.          BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  310.             Picture         =   "系统_主操作桌面.frx":6E02
  311.             Key             =   "i"
  312.          EndProperty
  313.       EndProperty
  314.    End
  315.    Begin VB.Image imgSplitter 
  316.       Height          =   4785
  317.       Left            =   4440
  318.       MousePointer    =   9  'Size W E
  319.       Top             =   780
  320.       Width           =   150
  321.    End
  322. End
  323. Attribute VB_Name = "Xt_Control"
  324. Attribute VB_GlobalNameSpace = False
  325. Attribute VB_Creatable = False
  326. Attribute VB_PredeclaredId = True
  327. Attribute VB_Exposed = False
  328. Const NAME_COLUMN = 0
  329. Const TYPE_COLUMN = 1
  330. Const SIZE_COLUMN = 2
  331. Const DATE_COLUMN = 3
  332. Private Declare Function OSWinHelp% Lib "user32" Alias "WinHelpA" (ByVal hwnd&, ByVal HelpFile$, ByVal wCommand%, dwData As Any)
  333. Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
  335. Dim mbMoving As Boolean
  336. Const sglSplitLimit = 1000
  338. Dim nodX As Node
  339. Dim mitem As ListItem
  340. '<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
  341. Dim Ztxxrec As New ADODB.Recordset           '帐套信息动态集
  342. Dim Xtgnbrec As New ADODB.Recordset          '系统功能表
  343. Dim Xtqxxzrec As New ADODB.Recordset         '系统权限限制动态集
  344. Dim Tsxx As String                           '系统提示信息
  345. Dim gnsyte As String                         '系统功能项索引
  346. Dim Xtrlrec As New ADODB.Recordset           '系统日历动态集
  347. Dim Ctsfscdr As Boolean                      '窗体是否首次读入
  348. Dim sjgnbmStr As String                      '上级编码
  351. Private Sub lvListView_DblClick()            '点击ListView执行相应功能
  352.     If lvListView.ListItems.count > 0 Then
  353.         Set Xtgnbrec = Cw_DataEnvi.DataConnect.Execute("SELECT * FROM xt_xtgnb where gnbm='" + Mid(Trim(lvListView.SelectedItem.Key), 2, Len(Trim(lvListView.SelectedItem.Key)) - 1) + "'")
  354.         If Not Xtgnbrec.EOF Then
  355.             If Xtgnbrec.Fields("mjbz") = True Then
  356.                 gnsyte = Trim(Xtgnbrec.Fields("gnsy"))
  357.                 Call Zxxymk(gnsyte)
  358.             Else
  359.                 '---------------
  360.                 Dim Ssql As String
  361.                 sjgnbmStr = ""
  362.                 lvListView.ColumnHeaders.Clear
  363.                 lvListView.ListItems.Clear
  364.                 Ssql = "SELECT * FROM xt_xtgnb where sjgnbm='" + Xtgnbrec.Fields("gnbm") + "' and MenuList=1 order by gnbm"
  365.                 Set Xtgnbrec = Cw_DataEnvi.DataConnect.Execute(Ssql)
  366.                 lvListView.ColumnHeaders.Add 1, "rcsw", "明细", 3000, , "stb"
  367.                 Do While Not Xtgnbrec.EOF
  368.                     Set mitem = lvListView.ListItems.Add()
  369.                     mitem.Text = Trim(Xtgnbrec!gnmc)
  370.                     If Xtgnbrec.Fields("mjbz") Then
  371.                         mitem.SmallIcon = "gnqx"
  372.                         mitem.Icon = "y"
  373.                     Else
  374.                         mitem.Icon = "i"
  375.                         mitem.SmallIcon = "stb"
  376.                     End If
  377.                     mitem.Key = "T" & Trim(Xtgnbrec!gnbm)
  378.                     Xtgnbrec.MoveNext
  379.                 Loop
  380.                 '---------------
  381.             End If
  382.         End If
  383.     End If
  384. End Sub
  386. Private Sub tvTreeView_KeyPress(KeyAscii As Integer)
  387.     If KeyAscii = 13 Then
  388.         tvTreeView_DblClick
  389.     End If
  390. End Sub
  392. Private Sub tvTreeView_NodeClick(ByVal Node As MSComctlLib.Node)
  393.     Dim Ssql As String
  394.     If Node.Tag <> "" Then
  395.         If Node.Tag = False Then
  396.             Ssql = "SELECT * FROM xt_xtgnb where sjgnbm='" + Mid(Trim(tvTreeView.SelectedItem.Key), 2, Len(Trim(tvTreeView.SelectedItem.Key)) - 1) + "' and MenuList=1 order by gnbm"
  397.             If sjgnbmStr = Mid(Trim(tvTreeView.SelectedItem.Key), 2, Len(Trim(tvTreeView.SelectedItem.Key)) - 1) Then
  398.                 Exit Sub
  399.             Else
  400.                 sjgnbmStr = Mid(Trim(tvTreeView.SelectedItem.Key), 2, Len(Trim(tvTreeView.SelectedItem.Key)) - 1)
  401.             End If
  402.         Else
  403.             Ssql = "SELECT * FROM xt_xtgnb a," _
  404.                     & "(SELECT sjgnbm FROM xt_xtgnb where gnbm='" + Mid(Trim(tvTreeView.SelectedItem.Key), 2, Len(Trim(tvTreeView.SelectedItem.Key)) - 1) + "')b" & " where a.sjgnbm=b.sjgnbm and MenuList=1 order by gnbm"
  405.         End If
  406.         
  407.         Set Xtgnbrec = Cw_DataEnvi.DataConnect.Execute(Ssql)
  408.         If Node.Tag = True Then
  409.             If sjgnbmStr = Trim(Xtgnbrec!sjgnbm) Then
  410.                 Exit Sub
  411.             Else
  412.                 sjgnbmStr = Trim(Xtgnbrec!sjgnbm)
  413.             End If
  414.         End If
  415.         lvListView.ColumnHeaders.Clear
  416.         lvListView.ListItems.Clear
  417.         lvListView.ColumnHeaders.Add 1, "rcsw", "明细", 3000, , "stb"
  418.         Do While Not Xtgnbrec.EOF
  419.             Set mitem = lvListView.ListItems.Add()
  420.             mitem.Text = Trim(Xtgnbrec!gnmc)
  421.             If Xtgnbrec.Fields("mjbz") Then
  422.                 mitem.SmallIcon = "gnqx"
  423.                 mitem.Icon = "y"
  424.             Else
  425.                 mitem.Icon = "i"
  426.                 mitem.SmallIcon = "stb"
  427.             End If
  428.             mitem.Key = "T" & Trim(Xtgnbrec!gnbm)
  429.             Xtgnbrec.MoveNext
  430.         Loop
  431.     End If
  432. End Sub
  434. Private Sub lvListView_KeyPress(KeyAscii As Integer)
  435.     If KeyAscii = vbKeyReturn Then
  436.         Call lvListView_DblClick
  437.     End If
  438. End Sub
  440. Public Sub Cshgns()                                                    '初始化系统功能树
  441.     
  442.     Set Xtgnbrec = Cw_DataEnvi.DataConnect.Execute("SELECT * FROM xt_xtgnb where gnbm like '01%' and MenuList=1 order by gnbm")
  443.     tvTreeView.Nodes.Add , 4, "T", "百利/ERP5.0", "xttb"
  444.     With Xtgnbrec
  445.         Do While Not .EOF
  446.             If .Fields("mjbz") Then
  447.                 Set nodX = tvTreeView.Nodes.Add("T" + Trim(.Fields("sjgnbm")), 4, "T" + Trim(.Fields("gnbm")), Trim(.Fields("gnmc")), "gnqx")
  448.             Else
  449.                 If Trim(.Fields("sjgnbm")) = "" Then
  450.                     Set nodX = tvTreeView.Nodes.Add("T" + Trim(.Fields("sjgnbm")), 4, "T" + Trim(.Fields("gnbm")), Trim(.Fields("gnmc")), "kpgl")
  451.                 Else
  452.                     Set nodX = tvTreeView.Nodes.Add("T" + Trim(.Fields("sjgnbm")), 4, "T" + Trim(.Fields("gnbm")), Trim(.Fields("gnmc")), "stb")
  453.                 End If
  454.             End If
  455.             
  456.             nodX.Tag = Xtgnbrec!mjbz
  457.             
  458.             If Len(Trim(.Fields("sjgnbm"))) <= 2 Then
  459.                 nodX.EnsureVisible
  460.             End If
  461.             .MoveNext
  462.         Loop
  463.     End With
  464. End Sub
  466. '系统功能树操作
  467. Private Sub tvTreeView_BeforeLabelEdit(Cancel As Integer)                     '屏蔽编辑
  468.     Cancel = 1
  469. End Sub
  471. Private Sub tvTreeView_Collapse(ByVal Node As MSComctlLib.Node)               '功能树收缩
  472.     If Node.Index <> 1 And Node.Key <> "T01" Then
  473.         Node.Image = "stb"
  474.     End If
  475.     
  476. End Sub
  478. Private Sub tvTreeView_Expand(ByVal Node As MSComctlLib.Node)                 '功能树展开
  479.     If Node.Index <> 1 And Node.Key <> "T01" Then
  480.         Node.Image = "szk"
  481.     End If
  482. End Sub
  484. Private Sub tvTreeView_DblClick()                                             '选择功能
  485.     If tvTreeView.SelectedItem.Children = 0 Then
  486.         Set Xtgnbrec = Cw_DataEnvi.DataConnect.Execute("SELECT * FROM xt_xtgnb where gnbm='" + Mid(Trim(tvTreeView.SelectedItem.Key), 2, Len(Trim(tvTreeView.SelectedItem.Key)) - 1) + "'")
  487.         If Not Xtgnbrec.EOF Then
  488.             gnsyte = Trim(Xtgnbrec.Fields("gnsy"))
  489.             Call Zxxymk(gnsyte)
  490.         End If
  491.     End If
  492. End Sub
  494. Public Sub Zxxymk(gnsy As String)                                          '根据用户选择执行相应程序
  495.     Dim RecTemp As New ADODB.Recordset     '临时使用动态集
  496.     Dim Sqlstr As String                   '临时查询字符串
  497.     
  498.     If Len(Trim(gnsy)) = 0 Then
  499.         Exit Sub
  500.     End If
  501.     
  502.     On Error GoTo ErrHandle
  503.         
  504.     Select Case gnsy
  505.         '文件
  506.     Case "Cwzz_register"                       '用户重新注册
  507.         XT_login.HelpContextID = "0110001"
  508.         XT_login.Show 1
  509.     Case "Cwzz_quit"
  510.         Unload XT_Main
  511.         
  512.         '基础信息设置
  513.     Case "Cwzz_kjkmsz"                      '会计科目设置
  514.         JC_KjkmszFrm.HelpContextID = "0111001"
  515.         Call XtWaitMess("Cwzz_kjkmsz")
  516.         
  517.     Case "Cwzz_pzlbsz"                      '凭证类别设置
  518.         JC_FrmPzlbsz.HelpContextID = "0111002"
  519.         JC_FrmPzlbsz.Show 1
  520.         
  521.     Case "Cwzz_cyzysz"                      '常用摘要设置
  522.         JC_FrmCyzysz.HelpContextID = "0111003"
  523.         JC_FrmCyzysz.Show 1
  524.         
  525.     '---------------------------------------------------------
  526.     '以下为系统公用数据设置
  527.     
  528.     Case "Cwzz_jsfssz"                         '结算方式设置
  529.         '判断用户是否有此功能执行权限,如有则写上机日志(进入)
  530.         If Not Security_Log(gnsy, Xtczybm, 1) Then
  531.             Exit Sub
  532.         End If
  533.     
  534.         With Gy_BaseSet
  535.             XtReportCode = "Gy_Settlement"
  536.             .ReportTitle = "结算方式设置"
  537.             .TextGroupCode = "Gy_Settlement"
  538.             .GridCode = "Gy_Settlement"
  539.             .str_TableName = "Gy_Settlement"
  540.             .str_FieldCode = "SSCode"
  541.             .str_FieldName = "SSName"
  542.             .str_Label = "结算方式"
  543.             .Caption = "结算方式设置"
  544.             .HelpContextID = "0111004"
  545.             .Show 1
  546.         End With
  547.         
  548.     Case "Cwzz_bmsz"                           '部门设置
  549.         '判断用户是否有此功能执行权限,如有则写上机日志(进入)
  550.         If Not Security_Log(gnsy, Xtczybm, 1) Then
  551.             Exit Sub
  552.         End If
  553.     
  554.         Gy_Department.HelpContextID = "0111005"
  555.         Gy_Department.Show 1
  556.     Case "Cwzz_gszysz"                         '公司职员设置
  557.         '判断用户是否有此功能执行权限,如有则写上机日志(进入)
  558.         If Not Security_Log(gnsy, Xtczybm, 1) Then
  559.             Exit Sub
  560.         End If
  561.     
  562.         Gy_Person.HelpContextID = "0111006"
  563.         Gy_Person.Show 1
  564.     Case "Cwzz_wbjhlsz"                        '外币及汇率设置
  565.         '判断用户是否有此功能执行权限,如有则写上机日志(进入)
  566.         If Not Security_Log(gnsy, Xtczybm, 1) Then
  567.             Exit Sub
  568.         End If
  569.     
  570.         Gy_ForeignCurrency.HelpContextID = "0111007"
  571.         Gy_ForeignCurrency.Show 1
  572.     
  573.     Case "Cwzz_wlgysfl"
  574.         '判断用户是否有此功能执行权限,如有则写上机日志(进入)
  575.         If Not Security_Log(gnsy, Xtczybm, 1) Then
  576.             Exit Sub
  577.         End If
  578.     
  579.         With Gy_BaseSortSet
  580.             XtReportCode = "Gy_SupplierSort"
  581.             .ReportTitle = "供应商分类设置"
  582.             
  583.             .TextGroupCode = "Gy_SupplierSort"
  584.             .GridCode = "Gy_SupplierSort"
  585.             .CodSchemeIndex = "Gy_SupplierSort"
  586.             
  587.             .str_TableName = "Gy_SupplierSort"
  588.             .str_SortCode = "SupplierSortCode"
  589.             .str_SortName = "SupplierSortName"
  590.             .str_Label = "供应商分类"
  591.             .Caption = "供应商分类设置"
  592.             .HelpContextID = "0111009"
  593.             .Show 1
  594.         End With
  595.     Case "Cwzz_wlgyssz"                        '供应商设置
  596.         '判断用户是否有此功能执行权限,如有则写上机日志(进入)
  597.         If Not Security_Log(gnsy, Xtczybm, 1) Then
  598.             Exit Sub
  599.         End If
  600.     
  601.         Gy_Supplier.HelpContextID = "0111010"
  602.         Gy_Supplier.Show
  603.         Gy_SupplierQuery.Show 1
  604.     Case "Cwzz_wldwsz"                         '客户设置
  605.         '判断用户是否有此功能执行权限,如有则写上机日志(进入)
  606.         If Not Security_Log(gnsy, Xtczybm, 1) Then
  607.             Exit Sub
  608.         End If
  609.     
  610.         Gy_Customer.HelpContextID = "0111008"
  611.         Gy_Customer.Show
  612.         Gy_CustomerQuery.Show 1
  613.         
  614.     '以上为系统公用数据设置
  615.     '---------------------------------------------------------
  616.     
  617.     Case "Cwzz_xmmlsz"                      '项目目录设置
  618.         JC_XmflszFrm.HelpContextID = "0111011"
  619.         JC_XmflszFrm.Show 1
  620.         
  621.     Case "Cwzz_dlzlmsz"                     '多栏帐栏目设置
  622.         JC_FrmDlzlmszMain.HelpContextID = "0111012"
  623.         JC_FrmDlzlmszMain.Show 1
  624.         
  625.     Case "Cwzz_qcye"                           '期初余额录入
  626.     
  627.         '判断用户是否有此功能执行权限,如有则写上机日志(进入)
  628.         If Not Security_Log(gnsy, Xtczybm, 1) Then
  629.             Exit Sub
  630.         End If
  631.         JC_FrmQcyelr.HelpContextID = "0112001"
  632.         JC_FrmQcyelr.Show 1
  633.         
  634.         ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  635.         ''奚俊峰  Begin
  636.         ''
  637.         ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  638.         '凭证处理
  639.     Case "Cwzz_jzpzcl"                         '记帐凭证处理
  640.         PZ_JzpzclFrm.HelpContextID = "0113001"
  641.         Call XtWaitMess("c_jzpzcl")
  642.     Case "Cwzz_jzpzcx"                         '记帐凭证查询
  643.         PZ_FrmPzcxjg.HelpContextID = "0113002"
  644.         PZ_FrmPzcxjg.Show
  645.         PZ_FrmPzcxtj.Show 1
  646.     Case "Cwzz_jzpzhz"                         '记帐凭证汇总
  647.         PZ_FrmPzhzjg.HelpContextID = "0113003"
  648.         PZ_FrmPzhzjg.Show
  649.         PZ_FrmPzhztj.Show 1
  650.         '记帐
  651.     Case "Cwzz_jzcl"                           '记帐处理
  652.         
  653.         '判断用户是否有此功能执行权限,如有则写上机日志(进入)
  654.         If Not Security_Log(gnsy, Xtczybm, 1) Then
  655.             Exit Sub
  656.         End If
  657.     
  658.         JZ_FrmJzcl.HelpContextID = "0114001"
  659.         Call XtWaitMess("c_jzcl")
  660.     Case "Cwzz_hfjz"                           '恢复记帐
  661.         
  662.         '判断用户是否有此功能执行权限,如有则写上机日志(进入)
  663.         If Not Security_Log(gnsy, Xtczybm, 1) Then
  664.             Exit Sub
  665.         End If
  666.         
  667.         JZ_FrmHfjz.HelpContextID = "0114002"
  668.         Call XtWaitMess("c_hfjz")
  669.         
  670.         '帐簿管理
  671.     Case "Cwzz_zflz"                           '总分类帐
  672.     
  673.         '判断用户是否有此功能执行权限,如有则写上机日志(进入)
  674.         If Not Security_Log(gnsy, Xtczybm, 1) Then
  675.             Exit Sub
  676.         End If
  677.     
  678.         ZB_Frmzflzjg.HelpContextID = "0116001"
  679.         ZB_Frmzflzjg.Show
  680.         ZB_Frmzflztj.Show 1
  681.     Case "Cwzz_kmyebcx"                        '科目发生额及余额表
  682.         
  683.         '判断用户是否有此功能执行权限,如有则写上机日志(进入)
  684.         If Not Security_Log(gnsy, Xtczybm, 1) Then
  685.             Exit Sub
  686.         End If
  687.         
  688.         ZB_FrmKmyebjg.HelpContextID = "0116002"
  689.         ZB_FrmKmyebjg.Show
  690.         ZB_Frmkmyebtj.Show 1
  691.     Case "Cwzz_mxzcx"                          '明细帐
  692.         
  693.         '判断用户是否有此功能执行权限,如有则写上机日志(进入)
  694.         If Not Security_Log(gnsy, Xtczybm, 1) Then
  695.             Exit Sub
  696.         End If
  697.         
  698.         ZB_Frmkmmxzjg.HelpContextID = "0116003"
  699.         ZB_Frmkmmxzjg.Show
  700.         ZB_Frmkmmxztj.Show 1
  701.     Case "Cwzz_dlzcx"                          '多栏帐
  702.         
  703.         '判断用户是否有此功能执行权限,如有则写上机日志(进入)
  704.         If Not Security_Log(gnsy, Xtczybm, 1) Then
  705.             Exit Sub
  706.         End If
  707.         
  708.         ZB_FrmDlzcxjg.HelpContextID = "0116004"
  709.         ZB_FrmDlzcxjg.Show
  710.         ZB_FrmDlzcxtj.Show 1
  711.     Case "Cwzz_rjzcx"                          '日记帐
  712.         
  713.         '判断用户是否有此功能执行权限,如有则写上机日志(进入)
  714.         If Not Security_Log(gnsy, Xtczybm, 1) Then
  715.             Exit Sub
  716.         End If
  717.         
  718.         ZB_FrmKmrjzjg.HelpContextID = "0116005"
  719.         ZB_FrmKmrjzjg.Show
  720.         ZB_FrmKmrjztj.Show 1
  721.         
  722.         '辅助核算
  723.         
  724.         '1.部门
  725.     Case "Cwzz_fzbm_kmyeb"                     '科目余额表
  726.         
  727.         '判断用户是否有此功能执行权限,如有则写上机日志(进入)
  728.         If Not Security_Log(gnsy, Xtczybm, 1) Then
  729.             Exit Sub
  730.         End If
  731.         
  732.         ZF_Bm_FrmKmyebjg.HelpContextID = "011701001"
  733.         ZF_Bm_FrmKmyebjg.Show
  734.         ZF_Bm_FrmKmyebtj.Show 1
  735.     Case "Cwzz_fzbm_bmyeb"                    '部门总帐
  736.         
  737.         '判断用户是否有此功能执行权限,如有则写上机日志(进入)
  738.         If Not Security_Log(gnsy, Xtczybm, 1) Then
  739.             Exit Sub
  740.         End If
  741.         
  742.         ZF_Bm_FrmBmyebjg.HelpContextID = "011701002"
  743.         ZF_Bm_FrmBmyebjg.Show
  744.         ZF_Bm_FrmBmyebtj.Show 1
  745.     Case "Cwzz_fzbm_bmslmxz"                   '三栏明细帐
  746.         
  747.         '判断用户是否有此功能执行权限,如有则写上机日志(进入)
  748.         If Not Security_Log(gnsy, Xtczybm, 1) Then
  749.             Exit Sub
  750.         End If
  751.         
  752.         ZF_Bm_Frmslmxzjg.HelpContextID = "011701003"
  753.         ZF_Bm_Frmslmxzjg.Show
  754.         ZF_Bm_Frmslmxztj.Show 1
  755.     Case "Cwzz_fzbm_bmslzz"                    '三栏式总帐
  756.         
  757.         '判断用户是否有此功能执行权限,如有则写上机日志(进入)
  758.         If Not Security_Log(gnsy, Xtczybm, 1) Then
  759.             Exit Sub
  760.         End If
  761.         
  762.         ZF_Bm_Frmslzzjg.HelpContextID = "011701004"
  763.         ZF_Bm_Frmslzzjg.Show
  764.         ZF_Bm_Frmslzztj.Show 1
  765.     Case "Cwzz_dlsmxz"                         '多栏帐查询
  766.         
  767.         '判断用户是否有此功能执行权限,如有则写上机日志(进入)
  768.         If Not Security_Log(gnsy, Xtczybm, 1) Then
  769.             Exit Sub
  770.         End If
  771.         ZF_Bm_FrmDlzCxjg.HelpContextID = "011701005"
  772.         ZF_Bm_FrmDlzCxjg.Show
  773.         ZF_Bm_FrmDlzCxTj.Show 1
  774.         
  775.         '2.个人往来
  776.     Case "Cwzz_fzgrwl_kmyeb"                   '科目余额表
  777.         
  778.         '判断用户是否有此功能执行权限,如有则写上机日志(进入)
  779.         If Not Security_Log(gnsy, Xtczybm, 1) Then
  780.             Exit Sub
  781.         End If
  782.         
  783.         ZF_Gr_FrmKmyebjg.HelpContextID = "011702001"
  784.         ZF_Gr_FrmKmyebjg.Show
  785.         ZF_Gr_FrmKmyebtj.Show 1
  786.     Case "Cwzz_fzgrwl_gryeb"                   '个人余额表
  787.         
  788.         '判断用户是否有此功能执行权限,如有则写上机日志(进入)
  789.         If Not Security_Log(gnsy, Xtczybm, 1) Then
  790.             Exit Sub
  791.         End If
  792.         
  793.         ZF_Gr_FrmGryebjg.HelpContextID = "011702002"
  794.         ZF_Gr_FrmGryebjg.Show
  795.         ZF_Gr_FrmGryebtj.Show 1
  796.     Case "Cwzz_fzgrwl_grslmxz"                 '三栏明细帐
  797.         
  798.         '判断用户是否有此功能执行权限,如有则写上机日志(进入)
  799.         If Not Security_Log(gnsy, Xtczybm, 1) Then
  800.             Exit Sub
  801.         End If
  802.         
  803.         ZF_Gr_Frmslmxzjg.HelpContextID = "011702003"
  804.         ZF_Gr_Frmslmxzjg.Show
  805.         ZF_Gr_Frmslmxztj.Show 1
  806.     Case "Cwzz_fzgr_grslzz"                    '三栏式总帐
  807.         
  808.         '判断用户是否有此功能执行权限,如有则写上机日志(进入)
  809.         If Not Security_Log(gnsy, Xtczybm, 1) Then
  810.             Exit Sub
  811.         End If
  812.         
  813.         ZF_Gr_Frmslzzjg.HelpContextID = "011702004"
  814.         ZF_Gr_Frmslzzjg.Show
  815.         ZF_Gr_Frmslzztj.Show 1
  816.         
  817.         '3.客户往来
  818.     Case "Cwzz_fzkhwl_kmyeb"                   '科目余额表
  819.         
  820.         '判断用户是否有此功能执行权限,如有则写上机日志(进入)
  821.         If Not Security_Log(gnsy, Xtczybm, 1) Then
  822.             Exit Sub
  823.         End If
  824.         
  825.         ZF_Kh_Frmkmyebjg.HelpContextID = "011703001"
  826.         ZF_Kh_Frmkmyebjg.Show
  827.         ZF_Kh_FrmKmyebtj.Show 1
  828.     Case "Cwzz_fzkhwl_khyeb"                   '客户余额表
  829.         
  830.         '判断用户是否有此功能执行权限,如有则写上机日志(进入)
  831.         If Not Security_Log(gnsy, Xtczybm, 1) Then
  832.             Exit Sub
  833.         End If
  834.         
  835.         ZF_Kh_FrmKhyebjg.HelpContextID = "011703002"
  836.         ZF_Kh_FrmKhyebjg.Show
  837.         ZF_Kh_FrmKhyebtj.Show 1
  838.     Case "Cwzz_fzkhwl_khslmxz"                 '三栏明细帐
  839.         
  840.         '判断用户是否有此功能执行权限,如有则写上机日志(进入)
  841.         If Not Security_Log(gnsy, Xtczybm, 1) Then
  842.             Exit Sub
  843.         End If
  844.         
  845.         ZF_Kh_Frmslmxzjg.HelpContextID = "011703003"
  846.         ZF_Kh_Frmslmxzjg.Show
  847.         ZF_Kh_Frmslmxztj.Show 1
  848.     Case "Cwzz_fzkh_khslzz"                    '三栏式总帐
  849.         
  850.         '判断用户是否有此功能执行权限,如有则写上机日志(进入)
  851.         If Not Security_Log(gnsy, Xtczybm, 1) Then
  852.             Exit Sub
  853.         End If
  854.         
  855.         ZF_Kh_Frmslzzjg.HelpContextID = "011703004"
  856.         ZF_Kh_Frmslzzjg.Show
  857.         ZF_Kh_Frmslzztj.Show 1
  858.         
  859.         '4.供应商往来
  860.     Case "Cwzz_fzgyswl_kmyeb"                  '科目余额表
  861.         
  862.         '判断用户是否有此功能执行权限,如有则写上机日志(进入)
  863.         If Not Security_Log(gnsy, Xtczybm, 1) Then
  864.             Exit Sub
  865.         End If
  866.         
  867.         ZF_Gys_FrmKmyebjg.HelpContextID = "011704001"
  868.         ZF_Gys_FrmKmyebjg.Show
  869.         ZF_Gys_FrmKmyebtj.Show 1
  870.     Case "Cwzz_fzgyswl_gysyeb"                 '供应商余额表
  871.         
  872.         '判断用户是否有此功能执行权限,如有则写上机日志(进入)
  873.         If Not Security_Log(gnsy, Xtczybm, 1) Then
  874.             Exit Sub
  875.         End If
  876.         
  877.         ZF_Gys_FrmGysyebjg.HelpContextID = "011704002"
  878.         ZF_Gys_FrmGysyebjg.Show
  879.         ZF_Gys_FrmGysyebtj.Show 1
  880.     Case "Cwzz_fzgyswl_gysslmxz"               '三栏明细帐
  881.         
  882.         '判断用户是否有此功能执行权限,如有则写上机日志(进入)
  883.         If Not Security_Log(gnsy, Xtczybm, 1) Then
  884.             Exit Sub
  885.         End If
  886.         
  887.         ZF_Gys_Frmslmxzjg.HelpContextID = "011704003"
  888.         ZF_Gys_Frmslmxzjg.Show
  889.         ZF_Gys_Frmslmxztj.Show 1
  890.     Case "Cwzz_fzgys_gysslzz"                  '三栏式总帐
  891.         
  892.         '判断用户是否有此功能执行权限,如有则写上机日志(进入)
  893.         If Not Security_Log(gnsy, Xtczybm, 1) Then
  894.             Exit Sub
  895.         End If
  896.         
  897.         ZF_Gys_Frmslzzjg.HelpContextID = "011704004"
  898.         ZF_Gys_Frmslzzjg.Show
  899.         ZF_Gys_Frmslzztj.Show 1
  900.         
  901.         '月末处理
  902.     Case "Cwzz_ymcl_ymjz"                       '月末结帐
  903.         
  904.         '判断用户是否有此功能执行权限,如有则写上机日志(进入)
  905.         If Not Security_Log(gnsy, Xtczybm, 1) Then
  906.             Exit Sub
  907.         End If
  908.         
  909.         YM_FrmYmjz.HelpContextID = "0120001"
  910.         YM_FrmYmjz.Show 1
  911.     Case "Cwzz_ymcl_ymfjz"
  912.         
  913.         '判断用户是否有此功能执行权限,如有则写上机日志(进入)
  914.         If Not Security_Log(gnsy, Xtczybm, 1) Then
  915.             Exit Sub
  916.         End If
  917.         
  918.         YM_FrmYmfjz.HelpContextID = "0120002"
  919.         YM_FrmYmfjz.Show 1
  920.     Case "Cwzz_ymcl_nmjz"
  921.         
  922.         '判断用户是否有此功能执行权限,如有则写上机日志(进入)
  923.         If Not Security_Log(gnsy, Xtczybm, 1) Then
  924.             Exit Sub
  925.         End If
  926.         
  927.         YM_FrmNmjz.HelpContextID = "0120003"
  928.         YM_FrmNmjz.Show 1
  929.         
  930.         ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  931.         ''奚俊峰  End
  932.         ''
  933.         ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  934.         
  935.         '现金流量
  936.         
  937.     Case "Cwzz_xjllbbxm"                       '报表项目设置
  938.     
  939.         '判断用户是否有此功能执行权限,如有则写上机日志(进入)
  940.         If Not Security_Log(gnsy, Xtczybm, 1) Then
  941.             Exit Sub
  942.         End If
  943.     
  944.         XJ_FrmXjllbbxm.HelpContextID = "0119001"
  945.         XJ_FrmXjllbbxm.Show 1
  946.     Case "Cwzz_xjllsjfp"                       '现金流量分配
  947.         
  948.         '判断用户是否有此功能执行权限,如有则写上机日志(进入)
  949.         If Not Security_Log(gnsy, Xtczybm, 1) Then
  950.             Exit Sub
  951.         End If
  952.         
  953.         XJ_FrmXjllfpjg.HelpContextID = "0119002"
  954.         XJ_FrmXjllfpjg.Show
  955.         XJ_FrmXjllfptj.Show 1
  956.     Case "Cwzz_xjllbcx"                        '现金流量表查询
  957.         
  958.         '判断用户是否有此功能执行权限,如有则写上机日志(进入)
  959.         If Not Security_Log(gnsy, Xtczybm, 1) Then
  960.             Exit Sub
  961.         End If
  962.         
  963.         XJ_FrmXjllbcxjg.HelpContextID = "0119003"
  964.         XJ_FrmXjllbcxjg.Show
  965.         XJ_FrmXjllbcxtj.Show 1
  966.         
  967.         
  968.         '工具
  969.     Case "Cwzz_gnbmkmrl"                       '会计日历
  970.         XT_kjrlFrm.HelpContextID = "0121001"
  971.         XT_kjrlFrm.Show 1
  972.         
  973.     Case "Cwzz_gnbmjsq"                        '计算器
  974.         Shell "calc.exe", vbNormalFocus
  975.         
  976.         '帮助
  977.     Case "Cwzz_wshxxd"                         '网上华夏新达
  978.         ShellExecute 0, "open", "www.hxxd.com", "", "", 0
  979.     Case "Cwzz_xtbz"                           '系统帮助
  980.         Call F1bz
  981.     Case "Cwzz_gy"                             '关于
  982.         XT_frmAbout.Show
  983.         
  984.         
  985.         '银行对帐
  986.     Case "Cwzz_yhdzqc"                          '银行对帐期初
  987.         Glo_Variable.YH_XTXZ = gnsy
  988.         Glo_Variable.Unload_TF = True
  989.         YH_FrmXzkm.Show 1
  990.     Case "Cwzz_yhdzd"                           '银行对帐单
  991.         Glo_Variable.YH_XTXZ = gnsy
  992.         Glo_Variable.Unload_TF = True
  993.         YH_FrmXzkm.Show 1
  994.     Case "Cwzz_yhDzdCx"                         '银行对帐单查询
  995.         Glo_Variable.YH_XTXZ = gnsy
  996.         Glo_Variable.Unload_TF = True
  997.         YH_FrmXzkm.Show 1
  998.     Case "Cwzz_yhzddz"                          '银行自动对帐
  999.         Glo_Variable.YH_XTXZ = gnsy
  1000.         Glo_Variable.Unload_TF = True
  1001.         YH_FrmXzkm.Show 1
  1002.     Case "Cwzz_yhye"                            '银行余额调节表
  1003.         YH_FrmYeb.HelpContextID = "0115005"
  1004.         Call XtWaitMess("c_yhye")
  1005.     Case "Cwzz_yhgdqk"                          '银行勾对情况
  1006.         Glo_Variable.YH_XTXZ = gnsy
  1007.         Glo_Variable.Unload_TF = True
  1008.         YH_FrmXzkm.Show 1
  1009.     Case "Cwzz_hxyhz"                           '核销银行帐
  1010.         YH_FrmHx.HelpContextID = "0115007"
  1011.         YH_FrmHx.Show 1
  1012.         
  1013.         '自动转帐
  1014.     Case "Cwzz_UserDefineTran"
  1015.     
  1016.         '判断用户是否有此功能执行权限,如有则写上机日志(进入)
  1017.         If Not Security_Log(gnsy, Xtczybm, 1) Then
  1018.             Exit Sub
  1019.         End If
  1020.         
  1021.         AutoTran_TranList.TranClassCode = "01"
  1022.         AutoTran_TranList.HelpContextID = "0118001"
  1023.         AutoTran_TranList.Caption = "自定义转帐凭证"
  1024.         AutoTran_TranList.Show 1            '自定义转帐列表
  1025.         
  1026.     Case "Cwzz_ProfitTran"
  1027.     
  1028.         '判断用户是否有此功能执行权限,如有则写上机日志(进入)
  1029.         If Not Security_Log(gnsy, Xtczybm, 1) Then
  1030.             Exit Sub
  1031.         End If
  1032.         
  1033.         AutoTran_TranList.TranClassCode = "04"
  1034.         AutoTran_TranList.HelpContextID = "0118003"
  1035.         AutoTran_TranList.Caption = "期间损益转帐凭证"
  1036.         AutoTran_TranList.Show 1            '期间损益转帐列表
  1037.         
  1038.     Case "Cwzz_ModelTran"
  1039.     
  1040.         '判断用户是否有此功能执行权限,如有则写上机日志(进入)
  1041.         If Not Security_Log(gnsy, Xtczybm, 1) Then
  1042.             Exit Sub
  1043.         End If
  1044.         
  1045.         AutoTran_TranList.TranClassCode = "05"
  1046.         AutoTran_TranList.HelpContextID = "0118002"
  1047.         AutoTran_TranList.Caption = "模式转帐凭证"
  1048.         AutoTran_TranList.Show 1            '模式凭证帐转列表
  1049.         
  1050.     Case "Cwzz_ExchangeTran"
  1051.     
  1052.         '判断用户是否有此功能执行权限,如有则写上机日志(进入)
  1053.         If Not Security_Log(gnsy, Xtczybm, 1) Then
  1054.             Exit Sub
  1055.         End If
  1056.         
  1057.         AutoTran_TranList.TranClassCode = "03"
  1058.         AutoTran_TranList.Caption = "汇兑损益凭证"
  1059.         AutoTran_TranList.Chk_Vouch = False
  1060.         AutoTran_TranList.Chk_Vouch.Enabled = False
  1061.         AutoTran_TranList.HelpContextID = "0118004"
  1062.         
  1063.         AutoTran_TranList.Show 1            '汇兑损益凭证列表
  1064.         
  1065.     Case "Cwzz_ImportVouch"
  1066.     
  1067.         '判断用户是否有此功能执行权限,如有则写上机日志(进入)
  1068.         If Not Security_Log(gnsy, Xtczybm, 1) Then
  1069.             Exit Sub
  1070.         End If
  1071.         
  1072.         AutoTran_ImportVouch.Show 1            '引入外部凭证
  1073.         If Glo_VouchSource = "" Then
  1074.             Exit Sub
  1075.         End If
  1076.         AutoTran_Importpz.HelpContextID = "0118005"
  1077.         AutoTran_Importpz.Show 1
  1078.         
  1079.     End Select
  1080.     
  1081.     '用户退出时写上机日志
  1082.     Security_Log gnsy, Xtczybm, 2, False
  1083.     
  1084.     Exit Sub
  1085. ErrHandle:
  1086.     Tsxx = "此项系统功能有待完善!"
  1087.     Call Xtxxts(Tsxx, 0, 4)
  1088.     Exit Sub
  1089. End Sub
  1091. Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)        '用户关闭窗体
  1092.     If Unload_TF = False Then
  1093.         Cancel = 1
  1094.         Me.WindowState = 1
  1095.     End If
  1096. End Sub
  1098. Private Sub Form_Load()
  1099.     Me.Left = 0
  1100.     Me.Top = 0
  1101.     Me.Width = XT_Main.Width - 60
  1102.     Me.Height = XT_Main.Height - 760 - 690
  1103.     Call Cshgns
  1104.     
  1105.     '启动调入数据等待提示
  1106.     Load Xt_Wait
  1107.     
  1108. End Sub
  1110. Private Sub Form_Unload(Cancel As Integer)
  1111.     On Error Resume Next
  1112.     Dim i As Integer
  1113.     For i = Forms.count - 1 To 1 Step -1
  1114.         Unload Forms(i)
  1115.     Next
  1116.     If Me.WindowState <> vbMinimized Then
  1117.         SaveSetting App.Title, "Settings", "MainLeft", Me.Left
  1118.         SaveSetting App.Title, "Settings", "MainTop", Me.Top
  1119.         SaveSetting App.Title, "Settings", "MainWidth", Me.Width
  1120.         SaveSetting App.Title, "Settings", "MainHeight", Me.Height
  1121.     End If
  1122.     SaveSetting App.Title, "Settings", "ViewMode", lvListView.View
  1123. End Sub
  1125. Private Sub Form_Resize()
  1126.     On Error Resume Next
  1127.     If Me.Width < 3000 Then Me.Width = 3000
  1128.     SizeControls imgSplitter.Left
  1129. End Sub
  1131. Private Sub imgSplitter_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
  1132.     With imgSplitter
  1133.         picSplitter.Move .Left, .Top, .Width  2, .Height - 20
  1134.     End With
  1135.     picSplitter.Visible = True
  1136.     mbMoving = True
  1137. End Sub
  1139. Private Sub imgSplitter_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
  1140.     Dim sglPos As Single
  1141.     If mbMoving Then
  1142.         sglPos = x + imgSplitter.Left
  1143.         If sglPos < sglSplitLimit Then
  1144.             picSplitter.Left = sglSplitLimit
  1145.         ElseIf sglPos > Me.Width - sglSplitLimit Then
  1146.             picSplitter.Left = Me.Width - sglSplitLimit
  1147.         Else
  1148.             picSplitter.Left = sglPos
  1149.         End If
  1150.     End If
  1151. End Sub
  1153. Private Sub imgSplitter_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)
  1154.     SizeControls picSplitter.Left
  1155.     picSplitter.Visible = False
  1156.     mbMoving = False
  1157.     lvListView.Refresh
  1158. End Sub
  1160. Private Sub TreeView1_DragDrop(Source As Control, x As Single, y As Single)
  1161.     If Source = imgSplitter Then
  1162.         SizeControls x
  1163.     End If
  1164. End Sub
  1166. Sub SizeControls(x As Single)
  1167.     On Error Resume Next
  1168.     
  1169.     '设置 Width 属性
  1170.     If x < 3500 Then x = 3500
  1171.     If x > (Me.Width - 1500) Then x = Me.Width - 1500
  1172.     tvTreeView.Width = x
  1173.     imgSplitter.Left = x
  1174.     lvListView.Left = x + 40
  1175.     lvListView.Width = Me.Width - (tvTreeView.Width + 140)
  1176.     lblTitle(0).Width = tvTreeView.Width
  1177.     lblTitle(1).Left = lvListView.Left + 20
  1178.     lblTitle(1).Width = lvListView.Width - 40
  1179.     
  1180.     '设置 Top 属性
  1181.     
  1182.     tvTreeView.Top = tbToolBar.Height + picTitles.Height
  1183.     
  1184.     lvListView.Top = tvTreeView.Top
  1185.     
  1186.     '设置 height 属性
  1187.     tvTreeView.Height = Me.ScaleHeight - (picTitles.Top + picTitles.Height)
  1188.     
  1189.     lvListView.Height = tvTreeView.Height
  1190.     imgSplitter.Top = tvTreeView.Top
  1191.     imgSplitter.Height = tvTreeView.Height
  1192. End Sub
  1194. Private Sub tbToolBar_ButtonClick(ByVal Button As MSComctlLib.Button)
  1195.     On Error Resume Next
  1196.     Select Case Button.Key
  1197.     Case "返回"
  1198.         tvTreeView.SetFocus
  1199.         SendKeys "{up}", True
  1200.     Case "向前"
  1201.         tvTreeView.SetFocus
  1202.         SendKeys "{DOWN}", True
  1203.     Case "大图标"
  1204.         lvListView.View = lvwIcon
  1205.     Case "小图标"
  1206.         lvListView.View = lvwSmallIcon
  1207.     Case "列表"
  1208.         lvListView.View = lvwList
  1209.     Case "详细资料"
  1210.         lvListView.View = lvwReport
  1211.     End Select
  1212. End Sub