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

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

企业管理

开发平台：

Visual Basic

：源码内容
  1. VERSION 5.00
  2. Object = "{BEEECC20-4D5F-4F8B-BFDC-5D9B6FBDE09D}#1.0#0"; "vsflex8.ocx"
  3. Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "mscomctl.ocx"
  4. Object = "{BDC217C8-ED16-11CD-956C-0000C04E4C0A}#1.1#0"; "TABCTL32.OCX"
  5. Begin VB.Form Gy_Department 
  6.    Caption         =   "部门设置"
  7.    ClientHeight    =   7140
  8.    ClientLeft      =   60
  9.    ClientTop       =   345
  10.    ClientWidth     =   10395
  11.    HelpContextID   =   2001
  12.    Icon            =   "公用_部门设置.frx":0000
  13.    KeyPreview      =   -1  'True
  14.    LinkTopic       =   "Form2"
  15.    ScaleHeight     =   7140
  16.    ScaleWidth      =   10395
  17.    StartUpPosition =   1  '所有者中心
  18.    Begin MSComctlLib.ImageList ImageList2 
  19.       Left            =   780
  20.       Top             =   750
  21.       _ExtentX        =   1005
  22.       _ExtentY        =   1005
  23.       BackColor       =   -2147483643
  24.       ImageWidth      =   16
  25.       ImageHeight     =   16
  26.       MaskColor       =   12632256
  27.       _Version        =   393216
  28.       BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628} 
  29.          NumListImages   =   4
  30.          BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  31.             Picture         =   "公用_部门设置.frx":1042
  32.             Key             =   "T"
  33.          EndProperty
  34.          BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  35.             Picture         =   "公用_部门设置.frx":191C
  36.             Key             =   "C"
  37.          EndProperty
  38.          BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  39.             Picture         =   "公用_部门设置.frx":21F6
  40.             Key             =   "Cl"
  41.          EndProperty
  42.          BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  43.             Picture         =   "公用_部门设置.frx":3248
  44.             Key             =   "O"
  45.          EndProperty
  46.       EndProperty
  47.    End
  48.    Begin VB.PictureBox picSplitter 
  49.       BackColor       =   &H00C0C0C0&
  50.       BorderStyle     =   0  'None
  51.       FillColor       =   &H00808080&
  52.       Height          =   6270
  53.       Left            =   2850
  54.       ScaleHeight     =   2730.227
  55.       ScaleMode       =   0  'User
  56.       ScaleWidth      =   468
  57.       TabIndex        =   5
  58.       Top             =   750
  59.       Visible         =   0   'False
  60.       Width           =   45
  61.    End
  62.    Begin MSComctlLib.TreeView TreeView 
  63.       Height          =   6435
  64.       Left            =   30
  65.       TabIndex        =   4
  66.       Top             =   660
  67.       Width           =   2775
  68.       _ExtentX        =   4895
  69.       _ExtentY        =   11351
  70.       _Version        =   393217
  71.       Indentation     =   617
  72.       LabelEdit       =   1
  73.       Style           =   7
  74.       ImageList       =   "ImageList2"
  75.       Appearance      =   1
  76.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  77.          Name            =   "宋体"
  78.          Size            =   9
  79.          Charset         =   134
  80.          Weight          =   400
  81.          Underline       =   0   'False
  82.          Italic          =   0   'False
  83.          Strikethrough   =   0   'False
  84.       EndProperty
  85.    End
  86.    Begin TabDlg.SSTab StTab 
  87.       Height          =   6435
  88.       Left            =   3000
  89.       TabIndex        =   1
  90.       Top             =   675
  91.       Width           =   7380
  92.       _ExtentX        =   13018
  93.       _ExtentY        =   11351
  94.       _Version        =   393216
  95.       Style           =   1
  96.       Tabs            =   2
  97.       TabHeight       =   520
  98.       TabCaption(0)   =   "列表视图"
  99.       TabPicture(0)   =   "公用_部门设置.frx":35E2
  100.       Tab(0).ControlEnabled=   -1  'True
  101.       Tab(0).Control(0)=   "CzxsGrid"
  102.       Tab(0).Control(0).Enabled=   0   'False
  103.       Tab(0).ControlCount=   1
  104.       TabCaption(1)   =   "单张视图"
  105.       TabPicture(1)   =   "公用_部门设置.frx":35FE
  106.       Tab(1).ControlEnabled=   0   'False
  107.       Tab(1).Control(0)=   "Frame1"
  108.       Tab(1).ControlCount=   1
  109.       Begin VB.Frame Frame1 
  110.          Height          =   5985
  111.          Left            =   -74880
  112.          TabIndex        =   6
  113.          Top             =   330
  114.          Width           =   7155
  115.          Begin VB.TextBox LrText 
  116.             Height          =   300
  117.             Index           =   0
  118.             Left            =   1200
  119.             TabIndex        =   14
  120.             Text            =   "0"
  121.             Top             =   270
  122.             Width           =   2100
  123.          End
  124.          Begin VB.TextBox LrText 
  125.             Height          =   300
  126.             Index           =   1
  127.             Left            =   1200
  128.             TabIndex        =   13
  129.             Text            =   "1"
  130.             Top             =   675
  131.             Width           =   3135
  132.          End
  133.          Begin VB.CommandButton BcCommand 
  134.             Caption         =   "保存(&S)"
  135.             Height          =   300
  136.             Left            =   2010
  137.             TabIndex        =   12
  138.             Top             =   2700
  139.             Width           =   1120
  140.          End
  141.          Begin VB.CommandButton Ydcommand1 
  142.             Height          =   300
  143.             Index           =   0
  144.             Left            =   3495
  145.             Picture         =   "公用_部门设置.frx":361A
  146.             Style           =   1  'Graphical
  147.             TabIndex        =   11
  148.             Top             =   3030
  149.             Visible         =   0   'False
  150.             Width           =   300
  151.          End
  152.          Begin VB.TextBox LrText 
  153.             Height          =   300
  154.             Index           =   2
  155.             Left            =   1200
  156.             TabIndex        =   10
  157.             Text            =   "2"
  158.             Top             =   1500
  159.             Width           =   3135
  160.          End
  161.          Begin VB.ComboBox Combo1 
  162.             Height          =   300
  163.             ItemData        =   "公用_部门设置.frx":39A4
  164.             Left            =   1200
  165.             List            =   "公用_部门设置.frx":39A6
  166.             Style           =   2  'Dropdown List
  167.             TabIndex        =   9
  168.             Top             =   1080
  169.             Width           =   3135
  170.          End
  171.          Begin VB.TextBox LrText 
  172.             Height          =   300
  173.             Index           =   3
  174.             Left            =   1200
  175.             TabIndex        =   8
  176.             Text            =   "3"
  177.             Top             =   1905
  178.             Width           =   3135
  179.          End
  180.          Begin VB.CommandButton QxCommand 
  181.             Cancel          =   -1  'True
  182.             Caption         =   "取消(&C)"
  183.             Height          =   300
  184.             Left            =   3210
  185.             TabIndex        =   7
  186.             Top             =   2700
  187.             Width           =   1120
  188.          End
  189.          Begin VB.Label Label1 
  190.             AutoSize        =   -1  'True
  191.             Caption         =   "编码方案:"
  192.             Height          =   180
  193.             Left            =   360
  194.             TabIndex        =   21
  195.             Top             =   2340
  196.             Width           =   810
  197.          End
  198.          Begin VB.Label Lbl_codescheme 
  199.             AutoSize        =   -1  'True
  200.             Height          =   180
  201.             Left            =   1200
  202.             TabIndex        =   20
  203.             Top             =   2340
  204.             Width           =   810
  205.          End
  206.          Begin VB.Label TsLabel 
  207.             AutoSize        =   -1  'True
  208.             Caption         =   "部门编码:"
  209.             Height          =   180
  210.             Index           =   0
  211.             Left            =   360
  212.             TabIndex        =   19
  213.             Top             =   345
  214.             Width           =   810
  215.          End
  216.          Begin VB.Label TsLabel 
  217.             AutoSize        =   -1  'True
  218.             Caption         =   "部门名称:"
  219.             Height          =   180
  220.             Index           =   1
  221.             Left            =   360
  222.             TabIndex        =   18
  223.             Top             =   750
  224.             Width           =   810
  225.          End
  226.          Begin VB.Label TsLabel 
  227.             AutoSize        =   -1  'True
  228.             Caption         =   "负责人:"
  229.             Height          =   180
  230.             Index           =   2
  231.             Left            =   360
  232.             TabIndex        =   17
  233.             Top             =   1530
  234.             Width           =   630
  235.          End
  236.          Begin VB.Label TsLabel 
  237.             AutoSize        =   -1  'True
  238.             Caption         =   "电话:"
  239.             Height          =   180
  240.             Index           =   3
  241.             Left            =   360
  242.             TabIndex        =   16
  243.             Top             =   1920
  244.             Width           =   450
  245.          End
  246.          Begin VB.Label Label2 
  247.             AutoSize        =   -1  'True
  248.             Caption         =   "部门属性:"
  249.             Height          =   180
  250.             Left            =   360
  251.             TabIndex        =   15
  252.             Top             =   1155
  253.             Width           =   810
  254.          End
  255.       End
  256.       Begin VSFlex8Ctl.VSFlexGrid CzxsGrid 
  257.          Height          =   5925
  258.          Left            =   90
  259.          TabIndex        =   0
  260.          Top             =   420
  261.          Width           =   7185
  262.          _cx             =   5080
  263.          _cy             =   5080
  264.          Appearance      =   1
  265.          BorderStyle     =   1
  266.          Enabled         =   -1  'True
  267.          BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  268.             Name            =   "宋体"
  269.             Size            =   9
  270.             Charset         =   134
  271.             Weight          =   400
  272.             Underline       =   0   'False
  273.             Italic          =   0   'False
  274.             Strikethrough   =   0   'False
  275.          EndProperty
  276.          MousePointer    =   0
  277.          BackColor       =   -2147483643
  278.          ForeColor       =   -2147483640
  279.          BackColorFixed  =   -2147483633
  280.          ForeColorFixed  =   -2147483630
  281.          BackColorSel    =   -2147483635
  282.          ForeColorSel    =   -2147483634
  283.          BackColorBkg    =   8421504
  284.          BackColorAlternate=   -2147483643
  285.          GridColor       =   -2147483633
  286.          GridColorFixed  =   -2147483632
  287.          TreeColor       =   -2147483632
  288.          FloodColor      =   192
  289.          SheetBorder     =   -2147483642
  290.          FocusRect       =   1
  291.          HighLight       =   1
  292.          AllowSelection  =   -1  'True
  293.          AllowBigSelection=   -1  'True
  294.          AllowUserResizing=   0
  295.          SelectionMode   =   0
  296.          GridLines       =   1
  297.          GridLinesFixed  =   2
  298.          GridLineWidth   =   1
  299.          Rows            =   5000
  300.          Cols            =   10
  301.          FixedRows       =   1
  302.          FixedCols       =   0
  303.          RowHeightMin    =   0
  304.          RowHeightMax    =   0
  305.          ColWidthMin     =   0
  306.          ColWidthMax     =   0
  307.          ExtendLastCol   =   0   'False
  308.          FormatString    =   ""
  309.          ScrollTrack     =   0   'False
  310.          ScrollBars      =   3
  311.          ScrollTips      =   0   'False
  312.          MergeCells      =   0
  313.          MergeCompare    =   0
  314.          AutoResize      =   -1  'True
  315.          AutoSizeMode    =   0
  316.          AutoSearch      =   0
  317.          AutoSearchDelay =   2
  318.          MultiTotals     =   -1  'True
  319.          SubtotalPosition=   1
  320.          OutlineBar      =   0
  321.          OutlineCol      =   0
  322.          Ellipsis        =   0
  323.          ExplorerBar     =   0
  324.          PicturesOver    =   0   'False
  325.          FillStyle       =   0
  326.          RightToLeft     =   0   'False
  327.          PictureType     =   0
  328.          TabBehavior     =   0
  329.          OwnerDraw       =   0
  330.          Editable        =   0
  331.          ShowComboButton =   1
  332.          WordWrap        =   0   'False
  333.          TextStyle       =   0
  334.          TextStyleFixed  =   0
  335.          OleDragMode     =   0
  336.          OleDropMode     =   0
  337.          DataMode        =   0
  338.          VirtualData     =   -1  'True
  339.          DataMember      =   ""
  340.          ComboSearch     =   3
  341.          AutoSizeMouse   =   -1  'True
  342.          FrozenRows      =   0
  343.          FrozenCols      =   0
  344.          AllowUserFreezing=   0
  345.          BackColorFrozen =   0
  346.          ForeColorFrozen =   0
  347.          WallPaperAlignment=   9
  348.          AccessibleName  =   ""
  349.          AccessibleDescription=   ""
  350.          AccessibleValue =   ""
  351.          AccessibleRole  =   24
  352.       End
  353.    End
  354.    Begin MSComctlLib.Toolbar SzToolbar 
  355.       Align           =   1  'Align Top
  356.       Height          =   555
  357.       Left            =   0
  358.       TabIndex        =   2
  359.       Top             =   0
  360.       Width           =   10395
  361.       _ExtentX        =   18336
  362.       _ExtentY        =   979
  363.       ButtonWidth     =   820
  364.       ButtonHeight    =   926
  365.       AllowCustomize  =   0   'False
  366.       Appearance      =   1
  367.       Style           =   1
  368.       ImageList       =   "ImageList1"
  369.       _Version        =   393216
  370.       BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628} 
  371.          NumButtons      =   14
  372.          BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  373.             Caption         =   "设置"
  374.             Key             =   "ymsz"
  375.             ImageKey        =   "sz"
  376.          EndProperty
  377.          BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  378.             Caption         =   "打印"
  379.             Key             =   "dy"
  380.             Object.ToolTipText     =   "点击或按Ctrl+P打印表格"
  381.             ImageKey        =   "dy"
  382.          EndProperty
  383.          BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  384.             Caption         =   "预览"
  385.             Key             =   "yl"
  386.             ImageKey        =   "yl"
  387.          EndProperty
  388.          BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  389.             Style           =   3
  390.          EndProperty
  391.          BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  392.             Caption         =   "增加"
  393.             Key             =   "zj"
  394.             Object.ToolTipText     =   "点击或按Ctrl+A增加记录"
  395.             ImageKey        =   "xz"
  396.          EndProperty
  397.          BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  398.             Caption         =   "修改"
  399.             Key             =   "xg"
  400.             ImageKey        =   "xg"
  401.          EndProperty
  402.          BeginProperty Button7 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  403.             Caption         =   "删除"
  404.             Key             =   "sc"
  405.             Object.ToolTipText     =   "点击或按Ctrl+D删除当前记录"
  406.             ImageKey        =   "sc"
  407.          EndProperty
  408.          BeginProperty Button8 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  409.             Style           =   3
  410.          EndProperty
  411.          BeginProperty Button9 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  412.             Caption         =   "刷新"
  413.             Key             =   "sx"
  414.             ImageKey        =   "sx"
  415.          EndProperty
  416.          BeginProperty Button10 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  417.             Style           =   3
  418.          EndProperty
  419.          BeginProperty Button11 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  420.             Object.Visible         =   0   'False
  421.             Caption         =   "分配"
  422.             Key             =   "fp"
  423.             Object.ToolTipText     =   "分配部门"
  424.             ImageKey        =   "dz"
  425.          EndProperty
  426.          BeginProperty Button12 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  427.             Object.Visible         =   0   'False
  428.             Style           =   3
  429.          EndProperty
  430.          BeginProperty Button13 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  431.             Caption         =   "帮助"
  432.             Key             =   "bz"
  433.             ImageKey        =   "bz"
  434.          EndProperty
  435.          BeginProperty Button14 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  436.             Caption         =   "退出"
  437.             Key             =   "fh"
  438.             ImageKey        =   "tc"
  439.          EndProperty
  440.       EndProperty
  441.       BorderStyle     =   1
  442.       Begin MSComctlLib.Toolbar GsToolbar 
  443.          Height          =   525
  444.          Left            =   7890
  445.          TabIndex        =   3
  446.          Top             =   0
  447.          Width           =   2475
  448.          _ExtentX        =   4366
  449.          _ExtentY        =   926
  450.          ButtonWidth     =   1455
  451.          ButtonHeight    =   926
  452.          AllowCustomize  =   0   'False
  453.          Appearance      =   1
  454.          Style           =   1
  455.          ImageList       =   "ImageList1"
  456.          _Version        =   393216
  457.          BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628} 
  458.             NumButtons      =   3
  459.             BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  460.                Caption         =   "保存格式"
  461.                Key             =   "bcgs"
  462.                ImageKey        =   "bcgs"
  463.             EndProperty
  464.             BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  465.                Caption         =   "默认列宽"
  466.                Key             =   "hfmrgs"
  467.                ImageKey        =   "mrlk"
  468.             EndProperty
  469.             BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  470.                Caption         =   "显示项目"
  471.                Key             =   "szxsxm"
  472.                ImageKey        =   "xsxm"
  473.             EndProperty
  474.          EndProperty
  475.       End
  476.    End
  477.    Begin MSComctlLib.ImageList ImageList1 
  478.       Left            =   2070
  479.       Top             =   480
  480.       _ExtentX        =   1005
  481.       _ExtentY        =   1005
  482.       BackColor       =   -2147483643
  483.       ImageWidth      =   16
  484.       ImageHeight     =   16
  485.       MaskColor       =   12632256
  486.       _Version        =   393216
  487.       BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628} 
  488.          NumListImages   =   29
  489.          BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  490.             Picture         =   "公用_部门设置.frx":39A8
  491.             Key             =   "sz"
  492.          EndProperty
  493.          BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  494.             Picture         =   "公用_部门设置.frx":3D42
  495.             Key             =   "dy"
  496.          EndProperty
  497.          BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  498.             Picture         =   "公用_部门设置.frx":40DC
  499.             Key             =   "yl"
  500.          EndProperty
  501.          BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  502.             Picture         =   "公用_部门设置.frx":4476
  503.             Key             =   "xg"
  504.          EndProperty
  505.          BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  506.             Picture         =   "公用_部门设置.frx":4810
  507.             Key             =   "zh"
  508.          EndProperty
  509.          BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  510.             Picture         =   "公用_部门设置.frx":4BAA
  511.             Key             =   "sh"
  512.          EndProperty
  513.          BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  514.             Picture         =   "公用_部门设置.frx":4F44
  515.             Key             =   "bc"
  516.          EndProperty
  517.          BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  518.             Picture         =   "公用_部门设置.frx":52DE
  519.             Key             =   "fq"
  520.          EndProperty
  521.          BeginProperty ListImage9 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  522.             Picture         =   "公用_部门设置.frx":5678
  523.             Key             =   "bz"
  524.          EndProperty
  525.          BeginProperty ListImage10 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  526.             Picture         =   "公用_部门设置.frx":5A12
  527.             Key             =   "tc"
  528.          EndProperty
  529.          BeginProperty ListImage11 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  530.             Picture         =   "公用_部门设置.frx":5DAC
  531.             Key             =   "bcgs"
  532.          EndProperty
  533.          BeginProperty ListImage12 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  534.             Picture         =   "公用_部门设置.frx":6146
  535.             Key             =   "mrlk"
  536.          EndProperty
  537.          BeginProperty ListImage13 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  538.             Picture         =   "公用_部门设置.frx":64E0
  539.             Key             =   "xsxm"
  540.          EndProperty
  541.          BeginProperty ListImage14 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  542.             Picture         =   "公用_部门设置.frx":687A
  543.             Key             =   "first"
  544.          EndProperty
  545.          BeginProperty ListImage15 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  546.             Picture         =   "公用_部门设置.frx":6C14
  547.             Key             =   "prev"
  548.          EndProperty
  549.          BeginProperty ListImage16 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  550.             Picture         =   "公用_部门设置.frx":6FAE
  551.             Key             =   "next"
  552.          EndProperty
  553.          BeginProperty ListImage17 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  554.             Picture         =   "公用_部门设置.frx":7348
  555.             Key             =   "last"
  556.          EndProperty
  557.          BeginProperty ListImage18 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  558.             Picture         =   "公用_部门设置.frx":76E2
  559.             Key             =   "xx"
  560.          EndProperty
  561.          BeginProperty ListImage19 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  562.             Picture         =   "公用_部门设置.frx":7A7C
  563.             Key             =   "define"
  564.          EndProperty
  565.          BeginProperty ListImage20 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  566.             Picture         =   "公用_部门设置.frx":7E16
  567.             Key             =   "exec"
  568.          EndProperty
  569.          BeginProperty ListImage21 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  570.             Picture         =   "公用_部门设置.frx":81B0
  571.             Key             =   "xz"
  572.          EndProperty
  573.          BeginProperty ListImage22 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  574.             Picture         =   "公用_部门设置.frx":854A
  575.             Key             =   "sc"
  576.          EndProperty
  577.          BeginProperty ListImage23 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  578.             Picture         =   "公用_部门设置.frx":88E4
  579.             Key             =   "sx"
  580.          EndProperty
  581.          BeginProperty ListImage24 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  582.             Picture         =   "公用_部门设置.frx":8C7E
  583.             Key             =   "cx"
  584.          EndProperty
  585.          BeginProperty ListImage25 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  586.             Picture         =   "公用_部门设置.frx":9018
  587.             Key             =   "zd"
  588.          EndProperty
  589.          BeginProperty ListImage26 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  590.             Picture         =   "公用_部门设置.frx":93B2
  591.             Key             =   "dz"
  592.          EndProperty
  593.          BeginProperty ListImage27 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  594.             Picture         =   "公用_部门设置.frx":974C
  595.             Key             =   "ph"
  596.          EndProperty
  597.          BeginProperty ListImage28 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  598.             Picture         =   "公用_部门设置.frx":9AE6
  599.             Key             =   "fz"
  600.          EndProperty
  601.          BeginProperty ListImage29 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  602.             Picture         =   "公用_部门设置.frx":9E80
  603.             Key             =   "dw"
  604.          EndProperty
  605.       EndProperty
  606.    End
  607.    Begin VB.Image imgSplitter 
  608.       Height          =   6315
  609.       Left            =   2820
  610.       MousePointer    =   9  'Size W E
  611.       Top             =   750
  612.       Width           =   90
  613.    End
  614. End
  615. Attribute VB_Name = "Gy_Department"
  616. Attribute VB_GlobalNameSpace = False
  617. Attribute VB_Creatable = False
  618. Attribute VB_PredeclaredId = True
  619. Attribute VB_Exposed = False
  620. '*******************************************************
  621. '*    模 块 名 称 :部门设置
  622. '*    功 能 描 述 :分级设置
  623. '*    程序员姓名  :徐强
  624. '*    最后修改人  :徐强
  625. '*    最后修改时间:2001/10/15
  626. '*    备        注:
  627. '*******************************************************
  628. Dim mbMoving As Boolean
  629. Const sglSplitLimit = 1000
  631. Dim Rec_CodeSet As New ADODB.Recordset   '编码设置表
  632. Dim jdzygs As Integer                    '控件焦点转移个数
  633. Dim Lrzt As Integer                      '录入状态标志(0-非录入状态 1-增加 2-修改)
  634. Dim ReportTitle As String                '报表主标题
  635. Dim Str_RightEdit As String              '编辑(新增、修改、删除)权限索引
  637. '以下为固定使用变量(网格)
  638. Dim Cxnrrec As New ADODB.Recordset       '显示查询内容动态集
  639. Dim Dyymctbl As New DY_Dyymsz            '打印页面窗体变量
  640. Dim GridCode As String                   '显示网格网格代码
  641. Dim GridInf() As Variant                 '整个网格设置信息
  642. Dim Tsxx As String                       '系统提示信息
  643. Dim Qslz As Long                         '网格隐藏(非操作显示)列数
  644. Dim Sjhgd As Double                      '网格数据行高度
  645. Dim GridBoolean() As Boolean             '网格列信息(布尔型)
  646. Dim GridStr()  As String                 '网格列信息(字符型)
  647. Dim GridInt() As Integer                 '网格列信息(整型)
  648. Dim Szzls As Integer                     '数组总列数(网格列数-1)
  650. '以下为固定使用变量(文本框)
  651. Dim Textvar() As Variant                 '存储变体型文本框信息
  652. Dim Textboolean() As Boolean             '存储布尔型文本框信息
  653. Dim Textint() As Integer                 '存储整型文本框信息
  654. Dim Textstr() As String                  '存储字符型文本框信息
  655. Dim Max_Text_Index As Integer            '最大录入文本框索引值
  656. Dim TextGroupCode As String              '文本框录入分组编码
  657. Dim TextValiLock As Boolean              '文本框失去焦点是否进行有效性控制判断
  658. Dim TextValiJudgeLock() As Boolean       '文本框录入有效性判断控制锁
  659. Dim CurTextIndex As Integer              '当前文本框索引值
  660. Dim TextChangeLock As Boolean            '文本框内容变换控制锁
  661. Dim Bln_Cancel As Boolean                '取消按钮信息传递
  663. Dim nodX As Node
  664. Dim CodSchemeIndex As String             '编码方案编码
  665. Dim CodScheme As String                  '编码方案
  666. Dim ParentCode As String                 '上级编码
  667. Dim CodeLevel As Integer                 '编码级次
  669. Private Sub CzxsGrid_Click()
  670.     
  671.     Dim count As Integer
  672.     With CzxsGrid
  673.         If Trim(.TextMatrix(.Row, Sydz("001", GridStr(), Szzls))) <> "" And .Rows <> .FixedRows Then
  674.             TreeView.Nodes("T" & Trim(.TextMatrix(.Row, Sydz("001", GridStr(), Szzls)))).Selected = True
  675.             TreeView.SetFocus
  676.         End If
  677.     End With
  679. End Sub
  681. Private Sub Form_KeyPress(KeyAscii As Integer)   '控 制 焦 点 转 移
  682.    '[<<
  683.     jdzygs = 12
  684.    '>>]
  685.     Select Case KeyAscii
  686.         Case vbKeyReturn
  687.             If Kjjdzy(jdzygs) Then
  688.                 KeyAscii = 0
  689.             End If
  690.         Case 39           '屏蔽"'"
  691.             KeyAscii = 0
  692.     End Select
  694. End Sub
  696. Private Sub Form_Load()
  697.     
  698.     FillCombo Combo1, "DeptProp", 0, 0
  699.     SizeControls imgSplitter.Left
  700.   
  701.     CodSchemeIndex = "Gy_Depar"
  702.     Add_Tree
  703.     Text_CodScheme
  704.   
  705.     '打印报表标题信息
  706.     ReportTitle = "部 门 设 置"
  707.    
  708.     '调入打印页面设置窗体
  709.     XtReportCode = "Gy_Department"
  710.     Load Dyymctbl
  711.   
  712.     '以下为文本框处理程序(读入文本框录入信息)
  713.     TextGroupCode = "Gy_Department"
  714.     Call Drwbkxx(TextGroupCode, Textvar(), Textboolean(), Textint(), Textstr())
  715.     Call Wbkcsh
  716.     '调入网格设置信息
  717.     GridCode = "Gy_Department"
  718.     Call BzWgcsh(CzxsGrid, GridCode, GridInf(), GridBoolean(), GridInt(), GridStr())
  719.     Qslz = GridInf(1)
  720.     Sjhgd = GridInf(2)
  721.     Szzls = CzxsGrid.Cols - 1
  722.       
  723.     '填 充 网 格
  724.     Call Cxnrtcwg
  725.        
  726.     '初始化toolbar,tab卡状态
  727.     StTab.Tab = 0
  728.     StTab.TabEnabled(1) = False
  729.    
  730.     '设置为非录入状态
  731.     Lrzt = 0
  732.     '编辑(新增、修改、删除)权限索引
  733.     Str_RightEdit = "Gy_Department_Edit"
  735. End Sub
  737. Private Sub Cxnrtcwg()                               '查询内容填充网格
  738.   
  739.     Dim Sqlstr As String              '查询连接串
  740.     Dim Jsqte As Long                '查询临时使用变量
  741.   
  742.     '为加快显示速度,将网格刷新动作冻结
  743.     CzxsGrid.Redraw = False
  744.       
  745.     '[>>查询连接串
  746.     Sqlstr = "SELECT * FROM Gy_Department order by DeptCode"
  747.   
  748.     '<<]
  749.       
  750.     Set Cxnrrec = Cw_DataEnvi.DataConnect.Execute(Sqlstr)
  751.     With Cxnrrec
  752.         CzxsGrid.Rows = CzxsGrid.FixedRows
  753.         If .EOF And .BOF Then
  754.             CzxsGrid.Redraw = True
  755.             Exit Sub
  756.         End If
  757.         Jsqte = CzxsGrid.FixedRows
  758.         Do While Not .EOF
  759.             CzxsGrid.AddItem ""
  760.             Call Jltcwg(Cxnrrec, Jsqte)                              '调入填充网格子过程
  761.             CzxsGrid.RowHeight(Jsqte) = Sjhgd                           '设置网格高度
  762.             .MoveNext
  763.             Jsqte = Jsqte + 1
  764.         Loop
  765.     End With
  766.   
  767.     '将网格刷新动作解冻
  768.     CzxsGrid.Redraw = True
  770. End Sub
  772. Private Sub Jltcwg(Jlbrec As ADODB.Recordset, Rowjsq As Long)           '记录内容填充网格
  773.     
  774.     '[>>以下为自定义部分
  775.     With Jlbrec
  776.         CzxsGrid.TextMatrix(Rowjsq, Sydz("001", GridStr(), Szzls)) = Trim(.Fields("DeptCode") & "")             '客户编码
  777.         CzxsGrid.TextMatrix(Rowjsq, Sydz("002", GridStr(), Szzls)) = Trim(.Fields("DeptName") & "")             '客户名称
  778.         CzxsGrid.TextMatrix(Rowjsq, Sydz("003", GridStr(), Szzls)) = Trim(.Fields("CodeLevel") & "")            '级次
  779.         CzxsGrid.TextMatrix(Rowjsq, Sydz("004", GridStr(), Szzls)) = Trim(.Fields("DeptProp") & "")             '部门属性
  780.         CzxsGrid.TextMatrix(Rowjsq, Sydz("005", GridStr(), Szzls)) = Trim(.Fields("Principal") & "")            '负责人
  781.         CzxsGrid.TextMatrix(Rowjsq, Sydz("006", GridStr(), Szzls)) = Trim(.Fields("Telephone") & "")            '电话
  782.         CzxsGrid.TextMatrix(Rowjsq, Sydz("007", GridStr(), Szzls)) = .Fields("CwzzFlag")                        '财务
  783.         CzxsGrid.TextMatrix(Rowjsq, Sydz("008", GridStr(), Szzls)) = .Fields("RsPmFlag")                        '人事
  784.         CzxsGrid.TextMatrix(Rowjsq, Sydz("009", GridStr(), Szzls)) = .Fields("CgFlag")                          '采购
  785.         CzxsGrid.TextMatrix(Rowjsq, Sydz("010", GridStr(), Szzls)) = .Fields("XsFlag")                          '销售
  786.         CzxsGrid.TextMatrix(Rowjsq, Sydz("011", GridStr(), Szzls)) = .Fields("KfFlag")                          '库房
  788.     End With
  789.     '以上为自定义部分<<]
  791. End Sub
  793. Private Sub Form_Resize()
  794.     
  795.     On Error Resume Next
  796.     
  797.     Dim St_tab As Integer
  798.     If Me.Height < 7000 Then Me.Height = 7000
  799.     If Me.Width < 10000 Then Me.Width = 10000
  801.     StTab.Width = Me.Width - (TreeView.Width + 300)
  802.     StTab.Height = Me.Height - (StTab.Top + 400)
  803.     TreeView.Height = Me.Height - (TreeView.Top + 400)
  804.     imgSplitter.Height = TreeView.Height
  806.     St_tab = StTab.Tab
  807.     StTab.Tab = 0
  808.     CzxsGrid.Width = StTab.Width - CzxsGrid.Left * 2
  809.     CzxsGrid.Height = StTab.Height - 500
  810.     StTab.Tab = St_tab
  811.     GsToolbar.Left = Me.Width - GsToolbar.Width - 140
  812. End Sub
  814. Private Sub Form_Unload(Cancel As Integer)             '窗体卸载
  815.     
  816.     Set Cxnrrec = Nothing
  817.     Set Rec_CodeSet = Nothing
  818.     Unload Dyymctbl
  819.     
  820. End Sub
  822. Private Function Bclrsj() As Boolean                   '判断录入数据有效性,并保存数据
  823.   
  824.     Dim Jsqte As Integer
  825.   
  826.     '对文本框录入内容进行为零和为空判断(固定不变)
  827.     With Rec_CodeSet
  828.         For Jsqte = 0 To Max_Text_Index
  829.             If Textint(Jsqte, 8) = 1 Then     '字段不能为空
  830.                 If Len(Trim(LrText(Jsqte).Text)) = 0 Then
  831.                     Tsxx = Textstr(Jsqte, 7) & "不能为空!"
  832.                     Call Xtxxts(Tsxx, 0, 1)
  833.                     LrText(Jsqte).SetFocus
  834.                     Bclrsj = False
  835.                     Exit Function
  836.                 End If
  837.             Else
  838.                 If Textint(Jsqte, 8) = 2 Then   '字段不能为零
  839.                     If Val(Trim(LrText(Jsqte).Text)) = 0 Then
  840.                         Tsxx = Textstr(Jsqte, 7) & "不能为零!"
  841.                         Call Xtxxts(Tsxx, 0, 1)
  842.                         LrText(Jsqte).SetFocus
  843.                         Bclrsj = False
  844.                         Exit Function
  845.                     End If
  846.                 End If
  847.             End If
  848.         Next Jsqte
  849.         
  850.         '对需要进行事后判断的文本框录入内容进行有效性判断 (固定不变)
  851.         For Jsqte = 0 To Max_Text_Index
  852.             If Textint(Jsqte, 9) = 0 Or Textint(Jsqte, 9) = 2 Then
  853.                 If Not TextYxxpd(Jsqte) Then
  854.                     Exit Function
  855.                 End If
  856.             End If
  857.         Next Jsqte
  858.    
  859.         If Lrzt = 1 Then  '增 加
  860.             
  861.             '[>>判断编码是否重复
  862.             If .State = 1 Then .Close
  863.             .Open "SELECT * FROM Gy_Department WHERE DeptCode= '" + Trim(LrText(0).Text) + "'", Cw_DataEnvi.DataConnect, adOpenDynamic, adLockOptimistic
  864.             If Not .EOF Then
  865.                 Tsxx = "部门编码重复!"
  866.                 Call Xtxxts(Tsxx, 0, 1)
  867.                 LrText(0).SetFocus
  868.                 Bclrsj = False
  869.                 Exit Function
  870.             End If
  871.             
  872.             '判断名称是否重复
  873.             If .State = 1 Then .Close
  874.             .Open "SELECT * FROM Gy_Department WHERE DeptName= '" + Trim(LrText(1).Text) + "'", Cw_DataEnvi.DataConnect, adOpenDynamic, adLockOptimistic
  875.             If Not .EOF Then
  876.                 Tsxx = "部门名称重复!"
  877.                 Call Xtxxts(Tsxx, 0, 1)
  878.                 LrText(1).SetFocus
  879.                 
  880.                 Bclrsj = False
  881.                 Exit Function
  882.             End If
  884.             '判断记录内容无误后,将记录内容写入数据表
  885.             On Error GoTo Swcwcl
  886.     
  887.             Cw_DataEnvi.DataConnect.BeginTrans
  888.  
  889.             .AddNew
  890.             .Fields("DeptCode") = Trim(LrText(0).Text)    '客户编码
  891.             .Fields("DeptName") = Trim(LrText(1).Text)    '客户名称
  892.             .Fields("ParentCode") = ParentCode            '上级编码
  893.             .Fields("CodeLevel") = CodeLevel              '编码级次
  894.             .Fields("Principal") = Trim(LrText(2).Text)   '负责人
  895.             .Fields("Telephone") = Trim(LrText(3).Text)   '电话
  896.             .Fields("DeptProp") = Trim(Combo1.Text)       '部门属性
  897.             .Update
  898.     
  899.             Cw_DataEnvi.DataConnect.CommitTrans
  900.             If CodeLevel <> 1 Then
  901.                 Set nodX = TreeView.Nodes.Add("T" & ParentCode, 4, "T" & LrText(0).Text, "(" & Trim(LrText(0).Text) & ")" & Trim(LrText(1).Text), "C")
  902.                 nodX.EnsureVisible
  903.             Else
  904.                 Set nodX = TreeView.Nodes.Add("T", 4, "T" & LrText(0).Text, "(" & Trim(LrText(0).Text) & ")" & Trim(LrText(1).Text), "C")
  905.             End If
  906.             ParentCode = "": CodeLevel = 0
  907.    
  908.             '将记录加入网格
  909.             Call Cxnrtcwg
  911.             Tsxx = "保存完毕!"
  912.             Call Xtxxts(Tsxx, 0, 4)
  913.             Call Cshlrxx(1)
  914.             LrText(0).SetFocus
  916.             '将网格按编码排序
  917.             With CzxsGrid
  918.                 .Col = Sydz("001", GridStr(), Szzls)
  919.                 CzxsGrid.Sort = flexSortStringAscending
  920.             End With
  921.             '<<]
  922.     
  923.         Else  '否则为修改记录
  924.  
  925.             If .State = 1 Then .Close
  926.             .Open "SELECT * FROM Gy_Department WHERE DeptName= '" + Trim(LrText(1).Text) + "' and DeptCode<>'" & Trim(LrText(0).Text) & "'", Cw_DataEnvi.DataConnect, adOpenDynamic, adLockOptimistic
  928.             If Not .EOF Then
  929.                 Tsxx = "部门名称重复!"
  930.                 Call Xtxxts(Tsxx, 0, 1)
  931.                 LrText(1).SetFocus
  932.                 Bclrsj = False
  933.                 Exit Function
  934.             End If
  936.             On Error GoTo Swcwcl
  938.             Cw_DataEnvi.DataConnect.BeginTrans
  939.             If .State = 1 Then .Close
  940.             .Open "SELECT * FROM Gy_Department WHERE DeptCode= '" + Trim(LrText(0).Text) + "'", Cw_DataEnvi.DataConnect, adOpenDynamic, adLockOptimistic
  941.             If Not .EOF Then
  942.                 .Fields("DeptName") = Trim(LrText(1).Text)      '客户名称
  943.                 .Fields("Principal") = Trim(LrText(2).Text)     '负责人
  944.                 .Fields("Telephone") = Trim(LrText(3).Text)     '电话
  945.                 .Fields("DeptProp") = Trim(Combo1.Text)         '部门属性
  946.                 .Update
  947.             End If
  948.             TreeView.Nodes("T" & Trim(CzxsGrid.TextMatrix(CzxsGrid.Row, Sydz("001", GridStr(), Szzls)))).Text = "(" & Trim(LrText(0).Text) & ")" & Trim(LrText(1).Text)
  949.             Cw_DataEnvi.DataConnect.CommitTrans
  950.        
  951.             '刷新当前网格
  952.             Sqlstr = "SELECT * FROM Gy_Department WHERE DeptCode= '" + Trim(LrText(0).Text) + "'"
  953.             Set Cxnrrec = Cw_DataEnvi.DataConnect.Execute(Sqlstr)
  954.             With CzxsGrid
  955.                 Call Jltcwg(Cxnrrec, .Row)
  956.             End With
  957.    
  958.         End If
  959.      
  960.         '保存记录成功,函数返回真值
  961.         Bclrsj = True
  962.         Exit Function
  963.     End With
  964.  
  965. Swcwcl:
  966.     Cw_DataEnvi.DataConnect.RollbackTrans
  967.     Tsxx = "存盘过程中出现错误,程序自动恢复保存前状态!"
  968.     Call Xtxxts(Tsxx, 0, 1)
  969.     Exit Function
  971. End Function
  973. Private Function Cshlrxx(lrztxx As Integer) As Boolean              '初始化录入字段信息
  974.  
  975.     TextChangeLock = True       '关闭文本框Chang事件
  976.     
  977.     If lrztxx = 1 Then
  978.         
  979.         '增加新记录时将文本框清空
  980.         For Jsqte = 0 To Max_Text_Index
  981.             If Len(Trim(Textstr(Jsqte, 1))) <> 0 Then
  982.                 LrText(Jsqte).Text = ""
  983.                 LrText(Jsqte).Tag = ""
  984.             End If
  985.             TextValiJudgeLock(Jsqte) = True
  986.         Next Jsqte
  987.        
  988.         '[>>
  989.         '在此处可添加新增记录时初始化设置
  990.         '<<]
  991.     Else
  992.         '修改记录时根据记录关键字(编码)从数据表中读入其他字段内容
  993.         With RecTemp
  994.             Sqlstr = "SELECT * FROM Gy_Department Where DeptCode='" & Trim(CzxsGrid.TextMatrix(CzxsGrid.Row, Sydz("001", GridStr(), Szzls))) & "'"
  995.             Set RecTemp = Cw_DataEnvi.DataConnect.Execute(Sqlstr)
  996.             '记录如存在则读入其内容,否则提示记录已被其他人删除
  997.             If Not RecTemp.EOF Then
  998.                 LrText(0).Text = Trim(.Fields("DeptCode") & "")            '部门编码
  999.                 LrText(1).Text = Trim(.Fields("DeptName") & "")            '部门名称
  1000.                 LrText(2).Text = Trim(.Fields("Principal") & "")           '负责人
  1001.                 LrText(3).Text = Trim(.Fields("Telephone") & "")           '电话
  1002.                 Dim I As Integer
  1003.                 For I = 0 To Combo1.ListCount - 1
  1004.                     Combo1.ListIndex = I
  1005.                     If Combo1.Text = Trim(.Fields("DeptProp") & "") Then Exit For
  1006.                 Next
  1007.             Else
  1008.                 Tsxx = "该记录已经被其他人删除,请刷新当前数据!"
  1009.                 Call Xtxxts(Tsxx, 0, 4)
  1010.                 Call Cancel
  1011.                 TextChangeLock = False
  1012.                 Exit Function
  1013.             End If
  1014.         End With
  1015.     End If
  1016.     Cshlrxx = True
  1017.     TextChangeLock = False
  1019. End Function
  1021. Private Sub Scdqjl()                 '删 除 当 前 记 录
  1022.     
  1023.     Dim Yhanswer As Integer
  1024.     Dim aDo_Rec As New Recordset
  1025.     
  1026.     '判断用户是否有此功能执行权限,如有则写上机日志(进入)
  1027.     If Not Security_Log(Str_RightEdit, Xtczybm, 1, True) Then
  1028.         Exit Sub
  1029.     End If
  1030.             
  1031.     '非数据行不能删除
  1032.     If CzxsGrid.Row < CzxsGrid.FixedRows Then
  1033.         Exit Sub
  1034.     End If
  1035.   
  1036.     '用户确认是否删除记录
  1037.     Tsxx = "请确认是否删除当前记录?"
  1038.     Yhanswer = Xtxxts(Tsxx, 2, 2)
  1039.     If Yhanswer = 2 Then
  1040.         Exit Sub
  1041.     End If
  1043.     Set aDo_Rec = Cw_DataEnvi.DataConnect.Execute("select * from Gy_Department where ParentCode='" & Trim(CzxsGrid.TextMatrix(CzxsGrid.Row, Sydz("001", GridStr(), Szzls))) & "'")
  1044.     If aDo_Rec.RecordCount > 0 Then
  1045.         aDo_Rec.Close
  1046.         Tsxx = "该项有下级,不能删除!"
  1047.         Call Xtxxts(Tsxx, 0, 1)
  1048.         Exit Sub
  1049.     End If
  1050.     aDo_Rec.Close
  1051.   
  1052.     On Error GoTo Cwcl
  1053.       
  1054.     Cw_DataEnvi.DataConnect.BeginTrans
  1055.  
  1056.     '[>>以下需自定义部分
  1057.     Cw_DataEnvi.DataConnect.Execute "delete Gy_Department where DeptCode = '" + Trim(CzxsGrid.TextMatrix(CzxsGrid.Row, Sydz("001", GridStr(), Szzls))) + "'"
  1058.   
  1059.     Add_Tree
  1060.     '以上为自定义部分<<]
  1061.   
  1062.     Cw_DataEnvi.DataConnect.CommitTrans
  1063.   
  1064.     CzxsGrid.RemoveItem CzxsGrid.Row
  1065.     Exit Sub
  1066. Cwcl:
  1067.     Cw_DataEnvi.DataConnect.RollbackTrans
  1068.     If Err.Number = -2147217873 Then                '(-2147217873 为SQL Server 2000通过建立外键产生的错误号)
  1069.         Tsxx = "此部门已经被使用,不能删除!"
  1070.         Call Xtxxts(Tsxx, 0, 1)
  1071.         Exit Sub
  1072.     Else
  1073.         Tsxx = "出现未知情况,此部门不能被删除!"
  1074.         Call Xtxxts(Tsxx, 0, 1)
  1075.         Exit Sub
  1076.     End If
  1078. End Sub
  1080. '*******************以下区域为编写自定义过程区域**********************
  1082. '*******************以上区域为编写自定义过程区域**********************
  1084. '******************以下为基本处理程序(固定不变)************************'
  1085. Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)        '支持热键操作
  1086.     
  1087.     If Shift = 2 Then
  1088.         Select Case UCase(Chr(KeyCode))
  1089.             Case "P"                                                                          'Ctrl+P 打印
  1090.                 If SzToolbar.Buttons("dy").Visible And SzToolbar.Buttons("dy").Enabled Then
  1091.                     Call bbyl(False)
  1092.                 End If
  1093.             Case "A"                                                                          'Ctrl+A 增加
  1094.                 '判断用户是否有此功能执行权限,如有则写上机日志(进入)
  1095.                 If Not Security_Log(Str_RightEdit, Xtczybm, 1, True) Then
  1096.                     Exit Sub
  1097.                 End If
  1098.                 If SzToolbar.Buttons("zj").Visible And SzToolbar.Buttons("zj").Enabled Then
  1099.                     Call Toolbjzt
  1100.                     Lrzt = 1
  1101.                     Call Cshlrxx(Lrzt)
  1102.                     LrText(0).Enabled = True
  1103.                     LrText(0).SetFocus
  1104.                 End If
  1105.             Case "D"                                                                          'Ctrl+D 删除
  1106.                 If SzToolbar.Buttons("sc").Visible And SzToolbar.Buttons("sc").Enabled Then
  1107.                     Call Scdqjl
  1108.                 End If
  1109.         End Select
  1110.     End If
  1112. End Sub
  1114. Private Sub imgSplitter_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
  1115.     
  1116.     With imgSplitter
  1117.         picSplitter.Move .Left, .Top, .Width  2, .Height - 20
  1118.     End With
  1119.     picSplitter.Visible = True
  1120.     mbMoving = True
  1122. End Sub
  1124. Private Sub imgSplitter_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
  1125.     
  1126.     Dim sglPos As Single
  1127.     If mbMoving Then
  1128.         sglPos = x + imgSplitter.Left
  1129.         If sglPos < sglSplitLimit Then
  1130.             picSplitter.Left = sglSplitLimit
  1131.         ElseIf sglPos > Me.Width - sglSplitLimit Then
  1132.             picSplitter.Left = Me.Width - sglSplitLimit
  1133.         Else
  1134.             picSplitter.Left = sglPos
  1135.         End If
  1136.     End If
  1138. End Sub
  1140. Private Sub imgSplitter_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)
  1141.     
  1142.     SizeControls picSplitter.Left
  1143.     picSplitter.Visible = False
  1144.     mbMoving = False
  1146. End Sub
  1148. Sub SizeControls(x As Single)
  1149.     
  1150.     On Error Resume Next
  1152.     '设置 Width 属性
  1153.     If x < 2000 Then x = 2000
  1154.     If x > (Me.Width - 5000) Then x = Me.Width - 5000
  1155.     TreeView.Width = x - 100
  1156.     imgSplitter.Left = x
  1157.     StTab.Left = x + 40
  1158.     StTab.Width = Me.Width - (TreeView.Width + 300)
  1159.     '设置 Top 属性
  1160.     StTab.Top = TreeView.Top
  1161.     Dim St_tab As Integer
  1162.     St_tab = StTab.Tab
  1163.     StTab.Tab = 0
  1164.     CzxsGrid.Width = StTab.Width - CzxsGrid.Left * 2
  1165.     StTab.Tab = St_tab
  1166.     imgSplitter.Top = TreeView.Top
  1167.     imgSplitter.Height = TreeView.Height
  1169. End Sub
  1171. Private Sub SzToolbar_ButtonClick(ByVal Button As MSComctlLib.Button)
  1172.     
  1173.     Select Case Button.Key
  1174.         Case "ymsz"                                          '页面设置
  1175.             Dyymctbl.Show 1
  1176.         Case "yl"                                            '预 览
  1177.             Call bbyl(True)
  1178.         Case "dy"                                            '打 印
  1179.             Call bbyl(False)
  1180.         Case "zj"                                            '增 加
  1181.             '判断用户是否有此功能执行权限,如有则写上机日志(进入)
  1182.             If Not Security_Log(Str_RightEdit, Xtczybm, 1, True) Then
  1183.                 Exit Sub
  1184.             End If
  1185.             Call Toolbjzt
  1186.             Lrzt = 1
  1187.             Call Cshlrxx(Lrzt)
  1188.             
  1189.             LrText(0).Enabled = True
  1190.             LrText(0).SetFocus
  1191.         Case "xg"                                            '修 改
  1192.             Call Xgdqjl
  1193.         Case "sc"                                            '删 除
  1194.             Call Scdqjl
  1195.         Case "sx"                                            '刷 新
  1196.             Call Cxnrtcwg
  1197.         Case "bz"                                            '帮 助
  1198.             Call F1bz
  1199.         Case "fp"                                            '分配
  1200.             '判断用户是否有此功能执行权限,如有则写上机日志(进入)
  1201.             If Not Security_Log("Gy_Department_Allot", Xtczybm, 1, True) Then
  1202.                 Exit Sub
  1203.             End If
  1204.             Gy_DeptAllot.HelpContextID = 331200101
  1205.             Gy_DeptAllot.Show 1
  1206.             Call Cxnrtcwg
  1207.         Case "fh"                                            '退 出
  1208.             Unload Me
  1209.     End Select
  1211. End Sub
  1213. Private Sub CzxsGrid_DblClick()                            '修改当前编码记录
  1214.     Call Xgdqjl
  1215. End Sub
  1217. Private Sub Xgdqjl()                                       '修改当前编码记录
  1218.     
  1219.     '判断用户是否有此功能执行权限,如有则写上机日志(进入)
  1220.     If Not Security_Log(Str_RightEdit, Xtczybm, 1, True, False) Then
  1221.         BcCommand.Enabled = False
  1222.     End If
  1223.     
  1224.     If CzxsGrid.Row < CzxsGrid.FixedRows Then
  1225.         Exit Sub
  1226.     End If
  1227.     Call Toolbjzt
  1228.     Lrzt = 2
  1229.     If Cshlrxx(Lrzt) Then
  1230.         LrText(1).SetFocus
  1231.         LrText(0).Enabled = False
  1232.     End If
  1234. End Sub
  1236. Private Sub Toolbjzt()                                     'Toolbar状态(编辑状态)
  1237.     
  1238.     StTab.TabEnabled(1) = True
  1239.     StTab.Tab = 1
  1240.     StTab.TabEnabled(0) = False
  1241.     CzxsGrid.Enabled = False
  1242.     With SzToolbar
  1243.         .Buttons("ymsz").Enabled = False
  1244.         .Buttons("dy").Enabled = False
  1245.         .Buttons("yl").Enabled = False
  1246.         .Buttons("zj").Enabled = False
  1247.         .Buttons("xg").Enabled = False
  1248.         .Buttons("sc").Enabled = False
  1249.         .Buttons("sx").Enabled = False
  1250.         .Buttons("fp").Enabled = False
  1251.     End With
  1252.     TreeView.Enabled = False
  1254. End Sub
  1256. Private Sub Toolfbjzt()                                    'Toolbar状态(非编辑状态)
  1257.     
  1258.     StTab.TabEnabled(0) = True
  1259.     StTab.Tab = 0
  1260.     CzxsGrid.Enabled = True
  1261.     StTab.TabEnabled(1) = False
  1262.     Lrzt = 0
  1263.     With SzToolbar
  1264.         .Buttons("ymsz").Enabled = True
  1265.         .Buttons("dy").Enabled = True
  1266.         .Buttons("yl").Enabled = True
  1267.         .Buttons("zj").Enabled = True
  1268.         .Buttons("xg").Enabled = True
  1269.         .Buttons("sc").Enabled = True
  1270.         .Buttons("sx").Enabled = True
  1271.         .Buttons("fp").Enabled = True
  1272.     End With
  1273.     TreeView.Enabled = True
  1275. End Sub
  1277. Private Sub BcCommand_Click()                                           '保 存
  1278.   
  1279.     If Not Bclrsj Then
  1280.         Exit Sub
  1281.     End If
  1282.     If Lrzt = 2 Then
  1283.         Call Toolfbjzt
  1284.     End If
  1285. End Sub
  1287. Private Sub QxCommand_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)       '取消
  1288.     
  1289.     '避免执行Click程序
  1290.     Bln_Cancel = True
  1291.   
  1292.     Call Cancel
  1294. End Sub
  1296. Private Sub QxCommand_Click()                                                                         '取消
  1297.     
  1298.     If Bln_Cancel Then
  1299.         Bln_Cancel = False
  1300.         Exit Sub
  1301.     End If
  1302.  
  1303.     Call Cancel
  1305. End Sub
  1307. Private Sub Cancel()                                                                                  '取消
  1308.     
  1309.     '文本框加锁
  1310.     For Jsqte = 0 To Max_Text_Index
  1311.         TextValiJudgeLock(Jsqte) = True
  1312.     Next Jsqte
  1313.   
  1314.     Call Toolfbjzt
  1316. End Sub
  1318. Private Sub CzxsGrid_AfterMoveColumn(ByVal Col As Long, Position As Long)           '网格列发生移动时自动交换网格索引信息
  1319.     FnBln_RefreshArray Col, Position, GridStr(), GridInf()
  1320. End Sub
  1322. Private Sub GsToolbar_ButtonClick(ByVal Button As MSComctlLib.Button)   '表格格式设置(通用)
  1323.     
  1324.     Select Case Button.Key
  1325.         Case "bcgs"                                       '保存表格格式
  1326.             Call Bcwggs(CzxsGrid, GridCode, GridStr())
  1327.         Case "hfmrgs"                                     '恢复默认格式
  1328.             Call Hfmrgs(CzxsGrid, GridCode, GridStr())
  1329.         Case "szxsxm"                                     '设置显示项目
  1330.             Call Szxsxm(CzxsGrid, GridCode)
  1331.     End Select
  1333. End Sub
  1335. Private Sub bbyl(bbylte As Boolean)                    '报表打印预览
  1336.   
  1337.     Dim Bbzbt$, Bbxbt() As String, bbxbtzzxs() As Integer, Bbxbtgs As Integer
  1338.     Dim Bbbwh() As String, Bbbwhzzxs() As Integer, Bbbwhgs As Integer
  1339.     Bbxbtgs = 1                                          '报 表 小 标 题 行 数
  1340.     Bbbwhgs = 0                                          '报 表 表 尾 行 数
  1341.     ReDim Bbxbt(1 To Bbxbtgs)
  1342.     ReDim bbxbtzzxs(1 To Bbxbtgs)
  1343.     If Bbbwhgs <> 0 Then
  1344.         ReDim Bbbwh(1 To Bbbwhgs)
  1345.         ReDim Bbbwhzzxs(1 To Bbbwhgs)
  1346.     End If
  1347.     Bbzbt = ReportTitle
  1348.     Bbxbt(1) = " "
  1349.     bbxbtzzxs(1) = 0                                     '报表行组织形式(0-居左 1-居中 2-居右)
  1350.     Call Scyxsjb(CzxsGrid)                               '生成报表数据
  1351.     Call Scdybb(Dyymctbl, Bbzbt, Bbxbt(), bbxbtzzxs(), Bbxbtgs, Bbbwh(), Bbbwhzzxs(), Bbbwhgs, bbylte)
  1352.     If Not bbylte Then
  1353.         Unload DY_Tybbyldy
  1354.     End If
  1356. End Sub
  1358. '************以下为文本框录入处理程序(固定不变部分)*************'
  1359. Private Sub Wbklrwbcl(Index As Integer)    '文本框录入事后处理程序
  1360.     
  1361.     '以下为依据实际情况自定义部分[
  1362.     
  1363.     '在此填写文本框录入事后处理程序
  1364.     
  1365.     ']以上为依据实际情况自定义部分
  1367. End Sub
  1369. Private Sub LrText_Change(Index As Integer)
  1371.     '屏蔽程序改变控制
  1372.     If TextChangeLock Then
  1373.         Exit Sub
  1374.     End If
  1375.     
  1376.     TextValiJudgeLock(Index) = False    '打开有效性判断锁
  1377.     
  1378.     '限制字段录入长度
  1379.     TextChangeLock = True  '加锁(防止执行Lrtext_Change)
  1380.     Call TextChangeLimit(LrText(Index), Textint(Index, 1))  '去掉无效字符
  1381.     Select Case Textint(Index, 1)
  1382.         Case 8, 11      '金额型
  1383.             Call Sjgskz(LrText(Index), Xtjezws - Xtjexsws - 1, Xtjexsws)
  1384.         Case 9, 12      '数量型
  1385.             Call Sjgskz(LrText(Index), Xtslzws - Xtslxsws - 1, Xtslxsws)
  1386.         Case 10          '单价型
  1387.             Call Sjgskz(LrText(Index), Xtdjzws - Xtdjxsws - 1, Xtdjxsws)
  1388.         Case Else        '其他小数类型控制
  1389.             If Textint(Index, 6) <> 0 Or Textint(Index, 7) <> 0 Then
  1390.                 Call Sjgskz(LrText(Index), Textint(Index, 6), Textint(Index, 7))
  1391.             End If
  1392.     End Select
  1393.         
  1394.     TextChangeLock = False '解锁
  1396. End Sub
  1398. Private Sub LrText_GotFocus(Index As Integer)                                                 '文本框得到焦点,显示相应信息
  1399.     
  1400.     Call TextShow(Index)
  1401.     CurTextIndex = Index
  1402.     LrText(Index).SelStart = Len(LrText(Index))
  1404. End Sub
  1406. Private Sub LrText_KeyDown(Index As Integer, KeyCode As Integer, Shift As Integer)            '字段按F2键提供帮助
  1407.     
  1408.     Select Case KeyCode
  1409.         Case vbKeyF2
  1410.             Call Text_Help(Index)
  1411.     End Select
  1413. End Sub
  1415. Private Sub LrText_KeyPress(Index As Integer, KeyAscii As Integer)                            '文本框录入事中控制
  1416.     Call InputFieldLimit(LrText(Index), Textint(Index, 1), KeyAscii)
  1417. End Sub
  1419. Private Sub LrText_LostFocus(Index As Integer)                                                '文本框失去焦点
  1421.     '显示相应信息但不能进行有效性判断
  1422.   
  1423. End Sub
  1425. Private Sub TreeView_Collapse(ByVal Node As MSComctlLib.Node)
  1426.     
  1427.     If Node.Index <> 1 And Node.Key <> "T" Then
  1428.         Node.Image = "Cl"
  1429.     End If
  1431. End Sub
  1433. Private Sub TreeView_Expand(ByVal Node As MSComctlLib.Node)
  1434.     
  1435.     If Node.Index <> 1 And Node.Key <> "T" Then
  1436.         Node.Image = "O"
  1437.     End If
  1439. End Sub
  1441. Private Sub TreeView_NodeClick(ByVal Node As MSComctlLib.Node)
  1442.     
  1443.     Dim code_row As Integer
  1444.     With CzxsGrid
  1445.         code_row = .FindRow(Trim(Mid(TreeView.SelectedItem.Key, 2)), , Sydz("001", GridStr(), Szzls))
  1446.         If code_row <> -1 Then
  1447.             .Select code_row, 0
  1448.         End If
  1449.     End With
  1451. End Sub
  1453. Private Sub Ydcommand1_MouseDown(Index As Integer, Button As Integer, Shift As Integer, x As Single, y As Single)     '按钮提供帮助
  1454.     Call Text_Help(Index)
  1455. End Sub
  1457. Private Sub Text_Help(Index As Integer)                                                       '录入字段帮助
  1458.     
  1459.     If Not Textboolean(Index, 1) Then
  1460.         Exit Sub
  1461.     End If
  1462.    
  1463.     '调用帮助
  1464.     Call Drbmhelp(Textint(Index, 2), Textstr(Index, 4), Trim(LrText(Index).Text))
  1465.   
  1466.     '根据设置选择显示编码和名称,并进行存储
  1467.     If Len(Xtfhcs) <> 0 Then
  1468.         If Textint(Index, 3) = 1 Then
  1469.             LrText(Index).Text = Xtfhcsfz
  1470.             LrText(Index).Tag = Xtfhcs
  1471.         Else
  1472.             LrText(Index).Text = Xtfhcs
  1473.             LrText(Index).Tag = Xtfhcsfz
  1474.         End If
  1475.     End If
  1476.    
  1477.     LrText(Index).SetFocus
  1479. End Sub
  1481. Private Sub TextShow(Index As Integer)        '文本框得到焦点,显示相应信息
  1482.     
  1483.     '填写文本框得到焦点,进行相应信息处理程序
  1484.    
  1485. End Sub
  1487. Private Sub Wbkcsh()                          '录入文本框初始化
  1488.     
  1489.     Dim Jsqte As Integer
  1490.   
  1491.     '最大录入文本框索引值
  1492.     Max_Text_Index = Textvar(1)
  1493.   
  1494.     ReDim TextValiJudgeLock(Max_Text_Index)
  1495.     For Jsqte = 0 To Max_Text_Index
  1496.         If Len(Trim(Textstr(Jsqte, 1))) <> 0 Then
  1497.             If Textboolean(Jsqte, 1) Then
  1498.                 If Jsqte <> 0 And Not Textboolean(Jsqte, 3) Then
  1499.                     Load Ydcommand1(Jsqte)
  1500.                 End If
  1501.                 Ydcommand1(Jsqte).Visible = True
  1502.                 Ydcommand1(Jsqte).Move LrText(Jsqte).Left + LrText(Jsqte).Width, LrText(Jsqte).Top
  1503.             End If
  1504.             TextChangeLock = True
  1505.             LrText(Jsqte).Text = ""
  1506.             LrText(Jsqte).Tag = ""
  1507.             If Textint(Jsqte, 5) <> 0 Then
  1508.                 LrText(Jsqte).MaxLength = Textint(Jsqte, 5)
  1509.             End If
  1510.             TextChangeLock = False
  1511.         End If
  1512.         TextValiJudgeLock(Jsqte) = True
  1513.     Next Jsqte
  1515. End Sub
  1517. Private Function TextYxxpd(Index As Integer) As Boolean           '文本框有效性判断
  1518.   
  1519.     Dim Sqlstr As String
  1520.     Dim Findrec As ADODB.Recordset
  1521.   
  1522.     '文本框内容未曾改变不进行有效性判断
  1523.     If TextValiJudgeLock(Index) Then
  1524.         TextYxxpd = True
  1525.         Exit Function
  1526.     End If
  1527.   
  1528.     '文本框内容为空认为有效,并清空其Tag值
  1529.     If Trim(LrText(Index)) = "" Then
  1530.         LrText(Index).Tag = ""
  1531.         Call Wbklrwbcl(Index)
  1532.         TextValiJudgeLock(Index) = True
  1533.         TextYxxpd = True
  1534.         Exit Function
  1535.     End If
  1536.   
  1537.     '可在此加入不做有效性判断的理由
  1538.     Select Case Textint(Index, 4)
  1539.         Case 1      '编码型
  1540.             Sqlstr = Trim(Textstr(Index, 5))
  1541.             Sqlstr = Replace(Sqlstr, "@", "'" + Trim(LrText(Index).Text) + "'")
  1542.             Set Findrec = Cw_DataEnvi.DataConnect.Execute(Sqlstr)
  1543.             If Findrec.EOF Then
  1544.                 Call Xtxxts(Trim(Textstr(Index, 6)), 0, 1)
  1545.                 LrText(Index).SetFocus
  1546.                 Exit Function
  1547.             Else
  1548.                 Select Case Textint(Index, 3)
  1549.                     Case 0
  1550.                         If Len(Trim(Textstr(Index, 2))) <> 0 Then
  1551.                             LrText(Index).Text = Trim(Findrec.Fields(Trim(Textstr(Index, 2))))
  1552.                         End If
  1553.                         If Len(Trim(Textstr(Index, 3) & "")) <> 0 Then
  1554.                             LrText(Index).Tag = Trim(Findrec.Fields(Trim(Textstr(Index, 3))))
  1555.                         End If
  1556.                     Case 1
  1557.                         If Len(Trim(Textstr(Index, 3) & "")) <> 0 Then
  1558.                             LrText(Index).Text = Trim(Findrec.Fields(Trim(Textstr(Index, 3))))
  1559.                         End If
  1560.                         If Len(Trim(Textstr(Index, 2))) <> 0 Then
  1561.                             LrText(Index).Tag = Trim(Findrec.Fields(Trim(Textstr(Index, 2))))
  1562.                         End If
  1563.                 End Select
  1564.             End If
  1565.         Case 2      '日期型
  1566.             If IsDate(LrText(Index).Text) Then
  1567.                 LrText(Index).Text = Format(LrText(Index).Text, "yyyy-mm-dd")
  1568.                 If Val(Mid(LrText(Index), 1, 4)) < 1900 Then
  1569.                     LrText(Index).Text = "1900" + Mid(LrText(Index), 5, 6)
  1570.                 End If
  1571.             Else
  1572.                 Tsxx = "非法公历日期!(格式:" + Format(Date, "yyyy-mm-dd") + ")"
  1573.                 Call Xtxxts(Tsxx, 0, 1)
  1574.                 LrText(Index).SetFocus
  1575.                 Exit Function
  1576.             End If
  1577.         Case 3      '其他类型
  1578.             If Index = 0 Then
  1579.                 Dim I As Integer, LevelLeng As Integer, tf As Boolean
  1580.                 For I = 1 To Len(CodScheme)
  1581.                     LevelLeng = LevelLeng + Val(Mid(CodScheme, I, 1))
  1582.                     If Len(Trim(LrText(0))) = LevelLeng Then
  1583.                         tf = True: Exit For
  1584.                     Else
  1585.                         tf = False
  1586.                     End If
  1587.                 Next I
  1588.                 '--------------
  1589.                 If tf = False Then
  1590.                     Tsxx = "非法编码方式!  "
  1591.                     Call Xtxxts(Tsxx, 0, 1)
  1592.                     LrText(Index).SetFocus
  1593.                     Exit Function
  1594.                 End If
  1595.                 '---------------
  1596.                 If Len(Trim(LrText(0))) <> Val(Mid(CodScheme, 1, 1)) Then
  1597.                     With CzxsGrid
  1598.                         ParentCode = Mid(Trim(LrText(0)), 1, LevelLeng - Val(Mid(CodScheme, I, 1)))
  1599.                         code_row = .FindRow(ParentCode, , Sydz("001", GridStr(), Szzls))
  1600.                         If code_row = -1 Then
  1601.                             ParentCode = ""
  1602.                             Tsxx = "没有上级编码!  "
  1603.                             Call Xtxxts(Tsxx, 0, 1)
  1604.                             LrText(Index).SetFocus
  1605.                             Exit Function
  1606.                         End If
  1607.                     End With
  1608.                 End If
  1609.                 CodeLevel = I
  1610.             End If
  1611.     End Select
  1612.     '如果有效则加锁,用户不改变内容则不再进行有效性判断
  1613.     TextValiJudgeLock(Index) = True
  1614.     
  1615.     '调用文本框事后处理程序
  1616.     Call Wbklrwbcl(Index)
  1617.     
  1618.     '有效性判断通过则返回True
  1619.     TextYxxpd = True
  1620.    
  1621. End Function
  1623. Sub Add_Tree() '添加树项
  1624.     
  1625.     Dim aDo_Sort As New Recordset
  1626.     TreeView.Nodes.Clear
  1627.     TreeView.Nodes.Add , 4, "T", "部门", "T"
  1628.     
  1629.     Set aDo_Sort = Cw_DataEnvi.DataConnect.Execute("select a.*,mj=(select count(*) from Gy_Department where Gy_Department.ParentCode=a.deptCode) from Gy_Department a order by a.deptCode")
  1630.     With aDo_Sort
  1631.         Do While Not .EOF
  1632.             If Trim("" & aDo_Sort!ParentCode) = "" Then
  1633.                 If !mj < 1 Then
  1634.                     Set nodX = TreeView.Nodes.Add("T", 4, "T" & Trim(.Fields("deptcode")), "(" & Trim(.Fields("deptcode")) & ")" & Trim(.Fields("deptname")), "C")
  1635.                 Else
  1636.                     Set nodX = TreeView.Nodes.Add("T", 4, "T" & Trim(.Fields("deptcode")), "(" & Trim(.Fields("deptcode")) & ")" & Trim(.Fields("deptname")), "Cl")
  1637.                 End If
  1638.                 nodX.EnsureVisible
  1639.             Else
  1640.                 If !mj < 1 Then
  1641.                     Set nodX = TreeView.Nodes.Add("T" & Trim(!ParentCode), 4, "T" & Trim(.Fields("deptcode")), "(" & Trim(.Fields("deptcode")) & ")" & Trim(.Fields("deptname")), "C")
  1642.                 Else
  1643.                     Set nodX = TreeView.Nodes.Add("T" & Trim(!ParentCode), 4, "T" & Trim(.Fields("deptcode")), "(" & Trim(.Fields("deptcode")) & ")" & Trim(.Fields("deptname")), "Cl")
  1644.                 End If
  1645.             End If
  1646.             .MoveNext
  1647.         Loop
  1648.     End With
  1649. End Sub
  1650.  
  1651. '编码方案
  1652. Sub Text_CodScheme()
  1653.     
  1654.     Dim aDo_Sort As New Recordset
  1655.     Dim I As Integer, h As Integer
  1656.     Set aDo_Sort = Cw_DataEnvi.DataConnect.Execute("select * from Gy_CodeScheme where ItemCode='" & Trim(CodSchemeIndex) & "'")
  1657.     CodScheme = Trim(aDo_Sort!codescheme)
  1658.     aDo_Sort.Close
  1659.     '-------------
  1660.     StTab.Tab = 1
  1661.     Lbl_codescheme.Caption = ""
  1662.     For I = 1 To Len(CodScheme)
  1663.         For h = 1 To Val(Mid(CodScheme, I, 1))
  1664.             Lbl_codescheme = Lbl_codescheme & "*"
  1665.         Next
  1666.         Lbl_codescheme = Lbl_codescheme & " "
  1667.     Next I
  1668.     Lbl_codescheme = Trim(Lbl_codescheme)
  1670. End Sub