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

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

企业管理

开发平台：

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