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

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

企业管理

开发平台：

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 Bank_FrmColSet 
  7.    BorderStyle     =   3  'Fixed Dialog
  8.    Caption         =   "代发栏目设置"
  9.    ClientHeight    =   7110
  10.    ClientLeft      =   45
  11.    ClientTop       =   330
  12.    ClientWidth     =   9450
  13.    HelpContextID   =   2212010
  14.    Icon            =   "基础设置_代发栏目设置.frx":0000
  15.    KeyPreview      =   -1  'True
  16.    LinkTopic       =   "Form2"
  17.    LockControls    =   -1  'True
  18.    MaxButton       =   0   'False
  19.    MinButton       =   0   'False
  20.    ScaleHeight     =   7110
  21.    ScaleWidth      =   9450
  22.    ShowInTaskbar   =   0   'False
  23.    StartUpPosition =   2  '屏幕中心
  24.    Begin MSComctlLib.ImageCombo ImgCbo_Bank 
  25.       Height          =   315
  26.       Left            =   5880
  27.       TabIndex        =   23
  28.       Top             =   630
  29.       Width           =   3495
  30.       _ExtentX        =   6165
  31.       _ExtentY        =   556
  32.       _Version        =   393216
  33.       ForeColor       =   -2147483640
  34.       BackColor       =   -2147483643
  35.       Text            =   "ImageCombo2"
  36.    End
  37.    Begin MSComctlLib.ImageCombo ImgCbo_Sort 
  38.       Height          =   315
  39.       Left            =   1080
  40.       TabIndex        =   21
  41.       Top             =   630
  42.       Width           =   3765
  43.       _ExtentX        =   6641
  44.       _ExtentY        =   556
  45.       _Version        =   393216
  46.       ForeColor       =   -2147483640
  47.       BackColor       =   -2147483643
  48.       Text            =   "ImageCombo1"
  49.    End
  50.    Begin TabDlg.SSTab StTab 
  51.       Height          =   6090
  52.       Left            =   15
  53.       TabIndex        =   10
  54.       Top             =   1020
  55.       Width           =   9420
  56.       _ExtentX        =   16616
  57.       _ExtentY        =   10742
  58.       _Version        =   393216
  59.       Style           =   1
  60.       Tabs            =   2
  61.       TabHeight       =   520
  62.       TabCaption(0)   =   "列表视图"
  63.       TabPicture(0)   =   "基础设置_代发栏目设置.frx":1042
  64.       Tab(0).ControlEnabled=   -1  'True
  65.       Tab(0).Control(0)=   "CzxsGrid"
  66.       Tab(0).Control(0).Enabled=   0   'False
  67.       Tab(0).Control(1)=   "Cmd_Up"
  68.       Tab(0).Control(1).Enabled=   0   'False
  69.       Tab(0).Control(2)=   "Cmd_Down"
  70.       Tab(0).Control(2).Enabled=   0   'False
  71.       Tab(0).Control(3)=   "Cmd_Save"
  72.       Tab(0).Control(3).Enabled=   0   'False
  73.       Tab(0).ControlCount=   4
  74.       TabCaption(1)   =   "单张视图"
  75.       TabPicture(1)   =   "基础设置_代发栏目设置.frx":105E
  76.       Tab(1).ControlEnabled=   0   'False
  77.       Tab(1).Control(0)=   "Frame1"
  78.       Tab(1).ControlCount=   1
  79.       Begin VB.CommandButton Cmd_Save 
  80.          Caption         =   "保存"
  81.          Height          =   1120
  82.          Left            =   105
  83.          Picture         =   "基础设置_代发栏目设置.frx":107A
  84.          Style           =   1  'Graphical
  85.          TabIndex        =   19
  86.          Top             =   3360
  87.          Width           =   300
  88.       End
  89.       Begin VB.CommandButton Cmd_Down 
  90.          Height          =   1120
  91.          Left            =   105
  92.          Picture         =   "基础设置_代发栏目设置.frx":1404
  93.          Style           =   1  'Graphical
  94.          TabIndex        =   18
  95.          Top             =   2152
  96.          Width           =   300
  97.       End
  98.       Begin VB.CommandButton Cmd_Up 
  99.          Height          =   1120
  100.          Left            =   105
  101.          Picture         =   "基础设置_代发栏目设置.frx":1A48
  102.          Style           =   1  'Graphical
  103.          TabIndex        =   17
  104.          Top             =   945
  105.          Width           =   300
  106.       End
  107.       Begin VB.Frame Frame1 
  108.          Height          =   5655
  109.          Left            =   -74910
  110.          TabIndex        =   13
  111.          Top             =   330
  112.          Width           =   9225
  113.          Begin VB.CommandButton Cmd_Help 
  114.             Height          =   285
  115.             Left            =   2940
  116.             Picture         =   "基础设置_代发栏目设置.frx":208C
  117.             Style           =   1  'Graphical
  118.             TabIndex        =   28
  119.             Top             =   780
  120.             Width           =   285
  121.          End
  122.          Begin VB.ComboBox Cbo_DataType 
  123.             Height          =   300
  124.             Left            =   1560
  125.             Style           =   2  'Dropdown List
  126.             TabIndex        =   3
  127.             Top             =   1206
  128.             Width           =   1665
  129.          End
  130.          Begin VB.TextBox lrText 
  131.             Height          =   315
  132.             Index           =   2
  133.             Left            =   1560
  134.             TabIndex        =   4
  135.             Text            =   "2"
  136.             ToolTipText     =   "数据长度包含小数点的长度"
  137.             Top             =   1614
  138.             Width           =   1665
  139.          End
  140.          Begin VB.TextBox lrText 
  141.             Height          =   315
  142.             Index           =   4
  143.             Left            =   1560
  144.             TabIndex        =   6
  145.             Text            =   "4"
  146.             ToolTipText     =   "不能录入中文状态下的符号"
  147.             Top             =   2460
  148.             Width           =   1665
  149.          End
  150.          Begin VB.TextBox lrText 
  151.             Height          =   315
  152.             Index           =   3
  153.             Left            =   1560
  154.             TabIndex        =   5
  155.             Text            =   "3"
  156.             ToolTipText     =   "小数位数为空时,默认为零。"
  157.             Top             =   2037
  158.             Width           =   1665
  159.          End
  160.          Begin VB.CheckBox Chk_Add 
  161.             Caption         =   "自动加1"
  162.             Height          =   285
  163.             Left            =   540
  164.             TabIndex        =   7
  165.             Top             =   2925
  166.             Width           =   1335
  167.          End
  168.          Begin VB.TextBox lrText 
  169.             Height          =   315
  170.             Index           =   0
  171.             Left            =   1560
  172.             TabIndex        =   1
  173.             Text            =   "0"
  174.             Top             =   360
  175.             Width           =   1665
  176.          End
  177.          Begin VB.TextBox lrText 
  178.             Height          =   315
  179.             Index           =   1
  180.             Left            =   1560
  181.             TabIndex        =   2
  182.             Text            =   "1"
  183.             Top             =   783
  184.             Width           =   1395
  185.          End
  186.          Begin VB.CommandButton QxCommand 
  187.             Cancel          =   -1  'True
  188.             Caption         =   "取消(&C)"
  189.             Height          =   300
  190.             Left            =   2100
  191.             TabIndex        =   9
  192.             Top             =   3375
  193.             Width           =   1120
  194.          End
  195.          Begin VB.CommandButton BcCommand 
  196.             Caption         =   "保存(&S)"
  197.             Height          =   300
  198.             Left            =   900
  199.             TabIndex        =   8
  200.             Top             =   3375
  201.             Width           =   1120
  202.          End
  203.          Begin VB.CommandButton Ydcommand1 
  204.             Height          =   300
  205.             Index           =   0
  206.             Left            =   6630
  207.             Picture         =   "基础设置_代发栏目设置.frx":2416
  208.             Style           =   1  'Graphical
  209.             TabIndex        =   14
  210.             Top             =   1770
  211.             Visible         =   0   'False
  212.             Width           =   300
  213.          End
  214.          Begin VB.Label Label6 
  215.             AutoSize        =   -1  'True
  216.             BackStyle       =   0  'Transparent
  217.             Caption         =   "括栏目符号:"
  218.             Height          =   180
  219.             Left            =   540
  220.             TabIndex        =   27
  221.             Top             =   2520
  222.             Width           =   990
  223.          End
  224.          Begin VB.Label Label5 
  225.             AutoSize        =   -1  'True
  226.             BackStyle       =   0  'Transparent
  227.             Caption         =   "小数位数:"
  228.             Height          =   180
  229.             Left            =   540
  230.             TabIndex        =   26
  231.             Top             =   2100
  232.             Width           =   810
  233.          End
  234.          Begin VB.Label Label4 
  235.             AutoSize        =   -1  'True
  236.             BackStyle       =   0  'Transparent
  237.             Caption         =   "数据长度:"
  238.             Height          =   180
  239.             Left            =   540
  240.             TabIndex        =   25
  241.             Top             =   1680
  242.             Width           =   810
  243.          End
  244.          Begin VB.Label Label3 
  245.             AutoSize        =   -1  'True
  246.             BackStyle       =   0  'Transparent
  247.             Caption         =   "数据类型:"
  248.             Height          =   180
  249.             Left            =   540
  250.             TabIndex        =   24
  251.             Top             =   1260
  252.             Width           =   810
  253.          End
  254.          Begin VB.Label TsLabel 
  255.             AutoSize        =   -1  'True
  256.             Caption         =   "栏目名称:"
  257.             Height          =   180
  258.             Index           =   0
  259.             Left            =   540
  260.             TabIndex        =   16
  261.             Top             =   420
  262.             Width           =   810
  263.          End
  264.          Begin VB.Label TsLabel 
  265.             AutoSize        =   -1  'True
  266.             Caption         =   "数据内容:"
  267.             Height          =   180
  268.             Index           =   1
  269.             Left            =   540
  270.             TabIndex        =   15
  271.             Top             =   840
  272.             Width           =   810
  273.          End
  274.       End
  275.       Begin VSFlex8Ctl.VSFlexGrid CzxsGrid 
  276.          Height          =   5550
  277.          Left            =   510
  278.          TabIndex        =   0
  279.          Top             =   420
  280.          Width           =   8805
  281.          _ExtentX        =   15531
  282.          _ExtentY        =   9790
  283.          Appearance      =   1
  284.          BorderStyle     =   1
  285.          Enabled         =   -1  'True
  286.          BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  287.             Name            =   "宋体"
  288.             Size            =   9
  289.             Charset         =   134
  290.             Weight          =   400
  291.             Underline       =   0   'False
  292.             Italic          =   0   'False
  293.             Strikethrough   =   0   'False
  294.          EndProperty
  295.          MousePointer    =   0
  296.          BackColor       =   -2147483643
  297.          ForeColor       =   -2147483640
  298.          BackColorFixed  =   -2147483633
  299.          ForeColorFixed  =   -2147483630
  300.          BackColorSel    =   -2147483635
  301.          ForeColorSel    =   -2147483634
  302.          BackColorBkg    =   8421504
  303.          BackColorAlternate=   -2147483643
  304.          GridColor       =   -2147483633
  305.          GridColorFixed  =   -2147483632
  306.          TreeColor       =   -2147483632
  307.          FloodColor      =   192
  308.          SheetBorder     =   -2147483642
  309.          FocusRect       =   1
  310.          HighLight       =   1
  311.          AllowSelection  =   -1  'True
  312.          AllowBigSelection=   -1  'True
  313.          AllowUserResizing=   0
  314.          SelectionMode   =   0
  315.          GridLines       =   1
  316.          GridLinesFixed  =   2
  317.          GridLineWidth   =   1
  318.          Rows            =   5000
  319.          Cols            =   10
  320.          FixedRows       =   1
  321.          FixedCols       =   0
  322.          RowHeightMin    =   0
  323.          RowHeightMax    =   0
  324.          ColWidthMin     =   0
  325.          ColWidthMax     =   0
  326.          ExtendLastCol   =   0   'False
  327.          FormatString    =   ""
  328.          ScrollTrack     =   0   'False
  329.          ScrollBars      =   3
  330.          ScrollTips      =   0   'False
  331.          MergeCells      =   0
  332.          MergeCompare    =   0
  333.          AutoResize      =   -1  'True
  334.          AutoSizeMode    =   0
  335.          AutoSearch      =   0
  336.          MultiTotals     =   -1  'True
  337.          SubtotalPosition=   1
  338.          OutlineBar      =   0
  339.          OutlineCol      =   0
  340.          Ellipsis        =   0
  341.          ExplorerBar     =   0
  342.          PicturesOver    =   0   'False
  343.          FillStyle       =   0
  344.          RightToLeft     =   0   'False
  345.          PictureType     =   0
  346.          TabBehavior     =   0
  347.          OwnerDraw       =   0
  348.          Editable        =   0   'False
  349.          ShowComboButton =   -1  'True
  350.          WordWrap        =   0   'False
  351.          TextStyle       =   0
  352.          TextStyleFixed  =   0
  353.          OleDragMode     =   0
  354.          OleDropMode     =   0
  355.          DataMode        =   0
  356.          VirtualData     =   -1  'True
  357.       End
  358.    End
  359.    Begin MSComctlLib.Toolbar SzToolbar 
  360.       Align           =   1  'Align Top
  361.       Height          =   570
  362.       Left            =   0
  363.       TabIndex        =   11
  364.       Top             =   0
  365.       Width           =   9450
  366.       _ExtentX        =   16669
  367.       _ExtentY        =   1005
  368.       ButtonWidth     =   820
  369.       ButtonHeight    =   953
  370.       AllowCustomize  =   0   'False
  371.       Appearance      =   1
  372.       Style           =   1
  373.       ImageList       =   "ImageList1"
  374.       _Version        =   393216
  375.       BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628} 
  376.          NumButtons      =   14
  377.          BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  378.             Caption         =   "设置"
  379.             Key             =   "ymsz"
  380.             ImageKey        =   "sz"
  381.          EndProperty
  382.          BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  383.             Caption         =   "打印"
  384.             Key             =   "dy"
  385.             Object.ToolTipText     =   "点击或按Ctrl+P打印表格"
  386.             ImageKey        =   "dy"
  387.          EndProperty
  388.          BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  389.             Caption         =   "预览"
  390.             Key             =   "yl"
  391.             ImageKey        =   "yl"
  392.          EndProperty
  393.          BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  394.             Style           =   3
  395.          EndProperty
  396.          BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  397.             Caption         =   "增加"
  398.             Key             =   "zj"
  399.             Object.ToolTipText     =   "点击或按Ctrl+A增加记录"
  400.             ImageKey        =   "xz"
  401.          EndProperty
  402.          BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  403.             Caption         =   "修改"
  404.             Key             =   "xg"
  405.             ImageKey        =   "xg"
  406.          EndProperty
  407.          BeginProperty Button7 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  408.             Caption         =   "删除"
  409.             Key             =   "sc"
  410.             Object.ToolTipText     =   "点击或按Ctrl+D删除当前记录"
  411.             ImageKey        =   "sc"
  412.          EndProperty
  413.          BeginProperty Button8 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  414.             Style           =   3
  415.          EndProperty
  416.          BeginProperty Button9 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  417.             Caption         =   "导入"
  418.             Key             =   "import"
  419.             Object.ToolTipText     =   "可导入除数据类型是数值型的来源型以外的数据"
  420.             ImageIndex      =   30
  421.          EndProperty
  422.          BeginProperty Button10 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  423.             Style           =   3
  424.          EndProperty
  425.          BeginProperty Button11 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  426.             Caption         =   "刷新"
  427.             Key             =   "sx"
  428.             ImageKey        =   "sx"
  429.          EndProperty
  430.          BeginProperty Button12 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  431.             Style           =   3
  432.          EndProperty
  433.          BeginProperty Button13 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  434.             Caption         =   "帮助"
  435.             Key             =   "bz"
  436.             ImageKey        =   "bz"
  437.          EndProperty
  438.          BeginProperty Button14 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  439.             Caption         =   "退出"
  440.             Key             =   "fh"
  441.             ImageKey        =   "tc"
  442.          EndProperty
  443.       EndProperty
  444.       BorderStyle     =   1
  445.       Begin MSComctlLib.Toolbar GsToolbar 
  446.          Height          =   540
  447.          Left            =   6960
  448.          TabIndex        =   12
  449.          Top             =   0
  450.          Width           =   2475
  451.          _ExtentX        =   4366
  452.          _ExtentY        =   953
  453.          ButtonWidth     =   1455
  454.          ButtonHeight    =   953
  455.          AllowCustomize  =   0   'False
  456.          Appearance      =   1
  457.          Style           =   1
  458.          ImageList       =   "ImageList1"
  459.          _Version        =   393216
  460.          BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628} 
  461.             NumButtons      =   3
  462.             BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  463.                Caption         =   "保存格式"
  464.                Key             =   "bcgs"
  465.                ImageKey        =   "bcgs"
  466.             EndProperty
  467.             BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  468.                Caption         =   "默认列宽"
  469.                Key             =   "hfmrgs"
  470.                ImageKey        =   "mrlk"
  471.             EndProperty
  472.             BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  473.                Caption         =   "显示项目"
  474.                Key             =   "szxsxm"
  475.                ImageKey        =   "xsxm"
  476.             EndProperty
  477.          EndProperty
  478.       End
  479.    End
  480.    Begin MSComctlLib.ImageList ImageList1 
  481.       Left            =   0
  482.       Top             =   420
  483.       _ExtentX        =   1005
  484.       _ExtentY        =   1005
  485.       BackColor       =   -2147483643
  486.       ImageWidth      =   16
  487.       ImageHeight     =   16
  488.       MaskColor       =   12632256
  489.       _Version        =   393216
  490.       BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628} 
  491.          NumListImages   =   30
  492.          BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  493.             Picture         =   "基础设置_代发栏目设置.frx":27A0
  494.             Key             =   "sz"
  495.          EndProperty
  496.          BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  497.             Picture         =   "基础设置_代发栏目设置.frx":2B3A
  498.             Key             =   "dy"
  499.          EndProperty
  500.          BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  501.             Picture         =   "基础设置_代发栏目设置.frx":2ED4
  502.             Key             =   "yl"
  503.          EndProperty
  504.          BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  505.             Picture         =   "基础设置_代发栏目设置.frx":326E
  506.             Key             =   "xg"
  507.          EndProperty
  508.          BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  509.             Picture         =   "基础设置_代发栏目设置.frx":3608
  510.             Key             =   "zh"
  511.          EndProperty
  512.          BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  513.             Picture         =   "基础设置_代发栏目设置.frx":39A2
  514.             Key             =   "sh"
  515.          EndProperty
  516.          BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  517.             Picture         =   "基础设置_代发栏目设置.frx":3D3C
  518.             Key             =   "bc"
  519.          EndProperty
  520.          BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  521.             Picture         =   "基础设置_代发栏目设置.frx":40D6
  522.             Key             =   "fq"
  523.          EndProperty
  524.          BeginProperty ListImage9 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  525.             Picture         =   "基础设置_代发栏目设置.frx":4470
  526.             Key             =   "bz"
  527.          EndProperty
  528.          BeginProperty ListImage10 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  529.             Picture         =   "基础设置_代发栏目设置.frx":480A
  530.             Key             =   "tc"
  531.          EndProperty
  532.          BeginProperty ListImage11 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  533.             Picture         =   "基础设置_代发栏目设置.frx":4BA4
  534.             Key             =   "bcgs"
  535.          EndProperty
  536.          BeginProperty ListImage12 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  537.             Picture         =   "基础设置_代发栏目设置.frx":4F3E
  538.             Key             =   "mrlk"
  539.          EndProperty
  540.          BeginProperty ListImage13 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  541.             Picture         =   "基础设置_代发栏目设置.frx":52D8
  542.             Key             =   "xsxm"
  543.          EndProperty
  544.          BeginProperty ListImage14 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  545.             Picture         =   "基础设置_代发栏目设置.frx":5672
  546.             Key             =   "first"
  547.          EndProperty
  548.          BeginProperty ListImage15 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  549.             Picture         =   "基础设置_代发栏目设置.frx":5A0C
  550.             Key             =   "prev"
  551.          EndProperty
  552.          BeginProperty ListImage16 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  553.             Picture         =   "基础设置_代发栏目设置.frx":5DA6
  554.             Key             =   "next"
  555.          EndProperty
  556.          BeginProperty ListImage17 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  557.             Picture         =   "基础设置_代发栏目设置.frx":6140
  558.             Key             =   "last"
  559.          EndProperty
  560.          BeginProperty ListImage18 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  561.             Picture         =   "基础设置_代发栏目设置.frx":64DA
  562.             Key             =   "xx"
  563.          EndProperty
  564.          BeginProperty ListImage19 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  565.             Picture         =   "基础设置_代发栏目设置.frx":6874
  566.             Key             =   "define"
  567.          EndProperty
  568.          BeginProperty ListImage20 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  569.             Picture         =   "基础设置_代发栏目设置.frx":6C0E
  570.             Key             =   "exec"
  571.          EndProperty
  572.          BeginProperty ListImage21 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  573.             Picture         =   "基础设置_代发栏目设置.frx":6FA8
  574.             Key             =   "xz"
  575.          EndProperty
  576.          BeginProperty ListImage22 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  577.             Picture         =   "基础设置_代发栏目设置.frx":7342
  578.             Key             =   "sc"
  579.          EndProperty
  580.          BeginProperty ListImage23 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  581.             Picture         =   "基础设置_代发栏目设置.frx":76DC
  582.             Key             =   "sx"
  583.          EndProperty
  584.          BeginProperty ListImage24 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  585.             Picture         =   "基础设置_代发栏目设置.frx":7A76
  586.             Key             =   "cx"
  587.          EndProperty
  588.          BeginProperty ListImage25 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  589.             Picture         =   "基础设置_代发栏目设置.frx":7E10
  590.             Key             =   "zd"
  591.          EndProperty
  592.          BeginProperty ListImage26 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  593.             Picture         =   "基础设置_代发栏目设置.frx":81AA
  594.             Key             =   "dz"
  595.          EndProperty
  596.          BeginProperty ListImage27 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  597.             Picture         =   "基础设置_代发栏目设置.frx":8544
  598.             Key             =   "ph"
  599.          EndProperty
  600.          BeginProperty ListImage28 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  601.             Picture         =   "基础设置_代发栏目设置.frx":88DE
  602.             Key             =   "fz"
  603.          EndProperty
  604.          BeginProperty ListImage29 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  605.             Picture         =   "基础设置_代发栏目设置.frx":8C78
  606.             Key             =   "dw"
  607.          EndProperty
  608.          BeginProperty ListImage30 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  609.             Picture         =   "基础设置_代发栏目设置.frx":9012
  610.             Key             =   ""
  611.          EndProperty
  612.       EndProperty
  613.    End
  614.    Begin VB.Label Label2 
  615.       AutoSize        =   -1  'True
  616.       BackStyle       =   0  'Transparent
  617.       Caption         =   "银行名称"
  618.       Height          =   150
  619.       Left            =   5040
  620.       TabIndex        =   22
  621.       Top             =   690
  622.       Width           =   690
  623.    End
  624.    Begin VB.Label Label1 
  625.       AutoSize        =   -1  'True
  626.       BackStyle       =   0  'Transparent
  627.       Caption         =   "工资类别"
  628.       Height          =   150
  629.       Left            =   210
  630.       TabIndex        =   20
  631.       Top             =   690
  632.       Width           =   750
  633.    End
  634. End
  635. Attribute VB_Name = "Bank_FrmColSet"
  636. Attribute VB_GlobalNameSpace = False
  637. Attribute VB_Creatable = False
  638. Attribute VB_PredeclaredId = True
  639. Attribute VB_Exposed = False
  640. '*******************************************************
  641. '*    模 块 名 称 :银行代发项目设置
  642. '*    功 能 描 述 :按工资类别、银行名称设置代发栏目，对于无栏目的工资类别、银行名称组合可导入别的组合的栏目，提高用户的输入效率
  643. '*    程序员姓名  :田建秀
  644. '*    最后修改人  :田建秀
  645. '*    最后修改时间:2001/12/18
  646. '*    备        注:
  647. '*******************************************************
  648. Dim Rec_CodeSet As New ADODB.Recordset   '编码设置表
  649. Dim jdzygs As Integer                    '控件焦点转移个数
  650. Dim Lrzt As Integer                      '录入状态标志(0-非录入状态 1-增加 2-修改)
  651. Dim ReportTitle As String                '报表主标题
  652. Public SortId As String
  653. Public BankCode As String
  654. Dim Rsc As New ADODB.Recordset
  655. Dim i As Long
  656. Dim Sql As String
  657. Dim Singl As Boolean                    '是否来源型
  658. Dim Str_RightEdit As String              '编辑(新增、修改、删除)权限索引
  660. '以下为固定使用变量(网格)
  661. Dim Cxnrrec As New ADODB.Recordset       '显示查询内容动态集
  662. Dim Dyymctbl As New DY_Dyymsz            '打印页面窗体变量
  663. Dim GridCode As String                   '显示网格网格代码
  664. Dim GridInf() As Variant                 '整个网格设置信息
  665. Dim Tsxx As String                       '系统提示信息
  666. Dim Qslz As Long                         '网格隐藏(非操作显示)列数
  667. Dim Sjhgd As Double                      '网格数据行高度
  668. Dim GridBoolean() As Boolean             '网格列信息(布尔型)
  669. Dim GridStr()  As String                 '网格列信息(字符型)
  670. Dim GridInt() As Integer                 '网格列信息(整型)
  671. Dim Szzls As Integer                     '数组总列数(网格列数-1)
  673. '以下为固定使用变量(文本框)
  674. Dim Textvar() As Variant                 '存储变体型文本框信息
  675. Dim Textboolean() As Boolean             '存储布尔型文本框信息
  676. Dim Textint() As Integer                 '存储整型文本框信息
  677. Dim Textstr() As String                  '存储字符型文本框信息
  678. Dim Max_Text_Index As Integer            '最大录入文本框索引值
  679. Dim TextGroupCode As String              '文本框录入分组编码
  680. Dim TextValiLock As Boolean              '文本框失去焦点是否进行有效性控制判断
  681. Dim TextValiJudgeLock() As Boolean       '文本框录入有效性判断控制锁
  682. Dim CurTextIndex As Integer              '当前文本框索引值
  683. Dim TextChangeLock As Boolean            '文本框内容变换控制锁
  684. Dim Bln_Cancel As Boolean                '取消按钮信息传递
  687. Private Sub Cmd_Help_Click()
  688.     With Bank_FrmItemChoice
  689.         .Show 1
  690.         If .OpeStatus = "ok" Then
  691.             LrText(1).Text = .ItemName
  692.             LrText(1).Tag = .ItemCode
  693.             Singl = True
  694.             Cbo_DataType.Enabled = False
  695.             If .ItemType = 0 Then
  696.                 Cbo_DataType = "字符型"
  697.             ElseIf .ItemType = 5 Then
  698.                 Cbo_DataType = "数值型"
  699.             End If
  700.         Else
  701.             Singl = False
  702.             Cbo_DataType.Enabled = True
  703.         End If
  704.         
  705.     End With
  706. End Sub
  708. Private Sub Cmd_Save_Click()
  709.     '判断用户是否有此功能执行权限,如有则写上机日志(进入)
  710.     If Not Security_Log(Str_RightEdit, Xtczybm, 1, True) Then
  711.         Exit Sub
  712.     End If
  713.     
  714.     Sql = ""
  715.     
  716.     With CzxsGrid
  717.         If .Rows > .FixedRows Then
  718.             For i = .FixedRows To .Rows - 1
  719.                 Sql = Sql & " update PM_BankItem set OrderNO=" & _
  720.                       i & _
  721.                       " where sortid='" & SortId & _
  722.                       "' and BankCode='" & BankCode & "'" & _
  723.                       " and Id=" & _
  724.                       .TextMatrix(i, 0)
  725.             Next
  726.         Else
  727.            Call Xtxxts("没有栏目，无需保存!", 0, 1)
  728.            Exit Sub
  729.         End If
  730.     End With
  731.     On Error GoTo Err1
  732.     Cw_DataEnvi.DataConnect.BeginTrans
  733.     Cw_DataEnvi.DataConnect.Execute Sql
  734.     Cw_DataEnvi.DataConnect.CommitTrans
  735.     Call Xtxxts("顺序保存成功!", 0, 4)
  736.     Call Cxnrtcwg
  737.     Exit Sub
  738. Err1:
  739.     Cw_DataEnvi.DataConnect.RollbackTrans
  740.     Call Xtxxts("顺序保存不成功!", 0, 1)
  741. End Sub
  743. Private Sub Cmd_Up_Click()
  744.     With CzxsGrid
  745.         If .Row <= .FixedRows Then
  746.            Exit Sub
  747.         End If
  748.     End With
  749.     Call CmdUP(CzxsGrid)
  750. End Sub
  752. Private Sub Cmd_Down_Click()
  753.     With CzxsGrid
  754.         If .Row = .Rows - 1 Then
  755.             Exit Sub
  756.         End If
  757.     End With
  758.     Call CmdDown(CzxsGrid)
  759. End Sub
  761. Private Sub Form_KeyPress(KeyAscii As Integer)   '控 制 焦 点 转 移
  763.     jdzygs = 10
  764.     
  765.     Select Case KeyAscii
  766.         Case vbKeyReturn
  767.             If Kjjdzy(jdzygs) Then
  768.                 KeyAscii = 0
  769.             End If
  770.         Case 39           '屏蔽"'"
  771.             KeyAscii = 0
  772.    End Select
  773.    
  774. End Sub
  776. Private Sub Form_Load()
  777.   
  778.     '打印报表标题信息
  779.     ReportTitle = "银行代发栏目"
  780.      
  781.     '调入打印页面设置窗体
  782.     XtReportCode = "PM_BankItem"
  783.     Load Dyymctbl
  784.     
  785.     '以下为文本框处理程序(读入文本框录入信息)
  786.     TextGroupCode = "PM_BankItem"
  787.     Call Drwbkxx(TextGroupCode, Textvar(), Textboolean(), Textint(), Textstr())
  788.     Call Wbkcsh
  789.     
  790.     '调入网格设置信息
  791.     GridCode = "PM_BankItem"
  792.     Call BzWgcsh(CzxsGrid, GridCode, GridInf(), GridBoolean(), GridInt(), GridStr())
  793.     Qslz = GridInf(1)
  794.     Sjhgd = GridInf(2)
  795.     Szzls = CzxsGrid.Cols - 1
  796.     
  797.     CzxsGrid.TextMatrix(0, 0) = "ID号"
  798.     Sql = " and czybm='" & Xtczybm & "'"
  799.     ImgCbo_Sort.Text = ""
  800.     ImgCbo_Bank.Text = ""
  801.     Call DynaFillImageCombo(ImgCbo_Sort, "pm_SortEmp", 0, Sql)
  802.     Call FillImageCombo(ImgCbo_Bank, "pm_BankItem", 0)
  803.     SortId = GetComboKey(ImgCbo_Sort, 0)
  804.     BankCode = GetComboKey(ImgCbo_Bank, 0)
  805.     EC
  806.     
  807.     Call FillCombo(Cbo_DataType, "PM_BankItem", "", 0)
  808.     '填 充 网 格
  809.     Call Cxnrtcwg
  810.        
  811.     '初始化toolbar,tab卡状态
  812.     StTab.Tab = 0
  813.     StTab.TabEnabled(1) = False
  814.     Frame1.Enabled = False
  815.      
  816.     '设置为非录入状态
  817.     Lrzt = 0
  818.     '编辑(新增、修改、删除)权限索引
  819.     Str_RightEdit = "Pm_BankItem_Edit"
  820.     
  821. End Sub
  822.  
  823. Private Sub Cxnrtcwg()                               '查询内容填充网格
  825.     Dim Sqlstr As String              '查询连接串
  826.     Dim jsqte As Long                 '查询临时使用变量
  827.   
  828.     '为加快显示速度,将网格刷新动作冻结
  829.     CzxsGrid.Redraw = False
  830.   
  831.     '[>>查询连接串
  832.     Sqlstr = "SELECT p.*,r.ChName FROM PM_BankItem  p left join rs_items r on right(ltrim(rtrim(sourcefield)),len(ltrim(rtrim(sourcefield)))-charindex('.',ltrim(rtrim(sourcefield))))=r.fieldname where BankCode='" & _
  833.              BankCode & "' and SortID='" & SortId & "' order by OrderNO"
  834.              
  835.     '<<]
  836.     Set Cxnrrec = Cw_DataEnvi.DataConnect.Execute(Sqlstr)
  837.     
  838.     With Cxnrrec
  839.         CzxsGrid.Rows = CzxsGrid.FixedRows
  840.         If .EOF And .BOF Then
  841.             CzxsGrid.Redraw = True
  842.             If Trim(SortId) <> "" And Trim(BankCode) <> "" Then
  843.                 SzToolbar.Buttons("import").Enabled = True
  844.             Else
  845.                 SzToolbar.Buttons("import").Enabled = False
  846.             End If
  847.             Exit Sub
  848.         End If
  849.         
  850.         jsqte = CzxsGrid.FixedRows
  851.         
  852.         Do While Not .EOF
  853.             CzxsGrid.AddItem ""
  854.             Call Jltcwg(Cxnrrec, jsqte)                              '调入填充网格子过程
  855.             CzxsGrid.RowHeight(jsqte) = Sjhgd                        '设置网格高度
  856.             .MoveNext
  857.             jsqte = jsqte + 1
  858.         Loop
  859.     End With
  860.   
  861.     '将网格刷新动作解冻
  862.     CzxsGrid.Redraw = True
  863.     If CzxsGrid.Rows = CzxsGrid.FixedRows And Trim(SortId) <> "" And Trim(BankCode) <> "" Then
  864.         SzToolbar.Buttons("import").Enabled = True
  865.     Else
  866.         SzToolbar.Buttons("import").Enabled = False
  867.     End If
  868. End Sub
  870. Private Sub Jltcwg(Jlbrec As ADODB.Recordset, Rowjsq As Long)           '记录内容填充网格
  872.     '[>>以下为自定义部分
  873.     With Jlbrec
  874.         CzxsGrid.TextMatrix(Rowjsq, 0) = .Fields("ID")             'ID号
  875.         CzxsGrid.TextMatrix(Rowjsq, Sydz("001", GridStr(), Szzls)) = Trim(.Fields("Columnname") & "")            '栏目名称
  876.         If .Fields("Single") = True Then
  877.             CzxsGrid.TextMatrix(Rowjsq, Sydz("002", GridStr(), Szzls)) = Trim(.Fields("chName") & "")            '数据内容
  878.         Else
  879.             CzxsGrid.TextMatrix(Rowjsq, Sydz("002", GridStr(), Szzls)) = Trim(.Fields("DataContent") & "")            '数据内容
  880.         End If
  881.         If .Fields("Single") = True And Trim(.Fields("DataContent") & "") = "银行账号" Then
  882.             CzxsGrid.TextMatrix(Rowjsq, Sydz("002", GridStr(), Szzls)) = Trim(.Fields("DataContent") & "")            '数据内容
  883.         End If
  884.         Select Case .Fields("DataType")
  885.             Case 0
  886.                 CzxsGrid.TextMatrix(Rowjsq, Sydz("003", GridStr(), Szzls)) = "字符型"
  887.             Case 5
  888.                 CzxsGrid.TextMatrix(Rowjsq, Sydz("003", GridStr(), Szzls)) = "数值型"             '数据类型
  889.         End Select
  890.         CzxsGrid.TextMatrix(Rowjsq, Sydz("004", GridStr(), Szzls)) = .Fields("DataLen")            '数据长度
  891.         CzxsGrid.TextMatrix(Rowjsq, Sydz("005", GridStr(), Szzls)) = .Fields("DotLen")             '小数位数
  892.         CzxsGrid.TextMatrix(Rowjsq, Sydz("006", GridStr(), Szzls)) = .Fields("Single")           '来源型
  893.         CzxsGrid.TextMatrix(Rowjsq, Sydz("007", GridStr(), Szzls)) = Trim(.Fields("BkRoundType") & "")            '括栏目符号
  894.         CzxsGrid.TextMatrix(Rowjsq, Sydz("008", GridStr(), Szzls)) = .Fields("AutoAdd1")             '自动加1
  895.         CzxsGrid.TextMatrix(Rowjsq, Sydz("009", GridStr(), Szzls)) = .Fields("OrderNO")             '自动加1
  896.     End With
  897.     '以上为自定义部分<<]
  898.     
  899. End Sub
  900. Private Sub toolEnable()
  901.     With SzToolbar
  902.         .Buttons("zj").Enabled = True
  903.         .Buttons("xg").Enabled = True
  904.         .Buttons("sc").Enabled = True
  905.         .Buttons("sx").Enabled = True
  906.     End With
  907.     Cmd_Up.Enabled = True
  908.     Cmd_Down.Enabled = True
  909.     Cmd_Save.Enabled = True
  910. End Sub
  911. Private Sub toolUnEnable()
  912.     With SzToolbar
  913.         .Buttons("zj").Enabled = False
  914.         .Buttons("xg").Enabled = False
  915.         .Buttons("sc").Enabled = False
  916.         .Buttons("import").Enabled = False
  917.         .Buttons("sx").Enabled = False
  918.     End With
  919.     Cmd_Up.Enabled = False
  920.     Cmd_Down.Enabled = False
  921.     Cmd_Save.Enabled = False
  922. End Sub
  923. Private Sub EC()
  924.     If Trim(ImgCbo_Sort.Text) = "" Or Trim(ImgCbo_Bank.Text) = "" Then
  925.         toolUnEnable
  926.     Else
  927.         toolEnable
  928.     End If
  929.     
  930. End Sub
  931. Private Sub Form_Unload(Cancel As Integer)             '窗体卸载
  933.     Set Cxnrrec = Nothing
  934.     Set Rec_CodeSet = Nothing
  935.     Set Rsc = Nothing
  936.     Unload Dyymctbl
  937.    
  938. End Sub
  940. Private Function Bclrsj() As Boolean                   '判断录入数据有效性,并保存数据
  942.     Dim jsqte As Integer
  943.     Dim SIntC As Integer  '非来源型整数部分的位数
  944.     Dim SDotC As Integer  '非来源型小数部分的位数
  945.   
  946.     '对文本框录入内容进行为零和为空判断(固定不变)
  947.     With Rec_CodeSet
  948.     
  949.         For jsqte = 0 To Max_Text_Index
  950.             If Textint(jsqte, 8) = 1 Then     '字段不能为空
  951.                 If Len(Trim(LrText(jsqte).Text)) = 0 Then
  952.                     Tsxx = Textstr(jsqte, 7) & "不能为空!"
  953.                     Call Xtxxts(Tsxx, 0, 1)
  954.                     LrText(jsqte).SetFocus
  955.                     Bclrsj = False
  956.                     Exit Function
  957.                 End If
  958.             Else
  959.                 If Textint(jsqte, 8) = 2 Then   '字段不能为零
  960.                     If Val(Trim(LrText(jsqte).Text)) = 0 Then
  961.                         Tsxx = Textstr(jsqte, 7) & "不能为零!"
  962.                         Call Xtxxts(Tsxx, 0, 1)
  963.                         LrText(jsqte).SetFocus
  964.                         Bclrsj = False
  965.                         Exit Function
  966.                     End If
  967.                 End If
  968.             End If
  969.         Next jsqte
  970.     
  971.         '对需要进行事后判断的文本框录入内容进行有效性判断 (固定不变)
  972.         For jsqte = 0 To Max_Text_Index
  973.             If Textint(jsqte, 9) = 0 Or Textint(jsqte, 9) = 2 Then
  974.                 If Not TextYxxpd(jsqte) Then
  975.                     Exit Function
  976.                 End If
  977.             End If
  978.         Next jsqte
  979.         
  980.         If Trim(Cbo_DataType.Text) = "数值型" And Not IsNumeric(LrText(1)) And Singl = 0 Then
  981.             Call Xtxxts("数值型栏目的数据内容必须是数字!", 0, 1)
  982.             Bclrsj = False
  983.             Exit Function
  984.         End If
  985.         
  986.         If Trim(Cbo_DataType.Text) = "字符型" And Val(LrText(3)) <> 0 Then
  987.             Call Xtxxts("字符型栏目的小数位数必须等于零!", 0, 1)
  988.             Bclrsj = False
  989.             Exit Function
  990.         End If
  991.         
  992.         If Chk_Add.Value = 1 And Not IsNumeric(LrText(1)) Then
  993.             Call Xtxxts("只有数据内容文本框的内容全部是数字时，自动加1才可被选中!", 0, 1)
  994.             Bclrsj = False
  995.             Exit Function
  996.         End If
  997.         
  998.         If Trim(LrText(1)) = "银行账号" And Val(Trim(LrText(3))) > 50 Then
  999.             Call Xtxxts("数据内容是银行账号时，数据长度不能超过50!", 0, 1)
  1000.             Bclrsj = False
  1001.             Exit Function
  1002.         End If
  1003.         If Val(LrText(3)) > Val(LrText(2)) Then
  1004.             Call Xtxxts("小数位数不能大于数据长度!", 0, 1)
  1005.             Bclrsj = False
  1006.             Exit Function
  1007.         End If
  1008.         
  1009.         If Singl = False And LenByte(Trim(LrText(1))) > Val(LrText(2)) Then
  1010.             Call Xtxxts("非来源型数据的数据内容的长度不能大于数据长度!", 0, 1)
  1011.             Bclrsj = False
  1012.             Exit Function
  1013.         End If
  1014.         
  1015.         If Singl = False And Cbo_DataType.Text = "数值型" Then
  1016.              If InStr(Trim(LrText(1)), ".") <> 0 Then     '小数
  1017.                  SIntC = InStr(Trim(LrText(1)), ".") - 1
  1018.                  SDotC = Len(Trim(LrText(1))) - InStr(Trim(LrText(1)), ".")
  1019.                  If SIntC > Val(LrText(2)) - Val(LrText(3)) - 1 Then
  1020.                     Call Xtxxts("非来源型数据的数据内容是数值型时它的整数长度不能大于设定的整数长度!", 0, 1)
  1021.                     Bclrsj = False
  1022.                     Exit Function
  1023.                  End If
  1024.                  
  1025.                  If SDotC > Val(LrText(3)) Then
  1026.                     Call Xtxxts("非来源型数据的数据内容是数值型时它的小数位数不能大于设定的小数位数!", 0, 1)
  1027.                     Bclrsj = False
  1028.                     Exit Function
  1029.                  End If
  1030.              End If
  1031.         End If
  1032.         
  1033.         If Lrzt = 1 Then  '增 加
  1034.         
  1035.             '[>>
  1036.             If .State = 1 Then .Close
  1037.             .Open "SELECT * FROM PM_BankItem WHERE BankCode= '" & BankCode & _
  1038.                   "' and SortId='" & SortId & "' and ColumnName='" & _
  1039.                   Trim(LrText(0)) & "'", Cw_DataEnvi.DataConnect, adOpenDynamic, adLockOptimistic
  1040.     
  1041.             If Not .EOF Then
  1042.                 Tsxx = "栏目名称重复!"
  1043.                 Call Xtxxts(Tsxx, 0, 1)
  1044.                 LrText(0).SetFocus
  1045.                 Bclrsj = False
  1046.                 Exit Function
  1047.             End If
  1048.     
  1050.             '判断记录内容无误后,将记录内容写入数据表
  1051.             On Error GoTo Swcwcl
  1052.     
  1053.             Cw_DataEnvi.DataConnect.BeginTrans
  1054.    
  1055.             .AddNew
  1056.             .Fields("SortId") = Trim(SortId)                  '工资类别
  1057.             .Fields("BankCode") = Trim(BankCode)              '银行编号
  1058.             .Fields("ColumnName") = Trim(LrText(0).Text)      '栏目名称
  1059.             If Singl Then
  1060.                 .Fields("SourceField") = Trim(LrText(1).Tag)
  1061.             Else
  1062.                 .Fields("SourceField") = ""
  1063.             End If
  1064.             .Fields("DataContent") = Trim(LrText(1).Text)     '数据内容
  1066.             If Trim(Cbo_DataType.Text) = "字符型" Then        '数据类型
  1067.                 .Fields("DataType") = 0
  1068.             Else
  1069.                 .Fields("DataType") = 5
  1070.             End If
  1071.             .Fields("DataLen") = Trim(LrText(2).Text)         '数据长度
  1072.             If Trim(LrText(3).Text) <> "" Then
  1073.                 .Fields("DotLen") = Val(Trim(LrText(3).Text))          '小数位数
  1074.             End If
  1075.             .Fields("BkRoundType") = Trim(LrText(4).Text)     '括项目符号
  1076.             .Fields("AutoAdd1") = Chk_Add.Value               '自动加1
  1077.             If Singl Then
  1078.                 .Fields("single") = 1
  1079.             Else
  1080.                 .Fields("single") = 0
  1081.             End If
  1082.             .Fields("OrderNo") = CzxsGrid.Rows - CzxsGrid.FixedRows + 1 '顺序号
  1083.             .Update
  1084.             
  1085.             Cw_DataEnvi.DataConnect.CommitTrans
  1087.             '将记录加入网格
  1088.             Sqlstr = "SELECT * FROM PM_BankItem p left join Rs_Items r on right(ltrim(rtrim(sourcefield)),len(ltrim(rtrim(sourcefield)))-charindex('.',ltrim(rtrim(sourcefield))))=r.FieldName " & _
  1089.                      " WHERE id= (select top 1 id from PM_BankItem order by ID desc)"
  1090.             Set Cxnrrec = Cw_DataEnvi.DataConnect.Execute(Sqlstr)
  1091.    
  1092.             With CzxsGrid
  1093.                 .AddItem ""
  1094.                 .RowHeight(.Rows - 1) = Sjhgd
  1095.                 .Select .Rows - 1, Qslz
  1096.                 Call Jltcwg(Cxnrrec, .Rows - 1)
  1097.             End With
  1099.             Tsxx = "保存完毕!"
  1100.             Call Xtxxts(Tsxx, 0, 4)
  1101.             
  1102.             Call Cshlrxx(1)
  1103.             LrText(0).SetFocus
  1105.             '将网格按编码排序
  1106.             With CzxsGrid
  1107.                 .Col = Sydz("009", GridStr(), Szzls)
  1108.                 CzxsGrid.Sort = flexSortStringAscending
  1109.             End With
  1110.             
  1111.             EImport
  1112.             '<<]
  1113.     
  1114.         Else  '否则为修改记录
  1115.  
  1116.             If .State = 1 Then .Close
  1117.             .Open "SELECT * FROM PM_BankItem WHERE BankCode= '" & BankCode & _
  1118.                   "' and SortId='" & SortId & "' and ColumnName='" & _
  1119.                   Trim(LrText(0)) & "' and Id<> " & _
  1120.                   CzxsGrid.TextMatrix(CzxsGrid.Row, 0), Cw_DataEnvi.DataConnect, adOpenDynamic, adLockOptimistic
  1122.             If Not .EOF Then
  1123.                 Tsxx = "栏目名称重复!"
  1124.                 Call Xtxxts(Tsxx, 0, 1)
  1125.                 LrText(0).SetFocus
  1126.         
  1127.                 Bclrsj = False
  1128.                 Exit Function
  1129.             End If
  1131.             On Error GoTo Swcwcl
  1133.             Cw_DataEnvi.DataConnect.BeginTrans
  1135.             If .State = 1 Then .Close
  1136.             .Open "SELECT * FROM PM_BankItem WHERE ID= " & CzxsGrid.TextMatrix(CzxsGrid.Row, 0), Cw_DataEnvi.DataConnect, adOpenDynamic, adLockOptimistic
  1137.      
  1138.             If Not .EOF Then
  1139.                 
  1140.                 .Fields("ColumnName") = Trim(LrText(0).Text)      '栏目名称
  1141.                 If Singl Then
  1142.                     .Fields("SourceField") = Trim(LrText(1).Tag)
  1143.                 Else
  1144.                     .Fields("SourceField") = ""
  1145.                 End If     '数据内容
  1146.                 .Fields("DataContent") = Trim(LrText(1).Text)     '数据内容
  1147.                 If Trim(Cbo_DataType.Text) = "字符型" Then        '数据类型
  1148.                     .Fields("DataType") = 0
  1149.                 Else
  1150.                     .Fields("DataType") = 5
  1151.                 End If        '数据类型
  1152.                 .Fields("DataLen") = Trim(LrText(2).Text)         '数据长度
  1153.                 .Fields("DotLen") = Trim(LrText(3).Text)          '小数位数
  1154.                 .Fields("BkRoundType") = Trim(LrText(4).Text)     '括项目符号
  1155.                 .Fields("AutoAdd1") = Chk_Add.Value               '自动加1
  1156.                 If Singl Then
  1157.                     .Fields("single") = 1
  1158.                 Else
  1159.                     .Fields("single") = 0
  1160.                 End If
  1161.                 .Update
  1162.             End If
  1164.              Cw_DataEnvi.DataConnect.CommitTrans
  1165.    
  1166.             '刷新当前网格
  1167.             Sqlstr = "SELECT * FROM PM_BankItem p left join Rs_Items r on right(ltrim(rtrim(sourcefield)),len(ltrim(rtrim(sourcefield)))-charindex('.',ltrim(rtrim(sourcefield))))=r.FieldName " & _
  1168.                      "  WHERE ID= " & CzxsGrid.TextMatrix(CzxsGrid.Row, 0)
  1169.             Set Cxnrrec = Cw_DataEnvi.DataConnect.Execute(Sqlstr)
  1170.    
  1171.             With CzxsGrid
  1172.                 Call Jltcwg(Cxnrrec, .Row)
  1173.             End With
  1174.    
  1175.         End If
  1176.      
  1177.         '保存记录成功,函数返回真值
  1178.         Bclrsj = True
  1179.         Exit Function
  1180.         
  1181.     End With
  1182.  
  1183. Swcwcl:
  1184.      Set Rec_CodeSet = Nothing
  1185.      Cw_DataEnvi.DataConnect.RollbackTrans
  1186.      
  1187.      Tsxx = "存盘过程中出现错误,程序自动恢复保存前状态!"
  1188.      Call Xtxxts(Tsxx, 0, 1)
  1189.      
  1190.      Exit Function
  1191.      
  1192. End Function
  1194. Private Function Cshlrxx(lrztxx As Integer) As Boolean              '初始化录入字段信息
  1196.     TextChangeLock = True       '关闭文本框Chang事件
  1197.     
  1198.     If lrztxx = 1 Then
  1199.     
  1200.         '增加新记录时将文本框清空
  1201.         For jsqte = 0 To Max_Text_Index
  1202.             If Len(Trim(Textstr(jsqte, 1))) <> 0 Then
  1203.                 LrText(jsqte).Text = ""
  1204.                 LrText(jsqte).Tag = ""
  1205.             End If
  1206.             TextValiJudgeLock(jsqte) = True
  1207.         Next jsqte
  1208.         Cbo_DataType.Text = "字符型"
  1209.         Chk_Add.Value = 0
  1210.         Cbo_DataType.Enabled = True
  1211.         '[>>
  1212.         '在此处可添加新增记录时初始化设置
  1213.         '<<]
  1214.     Else
  1215.     
  1216.         '修改记录时根据记录关键字(编码)从数据表中读入其他字段内容
  1217.         With RecTemp
  1218.             Sqlstr = "SELECT p.*,r.ChName FROM PM_BankItem p left join rs_items r on right(ltrim(rtrim(sourcefield)),len(ltrim(rtrim(sourcefield)))-charindex('.',ltrim(rtrim(sourcefield))))=r.fieldname Where ID=" & CzxsGrid.TextMatrix(CzxsGrid.Row, 0)
  1219.             Set RecTemp = Cw_DataEnvi.DataConnect.Execute(Sqlstr)
  1220.        
  1221.             '记录如存在则读入其内容,否则提示记录已被其他人删除
  1222.             If Not RecTemp.EOF Then
  1223.                 LrText(0).Text = Trim(.Fields("ColumnName") & "")             '栏目名称
  1224.                 If .Fields("single") = True Then
  1225.                     LrText(1).Text = Trim(.Fields("ChName") & "")            '数据内容
  1226.                 Else
  1227.                     LrText(1).Text = Trim(.Fields("DataContent") & "")            '数据内容
  1228.                 End If
  1229.                 
  1230.                 If .Fields("single") = True And Trim(.Fields("DataContent") & "") = "银行账号" Then
  1231.                     LrText(1).Text = Trim(.Fields("DataContent") & "")            '数据内容
  1232.                 End If
  1233.                 
  1234.                 LrText(1).Tag = Trim(.Fields("SourceField") & "")
  1235.                 If .Fields("DataType") = 0 Then           '数据类型
  1236.                     Cbo_DataType.Text = "字符型"
  1237.                 Else
  1238.                     Cbo_DataType.Text = "数值型"
  1239.                 End If
  1240.                 
  1241.                 LrText(2).Text = Trim(.Fields("DataLen") & "")            '数据长度
  1242.                 LrText(3).Text = Trim(.Fields("DotLen") & "")            '小数位数
  1243.                 LrText(4).Text = Trim(.Fields("BkRoundType") & "")            '括项目符号
  1244.                 If .Fields("AutoAdd1") = True Then          '自动加1
  1245.                     Chk_Add = 1
  1246.                 Else
  1247.                     Chk_Add = 0
  1248.                 End If
  1249.                 
  1250.                 If .Fields("Single") = True Then
  1251.                     Singl = True
  1252.                     Cbo_DataType.Enabled = False
  1253.                 Else
  1254.                     Singl = False
  1255.                     Cbo_DataType.Enabled = True
  1256.                 End If
  1257.             Else
  1258.                 Tsxx = "该记录已经被其他人删除,请刷新当前数据!"
  1259.                 Call Xtxxts(Tsxx, 0, 4)
  1260.                 Call Cancel
  1261.                 TextChangeLock = False
  1262.                 Exit Function
  1263.             End If
  1264.         End With
  1265.     End If
  1266.     
  1267.     Cshlrxx = True
  1268.     TextChangeLock = False
  1269.     
  1270. End Function
  1272. Private Sub Scdqjl()                 '删 除 当 前 记 录
  1274.     Dim Yhanswer As Integer
  1275.   
  1276.     '判断用户是否有此功能执行权限,如有则写上机日志(进入)
  1277.     If Not Security_Log(Str_RightEdit, Xtczybm, 1, True) Then
  1278.          Exit Sub
  1279.     End If
  1280.     
  1281.     '非数据行不能删除
  1282.     If CzxsGrid.Row < CzxsGrid.FixedRows Then
  1283.         Exit Sub
  1284.     End If
  1285.   
  1286.     '用户确认是否删除记录
  1287.     Tsxx = "请确认是否删除当前记录?"
  1288.     Yhanswer = Xtxxts(Tsxx, 2, 2)
  1289.     
  1290.     If Yhanswer = 2 Then
  1291.         Exit Sub
  1292.     End If
  1294.     On Error GoTo Cwcl
  1295.   
  1296.     Cw_DataEnvi.DataConnect.BeginTrans
  1298.     '[>>以下需自定义部分
  1299.     Cw_DataEnvi.DataConnect.Execute "delete PM_BankItem where Id = " & Trim(CzxsGrid.TextMatrix(CzxsGrid.Row, 0))
  1300.     '以上为自定义部分<<]
  1301.   
  1302.     Cw_DataEnvi.DataConnect.CommitTrans
  1304.     CzxsGrid.RemoveItem CzxsGrid.Row
  1305.     
  1306.     EImport
  1307.     
  1308.     Exit Sub
  1309.   
  1310. Cwcl:
  1312.     Cw_DataEnvi.DataConnect.RollbackTrans
  1313.     
  1314.     If Err.Number = -2147217873 Then                '(-2147217873 为SQL Server 2000通过建立外键产生的错误号)
  1315.         Tsxx = "该编码已经被使用,不能删除!"
  1316.         Call Xtxxts(Tsxx, 0, 1)
  1317.         Exit Sub
  1318.     Else
  1319.         Tsxx = "出现未知情况,该编码不能被删除!"
  1320.         Call Xtxxts(Tsxx, 0, 1)
  1321.         Exit Sub
  1322.     End If
  1323.     
  1324. End Sub
  1325. Private Sub EImport()
  1326.     If CzxsGrid.Rows = CzxsGrid.FixedRows And Trim(SortId) <> "" And Trim(BankCode) <> "" Then
  1327.         SzToolbar.Buttons("import").Enabled = True
  1328.     Else
  1329.         SzToolbar.Buttons("import").Enabled = False
  1330.     End If
  1331. End Sub
  1333. '*******************以下区域为编写自定义过程区域**********************
  1336. '*******************以上区域为编写自定义过程区域**********************
  1338. '******************以下为基本处理程序(固定不变)************************'
  1339. Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)        '支持热键操作
  1341.     If Shift = 2 Then
  1342.         Select Case UCase(Chr(KeyCode))
  1343.             Case "P"                                                                          'Ctrl+P 打印
  1344.                 If SzToolbar.Buttons("dy").Visible And SzToolbar.Buttons("dy").Enabled Then
  1345.                     Call bbyl(False)
  1346.                 End If
  1347.             Case "A"                                                                          'Ctrl+A 增加
  1348.                 '判断用户是否有此功能执行权限,如有则写上机日志(进入)
  1349.                 If Not Security_Log(Str_RightEdit, Xtczybm, 1, True) Then
  1350.                     Exit Sub
  1351.                 End If
  1352.                 If SzToolbar.Buttons("zj").Visible And SzToolbar.Buttons("zj").Enabled Then
  1353.                     Call Toolbjzt
  1354.                     Lrzt = 1
  1355.                     Call Cshlrxx(Lrzt)
  1356.                     LrText(0).SetFocus
  1357.                     LrText(0).Enabled = True
  1358.                 End If
  1359.             Case "D"                                                                          'Ctrl+D 删除
  1360.                 If SzToolbar.Buttons("sc").Visible And SzToolbar.Buttons("sc").Enabled Then
  1361.                     Call Scdqjl
  1362.                 End If
  1363.         End Select
  1364.     End If
  1365.     
  1366. End Sub
  1368. Private Sub ImgCbo_Bank_click()
  1369.     EC
  1370.     BankCode = GetComboKey(ImgCbo_Bank, 0)
  1371.     Cxnrtcwg
  1372. End Sub
  1374. Private Sub ImgCbo_Sort_Click()
  1375.     EC
  1376.     SortId = GetComboKey(ImgCbo_Sort, 0)
  1377.     Cxnrtcwg
  1378. End Sub
  1380. Private Sub SzToolbar_ButtonClick(ByVal Button As MSComctlLib.Button)
  1381.    
  1382.     Select Case Button.Key
  1383.         Case "ymsz"                                          '页面设置
  1384.             Dyymctbl.Show 1
  1385.         Case "yl"                                            '预 览
  1386.             Call bbyl(True)
  1387.         Case "dy"                                            '打 印
  1388.             Call bbyl(False)
  1389.         Case "zj"                                            '增 加
  1390.             '判断用户是否有此功能执行权限,如有则写上机日志(进入)
  1391.             If Not Security_Log(Str_RightEdit, Xtczybm, 1, True) Then
  1392.                 Exit Sub
  1393.             End If
  1394.             Call Toolbjzt
  1395.             Lrzt = 1
  1396.             Call Cshlrxx(Lrzt)
  1397.             LrText(0).Enabled = True
  1398.             LrText(0).SetFocus
  1399.         Case "xg"                                            '修 改
  1400.             Call Xgdqjl
  1401.         Case "sc"                                            '删 除
  1402.             Call Scdqjl
  1403.         Case "import"                                        '导 入
  1404.             '判断用户是否有此功能执行权限,如有则写上机日志(进入)
  1405.             If Not Security_Log(Str_RightEdit, Xtczybm, 1, True) Then
  1406.                 Exit Sub
  1407.             End If
  1408.             Bank_FrmItemGuide.Show 1
  1409.             Cxnrtcwg
  1410.         Case "sx"                                            '刷 新
  1411.             Call Cxnrtcwg
  1412.         Case "bz"                                            '帮 助
  1413.             Call F1bz
  1414.         Case "fh"                                            '退 出
  1415.             Unload Me
  1416.         End Select
  1417.         
  1418. End Sub
  1420. Private Sub CzxsGrid_DblClick()                            '修改当前编码记录
  1422.     Call Xgdqjl
  1423.   
  1424. End Sub
  1426. Private Sub Xgdqjl()                                       '修改当前编码记录
  1427.     '判断用户是否有此功能执行权限,如有则写上机日志(进入)
  1428.     If Not Security_Log(Str_RightEdit, Xtczybm, 1, True, False) Then
  1429.         BcCommand.Enabled = False
  1430.     End If
  1431.     If CzxsGrid.Row < CzxsGrid.FixedRows Then
  1432.         Exit Sub
  1433.     End If
  1434.     
  1435.     Call Toolbjzt
  1436.     Lrzt = 2
  1437.     
  1438.     If Cshlrxx(Lrzt) Then
  1439.         LrText(0).SetFocus
  1440.     End If
  1441.   
  1442. End Sub
  1444. Private Sub Toolbjzt()                                     'Toolbar状态(编辑状态)
  1446.     StTab.TabEnabled(1) = True
  1447.     StTab.Tab = 1
  1448.     Frame1.Enabled = True
  1449.     StTab.TabEnabled(0) = False
  1450.     CzxsGrid.Enabled = False
  1451.   
  1452.     With SzToolbar
  1453.         .Buttons("ymsz").Enabled = False
  1454.         .Buttons("dy").Enabled = False
  1455.         .Buttons("yl").Enabled = False
  1456.         .Buttons("zj").Enabled = False
  1457.         .Buttons("xg").Enabled = False
  1458.         .Buttons("sc").Enabled = False
  1459.         .Buttons("sx").Enabled = False
  1460.         .Buttons("import").Enabled = False
  1461.     End With
  1462.     ImgCbo_Sort.Enabled = False
  1463.     ImgCbo_Bank.Enabled = False
  1464. End Sub
  1466. Private Sub Toolfbjzt()                                    'Toolbar状态(非编辑状态)
  1468.     StTab.TabEnabled(0) = True
  1469.     StTab.Tab = 0
  1470.     CzxsGrid.Enabled = True
  1471.     Frame1.Enabled = False
  1472.     StTab.TabEnabled(1) = False
  1473.     Lrzt = 0
  1474.     
  1475.     With SzToolbar
  1476.         .Buttons("ymsz").Enabled = True
  1477.         .Buttons("dy").Enabled = True
  1478.         .Buttons("yl").Enabled = True
  1479.         .Buttons("zj").Enabled = True
  1480.         .Buttons("xg").Enabled = True
  1481.         .Buttons("sc").Enabled = True
  1482.         .Buttons("sx").Enabled = True
  1483.     End With
  1484.     ImgCbo_Sort.Enabled = True
  1485.     ImgCbo_Bank.Enabled = True
  1486. End Sub
  1488. Private Sub BcCommand_Click()                                           '保 存
  1490.     If Not Bclrsj Then
  1491.         Exit Sub
  1492.     End If
  1493.   
  1494.     If Lrzt = 2 Then
  1495.         Call Toolfbjzt
  1496.     End If
  1497.   
  1498. End Sub
  1500. Private Sub QxCommand_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)       '取消
  1501.   
  1502.     '避免执行Click程序
  1503.     Bln_Cancel = True
  1504.   
  1505.     Call Cancel
  1506.     EImport
  1507. End Sub
  1509. Private Sub QxCommand_Click()                                                                         '取消
  1510.  
  1511.     If Bln_Cancel Then
  1512.         Bln_Cancel = False
  1513.         Exit Sub
  1514.     End If
  1515.  
  1516.     Call Cancel
  1517.     EImport
  1518. End Sub
  1520. Private Sub Cancel()                                                                                  '取消
  1521.   
  1522.     '文本框加锁
  1523.     For jsqte = 0 To Max_Text_Index
  1524.         TextValiJudgeLock(jsqte) = True
  1525.     Next jsqte
  1526.   
  1527.     Call Toolfbjzt
  1528.     
  1529. End Sub
  1531. Private Sub CzxsGrid_BeforeMoveColumn(ByVal Col As Long, Position As Long)           '网格列发生移动时自动交换网格索引信息
  1532.     
  1533.     FnBln_RefreshArray Col, Position, GridStr(), GridInf()
  1535. End Sub
  1537. Private Sub GsToolbar_ButtonClick(ByVal Button As MSComctlLib.Button)   '表格格式设置(通用)
  1538.     
  1539.     Select Case Button.Key
  1540.         Case "bcgs"                                       '保存表格格式
  1541.             Call Bcwggs(CzxsGrid, GridCode, GridStr())
  1542.         Case "hfmrgs"                                     '恢复默认格式
  1543.             Call Hfmrgs(CzxsGrid, GridCode, GridStr())
  1544.         Case "szxsxm"                                     '设置显示项目
  1545.             Call Szxsxm(CzxsGrid, GridCode)
  1546.     End Select
  1547.     
  1548. End Sub
  1550. Private Sub bbyl(bbylte As Boolean)                    '报表打印预览
  1552.     Dim Bbzbt$, Bbxbt() As String, bbxbtzzxs() As Integer, Bbxbtgs As Integer
  1553.     Dim Bbbwh() As String, Bbbwhzzxs() As Integer, Bbbwhgs As Integer
  1554.     Bbxbtgs = 1                                          '报 表 小 标 题 行 数
  1555.     Bbbwhgs = 0                                          '报 表 表 尾 行 数
  1556.     ReDim Bbxbt(1 To Bbxbtgs)
  1557.     ReDim bbxbtzzxs(1 To Bbxbtgs)
  1558.     
  1559.     If Bbbwhgs <> 0 Then
  1560.         ReDim Bbbwh(1 To Bbbwhgs)
  1561.         ReDim Bbbwhzzxs(1 To Bbbwhgs)
  1562.     End If
  1563.     
  1564.     Bbzbt = ReportTitle
  1565.     Bbxbt(1) = "工资类别：" & GetComboKey(ImgCbo_Sort, 1) & Space(10) & "银行名称：" & GetComboKey(ImgCbo_Bank, 1)
  1566.     bbxbtzzxs(1) = 0                                     '报表行组织形式(0-居左 1-居中 2-居右)
  1567.     
  1568.     Call Scyxsjb(CzxsGrid)                               '生成报表数据
  1569.     Call Scdybb(Dyymctbl, Bbzbt, Bbxbt(), bbxbtzzxs(), Bbxbtgs, Bbbwh(), Bbbwhzzxs(), Bbbwhgs, bbylte)
  1570.   
  1571.     If Not bbylte Then
  1572.         Unload DY_Tybbyldy
  1573.     End If
  1574.     
  1575. End Sub
  1577. '************以下为文本框录入处理程序(固定不变部分)*************'
  1579. Private Sub Wbklrwbcl(Index As Integer)    '文本框录入事后处理程序
  1581.     '以下为依据实际情况自定义部分[
  1582.   
  1583.         '在此填写文本框录入事后处理程序
  1584.    
  1585.     ']以上为依据实际情况自定义部分
  1586.     
  1587. End Sub
  1589. Private Sub LrText_Change(Index As Integer)
  1590.     If Index = 1 Then
  1591.         Singl = False
  1592.         Cbo_DataType.Enabled = True
  1593.     End If
  1594.     
  1595.     '屏蔽程序改变控制
  1596.     If TextChangeLock Then
  1597.         Exit Sub
  1598.     End If
  1599.     
  1600.     TextValiJudgeLock(Index) = False    '打开有效性判断锁
  1601.     
  1602.     '限制字段录入长度
  1603.           
  1604.     TextChangeLock = True  '加锁(防止执行Lrtext_Change)
  1605.      
  1606.     Call TextChangeLimit(LrText(Index), Textint(Index, 1))  '去掉无效字符
  1607.     
  1608.     Select Case Textint(Index, 1)
  1609.         Case 8, 11      '金额型
  1610.             Call Sjgskz(LrText(Index), Xtjezws - Xtjexsws - 1, Xtjexsws)
  1611.         Case 9, 12      '数量型
  1612.             Call Sjgskz(LrText(Index), Xtslzws - Xtslxsws - 1, Xtslxsws)
  1613.         Case 10          '单价型
  1614.             Call Sjgskz(LrText(Index), Xtdjzws - Xtdjxsws - 1, Xtdjxsws)
  1615.         Case Else        '其他小数类型控制
  1616.             If Textint(Index, 6) <> 0 Or Textint(Index, 7) <> 0 Then
  1617.                 Call Sjgskz(LrText(Index), Textint(Index, 6), Textint(Index, 7))
  1618.             End If
  1619.     End Select
  1620.         
  1621.     TextChangeLock = False '解锁
  1622. End Sub
  1624. Private Sub LrText_GotFocus(Index As Integer)                                                 '文本框得到焦点,显示相应信息
  1625.    
  1626.     Call TextShow(Index)
  1627.     CurTextIndex = Index
  1628.     LrText(Index).SelStart = Len(LrText(Index))
  1629.    
  1630. End Sub
  1632. Private Sub LrText_KeyDown(Index As Integer, KeyCode As Integer, Shift As Integer)            '字段按F2键提供帮助
  1633.    
  1634.     Select Case KeyCode
  1635.          Case vbKeyF2
  1636.              Call Text_Help(Index)
  1637.     End Select
  1638.    
  1639. End Sub
  1641. Private Sub LrText_KeyPress(Index As Integer, KeyAscii As Integer)                            '文本框录入事中控制
  1642.    
  1643.     Call InputFieldLimit(LrText(Index), Textint(Index, 1), KeyAscii)
  1644.     If Index = 4 And KeyAscii < 0 Then
  1645.         KeyAscii = 0
  1646.     End If
  1647. End Sub
  1649. Private Sub LrText_LostFocus(Index As Integer)                                                '文本框失去焦点
  1651.     '显示相应信息但不能进行有效性判断
  1652.   
  1653. End Sub
  1655. Private Sub Ydcommand1_MouseDown(Index As Integer, Button As Integer, Shift As Integer, x As Single, y As Single)     '按钮提供帮助
  1656.     
  1657.     Call Text_Help(Index)
  1658.     
  1659. End Sub
  1661. Private Sub Text_Help(Index As Integer)                                                       '录入字段帮助
  1662.   
  1663.     If Not Textboolean(Index, 1) Then
  1664.         Exit Sub
  1665.     End If
  1666.    
  1667.     '调用帮助
  1668.     Call Drbmhelp(Textint(Index, 2), Textstr(Index, 4), Trim(LrText(Index).Text))
  1669.   
  1670.     '根据设置选择显示编码和名称,并进行存储
  1671.     If Len(Xtfhcs) <> 0 Then
  1672.         If Textint(Index, 3) = 1 Then
  1673.             LrText(Index).Text = Xtfhcsfz
  1674.             LrText(Index).Tag = Xtfhcs
  1675.         Else
  1676.             LrText(Index).Text = Xtfhcs
  1677.             LrText(Index).Tag = Xtfhcsfz
  1678.         End If
  1679.     End If
  1680.    
  1681.     LrText(Index).SetFocus
  1682.     
  1683. End Sub
  1685. Private Sub TextShow(Index As Integer)        '文本框得到焦点,显示相应信息
  1687.     '填写文本框得到焦点,进行相应信息处理程序
  1688.    
  1689. End Sub
  1691. Private Sub Wbkcsh()                          '录入文本框初始化
  1693.     Dim jsqte As Integer
  1694.   
  1695.     '最大录入文本框索引值
  1696.     Max_Text_Index = Textvar(1)
  1697.   
  1698.     ReDim TextValiJudgeLock(Max_Text_Index)
  1699.     
  1700.     For jsqte = 0 To Max_Text_Index
  1701.      
  1702.         If Len(Trim(Textstr(jsqte, 1))) <> 0 Then
  1703.             If Textboolean(jsqte, 1) Then
  1704.                 If jsqte <> 0 And Not Textboolean(jsqte, 3) Then
  1705.                     Load Ydcommand1(jsqte)
  1706.                 End If
  1707.                 Ydcommand1(jsqte).Visible = True
  1708.                 Ydcommand1(jsqte).Move LrText(jsqte).Left + LrText(jsqte).Width, LrText(jsqte).Top
  1709.             End If
  1710.             TextChangeLock = True
  1711.             LrText(jsqte).Text = ""
  1712.             LrText(jsqte).Tag = ""
  1713.             
  1714.             If Textint(jsqte, 5) <> 0 Then
  1715.                 LrText(jsqte).MaxLength = Textint(jsqte, 5)
  1716.             End If
  1717.             
  1718.             TextChangeLock = False
  1719.         End If
  1720.         
  1721.         TextValiJudgeLock(jsqte) = True
  1722.     Next jsqte
  1723.     
  1724. End Sub
  1726. Private Function TextYxxpd(Index As Integer) As Boolean           '文本框有效性判断
  1728.     Dim Sqlstr As String
  1729.     Dim Findrec As ADODB.Recordset
  1730.   
  1731.     '文本框内容未曾改变不进行有效性判断
  1732.     If TextValiJudgeLock(Index) Then
  1733.         TextYxxpd = True
  1734.         Exit Function
  1735.     End If
  1736.   
  1737.     '文本框内容为空认为有效,并清空其Tag值
  1738.     If Trim(LrText(Index)) = "" Then
  1739.         LrText(Index).Tag = ""
  1740.         Call Wbklrwbcl(Index)
  1741.         TextValiJudgeLock(Index) = True
  1742.         TextYxxpd = True
  1743.         Exit Function
  1744.     End If
  1745.   
  1746.     '可在此加入不做有效性判断的理由
  1747.   
  1748.     Select Case Textint(Index, 4)
  1749.         Case 1      '编码型
  1750.             Sqlstr = Trim(Textstr(Index, 5))
  1751.             Sqlstr = Replace(Sqlstr, "@", "'" + Trim(LrText(Index).Text) + "'")
  1752.             Set Findrec = Cw_DataEnvi.DataConnect.Execute(Sqlstr)
  1753.          
  1754.             If Findrec.EOF Then
  1755.                 Call Xtxxts(Trim(Textstr(Index, 6)), 0, 1)
  1756.                 LrText(Index).SetFocus
  1757.                 Exit Function
  1758.             Else
  1759.                 Select Case Textint(Index, 3)
  1760.                     Case 0
  1761.                         If Len(Trim(Textstr(Index, 2))) <> 0 Then
  1762.                             LrText(Index).Text = Trim(Findrec.Fields(Trim(Textstr(Index, 2))))
  1763.                         End If
  1764.                         If Len(Trim(Textstr(Index, 3) & "")) <> 0 Then
  1765.                             LrText(Index).Tag = Trim(Findrec.Fields(Trim(Textstr(Index, 3))))
  1766.                         End If
  1767.                     Case 1
  1768.                         If Len(Trim(Textstr(Index, 3) & "")) <> 0 Then
  1769.                             LrText(Index).Text = Trim(Findrec.Fields(Trim(Textstr(Index, 3))))
  1770.                         End If
  1771.                         If Len(Trim(Textstr(Index, 2))) <> 0 Then
  1772.                             LrText(Index).Tag = Trim(Findrec.Fields(Trim(Textstr(Index, 2))))
  1773.                         End If
  1774.                 End Select
  1775.             End If
  1776.             
  1777.         Case 2      '日期型
  1778.             If IsDate(LrText(Index).Text) Then
  1779.                 LrText(Index).Text = Format(LrText(Index).Text, "yyyy-mm-dd")
  1780.                 If Val(Mid(LrText(Index), 1, 4)) < 1900 Then
  1781.                     LrText(Index).Text = "1900" + Mid(LrText(Index), 5, 6)
  1782.                 End If
  1783.             Else
  1784.                 Tsxx = "非法公历日期!(格式:" + Format(Date, "yyyy-mm-dd") + ")"
  1785.                 Call Xtxxts(Tsxx, 0, 1)
  1786.                 LrText(Index).SetFocus
  1787.                 Exit Function
  1788.             End If
  1789.             
  1790.         Case 3      '其他类型
  1791.         
  1792.     End Select
  1793.     
  1794.     '如果有效则加锁,用户不改变内容则不再进行有效性判断
  1795.     TextValiJudgeLock(Index) = True
  1797.     '调用文本框事后处理程序
  1798.     Call Wbklrwbcl(Index)
  1799.    
  1800.     '有效性判断通过则返回True
  1801.     TextYxxpd = True
  1802.    
  1803. End Function