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

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

企业管理

开发平台：

Visual Basic

+：源码内容
  1. VERSION 5.00
  2. Object = "{65A39231-6133-11D1-BAA2-444553540000}#1.0#0"; "VSLIGHT6.OCX"
  3. Object = "{D76D7128-4A96-11D3-BD95-D296DC2DD072}#1.0#0"; "VSOCX7.OCX"
  4. Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
  5. Object = "{BDC217C8-ED16-11CD-956C-0000C04E4C0A}#1.1#0"; "tabctl32.ocx"
  6. Begin VB.Form Set_ArItemsFrm 
  7.    BorderStyle     =   1  'Fixed Single
  8.    Caption         =   "档案细节设置"
  9.    ClientHeight    =   6570
  10.    ClientLeft      =   45
  11.    ClientTop       =   330
  12.    ClientWidth     =   9735
  13.    HelpContextID   =   12006
  14.    Icon            =   "设置_档案细节设置.frx":0000
  15.    KeyPreview      =   -1  'True
  16.    LinkTopic       =   "Form2"
  17.    MaxButton       =   0   'False
  18.    MinButton       =   0   'False
  19.    ScaleHeight     =   6570
  20.    ScaleWidth      =   9735
  21.    StartUpPosition =   2  '屏幕中心
  22.    Begin MSComctlLib.Toolbar SzToolbar 
  23.       Align           =   1  'Align Top
  24.       Height          =   570
  25.       Left            =   0
  26.       TabIndex        =   10
  27.       Top             =   0
  28.       Width           =   9735
  29.       _ExtentX        =   17171
  30.       _ExtentY        =   1005
  31.       ButtonWidth     =   820
  32.       ButtonHeight    =   953
  33.       AllowCustomize  =   0   'False
  34.       Appearance      =   1
  35.       Style           =   1
  36.       ImageList       =   "ImageList1"
  37.       _Version        =   393216
  38.       BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628} 
  39.          NumButtons      =   13
  40.          BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  41.             Caption         =   "设置"
  42.             Key             =   "ymsz"
  43.             ImageIndex      =   1
  44.          EndProperty
  45.          BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  46.             Caption         =   "打印"
  47.             Key             =   "dy"
  48.             ImageIndex      =   2
  49.          EndProperty
  50.          BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  51.             Caption         =   "预览"
  52.             Key             =   "yl"
  53.             ImageIndex      =   3
  54.          EndProperty
  55.          BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  56.             Style           =   3
  57.          EndProperty
  58.          BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  59.             Caption         =   "增加"
  60.             Key             =   "zj"
  61.             ImageIndex      =   4
  62.          EndProperty
  63.          BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  64.             Caption         =   "修改"
  65.             Key             =   "xg"
  66.             ImageIndex      =   5
  67.          EndProperty
  68.          BeginProperty Button7 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  69.             Caption         =   "删除"
  70.             Key             =   "sc"
  71.             ImageIndex      =   6
  72.          EndProperty
  73.          BeginProperty Button8 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  74.             Style           =   3
  75.          EndProperty
  76.          BeginProperty Button9 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  77.             Caption         =   "调整"
  78.             Key             =   "FaceSet"
  79.             ImageIndex      =   13
  80.          EndProperty
  81.          BeginProperty Button10 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  82.             Object.Visible         =   0   'False
  83.             Caption         =   "刷新"
  84.             Key             =   "sx"
  85.             ImageIndex      =   7
  86.          EndProperty
  87.          BeginProperty Button11 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  88.             Style           =   3
  89.          EndProperty
  90.          BeginProperty Button12 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  91.             Caption         =   "帮助"
  92.             Key             =   "bz"
  93.             ImageIndex      =   8
  94.          EndProperty
  95.          BeginProperty Button13 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  96.             Caption         =   "退出"
  97.             Key             =   "fh"
  98.             ImageIndex      =   9
  99.          EndProperty
  100.       EndProperty
  101.       BorderStyle     =   1
  102.       Begin MSComctlLib.ImageList ImageList1 
  103.          Left            =   5640
  104.          Top             =   120
  105.          _ExtentX        =   1005
  106.          _ExtentY        =   1005
  107.          BackColor       =   -2147483643
  108.          ImageWidth      =   16
  109.          ImageHeight     =   16
  110.          MaskColor       =   12632256
  111.          _Version        =   393216
  112.          BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628} 
  113.             NumListImages   =   13
  114.             BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  115.                Picture         =   "设置_档案细节设置.frx":1042
  116.                Key             =   "sz"
  117.             EndProperty
  118.             BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  119.                Picture         =   "设置_档案细节设置.frx":13DC
  120.                Key             =   "dy"
  121.             EndProperty
  122.             BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  123.                Picture         =   "设置_档案细节设置.frx":1776
  124.                Key             =   "yl"
  125.             EndProperty
  126.             BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  127.                Picture         =   "设置_档案细节设置.frx":1B10
  128.                Key             =   "xz"
  129.             EndProperty
  130.             BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  131.                Picture         =   "设置_档案细节设置.frx":1EAA
  132.                Key             =   "xg"
  133.             EndProperty
  134.             BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  135.                Picture         =   "设置_档案细节设置.frx":2244
  136.                Key             =   "sc"
  137.             EndProperty
  138.             BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  139.                Picture         =   "设置_档案细节设置.frx":25DE
  140.                Key             =   "sx"
  141.             EndProperty
  142.             BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  143.                Picture         =   "设置_档案细节设置.frx":2978
  144.                Key             =   "bz"
  145.             EndProperty
  146.             BeginProperty ListImage9 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  147.                Picture         =   "设置_档案细节设置.frx":2D12
  148.                Key             =   "tc"
  149.             EndProperty
  150.             BeginProperty ListImage10 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  151.                Picture         =   "设置_档案细节设置.frx":30AC
  152.                Key             =   "bcgs"
  153.             EndProperty
  154.             BeginProperty ListImage11 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  155.                Picture         =   "设置_档案细节设置.frx":3446
  156.                Key             =   "mrlk"
  157.             EndProperty
  158.             BeginProperty ListImage12 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  159.                Picture         =   "设置_档案细节设置.frx":37E0
  160.                Key             =   "xsxm"
  161.             EndProperty
  162.             BeginProperty ListImage13 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  163.                Picture         =   "设置_档案细节设置.frx":3B7A
  164.                Key             =   "gs"
  165.             EndProperty
  166.          EndProperty
  167.       End
  168.       Begin MSComctlLib.Toolbar GsToolbar 
  169.          Height          =   540
  170.          Left            =   7200
  171.          TabIndex        =   11
  172.          Top             =   0
  173.          Width           =   2505
  174.          _ExtentX        =   4419
  175.          _ExtentY        =   953
  176.          ButtonWidth     =   1455
  177.          ButtonHeight    =   953
  178.          Appearance      =   1
  179.          Style           =   1
  180.          ImageList       =   "ImageList1"
  181.          _Version        =   393216
  182.          BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628} 
  183.             NumButtons      =   3
  184.             BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  185.                Caption         =   "保存格式"
  186.                Key             =   "bcgs"
  187.                ImageIndex      =   10
  188.             EndProperty
  189.             BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  190.                Caption         =   "默认列宽"
  191.                Key             =   "hfmrgs"
  192.                ImageIndex      =   11
  193.             EndProperty
  194.             BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  195.                Caption         =   "显示项目"
  196.                Key             =   "szxsxm"
  197.                ImageIndex      =   12
  198.             EndProperty
  199.          EndProperty
  200.       End
  201.    End
  202.    Begin MSComctlLib.TreeView Tree_List 
  203.       Height          =   5745
  204.       Left            =   60
  205.       TabIndex        =   16
  206.       Top             =   750
  207.       Width           =   2625
  208.       _ExtentX        =   4630
  209.       _ExtentY        =   10134
  210.       _Version        =   393217
  211.       Indentation     =   661
  212.       LabelEdit       =   1
  213.       LineStyle       =   1
  214.       Style           =   7
  215.       ImageList       =   "ImageList2"
  216.       Appearance      =   1
  217.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  218.          Name            =   "宋体"
  219.          Size            =   9
  220.          Charset         =   134
  221.          Weight          =   400
  222.          Underline       =   0   'False
  223.          Italic          =   0   'False
  224.          Strikethrough   =   0   'False
  225.       EndProperty
  226.    End
  227.    Begin TabDlg.SSTab StTab 
  228.       Height          =   5790
  229.       Left            =   2790
  230.       TabIndex        =   9
  231.       Top             =   720
  232.       Width           =   6885
  233.       _ExtentX        =   12144
  234.       _ExtentY        =   10213
  235.       _Version        =   393216
  236.       Style           =   1
  237.       TabHeight       =   520
  238.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  239.          Name            =   "宋体"
  240.          Size            =   9
  241.          Charset         =   134
  242.          Weight          =   400
  243.          Underline       =   0   'False
  244.          Italic          =   0   'False
  245.          Strikethrough   =   0   'False
  246.       EndProperty
  247.       TabCaption(0)   =   "列表视图"
  248.       TabPicture(0)   =   "设置_档案细节设置.frx":3F14
  249.       Tab(0).ControlEnabled=   -1  'True
  250.       Tab(0).Control(0)=   "Label1"
  251.       Tab(0).Control(0).Enabled=   0   'False
  252.       Tab(0).Control(1)=   "F_Sort"
  253.       Tab(0).Control(1).Enabled=   0   'False
  254.       Tab(0).Control(2)=   "CzxsGrid"
  255.       Tab(0).Control(2).Enabled=   0   'False
  256.       Tab(0).ControlCount=   3
  257.       TabCaption(1)   =   "单张视图"
  258.       TabPicture(1)   =   "设置_档案细节设置.frx":3F30
  259.       Tab(1).ControlEnabled=   0   'False
  260.       Tab(1).Control(0)=   "Frame1"
  261.       Tab(1).ControlCount=   1
  262.       TabCaption(2)   =   "界面设置"
  263.       TabPicture(2)   =   "设置_档案细节设置.frx":3F4C
  264.       Tab(2).ControlEnabled=   0   'False
  265.       Tab(2).Control(0)=   "Fra_face"
  266.       Tab(2).ControlCount=   1
  267.       Begin VB.Frame Fra_face 
  268.          Height          =   5190
  269.          Left            =   -74865
  270.          TabIndex        =   27
  271.          Top             =   450
  272.          Width           =   6585
  273.          Begin VB.CommandButton Cmd_No 
  274.             Caption         =   "取消(&C)"
  275.             Height          =   300
  276.             Left            =   3600
  277.             TabIndex        =   32
  278.             Top             =   4680
  279.             Width           =   1100
  280.          End
  281.          Begin VB.CommandButton Cmd_Yes 
  282.             Caption         =   "保存(&S)"
  283.             Height          =   300
  284.             Left            =   2295
  285.             TabIndex        =   7
  286.             Top             =   4680
  287.             Width           =   1100
  288.          End
  289.          Begin VSFlex8Ctl.VSFlexGrid vsFlexGrid1 
  290.             Height          =   3030
  291.             Left            =   270
  292.             TabIndex        =   31
  293.             Top             =   1395
  294.             Width           =   6045
  295.             _ExtentX        =   10663
  296.             _ExtentY        =   5345
  297.             Appearance      =   1
  298.             BorderStyle     =   1
  299.             Enabled         =   -1  'True
  300.             BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  301.                Name            =   "宋体"
  302.                Size            =   9
  303.                Charset         =   134
  304.                Weight          =   400
  305.                Underline       =   0   'False
  306.                Italic          =   0   'False
  307.                Strikethrough   =   0   'False
  308.             EndProperty
  309.             MousePointer    =   0
  310.             BackColor       =   -2147483643
  311.             ForeColor       =   -2147483640
  312.             BackColorFixed  =   -2147483633
  313.             ForeColorFixed  =   -2147483630
  314.             BackColorSel    =   -2147483635
  315.             ForeColorSel    =   -2147483634
  316.             BackColorBkg    =   -2147483636
  317.             BackColorAlternate=   -2147483643
  318.             GridColor       =   -2147483633
  319.             GridColorFixed  =   -2147483632
  320.             TreeColor       =   -2147483632
  321.             FloodColor      =   192
  322.             SheetBorder     =   -2147483642
  323.             FocusRect       =   1
  324.             HighLight       =   1
  325.             AllowSelection  =   -1  'True
  326.             AllowBigSelection=   -1  'True
  327.             AllowUserResizing=   0
  328.             SelectionMode   =   0
  329.             GridLines       =   1
  330.             GridLinesFixed  =   2
  331.             GridLineWidth   =   1
  332.             Rows            =   50
  333.             Cols            =   10
  334.             FixedRows       =   1
  335.             FixedCols       =   1
  336.             RowHeightMin    =   0
  337.             RowHeightMax    =   0
  338.             ColWidthMin     =   0
  339.             ColWidthMax     =   0
  340.             ExtendLastCol   =   0   'False
  341.             FormatString    =   ""
  342.             ScrollTrack     =   0   'False
  343.             ScrollBars      =   3
  344.             ScrollTips      =   0   'False
  345.             MergeCells      =   0
  346.             MergeCompare    =   0
  347.             AutoResize      =   -1  'True
  348.             AutoSizeMode    =   0
  349.             AutoSearch      =   0
  350.             MultiTotals     =   -1  'True
  351.             SubtotalPosition=   1
  352.             OutlineBar      =   0
  353.             OutlineCol      =   0
  354.             Ellipsis        =   0
  355.             ExplorerBar     =   0
  356.             PicturesOver    =   0   'False
  357.             FillStyle       =   0
  358.             RightToLeft     =   0   'False
  359.             PictureType     =   0
  360.             TabBehavior     =   0
  361.             OwnerDraw       =   0
  362.             Editable        =   0   'False
  363.             ShowComboButton =   -1  'True
  364.             WordWrap        =   0   'False
  365.             TextStyle       =   0
  366.             TextStyleFixed  =   0
  367.             OleDragMode     =   0
  368.             OleDropMode     =   0
  369.             DataMode        =   0
  370.             VirtualData     =   -1  'True
  371.          End
  372.          Begin VB.TextBox Txt_DataLineH 
  373.             Height          =   300
  374.             Left            =   4680
  375.             TabIndex        =   30
  376.             Text            =   "Text2"
  377.             Top             =   675
  378.             Visible         =   0   'False
  379.             Width           =   1275
  380.          End
  381.          Begin VB.TextBox Txt_TitleH 
  382.             Height          =   300
  383.             Left            =   1935
  384.             TabIndex        =   6
  385.             Text            =   "Text1"
  386.             Top             =   630
  387.             Width           =   1275
  388.          End
  389.          Begin VB.Label lbl_datalineH 
  390.             Caption         =   "数据行高度:"
  391.             Height          =   255
  392.             Left            =   3600
  393.             TabIndex        =   29
  394.             Top             =   705
  395.             Visible         =   0   'False
  396.             Width           =   1095
  397.          End
  398.          Begin VB.Label lbl_titleH 
  399.             Caption         =   "标题行高度:"
  400.             Height          =   255
  401.             Left            =   855
  402.             TabIndex        =   28
  403.             Top             =   660
  404.             Width           =   1095
  405.          End
  406.       End
  407.       Begin VB.Frame Frame1 
  408.          Height          =   5360
  409.          Left            =   -74910
  410.          TabIndex        =   13
  411.          Top             =   320
  412.          Width           =   6705
  413.          Begin VB.ComboBox Cbo_ItmType 
  414.             Height          =   300
  415.             Left            =   1575
  416.             TabIndex        =   1
  417.             Top             =   1110
  418.             Width           =   1900
  419.          End
  420.          Begin VB.TextBox LrText 
  421.             Height          =   300
  422.             Index           =   0
  423.             Left            =   1575
  424.             TabIndex        =   0
  425.             Text            =   "Text1"
  426.             Top             =   720
  427.             Width           =   1900
  428.          End
  429.          Begin VB.ComboBox Cbo_Align 
  430.             Height          =   300
  431.             Left            =   1575
  432.             TabIndex        =   4
  433.             Top             =   2295
  434.             Width           =   1900
  435.          End
  436.          Begin VB.TextBox LrText 
  437.             Height          =   300
  438.             Index           =   1
  439.             Left            =   1575
  440.             TabIndex        =   2
  441.             Text            =   "1"
  442.             Top             =   1500
  443.             Width           =   1900
  444.          End
  445.          Begin VB.TextBox LrText 
  446.             Height          =   300
  447.             Index           =   2
  448.             Left            =   1575
  449.             TabIndex        =   3
  450.             Text            =   "2"
  451.             Top             =   1905
  452.             Width           =   1900
  453.          End
  454.          Begin VB.CheckBox A_YNStop 
  455.             Caption         =   "停用"
  456.             Height          =   375
  457.             Left            =   5400
  458.             TabIndex        =   15
  459.             Top             =   548
  460.             Visible         =   0   'False
  461.             Width           =   1095
  462.          End
  463.          Begin VB.CommandButton Ydcommand1 
  464.             Height          =   289
  465.             Index           =   0
  466.             Left            =   6225
  467.             Picture         =   "设置_档案细节设置.frx":3F68
  468.             Style           =   1  'Graphical
  469.             TabIndex        =   14
  470.             Top             =   240
  471.             Visible         =   0   'False
  472.             Width           =   315
  473.          End
  474.          Begin VB.CommandButton QxCommand 
  475.             Cancel          =   -1  'True
  476.             Caption         =   "取消(&C)"
  477.             Height          =   300
  478.             Left            =   2355
  479.             TabIndex        =   8
  480.             Top             =   2865
  481.             Width           =   1120
  482.          End
  483.          Begin VB.CommandButton BcCommand 
  484.             Caption         =   "保存(&S)"
  485.             Height          =   300
  486.             Left            =   1125
  487.             TabIndex        =   5
  488.             Top             =   2865
  489.             Width           =   1120
  490.          End
  491.          Begin VB.Label TsLabel 
  492.             AutoSize        =   -1  'True
  493.             Caption         =   "项目类型:"
  494.             Height          =   180
  495.             Index           =   1
  496.             Left            =   540
  497.             TabIndex        =   26
  498.             Top             =   1170
  499.             Width           =   810
  500.          End
  501.          Begin VB.Label TsLabel 
  502.             AutoSize        =   -1  'True
  503.             Caption         =   "项目名称:"
  504.             Height          =   180
  505.             Index           =   0
  506.             Left            =   540
  507.             TabIndex        =   25
  508.             Top             =   780
  509.             Width           =   810
  510.          End
  511.          Begin VB.Label TsLabel 
  512.             AutoSize        =   -1  'True
  513.             Caption         =   "长度:"
  514.             Height          =   180
  515.             Index           =   2
  516.             Left            =   540
  517.             TabIndex        =   24
  518.             Top             =   1560
  519.             Width           =   450
  520.          End
  521.          Begin VB.Label TsLabel 
  522.             AutoSize        =   -1  'True
  523.             Caption         =   "小数位数:"
  524.             Height          =   180
  525.             Index           =   3
  526.             Left            =   540
  527.             TabIndex        =   23
  528.             Top             =   1965
  529.             Width           =   810
  530.          End
  531.          Begin VB.Label TsLabel 
  532.             AutoSize        =   -1  'True
  533.             Caption         =   "对齐方式:"
  534.             Height          =   180
  535.             Index           =   4
  536.             Left            =   540
  537.             TabIndex        =   22
  538.             Top             =   2355
  539.             Width           =   810
  540.          End
  541.          Begin VB.Label Lbl_Indicate 
  542.             Height          =   465
  543.             Left            =   630
  544.             TabIndex        =   21
  545.             Top             =   3825
  546.             Visible         =   0   'False
  547.             Width           =   4425
  548.          End
  549.          Begin VB.Label F_Sort1 
  550.             BeginProperty Font 
  551.                Name            =   "宋体"
  552.                Size            =   9
  553.                Charset         =   134
  554.                Weight          =   700
  555.                Underline       =   0   'False
  556.                Italic          =   0   'False
  557.                Strikethrough   =   0   'False
  558.             EndProperty
  559.             Height          =   255
  560.             Left            =   1575
  561.             TabIndex        =   20
  562.             Top             =   375
  563.             Width           =   1935
  564.          End
  565.          Begin VB.Label Label2 
  566.             Caption         =   "类别:"
  567.             BeginProperty Font 
  568.                Name            =   "宋体"
  569.                Size            =   9
  570.                Charset         =   134
  571.                Weight          =   700
  572.                Underline       =   0   'False
  573.                Italic          =   0   'False
  574.                Strikethrough   =   0   'False
  575.             EndProperty
  576.             Height          =   255
  577.             Left            =   540
  578.             TabIndex        =   19
  579.             Top             =   375
  580.             Width           =   855
  581.          End
  582.       End
  583.       Begin VSFlex8Ctl.VSFlexGrid CzxsGrid 
  584.          Height          =   4755
  585.          Left            =   90
  586.          TabIndex        =   12
  587.          Top             =   930
  588.          Width           =   6705
  589.          _ExtentX        =   11827
  590.          _ExtentY        =   8387
  591.          Appearance      =   1
  592.          BorderStyle     =   1
  593.          Enabled         =   -1  'True
  594.          BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  595.             Name            =   "宋体"
  596.             Size            =   9
  597.             Charset         =   134
  598.             Weight          =   400
  599.             Underline       =   0   'False
  600.             Italic          =   0   'False
  601.             Strikethrough   =   0   'False
  602.          EndProperty
  603.          MousePointer    =   0
  604.          BackColor       =   -2147483643
  605.          ForeColor       =   -2147483640
  606.          BackColorFixed  =   -2147483633
  607.          ForeColorFixed  =   -2147483630
  608.          BackColorSel    =   -2147483635
  609.          ForeColorSel    =   -2147483634
  610.          BackColorBkg    =   8421504
  611.          BackColorAlternate=   -2147483643
  612.          GridColor       =   -2147483633
  613.          GridColorFixed  =   -2147483632
  614.          TreeColor       =   -2147483632
  615.          FloodColor      =   192
  616.          SheetBorder     =   -2147483642
  617.          FocusRect       =   1
  618.          HighLight       =   1
  619.          AllowSelection  =   -1  'True
  620.          AllowBigSelection=   -1  'True
  621.          AllowUserResizing=   0
  622.          SelectionMode   =   0
  623.          GridLines       =   1
  624.          GridLinesFixed  =   2
  625.          GridLineWidth   =   1
  626.          Rows            =   5000
  627.          Cols            =   10
  628.          FixedRows       =   1
  629.          FixedCols       =   0
  630.          RowHeightMin    =   0
  631.          RowHeightMax    =   0
  632.          ColWidthMin     =   0
  633.          ColWidthMax     =   0
  634.          ExtendLastCol   =   0   'False
  635.          FormatString    =   ""
  636.          ScrollTrack     =   0   'False
  637.          ScrollBars      =   3
  638.          ScrollTips      =   0   'False
  639.          MergeCells      =   0
  640.          MergeCompare    =   0
  641.          AutoResize      =   -1  'True
  642.          AutoSizeMode    =   0
  643.          AutoSearch      =   0
  644.          MultiTotals     =   -1  'True
  645.          SubtotalPosition=   1
  646.          OutlineBar      =   0
  647.          OutlineCol      =   0
  648.          Ellipsis        =   0
  649.          ExplorerBar     =   0
  650.          PicturesOver    =   0   'False
  651.          FillStyle       =   0
  652.          RightToLeft     =   0   'False
  653.          PictureType     =   0
  654.          TabBehavior     =   0
  655.          OwnerDraw       =   0
  656.          Editable        =   0   'False
  657.          ShowComboButton =   -1  'True
  658.          WordWrap        =   0   'False
  659.          TextStyle       =   0
  660.          TextStyleFixed  =   0
  661.          OleDragMode     =   0
  662.          OleDropMode     =   0
  663.          DataMode        =   0
  664.          VirtualData     =   -1  'True
  665.       End
  666.       Begin VB.Label F_Sort 
  667.          BeginProperty Font 
  668.             Name            =   "宋体"
  669.             Size            =   9
  670.             Charset         =   134
  671.             Weight          =   700
  672.             Underline       =   0   'False
  673.             Italic          =   0   'False
  674.             Strikethrough   =   0   'False
  675.          EndProperty
  676.          Height          =   255
  677.          Left            =   720
  678.          TabIndex        =   18
  679.          Top             =   480
  680.          Width           =   2055
  681.       End
  682.       Begin VB.Label Label1 
  683.          AutoSize        =   -1  'True
  684.          Caption         =   "类别:"
  685.          BeginProperty Font 
  686.             Name            =   "宋体"
  687.             Size            =   9
  688.             Charset         =   134
  689.             Weight          =   700
  690.             Underline       =   0   'False
  691.             Italic          =   0   'False
  692.             Strikethrough   =   0   'False
  693.          EndProperty
  694.          Height          =   180
  695.          Left            =   120
  696.          TabIndex        =   17
  697.          Top             =   517
  698.          Width           =   510
  699.       End
  700.    End
  701.    Begin MSComctlLib.ImageList ImageList2 
  702.       Left            =   0
  703.       Top             =   0
  704.       _ExtentX        =   1005
  705.       _ExtentY        =   1005
  706.       BackColor       =   -2147483643
  707.       ImageWidth      =   16
  708.       ImageHeight     =   16
  709.       MaskColor       =   12632256
  710.       _Version        =   393216
  711.       BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628} 
  712.          NumListImages   =   4
  713.          BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  714.             Picture         =   "设置_档案细节设置.frx":42F2
  715.             Key             =   "xttb"
  716.          EndProperty
  717.          BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  718.             Picture         =   "设置_档案细节设置.frx":4BCC
  719.             Key             =   "gnqx"
  720.          EndProperty
  721.          BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  722.             Picture         =   "设置_档案细节设置.frx":54A6
  723.             Key             =   "stb"
  724.          EndProperty
  725.          BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  726.             Picture         =   "设置_档案细节设置.frx":64F8
  727.             Key             =   "szk"
  728.          EndProperty
  729.       EndProperty
  730.    End
  731. End
  732. Attribute VB_Name = "Set_ArItemsFrm"
  733. Attribute VB_GlobalNameSpace = False
  734. Attribute VB_Creatable = False
  735. Attribute VB_PredeclaredId = True
  736. Attribute VB_Exposed = False
  737. '*******************************************************
  738. '*    模块名称    ：档案细节设置设置
  739. '*    功能描述    : 设置档案项目、界面的模块
  740. '*    程序员姓名  : 刘刚
  741. '*    最后修改人  : 刘刚
  742. '*    最后修改时间:2001/12/03
  743. '*    备        注:经过自己测试
  744. '*******************************************************
  745.  
  746. Dim RecDigest As New ADODB.Recordset     '常用摘要表
  747. Dim jdzygs As Integer                    '控件焦点转移个数
  748. Dim Lrzt As Integer                      '录入状态标志(0-非录入状态 1-增加 2-修改)
  749. Dim ReportTitle As String                '报表主标题
  750. Dim Str_RightEdit As String             '编辑(新增、修改、删除)权限索引
  752.   
  753. '以下为固定使用变量(网格)
  754. Dim Cxnrrec As New ADODB.Recordset       '显示查询内容动态集
  755. Dim Dyymctbl As New DY_Dyymsz            '打印页面窗体变量
  756. Dim GridCode As String                   '显示网格网格代码
  757. Dim GridInf() As Variant                 '整个网格设置信息
  758. Dim Tsxx As String                       '系统提示信息
  759. Dim Qslz As Long                         '网格隐藏(非操作显示)列数
  760. Dim Sjhgd As Double                      '网格数据行高度
  761. Dim GridBoolean() As Boolean             '网格列信息(布尔型)
  762. Dim GridStr()  As String                 '网格列信息(字符型)
  763. Dim GridInt() As Integer                 '网格列信息(整型)
  764. Dim Szzls As Integer                     '数组总列数(网格列数-1)
  766. '以下为固定使用变量(文本框)
  767. Dim Textvar() As Variant                 '存储变体型文本框信息
  768. Dim Textboolean() As Boolean             '存储布尔型文本框信息
  769. Dim Textint() As Integer                 '存储整型文本框信息
  770. Dim Textstr() As String                  '存储字符型文本框信息
  771. Dim Max_Text_Index As Integer            '最大录入文本框索引值
  772. Dim TextGroupCode As String              '文本框录入分组编码
  773. Dim TextValiLock As Boolean              '文本框失去焦点是否进行有效性控制判断
  774. Dim TextValiJudgeLock() As Boolean       '文本框录入有效性判断控制锁
  775. Dim CurTextIndex As Integer              '当前文本框索引值
  776. Dim TextChangeLock As Boolean            '文本框内容变换控制锁
  778. '<<<<<<<<<<<<<<<<<<
  779. Dim nodX As Node
  780. Dim sortId As Integer
  781. Dim listId As Integer
  783. Private Sub Cmd_No_Click()
  784.     '首先要把主表的网格重新刷新
  785.     GridCode = "Rs_SetArItems"
  786.     Call BzWgcsh(CzxsGrid, GridCode, GridInf(), GridBoolean(), GridInt(), GridStr())
  787.     
  788.     '设置网格的列属性不可移动
  789.     sSql = "UPDATE Xt_Grid SET explorerbar=0 WHERE System_Code='Rs_User' AND ColIndex = '000' "
  790.     Cw_DataEnvi.DataConnect.Execute (sSql)
  791.     
  792.     Qslz = GridInf(1)
  793.     Sjhgd = GridInf(2)
  794.     Szzls = CzxsGrid.Cols - 1
  795.     
  796.     Call Tree_List_Click
  797.     Call Toolfbjzt
  798.     
  799.     With GsToolbar
  800.         .Buttons("bcgs").Enabled = True
  801.         .Buttons("hfmrgs").Enabled = True
  802.         .Buttons("szxsxm").Enabled = True
  803.     End With
  804.     Fra_face.Enabled = False
  805. End Sub
  807. Private Sub Cmd_Yes_Click()
  808.     If Not TxtDataPass(Txt_TitleH) Then Exit Sub
  809.     Call Bcwggs_U(vsFlexGrid1, GridCode, GridStr())
  810.     Call BzWgcsh(vsFlexGrid1, GridCode, GridInf(), GridBoolean(), GridInt(), GridStr())
  811.     vsFlexGrid1.ColHidden(Sydz("001", GridStr(), Szzls)) = True
  812.     vsFlexGrid1.ColHidden(Sydz("002", GridStr(), Szzls)) = True
  813.     vsFlexGrid1.AddItem ""
  814. End Sub
  817. Private Sub Form_KeyPress(KeyAscii As Integer)   '控 制 焦 点 转 移
  818.     
  819.     jdzygs = 5
  820.     Select Case KeyAscii
  821.         
  822.         Case vbKeyReturn
  823.             If Kjjdzy(jdzygs) Then
  824.                 KeyAscii = 0
  825.             End If
  826.         Case 39           '屏蔽"'"
  827.             KeyAscii = 0
  828.     End Select
  830. End Sub
  832. Private Sub Form_Load()
  833.   
  834.   
  835.     '定义可变部分变量
  836.     ReportTitle = "档案项目"
  837.   
  838.     '调入打印页面设置窗体
  840.     XtReportCode = "Rs_SetArItems"
  841.     Load Dyymctbl
  842.   
  843.     '以下为文本框处理程序
  844.     Add_Tree
  845.   
  846.     TextGroupCode = "Rs_SetArItems"
  847.     Call Drwbkxx(TextGroupCode, Textvar(), Textboolean(), Textint(), Textstr())  '读入文本框录入信息
  848.     Call Wbkcsh
  849.   
  850.     '调 入 网 格
  851.     GridCode = "Rs_SetArItems"
  852.   
  853.     Call BzWgcsh(CzxsGrid, GridCode, GridInf(), GridBoolean(), GridInt(), GridStr())
  854.   
  855.     Qslz = GridInf(1)
  856.     Sjhgd = GridInf(2)
  857.     Szzls = CzxsGrid.Cols - 1
  858.   
  859.     '填 充 网 格
  860.     ' Call Cxnrtcwg
  861.        
  862.     '初始化toolbar,tab卡状态
  863.        
  864.     StTab.Tab = 0
  865.     StTab.TabEnabled(1) = False
  866.     StTab.TabEnabled(2) = False
  867.     Frame1.Enabled = False
  868.     Lrzt = 0
  869.     
  870.     Call FillTypeCbo
  871.     Call FillAlignCbo
  872.     
  873.     Lbl_Indicate.Caption = "1.明细编码最多可以录入3位数字，在同一类别中不得重复" + Chr(10) _
  874.                           & "2.明细名称最长可以录入30个汉字，在所有类别中不得重复"
  875.       
  876.     '编辑(新增、修改、删除)权限索引
  877.     Str_RightEdit = "Rs_Set_ArItems_Edit"
  878. End Sub
  880. Private Sub Cxnrtcwg()                               '查 询 内 容 填 充 网 格
  881.   
  882.     Dim Sqlstr As String
  883.     Dim jsqte As Long
  884.   
  885.     '查询连接串
  886.     Sqlstr = "select * from Xt_Grid where FieldsName <> '' and FieldsName <> 'EmpNo' AND FieldsName<>'EmpName'  AND Grid_Code = '" & F_Sort.Tag & "' ORDER BY ColIndex"
  887.   
  888.     Set Cxnrrec = Cw_DataEnvi.DataConnect.Execute(Sqlstr)
  889.     With Cxnrrec
  890.         CzxsGrid.Clear , flexClearData
  891.         CzxsGrid.Rows = .RecordCount + CzxsGrid.FixedRows
  892.         If .EOF And .BOF Then
  893.             Exit Sub
  894.         End If
  895.         jsqte = CzxsGrid.FixedRows
  896.         Do While Not .EOF
  897. '            If .Fields("FieldsName") <> "EmpNo" And .Fields("FieldsName") <> "EmpName" Then
  898.                 
  899.                 If jsqte >= CzxsGrid.Rows Then
  900.                     CzxsGrid.AddItem ""
  901.                 End If
  902.                 Call Jltcwg(Cxnrrec, jsqte)
  903.                 CzxsGrid.RowHeight(jsqte) = Sjhgd
  904. '            End If
  905.             .MoveNext
  906.             jsqte = jsqte + 1
  907.             
  908.         Loop
  909.     End With
  911. End Sub
  913. Private Sub Jltcwg(Jlbrec As ADODB.Recordset, Rowjsq As Long)                                     '记录内容填充网格
  914. Dim tmpStr As String
  915.     '[以下为自定义部分
  916.     With Jlbrec
  917.         CzxsGrid.TextMatrix(Rowjsq, 0) = Trim(.Fields("FieldsName"))
  918.         CzxsGrid.TextMatrix(Rowjsq, Sydz("001", GridStr(), Szzls)) = Trim(.Fields("ColTitle1"))
  919.         CzxsGrid.TextMatrix(Rowjsq, Sydz("002", GridStr(), Szzls)) = ConvertCode2Type(Trim(.Fields("Text_Data_Type")))
  920.         CzxsGrid.TextMatrix(Rowjsq, Sydz("003", GridStr(), Szzls)) = "" & .Fields("Text_Length")
  921.         CzxsGrid.TextMatrix(Rowjsq, Sydz("004", GridStr(), Szzls)) = "" & .Fields("Text_Deci_Length")
  922.         CzxsGrid.TextMatrix(Rowjsq, Sydz("005", GridStr(), Szzls)) = ConvertCode2Align("" & .Fields("ColAlignment"))
  923.     End With
  924.     '以上为自定义部分]
  926. End Sub
  928. Private Sub Form_Resize()
  929.     
  930.     On Error Resume Next
  931.     
  932.     If Me.Height < 5000 Then Me.Height = 5000
  933.     If Me.Width < 8805 Then Me.Width = 8805
  934.   
  935. End Sub
  937. Private Sub Form_Unload(Cancel As Integer)             '窗体卸载
  938.     
  939.     Set Cxnrrec = Nothing
  940.     Unload Dyymctbl
  942. End Sub
  944. Private Function Bclrsj() As Boolean                   '判断录入数据有效性,并保存数据
  945.     
  946.     Dim jsqte As Integer
  947.     Dim sSql As String
  948.     Dim tLen As Integer                         '数字型总长度或是字符型总长度
  949.     Dim dLen As Integer                         '小数位数
  950.     
  951.     Dim nulStr As String
  952.     Dim nnulStr As String
  953.     Dim FieldName As String
  954.     Dim Colid As Integer
  955.     Dim tmpRs As New ADODB.Recordset
  956.     
  957.     Bclrsj = False
  958.     With RecDigest
  959.         For jsqte = 0 To Max_Text_Index
  960.             If Textint(jsqte, 8) = 1 Then     '字段不能为空
  961.                 If Len(Trim(LrText(jsqte).Text)) = 0 Then
  962.                     Tsxx = Textstr(jsqte, 7) & "不能为空!"
  963.                     Call Xtxxts(Tsxx, 0, 1)
  964.                     LrText(jsqte).SetFocus
  965.                     Bclrsj = False
  966.                     Exit Function
  967.                 End If
  968.             Else
  969.                 If Textint(jsqte, 8) = 2 Then   '字段不能为零
  970.                     If Val(Trim(LrText(jsqte).Text)) = 0 Then
  971.                         Tsxx = Textstr(jsqte, 7) & "不能为零!"
  972.                         Call Xtxxts(Tsxx, 0, 1)
  973.                         LrText(jsqte).SetFocus
  974.                         Bclrsj = False
  975.                         Exit Function
  976.                     End If
  977.                 End If
  978.             End If
  979.         Next jsqte
  980.     
  981.         '对需要进行事后判断的文本框录入内容进行有效性判断 (固定不变)
  982.         For jsqte = 0 To Max_Text_Index
  983.             If Textboolean(jsqte, 2) Then
  984.                 If Not TextYxxpd(jsqte) Then
  985.                     Exit Function
  986.                 End If
  987.             End If
  988.         Next jsqte
  989.     
  990.         '<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
  991.         On Error GoTo Swcwcl
  992.         
  993.         tLen = Val(Trim(LrText(1).Text))
  994.         dLen = Val(Trim(LrText(2).Text))
  995.         
  996.         If GetDataType = -1 Then
  997.                 Call Xtxxts("请选择项目类型!", 0, 3)
  998.                 Exit Function
  999.         End If
  1000.         
  1001.         If (GetDataType = 0) Then
  1002.             dLen = 0
  1003.             If tLen > 30 Then
  1004.                 Call Xtxxts("字符型长度不能大于30!", 0, 1)
  1005.                 dLen = 0
  1006.                 Exit Function
  1007.             End If
  1008.         End If
  1009.         
  1010.         If (GetDataType = 5) And (tLen - dLen > 10) Then
  1011.                 Call Xtxxts("数字型整数长度不能大于10!", 0, 1)
  1012.                 Exit Function
  1013.         End If
  1014.         If (GetDataType = 5) And (dLen > tLen - 1) Then
  1015.                 Call Xtxxts("数字型小数长度必须小于总长度!", 0, 1)
  1016.                 Exit Function
  1017.         End If
  1018.         If (GetDataType = 5) And (dLen > 2) Then
  1019.                 Call Xtxxts("数字型小数长度不能大于2!", 0, 1)
  1020.                 Exit Function
  1021.         End If
  1022.         
  1023.         
  1024.                               
  1025.             
  1026.                 
  1027.         If (GetDataType = 7) Then tLen = 10: dLen = 0
  1028.         
  1029.         If Lrzt = 1 Then  '增 加
  1031. '------------------------------------------------
  1032.             sSql = "SELECT Col=MAX(ColIndex)+1 FROM Xt_Grid WHERE Grid_Code ='" & F_Sort.Tag & "'"
  1033.             Cw_DataEnvi.DataConnect.BeginTrans
  1034.             
  1035.                 Set tmpRs = Cw_DataEnvi.DataConnect.Execute(sSql)
  1036.                 If Not tmpRs.EOF Then
  1037.                     Colid = Trim(tmpRs!Col)
  1038.                     FieldName = Trim(F_Sort.Tag) & Format(Colid - 2, "000") 'Right("000" & (Colid - 2), 3)           '去掉职工号，姓名两条记录
  1039.                 End If
  1040.                 
  1041.                 sSql = "INSERT INTO Xt_Grid (System_Code,Grid_Code,ColId,ColIndex,ColTitle1,FieldsName,ColAlignment,Text_Data_Type,Text_Length,Text_Deci_Length,Edit_Flag,SelectRow_flag,AssistantRows) " + Chr$(10) _
  1042.                 & "SELECT 'Rs_User','" & F_Sort.Tag & "','" & Colid & "','" & Format(Colid, "000") & "','" & Trim(LrText(0).Text) & "','" & FieldName & "','" & GetDataAlign & "','" & GetDataType & "','" & tLen & "','" & dLen & "','1','0','0'"
  1043.                 Cw_DataEnvi.DataConnect.Execute sSql
  1044.                 
  1045.                 sSql = "ALTER TABLE Rs_ArMain ADD " & FieldName & " NVARCHAR(30) NULL"
  1046.                 Cw_DataEnvi.DataConnect.Execute sSql
  1047.             
  1048.             Cw_DataEnvi.DataConnect.CommitTrans
  1049.             Sqlstr = "SELECT * FROM Xt_Grid WHERE FieldsName ='" & FieldName & "'"
  1050.             Set Cxnrrec = Cw_DataEnvi.DataConnect.Execute(Sqlstr)
  1051.             With CzxsGrid
  1052.                 .AddItem ""
  1053.                 .RowHeight(.Rows - 1) = Sjhgd
  1054.                 .Select .Rows - 1, Qslz
  1055.                 Call Jltcwg(Cxnrrec, .Rows - 1)
  1056.             End With
  1057.             Cxnrrec.Close
  1058.    
  1060.             Call Cshlrxx(1)
  1061.             LrText(0).SetFocus
  1062.    
  1063.             '<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
  1064.    
  1065.         Else                                                            '修改
  1066.             sSql = "UPDATE Xt_Grid SET ColTitle1 ='" _
  1067.                     & Trim(LrText(0).Text) & "',Text_Data_Type ='" & GetDataType & "'" _
  1068.                     & ",Text_Length = '" & tLen & "', Text_Deci_Length = '" & dLen & "'" _
  1069.                     & ",ColAlignment = '" & GetDataAlign & "' Where FieldsName = '" & CzxsGrid.TextMatrix(CzxsGrid.Row, 0) & "'"
  1070.             Cw_DataEnvi.DataConnect.Execute sSql
  1072.             Call Cxnrtcwg
  1073.  
  1074.         End If
  1075.         Bclrsj = True
  1076.         Call Xtxxts("保存成功!", 0, 4)
  1077.         Exit Function
  1078.     End With
  1079.  
  1080. Swcwcl:
  1081.     Tsxx = "存盘过程中出现错误,程序自动恢复保存前状态!"
  1082.     If Err.Number = -2147217900 Then
  1083.         Tsxx = "明细编码不能重复"
  1084.     End If
  1085.     Call Xtxxts(Tsxx, 0, 1)
  1086.     Exit Function
  1088. End Function
  1090. Private Sub Cshlrxx(lrztxx As Integer)              '初始化录入字段信息
  1091. Dim tmpRs As New ADODB.Recordset
  1092. Dim sSql As String
  1094.     If lrztxx = 1 Then
  1095.         For jsqte = 0 To Max_Text_Index
  1096.             If Len(Trim(Textstr(jsqte, 1))) <> 0 Then
  1097.                 TextChangeLock = True
  1098.                 LrText(jsqte).Text = ""
  1099.                 LrText(jsqte).Tag = ""
  1100.                 TextChangeLock = False
  1101.             End If
  1102.             TextValiJudgeLock(jsqte) = True
  1103.         Next jsqte
  1104.     Else
  1105.         
  1106.         
  1107.            
  1108.             sSql = "SELECT * FROM Xt_Grid Where FieldsName ='" & Trim(CzxsGrid.TextMatrix(CzxsGrid.Row, 0)) & "'"
  1110.             Set tmpRs = Cw_DataEnvi.DataConnect.Execute(sSql)
  1111.        
  1112.   
  1113.             If Not tmpRs.EOF Then
  1114.                 LrText(0).Text = Trim(tmpRs.Fields("ColTitle1") & "")             '项目名称
  1115.                 LrText(1).Text = Trim(tmpRs.Fields("Text_Length") & "")           '项目长度
  1116.                 LrText(2).Text = Trim(tmpRs.Fields("Text_deci_Length"))           '小数位数
  1117.                 Call LocateTypeCbo(Trim(tmpRs.Fields("Text_Data_Type")))          '数据类型
  1118.                 Call LocateAlignCbo(Trim(tmpRs.Fields("ColAlignment")))           '对齐方式
  1119.             End If
  1120.             Set tmpRs = Nothing
  1121.     End If
  1122. End Sub
  1123. Private Sub Scdqjl()                 '删 除 当 前 记 录
  1124.     Dim tmpStr As String
  1125.     Dim tmpRs As New ADODB.Recordset
  1126.     Dim Yhanswer As Integer
  1127.     Dim FieldName As String
  1130.     '判断用户是否有此功能执行权限,如有则写上机日志(进入)
  1131.     If Not Security_Log(Str_RightEdit, Xtczybm, 1, True) Then
  1132.          Exit Sub
  1133.     End If
  1135.     If CzxsGrid.Row < CzxsGrid.FixedRows Then
  1136.         Exit Sub
  1137.     End If
  1138.     
  1139.   
  1140.     On Error GoTo Cwcl
  1141.     FieldName = Trim(CzxsGrid.TextMatrix(CzxsGrid.Row, 0))
  1142.     sSql = "SELECT count(" & FieldName & ") as NUM FROM Rs_ArMain WHERE " & FieldName & " IS NOT NULL AND (" & FieldName & " <> '') "
  1143.     Set tmpRs = Cw_DataEnvi.DataConnect.Execute(sSql)
  1144.     If tmpRs.Fields("num") > 0 Then
  1145.         Call Xtxxts("该类档案已经存入数据，欲删除该档案项目，请先到相关档案维护删除对应数据!", 0, 3)
  1146.         Exit Sub
  1147.     End If
  1148.     
  1149.     Tsxx = "请确认是否删除当前记录?"
  1150.     Yhanswer = Xtxxts(Tsxx, 2, 2)
  1151.     If Yhanswer = 2 Then
  1152.         Exit Sub
  1153.     End If
  1154.     
  1155.     Cw_DataEnvi.DataConnect.BeginTrans
  1157.     '[>>以下需自定义部分
  1158.     Cw_DataEnvi.DataConnect.Execute "DELETE Xt_Grid WHERE FieldsName = '" + FieldName + "'"
  1159.     Cw_DataEnvi.DataConnect.Execute "ALTER TABLE Rs_ArMain DROP COLUMN " + FieldName
  1160.     
  1161.     '以上为自定义部分<<]
  1162.     tmpRs.Close: Set tmpRs = Nothing
  1163.     Cw_DataEnvi.DataConnect.CommitTrans
  1164.     
  1165.     CzxsGrid.RemoveItem CzxsGrid.Row
  1166.     Exit Sub
  1167. Cwcl:
  1168.     If Err.Number = -2147217900 Then
  1169.         Tsxx = "该项目已经被使用,不能删除!"
  1170.         Call Xtxxts(Tsxx, 0, 1)
  1171.         Exit Sub
  1172.     Else
  1173.         Tsxx = "出现未知情况,该项目不能被删除!"
  1174.         Call Xtxxts(Tsxx, 0, 1)
  1175.         Exit Sub
  1176.         End If
  1178. End Sub
  1180. '******************以下为基本处理程序(固定不变)************************'
  1182. Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)        '支持热键操作
  1183.     If Shift = 2 Then
  1184.         Select Case UCase(Chr(KeyCode))
  1185.             Case "P"                   'Ctrl+P 打印
  1186.                 Call bbyl(False)
  1187.             Case "I"                   'Ctrl+I 增加
  1188.                 '判断用户是否有此功能执行权限,如有则写上机日志(进入)
  1189.                 If Not Security_Log(Str_RightEdit, Xtczybm, 1, True) Then
  1190.                     Exit Sub
  1191.                 End If
  1192.                 Call Toolbjzt
  1193.                 Lrzt = 1
  1194.                 Call Cshlrxx(Lrzt)
  1195.                 LrText(0).SetFocus
  1196.                 LrText(0).Locked = False
  1197.             Case "D"                   'Ctrl+D 删除
  1198.                 Call Scdqjl
  1199.         End Select
  1200.     End If
  1202. End Sub
  1206. Private Sub SzToolbar_ButtonClick(ByVal Button As MSComctlLib.Button)
  1207.     If Button.Key <> "fh" And Button.Key <> "bz" Then
  1208.         If Trim(F_Sort.Tag) = "" Then Call Xtxxts("没有选定类别!", 0, 3): Exit Sub
  1209.     End If
  1211.     Select Case Button.Key
  1212.         Case "ymsz"                                          '页面设置
  1213.         
  1214.             Dyymctbl.Show 1
  1215.         Case "yl"                                            '预 览
  1216.             Call bbyl(True)
  1217.         Case "dy"                                            '打 印
  1218.             Call bbyl(False)
  1219.         Case "zj"                                            '增 加
  1220.             '判断用户是否有此功能执行权限,如有则写上机日志(进入)
  1221.             If Not Security_Log(Str_RightEdit, Xtczybm, 1, True) Then
  1222.                 Exit Sub
  1223.             End If
  1224.             Call Toolbjzt
  1225.             Lrzt = 1
  1226.             Call Cshlrxx(Lrzt)
  1227.             LrText(0).SetFocus
  1228.             LrText(0).Locked = False
  1229.         Case "xg"                                            '修 改
  1230.             If CzxsGrid.Row < CzxsGrid.FixedRows Then Call Xtxxts("没有选定类别!", 0, 3): Exit Sub
  1231.             Call Xgdqjl
  1232.         Case "sc"                                            '删 除
  1233.             Call Scdqjl
  1234.         Case "fq"                                            '取 消
  1235.             Call Toolfbjzt
  1236.         Case "sx"                                            '刷 新
  1237.             Call Cxnrtcwg
  1238.         Case "FaceSet"                                       '界面设置
  1239.             '判断用户是否有此功能执行权限,如有则写上机日志(进入)
  1240.             If Not Security_Log(Str_RightEdit, Xtczybm, 1, True, False) Then
  1241.                 Cmd_Yes.Enabled = False
  1242.             End If
  1243.             Call FaceSet
  1244.         Case "bz"                                            '帮 助
  1245.             Call F1bz
  1246.         Case "fh"                                            '退 出
  1247.             sSql = "UPDATE Xt_Grid SET explorerbar=0 WHERE System_Code='Rs_User' AND ColIndex = '000' "
  1248.             Cw_DataEnvi.DataConnect.Execute (sSql)
  1249.             Unload Me
  1250.     End Select
  1252. End Sub
  1254. Private Sub CzxsGrid_DblClick()                            '修改当前编码记录
  1255.     Call Xgdqjl
  1256. End Sub
  1258. Private Sub Xgdqjl()                                       '修改当前编码记录
  1259.     
  1260.     '判断用户是否有此功能执行权限,如有则写上机日志(进入)
  1261.     If Not Security_Log(Str_RightEdit, Xtczybm, 1, True, False) Then
  1262.         BcCommand.Enabled = False
  1263.     End If
  1264.     
  1265.     If CzxsGrid.Row < CzxsGrid.FixedRows Then
  1266.         Exit Sub
  1267.     End If
  1268.     If Not CanModify Then Exit Sub
  1269.     Call Toolbjzt
  1270.     Lrzt = 2
  1271.     Call Cshlrxx(Lrzt)
  1272.     LrText(1).SetFocus
  1273. '    LrText(0).Locked = True
  1275. End Sub
  1277. Private Sub Toolbjzt()                                     'Toolbar状态(编辑状态)
  1278.     
  1279.     '判断用户是否有此功能执行权限,如有则写上机日志(进入)
  1280.     If Not Security_Log(Str_RightEdit, Xtczybm, 1, True, False) Then
  1281.         BcCommand.Enabled = False
  1282.     End If
  1283.     
  1284.     StTab.TabEnabled(1) = True
  1285.     A_YNStop.Value = 0
  1286.     Tree_List.Enabled = False
  1287.     StTab.Tab = 1
  1288.     Frame1.Enabled = True
  1289.     StTab.TabEnabled(0) = False
  1290.     CzxsGrid.Enabled = False
  1291.     Fra_face.Enabled = False
  1292.     With SzToolbar
  1293.         .Buttons("ymsz").Enabled = False
  1294.         .Buttons("dy").Enabled = False
  1295.         .Buttons("yl").Enabled = False
  1296.         .Buttons("zj").Enabled = False
  1297.         .Buttons("xg").Enabled = False
  1298.         .Buttons("sc").Enabled = False
  1299.         .Buttons("sx").Enabled = False
  1300.         .Buttons("FaceSet").Enabled = False
  1301.     End With
  1303. End Sub
  1305. Private Sub Toolfbjzt()                                    'Toolbar状态(非编辑状态)
  1306.     
  1307.     StTab.TabEnabled(0) = True
  1308.     StTab.Tab = 0
  1309.     Tree_List.Enabled = True
  1310.     CzxsGrid.Enabled = True
  1311.     Frame1.Enabled = False
  1312.     StTab.TabEnabled(1) = False
  1313.     StTab.TabEnabled(2) = False
  1314.     Lrzt = 0
  1315.     With SzToolbar
  1316.         .Buttons("ymsz").Enabled = True
  1317.         .Buttons("dy").Enabled = True
  1318.         .Buttons("yl").Enabled = True
  1319.         .Buttons("zj").Enabled = True
  1320.         .Buttons("xg").Enabled = True
  1321.         .Buttons("sc").Enabled = True
  1322.         .Buttons("sx").Enabled = True
  1323.         .Buttons("FaceSet").Enabled = True
  1324.     End With
  1326. End Sub
  1328. Private Sub BcCommand_Click()                                           '保 存
  1329.     
  1330.     If Not Bclrsj Then
  1331.         Exit Sub
  1332.     End If
  1333.     If Lrzt = 2 Then
  1334.         Call Toolfbjzt
  1335.     End If
  1337. End Sub
  1339. Private Sub QxCommand_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
  1340.   
  1341.     For jsqte = 0 To Max_Text_Index
  1342.         TextValiJudgeLock(jsqte) = True
  1343.     Next jsqte
  1344.     Call Toolfbjzt
  1346. End Sub
  1348. Private Sub CzxsGrid_BeforeMoveColumn(ByVal Col As Long, Position As Long)           '网格列发生移动时自动交换网格索引信息
  1349.     FnBln_RefreshArray Col, Position, GridStr(), GridInf()
  1350. End Sub
  1352. Private Sub GsToolbar_ButtonClick(ByVal Button As MSComctlLib.Button)   '表格格式设置(通用)
  1353.     
  1354.     Select Case Button.Key
  1355.         Case "bcgs"                                       '保存表格格式
  1356.             Call Bcwggs(CzxsGrid, GridCode, GridStr())
  1357.         Case "hfmrgs"                                     '恢复默认格式
  1358.             Call Hfmrgs(CzxsGrid, GridCode, GridStr())
  1359.         Case "szxsxm"                                     '设置显示项目
  1360.             Call Szxsxm(CzxsGrid, GridCode)
  1361.     End Select
  1363. End Sub
  1365. Private Sub bbyl(bbylte As Boolean)                    '报表打印预览
  1366.     
  1367.     Dim Bbzbt$, Bbxbt() As String, bbxbtzzxs() As Integer, Bbxbtgs As Integer
  1368.     Dim Bbbwh() As String, Bbbwhzzxs() As Integer, Bbbwhgs As Integer
  1369.     Bbxbtgs = 1                                          '报 表 小 标 题 行 数
  1370.     Bbbwhgs = 0                                          '报 表 表 尾 行 数
  1371.     ReDim Bbxbt(1 To Bbxbtgs)
  1372.     ReDim bbxbtzzxs(1 To Bbxbtgs)
  1373.     If Bbbwhgs <> 0 Then
  1374.         ReDim Bbbwh(1 To Bbbwhgs)
  1375.         ReDim Bbbwhzzxs(1 To Bbbwhgs)
  1376.     End If
  1377.     Bbzbt = ReportTitle
  1378.     Bbxbt(1) = " "
  1379.     bbxbtzzxs(1) = 0                                     '报表行组织形式(0-居左 1-居中 2-居右)
  1380.     Call Scyxsjb(CzxsGrid)                               '生成报表数据
  1381.     Call Scdybb(Dyymctbl, Bbzbt, Bbxbt(), bbxbtzzxs(), Bbxbtgs, Bbbwh(), Bbbwhzzxs(), Bbbwhgs, bbylte)
  1382.     If Not bbylte Then
  1383.         Unload DY_Tybbyldy
  1384.     End If
  1385.     
  1386. End Sub
  1388. '************以下为文本框录入处理程序(固定不变部分)*************'
  1390. Private Sub Wbklrwbcl(Index As Integer)    '文本框录入事后处理程序
  1392.   '以下为依据实际情况自定义部分[
  1393.   
  1394.       '在此填写文本框录入事后处理程序
  1395.    
  1396.   ']以上为依据实际情况自定义部分
  1397. End Sub
  1399. Private Sub LrText_Change(Index As Integer)
  1401.     '屏蔽程序改变控制
  1402.     If TextChangeLock Then
  1403.         Exit Sub
  1404.     End If
  1405.    
  1406.     TextValiJudgeLock(Index) = False    '打开有效性判断锁
  1407.     
  1408.     '限制字段录入长度
  1409.           
  1410.     TextChangeLock = True  '加锁(防止执行Lrtext_Change)
  1411.     Select Case Textint(Index, 1)
  1412.         Case 8           '金额型
  1413.             Call Sjgskz(LrText(Index), Xtjezws - Xtjexsws - 1, Xtjexsws)
  1414.         Case 9           '数量型
  1415.             Call Sjgskz(LrText(Index), Xtslzws - Xtslxsws - 1, Xtslxsws)
  1416.         Case 10          '单价型
  1417.             Call Sjgskz(LrText(Index), Xtdjzws - Xtdjxsws - 1, Xtdjxsws)
  1418.         Case Else        '其他小数类型控制
  1419.             If Textint(Index, 6) <> 0 Or Textint(Index, 7) <> 0 Then
  1420.                 Call Sjgskz(LrText(Index), Textint(Index, 6), Textint(Index, 7))
  1421.             End If
  1422.     End Select
  1423.     TextChangeLock = False '解锁
  1425. End Sub
  1427. Private Sub LrText_GotFocus(Index As Integer)                                                 '文本框得到焦点,显示相应信息
  1428.     
  1429.     Call TextShow(Index)
  1430.     CurTextIndex = Index
  1432. End Sub
  1434. Private Sub LrText_KeyDown(Index As Integer, KeyCode As Integer, Shift As Integer)            '字段按F2键提供帮助
  1435.     
  1436.     Select Case KeyCode
  1437.         Case vbKeyF2
  1438.             Call Text_Help(Index)
  1439.     End Select
  1441. End Sub
  1446. Private Sub LrText_KeyPress(Index As Integer, KeyAscii As Integer)                            '文本框录入事中控制
  1447.     Call InputFieldLimit(LrText(Index), Textint(Index, 1), KeyAscii)
  1448. End Sub
  1450. Private Sub LrText_LostFocus(Index As Integer)                                                '文本框失去焦点进行有效性判断及相应处理
  1451.     
  1452.     If Not Textboolean(Index, 2) Then      '事中判断
  1453.         Call TextYxxpd(Index)
  1454.     End If
  1456. End Sub
  1458. Private Sub Tree_List_Click()
  1459.     
  1460.     If Mid(Trim(Tree_List.SelectedItem.Key), 2, Len(Trim(Tree_List.SelectedItem.Key)) - 1) <> "" Then
  1461.         F_Sort.Caption = Tree_List.SelectedItem.Text
  1462.         F_Sort1.Caption = F_Sort.Caption
  1463.         ReportTitle = "" & F_Sort.Caption
  1464.         F_Sort.Tag = Trim(Mid(Trim(Tree_List.SelectedItem.Key), 2, Len(Trim(Tree_List.SelectedItem.Key)) - 1))
  1465.         Cxnrtcwg
  1466.     End If
  1468. End Sub
  1470. Private Sub Txt_TitleH_KeyPress(KeyAscii As Integer)
  1471.     If (KeyAscii < Asc("0") Or KeyAscii > Asc("9")) And KeyAscii <> vbKeyBack Then KeyAscii = 0
  1472.     If Len(Txt_TitleH.Text) >= 3 And KeyAscii <> vbKeyBack Then KeyAscii = 0
  1473. End Sub
  1475. Private Sub Ydcommand1_MouseDown(Index As Integer, Button As Integer, Shift As Integer, x As Single, y As Single)     '按钮提供帮助
  1476.     Call Text_Help(Index)
  1477. End Sub
  1479. Private Sub Text_Help(Index As Integer)                                                       '录入字段帮助
  1480.     If Not Ydcommand1(Index).Visible Then
  1481.         Exit Sub
  1482.     End If
  1483.     TextValiJudgeLock(Index) = True
  1484.    
  1485.     '先进行有效性判断
  1486.     If Not TextYxxpd(CurTextIndex) Then
  1487.         Exit Sub
  1488.     End If
  1489.    
  1490.     Call Drbmhelp(Textint(Index, 2), Textstr(Index, 4), Trim(LrText(Index).Text))
  1491.     If Len(Xtfhcs) <> 0 Then
  1492.         If Textint(Index, 3) = 1 Then
  1493.             LrText(Index).Text = Xtfhcsfz
  1494.             LrText(Index).Tag = Xtfhcs
  1495.         Else
  1496.             LrText(Index).Text = Xtfhcs
  1497.             LrText(Index).Tag = Xtfhcsfz
  1498.         End If
  1499.     End If
  1500.     TextValiJudgeLock(Index) = False
  1501.     LrText(Index).SetFocus
  1503. End Sub
  1505. Private Sub TextShow(Index As Integer)        '文本框得到焦点,显示相应信息
  1507.    '填写文本框得到焦点,进行相应信息处理程序
  1508.    
  1509. End Sub
  1511. Private Sub Wbkcsh()                          '录入文本框初始化
  1512.   
  1513.     Dim jsqte As Integer
  1514.   
  1515.     '最大录入文本框索引值
  1516.     Max_Text_Index = Textvar(1)
  1517.   
  1518.     ReDim TextValiJudgeLock(Max_Text_Index)
  1519.     For jsqte = 0 To Max_Text_Index
  1520.         If Len(Trim(Textstr(jsqte, 1))) <> 0 Then
  1521.             If Textboolean(jsqte, 1) Then
  1522.                 If jsqte <> 0 Then
  1523.                     Load Ydcommand1(jsqte)
  1524.                 End If
  1525.                 Ydcommand1(jsqte).Visible = True
  1526.                 Ydcommand1(jsqte).Move LrText(jsqte).Left + LrText(jsqte).Width, LrText(jsqte).Top
  1527.             End If
  1528.             TextChangeLock = True
  1529.             LrText(jsqte).Text = ""
  1530.             LrText(jsqte).Tag = ""
  1531.             If Textint(jsqte, 5) <> 0 Then
  1532.                 LrText(jsqte).MaxLength = Textint(jsqte, 5)
  1533.             End If
  1534.             TextChangeLock = False
  1535.         End If
  1536.         TextValiJudgeLock(jsqte) = True
  1537.     Next jsqte
  1539. End Sub
  1541. Private Function TextYxxpd(Index As Integer) As Boolean           '文本框有效性判断
  1542.     Dim Sqlstr As String
  1543.     Dim Findrec As ADODB.Recordset
  1544.     If TextValiJudgeLock(Index) Then    '文本框内容未曾改变不进行有效性判断
  1545.         TextYxxpd = True
  1546.         Exit Function
  1547.     End If
  1548.     If Trim(LrText(Index)) = "" Then
  1549.         LrText(Index).Tag = ""
  1550.         Call Wbklrwbcl(Index)
  1551.         TextValiJudgeLock(Index) = True
  1552.         TextYxxpd = True
  1553.         Exit Function
  1554.     End If
  1555.     Select Case Textint(Index, 4)
  1556.         Case 1      '编码型
  1557.             Sqlstr = Trim(Textstr(Index, 5))
  1558.             Sqlstr = Replace(Sqlstr, "@", "'" + Trim(LrText(Index).Text) + "'")
  1559.             Set Findrec = Cw_DataEnvi.DataConnect.Execute(Sqlstr)
  1560.             If Findrec.EOF Then
  1561.                 Call Xtxxts(Trim(Textstr(Index, 6)), 0, 1)
  1562.                 LrText(Index).SetFocus
  1563.                 Exit Function
  1564.             Else
  1565.                 Select Case Textint(Index, 3)
  1566.                     Case 0
  1567.                         If Len(Trim(Textstr(Index, 2))) <> 0 Then
  1568.                             LrText(Index).Text = Trim(Findrec.Fields(Trim(Textstr(Index, 2))))
  1569.                         End If
  1570.                         If Len(Trim(Textstr(Index, 3) & "")) <> 0 Then
  1571.                             LrText(Index).Tag = Trim(Findrec.Fields(Trim(Textstr(Index, 3))))
  1572.                         End If
  1573.                     Case 1
  1574.                         If Len(Trim(Textstr(Index, 3) & "")) <> 0 Then
  1575.                             LrText(Index).Text = Trim(Findrec.Fields(Trim(Textstr(Index, 3))))
  1576.                         End If
  1577.                         If Len(Trim(Textstr(Index, 2))) <> 0 Then
  1578.                             LrText(Index).Tag = Trim(Findrec.Fields(Trim(Textstr(Index, 2))))
  1579.                         End If
  1580.                 End Select
  1581.             End If
  1582.         Case 2      '日期型
  1583.             If IsDate(LrText(Index).Text) Then
  1584.                 LrText(Index).Text = Format(LrText(Index).Text, "yyyy-mm-dd")
  1585.             Else
  1586.                 Tsxx = "非法公历日期!(格式:" + Format(Date, "yyyy-mm-dd") + ")"
  1587.                 Call Xtxxts(Tsxx, 0, 1)
  1588.                 LrText(Index).SetFocus
  1589.                 Exit Function
  1590.             End If
  1591.         Case 3      '其他类型
  1592.     End Select
  1593.     TextValiJudgeLock(Index) = True
  1594.     TextYxxpd = True
  1596. End Function
  1598. Sub Add_Tree()
  1599.     
  1600.     Dim R_List As New Recordset
  1601.     Dim R_Sort As New Recordset
  1602.     Tree_List.Nodes.Add , 4, "T", "项目类别", "xttb"
  1603.     R_Sort.Open "select * from Rs_ArSort", Cw_DataEnvi.DataConnect, adOpenStatic, adLockOptimistic
  1604.     
  1605.     With R_Sort
  1606.         Do While Not .EOF
  1607.             'If .Fields("mjbz") Then
  1608.             Set nodX = Tree_List.Nodes.Add("T", 4, "T" & Trim(.Fields("ArSort")), "" & Trim(.Fields("ArName")), "gnqx")
  1609.             nodX.EnsureVisible
  1610.             'End If
  1611.             .MoveNext
  1612.         Loop
  1613.     End With
  1614.  
  1615. End Sub
  1617. '*************************  自定义函数部分*******************
  1619. Private Function TxtDataPass(tt As TextBox) As Boolean
  1620.     
  1621.     TxtDataPass = False
  1622.     On Error GoTo Cwcl
  1623.     With tt
  1624.         If Trim(.Text) = "" Then Call Xtxxts("行高度不能为空!", 0, 1): Exit Function
  1625.         If Trim(.Text) = "-" Then Call Xtxxts("非法字符!", 0, 1): Exit Function
  1626.     
  1627.         If Val(Trim(.Text)) > 500 Then Call Xtxxts("行高度不能大于500!", 0, 1): Exit Function
  1628.         If Val(Trim(.Text)) <= 0 Then Call Xtxxts("行高度不能为0!", 0, 1): Exit Function
  1629.     End With
  1630.     TxtDataPass = True
  1631.     Exit Function
  1632. Cwcl:
  1633.     Call Xtxxts("行高度设置不合理,请查看相关帮助!", 0, 1)
  1634.     
  1635. End Function
  1637. Private Function CanModify() As Boolean
  1638. '判断选中的档案项目是否可以修改
  1639. Dim sSql As String
  1640. Dim FieldName As String
  1641. Dim tmpRs As New ADODB.Recordset
  1642.     
  1643.     CanModify = False
  1644.     FieldName = Trim(CzxsGrid.TextMatrix(CzxsGrid.Row, 0))
  1645.     sSql = "SELECT count(" & FieldName & ") as NUM FROM Rs_ArMain WHERE " & FieldName & " IS NOT NULL AND (" & FieldName & " <> '') "
  1646.     Set tmpRs = Cw_DataEnvi.DataConnect.Execute(sSql)
  1647.     
  1648. '    如果该项目已经有数据，则不能修改
  1649.     If tmpRs.Fields("num") > 0 Then
  1650.         Call Xtxxts("该类档案已经存入数据，欲修改该档案项目，请先到相关档案维护删除对应数据!", 0, 3)
  1651.         Exit Function
  1652.     End If
  1653.     CanModify = True
  1654.     
  1655. End Function
  1658. Private Sub FaceSet()
  1659. '界面设置，用于调整用户档案在录入时的界面
  1660. Dim tmpRs As New ADODB.Recordset
  1661. Dim sSql As String
  1663.     Tree_List.Enabled = False
  1664.     StTab.Tab = 2
  1665.     Frame1.Enabled = False
  1666.     Fra_face.Enabled = True
  1667. '   设置标签页的状态
  1668.     StTab.TabEnabled(0) = False
  1669.     StTab.TabEnabled(1) = False
  1670.     StTab.TabEnabled(2) = True
  1671.     CzxsGrid.Enabled = False
  1673. '    设置工具栏状态
  1674.     With SzToolbar
  1675.         .Buttons("ymsz").Enabled = False
  1676.         .Buttons("dy").Enabled = False
  1677.         .Buttons("yl").Enabled = False
  1678.         .Buttons("zj").Enabled = False
  1679.         .Buttons("xg").Enabled = False
  1680.         .Buttons("sc").Enabled = False
  1681.         .Buttons("sx").Enabled = False
  1682.         .Buttons("FaceSet").Enabled = False
  1683.     End With
  1684.     With GsToolbar
  1685.         .Buttons("bcgs").Enabled = False
  1686.         .Buttons("hfmrgs").Enabled = False
  1687.         .Buttons("szxsxm").Enabled = False
  1688.     End With
  1689.     
  1690.     '首先更新数据库，使得网格列可以移动
  1691.     sSql = "UPDATE Xt_Grid SET explorerbar=2 WHERE System_Code='Rs_User' AND ColIndex = '000' "
  1692.     Cw_DataEnvi.DataConnect.Execute (sSql)
  1693. '    刷新网格
  1694.     GridCode = Trim(F_Sort.Tag)
  1695.     Call BzWgcsh(vsFlexGrid1, GridCode, GridInf(), GridBoolean(), GridInt(), GridStr())
  1696.     
  1697. '    针对当前网格进行特殊设置
  1698.     Qslz = GridInf(1)
  1699.     Sjhgd = GridInf(2)
  1700.     Szzls = CzxsGrid.Cols - 1
  1701.     vsFlexGrid1.ColHidden(Sydz("001", GridStr(), Szzls)) = True
  1702.     vsFlexGrid1.ColHidden(Sydz("002", GridStr(), Szzls)) = True
  1703.     
  1704. '    改写网格的标题列可以移动
  1705.     sSql = "SELECT * FROM Xt_Grid WHERE Grid_code= '" & F_Sort.Tag & "' AND ColIndex = '000'"
  1706.     Set tmpRs = Cw_DataEnvi.DataConnect.Execute(sSql)
  1707.     If Not tmpRs.EOF Then
  1708.         Txt_TitleH.Text = tmpRs.Fields("FixRowHeight")
  1709. '        Txt_DataLineH.Text = tmpRs.Fields("DataRowHeight")
  1710.     End If
  1711.     vsFlexGrid1.AddItem ""
  1712.     Txt_TitleH.SetFocus
  1713. End Sub
  1715. Private Sub vsFlexGrid1_BeforeMoveColumn(ByVal Col As Long, Position As Long)           '网格列发生移动时自动交换网格索引信息
  1716.   
  1717.     Call FnBln_RefreshArray(Col, Position, GridStr(), GridInf())
  1718.   
  1719. End Sub
  1721. Private Sub Bcwggs_U(Bcgsgrid As vsFlexGrid, Wggsdm As String, GridStr() As String)            '保存网格格式(包括网格列宽,网格列顺序)
  1722. '自定义网格格式保存函数，在系统统一的网格格式保存函数基础上增加了数据行高度的设置保存
  1723. '过程参数:Bcgsgrid 保存格式网格对象,Wggsdm 网格格式代码(网格参数),GridStr() 从中取网格列索引信息
  1724.   
  1725.     Dim RecTemp As New ADODB.Recordset               '临时使用动态集
  1726.     Dim Qslzte As Integer                            '起始列值
  1727.     Dim Tsxx As String                               '系统信息提示
  1728.     Dim sSql As String
  1729.   
  1730.     Cw_DataEnvi.DataConnect.BeginTrans
  1731.     On Error GoTo Swcwcl
  1732.     If RecTemp.State = 1 Then RecTemp.Close
  1733.     RecTemp.Open "select * from xt_grid where Grid_Code='" + Trim(Wggsdm) + "' order by ColId", Cw_DataEnvi.DataConnect, adOpenDynamic, adLockOptimistic
  1734.     With RecTemp
  1735.         If Not .EOF Then
  1736.             Qslzte = .Fields("BeginCol")
  1737.             .MoveNext
  1738.         End If
  1739.     
  1740.         Do While Not .EOF
  1741.             For jsqte = Qslzte To Bcgsgrid.Cols - 1
  1742.                 If Trim(.Fields("ColIndex")) = Trim(GridStr(jsqte, 1)) Then
  1743.                     Exit For
  1744.                 End If
  1745.             Next jsqte
  1746.             If jsqte <= Bcgsgrid.Cols - 1 Then
  1747.                 .Fields("ColId") = jsqte - Qslzte + 1
  1748.                 .Fields("ColWidth") = Bcgsgrid.ColWidth(jsqte)
  1749.                 .Update
  1750.             End If
  1751.             .MoveNext
  1752.         Loop
  1753.     End With
  1754.     sSql = "UPDATE Xt_grid SET FixRowHeight= '" & Trim(Txt_TitleH.Text) & "'" & Chr$(10) _
  1755.            & "WHERE Grid_Code='" & Trim(Wggsdm) & "'"
  1756.     Cw_DataEnvi.DataConnect.Execute sSql
  1757.     
  1758.     Cw_DataEnvi.DataConnect.CommitTrans
  1759.   
  1760.     Tsxx = "表格格式保存完毕!"
  1761.     Call Xtxxts(Tsxx, 0, 4)
  1762.     Exit Sub
  1763. Swcwcl:
  1764.     Cw_DataEnvi.DataConnect.RollbackTrans
  1765.     Tsxx = "存盘过程中出现未知错误,程序自动恢复保存前状态!"
  1766.     Call Xtxxts(Tsxx, 0, 1)
  1767.     Exit Sub
  1769. End Sub
  1774. Private Sub FillTypeCbo()
  1775. '填充类型下拉框的过程
  1776.     Cbo_ItmType.AddItem ("字符型")
  1777.     Cbo_ItmType.AddItem ("数字型")
  1778.     Cbo_ItmType.AddItem ("日期型")
  1779. End Sub
  1780. Private Sub FillAlignCbo()
  1781. '填充排列方式下拉框的过程
  1782.     Cbo_Align.AddItem ("居左")
  1783.     Cbo_Align.AddItem ("居右")
  1784. End Sub
  1785. Private Function GetDataType() As Integer
  1786. '将下拉框的类型转变成系统统一的代号
  1788.     Select Case Cbo_ItmType.Text
  1789.         Case "字符型"
  1790.             GetDataType = 0
  1791.         Case "数字型"
  1792.             GetDataType = 5
  1793.         Case "日期型"
  1794.             GetDataType = 7
  1795.         Case Else
  1796.             GetDataType = -1
  1797.     End Select
  1799. End Function
  1800. Private Function GetDataAlign() As Integer
  1801. '将下拉框的类型转变成系统统一的代号
  1802.     Select Case Cbo_Align.ListIndex
  1803.     Case 1
  1804.         GetDataAlign = 6
  1805.     Case Else                               '不选对齐方式 默认居左
  1806.         GetDataAlign = 0
  1807.     End Select
  1808.     
  1809. End Function
  1811. Private Function LocateTypeCbo(Code As Integer)
  1812. '填充类型下拉框
  1814.     With Cbo_ItmType
  1815.         Select Case Code
  1816.         Case 0
  1817.             .Text = .List(0)
  1818.         Case 5
  1819.             .Text = .List(1)
  1820.         Case 7
  1821.             .Text = .List(2)
  1822.         Case Else
  1823.         End Select
  1824.     End With
  1826. End Function
  1828. Private Function LocateAlignCbo(Code As Integer)
  1829.     With Cbo_Align
  1830.         Select Case Code
  1831.         Case 0
  1832.             .Text = .List(0)
  1833.         Case 6
  1834.             .Text = .List(1)
  1835.         Case Else
  1836.         End Select
  1837.     End With
  1839. End Function
  1842. Private Function ConvertCode2Type(Code As Integer) As String
  1843. '把数据表里存储的类型代号翻译过来
  1844.     With Cbo_ItmType
  1845.         Select Case Code
  1846.         
  1847.         Case 0
  1848.             ConvertCode2Type = "字符型"
  1849.         Case 5
  1850.             ConvertCode2Type = "数字型"
  1851.         Case 7
  1852.             ConvertCode2Type = "日期型"
  1853.         Case Else
  1854.         End Select
  1855.     End With
  1856. End Function
  1858. Private Function ConvertCode2Align(Code As Integer) As String
  1859. '把数据表里存储的对其方式翻译过来
  1860.     With Cbo_ItmType
  1861.         Select Case Code
  1862.         Case 0
  1863.             ConvertCode2Align = "居左"
  1864.         Case 6
  1865.             ConvertCode2Align = "居右"
  1866.         Case Else
  1867.         End Select
  1868.     End With
  1869. End Function