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

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