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

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