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

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

企业管理

开发平台：

Visual Basic

：源码内容
  1. VERSION 5.00
  2. Object = "{BEEECC20-4D5F-4F8B-BFDC-5D9B6FBDE09D}#1.0#0"; "vsflex8.ocx"
  3. Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "mscomctl.ocx"
  4. Begin VB.Form XJ_FrmXjllbbxm 
  5.    BackColor       =   &H00C0C0C0&
  6.    BorderStyle     =   1  'Fixed Single
  7.    Caption         =   "现金流量表项目设置"
  8.    ClientHeight    =   7380
  9.    ClientLeft      =   675
  10.    ClientTop       =   720
  11.    ClientWidth     =   10575
  12.    Icon            =   "现金流量_报表项目设置.frx":0000
  13.    KeyPreview      =   -1  'True
  14.    LinkTopic       =   "Form4"
  15.    MaxButton       =   0   'False
  16.    MinButton       =   0   'False
  17.    ScaleHeight     =   7380
  18.    ScaleWidth      =   10575
  19.    StartUpPosition =   1  '所有者中心
  20.    Begin MSComctlLib.Toolbar GsToolbar 
  21.       Height          =   525
  22.       Left            =   8955
  23.       TabIndex        =   13
  24.       Top             =   0
  25.       Width           =   1665
  26.       _ExtentX        =   2937
  27.       _ExtentY        =   926
  28.       ButtonWidth     =   1455
  29.       ButtonHeight    =   926
  30.       AllowCustomize  =   0   'False
  31.       Appearance      =   1
  32.       Style           =   1
  33.       ImageList       =   "ImageList1"
  34.       _Version        =   393216
  35.       BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628} 
  36.          NumButtons      =   2
  37.          BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  38.             Caption         =   "保存格式"
  39.             Key             =   "bcgs"
  40.             ImageKey        =   "bcgs"
  41.          EndProperty
  42.          BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  43.             Caption         =   "默认列宽"
  44.             Key             =   "hfmrgs"
  45.             ImageKey        =   "mrlk"
  46.          EndProperty
  47.       EndProperty
  48.    End
  49.    Begin VB.TextBox Ydtext 
  50.       BackColor       =   &H00C0FFFF&
  51.       BorderStyle     =   0  'None
  52.       Height          =   330
  53.       Left            =   6090
  54.       MultiLine       =   -1  'True
  55.       TabIndex        =   1
  56.       Top             =   1050
  57.       Visible         =   0   'False
  58.       Width           =   1185
  59.    End
  60.    Begin VB.ComboBox YdCombo 
  61.       Height          =   300
  62.       Left            =   6090
  63.       Style           =   2  'Dropdown List
  64.       TabIndex        =   12
  65.       Top             =   720
  66.       Visible         =   0   'False
  67.       Width           =   1155
  68.    End
  69.    Begin VB.PictureBox Pic_Title 
  70.       Height          =   825
  71.       Left            =   30
  72.       Picture         =   "现金流量_报表项目设置.frx":1042
  73.       ScaleHeight     =   765
  74.       ScaleWidth      =   10845
  75.       TabIndex        =   5
  76.       Top             =   600
  77.       Width           =   10905
  78.       Begin VB.Label Lab_Row 
  79.          Alignment       =   2  'Center
  80.          Appearance      =   0  'Flat
  81.          BackColor       =   &H80000005&
  82.          BackStyle       =   0  'Transparent
  83.          ForeColor       =   &H00000000&
  84.          Height          =   225
  85.          Left            =   9330
  86.          TabIndex        =   11
  87.          Top             =   270
  88.          Width           =   315
  89.       End
  90.       Begin VB.Label TsLabel 
  91.          BackStyle       =   0  'Transparent
  92.          Caption         =   "(第"
  93.          Height          =   255
  94.          Index           =   11
  95.          Left            =   9030
  96.          TabIndex        =   10
  97.          Top             =   270
  98.          Width           =   315
  99.       End
  100.       Begin VB.Label TsLabel 
  101.          BackStyle       =   0  'Transparent
  102.          Caption         =   "行)"
  103.          Height          =   255
  104.          Index           =   12
  105.          Left            =   9660
  106.          TabIndex        =   9
  107.          Top             =   270
  108.          Width           =   405
  109.       End
  110.       Begin VB.Label TsLabel 
  111.          BackStyle       =   0  'Transparent
  112.          Caption         =   "当前记录"
  113.          Height          =   255
  114.          Index           =   13
  115.          Left            =   8190
  116.          TabIndex        =   8
  117.          Top             =   270
  118.          Width           =   825
  119.       End
  120.       Begin VB.Label Lab_TitleText 
  121.          BackStyle       =   0  'Transparent
  122.          ForeColor       =   &H00FF0000&
  123.          Height          =   225
  124.          Index           =   0
  125.          Left            =   6960
  126.          TabIndex        =   7
  127.          Top             =   480
  128.          Width           =   1395
  129.       End
  130.       Begin VB.Label TsLabel 
  131.          AutoSize        =   -1  'True
  132.          BackColor       =   &H80000018&
  133.          BackStyle       =   0  'Transparent
  134.          Caption         =   "现金流量表设置"
  135.          BeginProperty Font 
  136.             Name            =   "宋体"
  137.             Size            =   14.25
  138.             Charset         =   134
  139.             Weight          =   700
  140.             Underline       =   0   'False
  141.             Italic          =   0   'False
  142.             Strikethrough   =   0   'False
  143.          EndProperty
  144.          ForeColor       =   &H00000000&
  145.          Height          =   285
  146.          Index           =   4
  147.          Left            =   510
  148.          TabIndex        =   6
  149.          Top             =   180
  150.          Width           =   2100
  151.       End
  152.    End
  153.    Begin MSComctlLib.Toolbar Tlb_Action 
  154.       Align           =   1  'Align Top
  155.       Height          =   555
  156.       Left            =   0
  157.       TabIndex        =   3
  158.       Top             =   0
  159.       Width           =   10575
  160.       _ExtentX        =   18653
  161.       _ExtentY        =   979
  162.       ButtonWidth     =   820
  163.       ButtonHeight    =   926
  164.       AllowCustomize  =   0   'False
  165.       Wrappable       =   0   'False
  166.       Appearance      =   1
  167.       Style           =   1
  168.       ImageList       =   "ImageList1"
  169.       _Version        =   393216
  170.       BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628} 
  171.          NumButtons      =   9
  172.          BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  173.             Caption         =   "设置"
  174.             Key             =   "ymsz"
  175.             Object.ToolTipText     =   "打印页面设置"
  176.             ImageKey        =   "sz"
  177.          EndProperty
  178.          BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  179.             Caption         =   "打印"
  180.             Key             =   "dy"
  181.             Object.ToolTipText     =   "打印当前单据或Ctrl+P"
  182.             ImageKey        =   "dy"
  183.          EndProperty
  184.          BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  185.             Caption         =   "预览"
  186.             Key             =   "yl"
  187.             ImageKey        =   "yl"
  188.          EndProperty
  189.          BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  190.             Style           =   3
  191.          EndProperty
  192.          BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  193.             Caption         =   "增行"
  194.             Key             =   "zh"
  195.             Object.ToolTipText     =   "插入一行或Insert"
  196.             ImageKey        =   "zh"
  197.          EndProperty
  198.          BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  199.             Caption         =   "删行"
  200.             Key             =   "sh"
  201.             Object.ToolTipText     =   "删除当前记录行或Delete"
  202.             ImageKey        =   "sh"
  203.          EndProperty
  204.          BeginProperty Button7 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  205.             Style           =   3
  206.          EndProperty
  207.          BeginProperty Button8 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  208.             Caption         =   "帮助"
  209.             Key             =   "bz"
  210.             ImageKey        =   "bz"
  211.          EndProperty
  212.          BeginProperty Button9 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  213.             Caption         =   "退出"
  214.             Key             =   "fh"
  215.             ImageKey        =   "tc"
  216.          EndProperty
  217.       EndProperty
  218.       BorderStyle     =   1
  219.       Begin MSComctlLib.ImageList ImageList1 
  220.          Left            =   4860
  221.          Top             =   0
  222.          _ExtentX        =   1005
  223.          _ExtentY        =   1005
  224.          BackColor       =   -2147483643
  225.          ImageWidth      =   16
  226.          ImageHeight     =   16
  227.          MaskColor       =   12632256
  228.          _Version        =   393216
  229.          BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628} 
  230.             NumListImages   =   32
  231.             BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  232.                Picture         =   "现金流量_报表项目设置.frx":35106
  233.                Key             =   "sz"
  234.             EndProperty
  235.             BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  236.                Picture         =   "现金流量_报表项目设置.frx":354A0
  237.                Key             =   "dy"
  238.             EndProperty
  239.             BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  240.                Picture         =   "现金流量_报表项目设置.frx":3583A
  241.                Key             =   "yl"
  242.             EndProperty
  243.             BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  244.                Picture         =   "现金流量_报表项目设置.frx":35BD4
  245.                Key             =   "xg"
  246.             EndProperty
  247.             BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  248.                Picture         =   "现金流量_报表项目设置.frx":35F6E
  249.                Key             =   "zh"
  250.             EndProperty
  251.             BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  252.                Picture         =   "现金流量_报表项目设置.frx":36308
  253.                Key             =   "sh"
  254.             EndProperty
  255.             BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  256.                Picture         =   "现金流量_报表项目设置.frx":366A2
  257.                Key             =   "bc"
  258.             EndProperty
  259.             BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  260.                Picture         =   "现金流量_报表项目设置.frx":36A3C
  261.                Key             =   "fq"
  262.             EndProperty
  263.             BeginProperty ListImage9 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  264.                Picture         =   "现金流量_报表项目设置.frx":36DD6
  265.                Key             =   "bz"
  266.             EndProperty
  267.             BeginProperty ListImage10 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  268.                Picture         =   "现金流量_报表项目设置.frx":37170
  269.                Key             =   "tc"
  270.             EndProperty
  271.             BeginProperty ListImage11 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  272.                Picture         =   "现金流量_报表项目设置.frx":3750A
  273.                Key             =   "bcgs"
  274.             EndProperty
  275.             BeginProperty ListImage12 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  276.                Picture         =   "现金流量_报表项目设置.frx":378A4
  277.                Key             =   "mrlk"
  278.             EndProperty
  279.             BeginProperty ListImage13 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  280.                Picture         =   "现金流量_报表项目设置.frx":37C3E
  281.                Key             =   "xsxm"
  282.             EndProperty
  283.             BeginProperty ListImage14 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  284.                Picture         =   "现金流量_报表项目设置.frx":37FD8
  285.                Key             =   "first"
  286.             EndProperty
  287.             BeginProperty ListImage15 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  288.                Picture         =   "现金流量_报表项目设置.frx":38372
  289.                Key             =   "prev"
  290.             EndProperty
  291.             BeginProperty ListImage16 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  292.                Picture         =   "现金流量_报表项目设置.frx":3870C
  293.                Key             =   "next"
  294.             EndProperty
  295.             BeginProperty ListImage17 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  296.                Picture         =   "现金流量_报表项目设置.frx":38AA6
  297.                Key             =   "last"
  298.             EndProperty
  299.             BeginProperty ListImage18 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  300.                Picture         =   "现金流量_报表项目设置.frx":38E40
  301.                Key             =   "xx"
  302.             EndProperty
  303.             BeginProperty ListImage19 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  304.                Picture         =   "现金流量_报表项目设置.frx":391DA
  305.                Key             =   "define"
  306.             EndProperty
  307.             BeginProperty ListImage20 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  308.                Picture         =   "现金流量_报表项目设置.frx":39574
  309.                Key             =   "exec"
  310.             EndProperty
  311.             BeginProperty ListImage21 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  312.                Picture         =   "现金流量_报表项目设置.frx":3990E
  313.                Key             =   "xz"
  314.             EndProperty
  315.             BeginProperty ListImage22 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  316.                Picture         =   "现金流量_报表项目设置.frx":39CA8
  317.                Key             =   "sc"
  318.             EndProperty
  319.             BeginProperty ListImage23 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  320.                Picture         =   "现金流量_报表项目设置.frx":3A042
  321.                Key             =   "sx"
  322.             EndProperty
  323.             BeginProperty ListImage24 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  324.                Picture         =   "现金流量_报表项目设置.frx":3A3DC
  325.                Key             =   "cx"
  326.             EndProperty
  327.             BeginProperty ListImage25 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  328.                Picture         =   "现金流量_报表项目设置.frx":3A776
  329.                Key             =   "zd"
  330.             EndProperty
  331.             BeginProperty ListImage26 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  332.                Picture         =   "现金流量_报表项目设置.frx":3AB10
  333.                Key             =   "dz"
  334.             EndProperty
  335.             BeginProperty ListImage27 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  336.                Picture         =   "现金流量_报表项目设置.frx":3AEAA
  337.                Key             =   "ph"
  338.             EndProperty
  339.             BeginProperty ListImage28 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  340.                Picture         =   "现金流量_报表项目设置.frx":3B244
  341.                Key             =   "fz"
  342.             EndProperty
  343.             BeginProperty ListImage29 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  344.                Picture         =   "现金流量_报表项目设置.frx":3B5DE
  345.                Key             =   "dw"
  346.             EndProperty
  347.             BeginProperty ListImage30 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  348.                Picture         =   "现金流量_报表项目设置.frx":3B978
  349.                Key             =   "hf"
  350.             EndProperty
  351.             BeginProperty ListImage31 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  352.                Picture         =   "现金流量_报表项目设置.frx":3BD12
  353.                Key             =   "pz"
  354.             EndProperty
  355.             BeginProperty ListImage32 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  356.                Picture         =   "现金流量_报表项目设置.frx":3C0AC
  357.                Key             =   "check"
  358.             EndProperty
  359.          EndProperty
  360.       End
  361.    End
  362.    Begin VB.CommandButton Ydcommand 
  363.       Height          =   289
  364.       Left            =   8400
  365.       Picture         =   "现金流量_报表项目设置.frx":3C446
  366.       Style           =   1  'Graphical
  367.       TabIndex        =   2
  368.       Top             =   150
  369.       Visible         =   0   'False
  370.       Width           =   285
  371.    End
  372.    Begin VB.CommandButton Ydcommand1 
  373.       Height          =   289
  374.       Left            =   8760
  375.       Picture         =   "现金流量_报表项目设置.frx":3C7E8
  376.       Style           =   1  'Graphical
  377.       TabIndex        =   4
  378.       Top             =   150
  379.       Visible         =   0   'False
  380.       Width           =   285
  381.    End
  382.    Begin VSFlex8Ctl.VSFlexGrid WglrGrid 
  383.       Height          =   4125
  384.       Left            =   30
  385.       TabIndex        =   0
  386.       Top             =   1500
  387.       Width           =   10905
  388.       _cx             =   5080
  389.       _cy             =   5080
  390.       Appearance      =   1
  391.       BorderStyle     =   1
  392.       Enabled         =   -1  'True
  393.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  394.          Name            =   "宋体"
  395.          Size            =   9
  396.          Charset         =   134
  397.          Weight          =   400
  398.          Underline       =   0   'False
  399.          Italic          =   0   'False
  400.          Strikethrough   =   0   'False
  401.       EndProperty
  402.       MousePointer    =   0
  403.       BackColor       =   16777215
  404.       ForeColor       =   -2147483640
  405.       BackColorFixed  =   12632256
  406.       ForeColorFixed  =   -2147483630
  407.       BackColorSel    =   -2147483635
  408.       ForeColorSel    =   -2147483634
  409.       BackColorBkg    =   -2147483636
  410.       BackColorAlternate=   16777215
  411.       GridColor       =   -2147483633
  412.       GridColorFixed  =   -2147483632
  413.       TreeColor       =   -2147483632
  414.       FloodColor      =   192
  415.       SheetBorder     =   -2147483642
  416.       FocusRect       =   1
  417.       HighLight       =   1
  418.       AllowSelection  =   -1  'True
  419.       AllowBigSelection=   -1  'True
  420.       AllowUserResizing=   0
  421.       SelectionMode   =   0
  422.       GridLines       =   1
  423.       GridLinesFixed  =   2
  424.       GridLineWidth   =   1
  425.       Rows            =   50
  426.       Cols            =   10
  427.       FixedRows       =   1
  428.       FixedCols       =   1
  429.       RowHeightMin    =   0
  430.       RowHeightMax    =   0
  431.       ColWidthMin     =   0
  432.       ColWidthMax     =   0
  433.       ExtendLastCol   =   0   'False
  434.       FormatString    =   ""
  435.       ScrollTrack     =   0   'False
  436.       ScrollBars      =   3
  437.       ScrollTips      =   0   'False
  438.       MergeCells      =   0
  439.       MergeCompare    =   0
  440.       AutoResize      =   -1  'True
  441.       AutoSizeMode    =   0
  442.       AutoSearch      =   0
  443.       AutoSearchDelay =   2
  444.       MultiTotals     =   -1  'True
  445.       SubtotalPosition=   1
  446.       OutlineBar      =   0
  447.       OutlineCol      =   0
  448.       Ellipsis        =   0
  449.       ExplorerBar     =   0
  450.       PicturesOver    =   0   'False
  451.       FillStyle       =   0
  452.       RightToLeft     =   0   'False
  453.       PictureType     =   0
  454.       TabBehavior     =   0
  455.       OwnerDraw       =   0
  456.       Editable        =   0
  457.       ShowComboButton =   1
  458.       WordWrap        =   0   'False
  459.       TextStyle       =   0
  460.       TextStyleFixed  =   0
  461.       OleDragMode     =   0
  462.       OleDropMode     =   0
  463.       DataMode        =   0
  464.       VirtualData     =   -1  'True
  465.       DataMember      =   ""
  466.       ComboSearch     =   3
  467.       AutoSizeMouse   =   -1  'True
  468.       FrozenRows      =   0
  469.       FrozenCols      =   0
  470.       AllowUserFreezing=   0
  471.       BackColorFrozen =   0
  472.       ForeColorFrozen =   0
  473.       WallPaperAlignment=   9
  474.       AccessibleName  =   ""
  475.       AccessibleDescription=   ""
  476.       AccessibleValue =   ""
  477.       AccessibleRole  =   24
  478.    End
  479.    Begin VB.Label Lab_OperStatus 
  480.       BackColor       =   &H000080FF&
  481.       Caption         =   "1"
  482.       Height          =   345
  483.       Left            =   10170
  484.       TabIndex        =   14
  485.       Top             =   600
  486.       Visible         =   0   'False
  487.       Width           =   345
  488.    End
  489. End
  490. Attribute VB_Name = "XJ_FrmXjllbbxm"
  491. Attribute VB_GlobalNameSpace = False
  492. Attribute VB_Creatable = False
  493. Attribute VB_PredeclaredId = True
  494. Attribute VB_Exposed = False
  495. '**************************************************************************************
  496. '*    模 块 名 称 :现金流量表项目设置
  497. '*    功 能 描 述 :此功能模块主要完成现金流量表报表格式及各项目属性设置
  498. '*    程序员姓名  :张建忠
  499. '*    最后修改人  :张建忠
  500. '*    最后修改时间:2001/12/03
  501. '*    备        注:程序中所有依实际情况自定义部分均用[>> <<]括起
  502. '*
  503. '*    1.每次调入外部功能窗体，均要加锁ChangeLock=True,窗体关闭后解锁ChangeLock=false
  504. '*
  505. '*    3.Lab_OperStatus 用此标签来标识单据录入状态(默认值为1) 1-浏览 2-修改
  506. '**************************************************************************************
  507.  '以下为自定义变量
  508.     Dim Rec_CashFlowItem As New ADODB.Recordset     '现金流量表报表项目动态集
  509.  
  510.  '以下为固定使用变量(网格)
  511.     Dim Cxnrrec As New ADODB.Recordset              '显示查询内容动态集
  512.     Dim Dyymctbl As New DY_Dyymsz                   '打印页面窗体变量
  513.     Dim GridCode As String                          '显示网格网格代码
  514.     Dim GridInf() As Variant                        '整个网格设置信息
  515.     Dim ReportTitle As String                       '报表主标题
  516.     Dim Tsxx As String                              '系统提示信息
  517.     Dim Pmbcsjhs As Long                            '屏幕网格保持数据行数(大于等于1)
  518.     Dim Fzxwghs As Integer                          '辅助项网格行数(包括合计行)
  519.     Dim Sfxshjwg As Boolean                         '是否显示合计网格
  520.     Dim Qslz As Long                                '网格隐藏(非操作显示)列数
  521.     Dim Sjhgd As Double                             '网格数据行高度
  522.     Dim GridBoolean() As Boolean                    '网格列信息(布尔型)
  523.     Dim GridStr()  As String                        '网格列信息(字符型)
  524.     Dim GridInt() As Integer                        '网格列信息(整型)
  525.     Dim Sfblbzkd As Boolean                         '是否保留帮助宽度(字段提供帮助时,是否为按钮保留空间)
  526.     Dim Dqlrwgh As Long                             '当前录入数据网格行
  527.     Dim Dqlrwgl As Long                             '当前录入数据网格列
  528.     Dim Dqlkwgh As Long                             '刚刚离开网格行(不一定为录入行)
  529.     Dim Dqlkwgl As Long                             '刚刚离开网格列
  530.     Dim Dqtoprow As Long                            '当前录入状态时最上端可视行
  531.     Dim Dqleftcol As Long                           '当前录入状态时最左端可视列
  532.     Dim Zdlrqnr As String                           '字段录入修改前内容(用来判断内容是否修改)
  533.     Dim Wbkbhlock As Boolean                        '文本框改变值锁
  534.     Dim changelock As Boolean                       '网格行列改变控制锁(用来区别用户改变.程序改变)
  535.     Dim Gdtlock As Boolean                          '滚动条滚动控制(用来区别用户改变.程序改变)
  536.     Dim Yxxpdlock As Boolean                        '字段有效性判断锁(内容不修改不需进行字段有效性判断)
  537.     Dim Hyxxpdlock As Boolean                       '行有效性判断锁(字段内容不修改不需进行行有效性判断)
  538.     Dim Valilock As Boolean                         '文本框失去焦点是否进行有效性控制(TRUE 为锁定*限用网格录入)
  539.     Dim Shsfts As Boolean                           '删除记录行是否提示
  540.     Dim Szzls As Integer                            '网格信息数组最大下标值(网格列数-1)
  541.     
  542. Private Sub Form_KeyPress(KeyAscii As Integer)      '控制焦点转移和限制录入字符"'"
  543.     Select Case KeyAscii
  544.     Case 39           '屏蔽字符"'"
  545.         KeyAscii = 0
  546.     End Select
  547. End Sub
  549. Private Sub Form_Load()                              '窗 体 装 入
  550.     
  551.     '初始化各种锁值
  552.     changelock = False             '网格行列改变控制锁
  553.     Gdtlock = False                '滚动条滚动控制
  554.     Yxxpdlock = True               '字段有效性判断锁
  555.     Hyxxpdlock = True              '行有效性判断锁
  556.     Wbkbhlock = False              '文本框内容改变锁
  557.     
  558.     '报表主标题及报表编码
  559.     ReportTitle = "现金流量表设置"
  560.     XtReportCode = "Cwzz_xjllbbxm"
  561.     Load Dyymctbl
  562.     
  563.     '调 入 网 格
  564.     GridCode = "Cwzz_xjllbbxm"        '网格属性编码
  565.     Call BzWgcsh(WglrGrid, GridCode, GridInf(), GridBoolean(), GridInt(), GridStr())
  566.     
  567.     Qslz = GridInf(1)
  568.     Sjhgd = GridInf(2)
  569.     Pmbcsjhs = GridInf(3)
  570.     Fzxwghs = GridInf(4)
  571.     Sfblbzkd = GridInf(5)
  572.     Shsfts = GridInf(6)
  573.     Sfxshjwg = GridInf(7)
  574.     Szzls = WglrGrid.Cols - 1
  575.     
  576.     For Jsqte = WglrGrid.FixedRows To WglrGrid.Rows - 1
  577.         WglrGrid.RowHeight(Jsqte) = Sjhgd
  578.     Next Jsqte
  579.     
  580.     '生成查询结果
  581.     Call Sub_Query
  582.     
  583.     '设置状态为修改状态
  584.     Lab_OperStatus = "2"
  585.     
  586.     '调整标题位置
  587.     SetTitlePos TsLabel(4)
  588.     
  589.     
  590. End Sub
  592. Private Sub Form_Unload(Cancel As Integer)           '窗体卸载
  593.     
  594.     '卸载打印页面窗体
  595.     Unload Dyymctbl
  596.     
  597. End Sub
  599. Private Sub Sub_Query()                              '生成查询结果
  600.     Dim Sqlstr As String                   '查询字符串
  601.     Dim RecTemp As New ADODB.Recordset     '临时使用动态集
  602.     Dim Jsqte  As Long                     '临时计数器
  603.     
  604.     Sqlstr = "SELECT * From Cwzz_CashFlowItem ORDER BY LogicId "
  605.     
  606.     Set RecTemp = Cw_DataEnvi.DataConnect.Execute(Sqlstr)
  607.     
  608.     With RecTemp
  609.         
  610.         WglrGrid.Clear 1
  611.         
  612.         WglrGrid.Rows = .RecordCount + WglrGrid.FixedRows
  613.         
  614.         Jsqte = WglrGrid.FixedRows
  615.         Do While Not .EOF
  616.             If Jsqte >= WglrGrid.Rows Then
  617.                 WglrGrid.AddItem ""
  618.             End If
  619.             
  620.             '[>>显示查询内容
  621.             WglrGrid.TextMatrix(Jsqte, 0) = "*"                                                              '行标识
  622.             WglrGrid.TextMatrix(Jsqte, 1) = Trim(.Fields("CashFlowId"))                                      '项目ID
  623.             WglrGrid.TextMatrix(Jsqte, Sydz("001", GridStr(), Szzls)) = Trim(.Fields("CashFlowCode") & "")   '项目编码
  624.             WglrGrid.TextMatrix(Jsqte, Sydz("002", GridStr(), Szzls)) = RTrim(.Fields("CashFlowName") & "")  '项目名称
  625.             WglrGrid.TextMatrix(Jsqte, Sydz("003", GridStr(), Szzls)) = Trim(.Fields("RowNo") & "")          '行次
  626.             WglrGrid.TextMatrix(Jsqte, Sydz("004", GridStr(), Szzls)) = Trim(.Fields("DataSource") & "")     '数据来源
  627.             If .Fields("DistributeFlag") Then                                                                '是否参与分配
  628.                 WglrGrid.TextMatrix(Jsqte, Sydz("005", GridStr(), Szzls)) = "是"
  629.             End If
  630.             
  631.             '<<]
  632.             
  633.             WglrGrid.RowHeight(Jsqte) = Sjhgd
  634.             .MoveNext
  635.             Jsqte = Jsqte + 1
  636.         Loop
  637.     End With
  638.     
  639.     '调整网格
  640.     Call Sub_AdjustGrid
  641.     
  642. End Sub
  644. Private Sub Tlb_Action_ButtonClick(ByVal Button As MSComctlLib.Button)             '用户点击工具条
  645.     
  646.     '屏蔽文本框,下拉组合框有效性判断
  647.     
  648.     Valilock = True
  649.     
  650.     '屏蔽网格失去焦点产生的有效性判断
  651.     
  652.     changelock = True
  653.     
  654.     Select Case Button.Key
  655.     Case "ymsz"                                          '页面设置
  656.         Dyymctbl.Show 1
  657.     Case "yl"                                            '预 览
  658.         If Fun_Drfrmyxxpd Then
  659.             Call bbyl(True)
  660.         End If
  661.     Case "dy"                                            '打 印
  662.         If Fun_Drfrmyxxpd Then
  663.             Call bbyl(False)
  664.         End If
  665.     Case "zh"                                            '增 行
  666.         Call zjlrfl
  667.     Case "sh"                                            '删 行
  668.         Call Scdqfl
  669.     Case "bz"                                            '帮 助
  670.         Call F1bz
  671.     Case "fh"                                            '退 出
  672.         If Fun_Drfrmyxxpd Then
  673.             Unload Me
  674.         End If
  675.     End Select
  676.     
  677.     '解 锁
  678.     Valilock = False
  679.     changelock = False
  680.     
  681. End Sub
  683. Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)        '支持热键操作
  684.     If Shift = 2 Then
  685.         Select Case UCase(Chr(KeyCode))
  686.         Case "P"                   'Ctrl+P 打印
  687.             If Tlb_Action.Buttons("dy").Enabled Then
  688.                 Call bbyl(False)
  689.             End If
  690.         End Select
  691.     End If
  692. End Sub
  694. Private Sub Wbkcl()                                                 '文本框录入之前处理(根据实际情况)
  695.     Dim xswbrr As String
  696.     With WglrGrid
  697.         Zdlrqnr = Trim(.Text)
  698.         xswbrr = RTrim(.Text)          '原Trim()
  699.         
  700.         If GridBoolean(.Col, 3) Then   '列表框录入
  701.             
  702.             '填充列表框程序
  703.             Call FillCombo(YdCombo, GridStr(.Col, 5), xswbrr, 0)
  704.         Else
  705.             Wbkbhlock = True
  706.             
  707.             '====以下为用户自定义
  708.             Ydtext.Text = xswbrr
  709.             '====以上为用户自定义
  710.             
  711.             Wbkbhlock = False
  712.             Ydtext.SelStart = Len(Ydtext.Text)
  713.         End If
  714.     End With
  715. End Sub
  717. Private Function sjzdyxxpd(Dqpdwgh As Long, Dqpdwgl As Long)        '录入数据字段有效性判断,同时进行字段录入事后处理
  718.     Dim Str_JudgeText As String  '临时有效性判断字段内容
  719.     Dim Coljsq As Long           '临时列计数器
  720.     Dim RecTemp As New ADODB.Recordset     '临时使用动态集
  721.     
  722.     With WglrGrid
  723.         
  724.         '非录入状态有效性为合法
  725.         If Yxxpdlock Or .Row < .FixedRows Then
  726.             sjzdyxxpd = True
  727.             Exit Function
  728.         End If
  729.         
  730.         Str_JudgeText = Trim(.TextMatrix(Dqpdwgh, Dqpdwgl))
  731.         Select Case GridStr(Dqpdwgl, 1)
  732.             
  733.             '以下为自定义部分[
  734.             '1.放置字段有效性判断程序
  735.             
  736.             '2.放置字段事后处理程序
  737.             
  738.             '以上为自定义部分]
  739.             
  740.         End Select
  741.         
  742.         '字段录入正确后为零字段清空
  743.         Call Qkwlzd(Dqpdwgh, Dqpdwgl)
  744.         
  745.         sjzdyxxpd = True
  746.         Yxxpdlock = True
  747.         Exit Function
  748.     End With
  749.     
  750. Lrcwcl:    '录入错误处理
  751.     With WglrGrid
  752.         Call Xtxxts(Tsxx, 0, 1)
  753.         changelock = True
  754.         .Select Dqpdwgh, Dqpdwgl
  755.         changelock = False
  756.         Call xswbk
  757.         sjzdyxxpd = False
  758.         Exit Function
  759.     End With
  760. End Function
  762. Private Function Sjhzyxxpd(ByVal Yxxpdh As Long) As Boolean                  '录入数据行有效性判断,同时进行行处理
  763.     Dim Lrywlz As Long
  764.     Dim RecTemp As New ADODB.Recordset     '临时使用动态集
  765.     With WglrGrid
  766.         If .Rows <= .FixedRows Then Exit Function   ' 如果没有记录，则退出
  767.         '判断行为空和无效数据行则清除当前行
  768.         If .TextMatrix(Yxxpdh, 0) <> "*" Then
  769.             Sjhzyxxpd = True
  770.             Exit Function
  771.         Else
  772.             If pdhwk(Yxxpdh) And Yxxpdh + 1 <= .Rows - 1 Then
  773.                 If .TextMatrix(Yxxpdh + 1, 0) <> "*" Then
  774.                     changelock = True
  775.                     .RemoveItem Yxxpdh
  776.                     If .Rows < Pmbcsjhs + .FixedRows + Fzxwghs + 1 Then
  777.                         .AddItem ""
  778.                         .RowHeight(.Rows - 1) = Sjhgd
  779.                     End If
  780.                     changelock = False
  781.                     Sjhzyxxpd = True
  782.                     Exit Function
  783.                 End If
  784.             End If
  785.         End If
  786.         
  787.         '行没有发生变化则不进行有效性判断
  788.         If Hyxxpdlock Then
  789.             Sjhzyxxpd = True
  790.             Exit Function
  791.         End If
  792.         
  793.         '以下为自定义部分[
  794.         
  795.         '1.放置行有效性判断程序
  796.         
  797.         '首先进行为空判断(固定不变)
  798.         For Jsqte = Qslz To .Cols - 1
  799.             
  800.             '字段不能为空
  801.             If GridInt(Jsqte, 5) = 1 Then
  802.                 If Len(Trim(.TextMatrix(Yxxpdh, Jsqte))) = 0 Then
  803.                     Tsxx = GridStr(Jsqte, 2)
  804.                     Lrywlz = Jsqte
  805.                     GoTo Lrcwcl
  806.                     Exit For
  807.                 End If
  808.             End If
  809.             
  810.             '字段不能为零
  811.             If GridInt(Jsqte, 5) = 2 Then
  812.                 If Val(Trim(.TextMatrix(Yxxpdh, Jsqte))) = 0 Then
  813.                     Tsxx = GridStr(Jsqte, 2)
  814.                     Lrywlz = Jsqte
  815.                     GoTo Lrcwcl
  816.                     Exit For
  817.                 End If
  818.             End If
  819.             
  820.         Next Jsqte
  821.         
  822.         '项目为空不能参与凭证数据分配
  823.         If Trim(.TextMatrix(Yxxpdh, Sydz("005", GridStr(), Szzls))) = "是" And Trim(.TextMatrix(Yxxpdh, Sydz("002", GridStr(), Szzls))) = "" Then
  824.             Tsxx = "项目为空不能参与凭证数据分配!"
  825.             Lrywlz = Sydz("002", GridStr(), Szzls)
  826.             GoTo Lrcwcl
  827.         End If
  828.         
  829.         '参与凭证数据分配项目项目编码不能为空
  830.         If Trim(.TextMatrix(Yxxpdh, Sydz("005", GridStr(), Szzls))) = "是" And Trim(.TextMatrix(Yxxpdh, Sydz("001", GridStr(), Szzls))) = "" Then
  831.             Tsxx = "参与凭证数据分配项目项目编码不能为空!"
  832.             Lrywlz = Sydz("001", GridStr(), Szzls)
  833.             GoTo Lrcwcl
  834.         End If
  835.         
  836.         '2.放置行处理程序
  837.         
  838.         '[>>
  839.         On Error GoTo Swcwcl
  840.         
  841.         
  842.         Cw_DataEnvi.DataConnect.BeginTrans
  843.         With Rec_CashFlowItem
  844.             If Trim(WglrGrid.TextMatrix(Yxxpdh, 1)) <> "" Then
  845.                 '修改原内容
  846.                 If .State = 1 Then .Close
  847.                 
  848.                 Rec_CashFlowItem.Open "SELECT * From Cwzz_CashFlowItem Where CashFlowID='" & Trim(WglrGrid.TextMatrix(Yxxpdh, 1)) & "'", Cw_DataEnvi.DataConnect, adOpenDynamic, adLockOptimistic
  849.                 
  850.                 If Not .EOF Then
  851.                     .Fields("CashFlowCode") = Trim(WglrGrid.TextMatrix(Yxxpdh, Sydz("001", GridStr(), Szzls)))   '项目编码
  852.                     .Fields("CashFlowName") = Trim(WglrGrid.TextMatrix(Yxxpdh, Sydz("002", GridStr(), Szzls)))  '项目名称
  853.                     .Fields("RowNo") = Trim(WglrGrid.TextMatrix(Yxxpdh, Sydz("003", GridStr(), Szzls)))          '行次
  854.                     .Fields("DataSource") = Trim(WglrGrid.TextMatrix(Yxxpdh, Sydz("004", GridStr(), Szzls)))     '数据来源
  855.                     If Trim(WglrGrid.TextMatrix(Yxxpdh, Sydz("005", GridStr(), Szzls))) = "是" Then
  856.                         .Fields("DistributeFlag") = 1
  857.                     Else
  858.                         .Fields("DistributeFlag") = 0
  859.                     End If
  860.                     
  861.                     .Update
  862.                 End If
  863.             Else
  864.                 '增加一条记录
  865.                 Cw_DataEnvi.DataConnect.Execute ("Update Cwzz_CashFlowItem Set LogicId=LogicId+1 Where LogicId>=" & Val(Yxxpdh))
  866.                 If .State = 1 Then .Close
  867.                 Rec_CashFlowItem.Open "SELECT * From Cwzz_CashFlowItem Where 1=2", Cw_DataEnvi.DataConnect, adOpenDynamic, adLockOptimistic
  868.                 .AddNew
  869.                 .Fields("LogicId") = Val(Yxxpdh)                                                                '逻辑行值
  870.                 .Fields("CashFlowCode") = Trim(WglrGrid.TextMatrix(Yxxpdh, Sydz("001", GridStr(), Szzls)))      '项目编码
  871.                 .Fields("CashFlowName") = RTrim(WglrGrid.TextMatrix(Yxxpdh, Sydz("002", GridStr(), Szzls)))     '项目名称
  872.                 .Fields("RowNo") = Trim(WglrGrid.TextMatrix(Yxxpdh, Sydz("003", GridStr(), Szzls)))             '行次
  873.                 .Fields("DataSource") = Trim(WglrGrid.TextMatrix(Yxxpdh, Sydz("004", GridStr(), Szzls)))        '数据来源
  874.                 If Trim(WglrGrid.TextMatrix(Yxxpdh, Sydz("005", GridStr(), Szzls))) = "是" Then
  875.                     .Fields("DistributeFlag") = 1
  876.                 Else
  877.                     .Fields("DistributeFlag") = 0
  878.                 End If
  879.                 .Update
  880.                 WglrGrid.TextMatrix(Yxxpdh, 1) = .Fields("CashFlowID")
  881.             End If
  882.         End With
  883.         
  884.         Cw_DataEnvi.DataConnect.CommitTrans
  885.         
  886.         '<<]
  887.         
  888.         '以上为自定义部分]
  889.         
  890.     End With
  891.     
  892.     Sjhzyxxpd = True
  893.     Hyxxpdlock = True
  894.     Exit Function
  895.     
  896. Swcwcl:
  897.     Cw_DataEnvi.DataConnect.RollbackTrans
  898.     Tsxx = "存盘过程中出现未知错误,程序自动恢复保存前状态!"
  899.     Call Xtxxts(Tsxx, 0, 1)
  900.     Exit Function
  901.     
  902. Lrcwcl:      '录入错误处理
  903.     With WglrGrid
  904.         Call Xtxxts(Tsxx, 0, 1)
  905.         changelock = True
  906.         .Select Yxxpdh, Lrywlz
  907.         changelock = False
  908.         Call xswbk
  909.         
  910.         Sjhzyxxpd = False
  911.         Exit Function
  912.     End With
  913. End Function
  915. '===================以 下 程 序 为 通 用 部 分 ,一 般 不 需 更 改======================='
  916. Private Sub Sub_AdjustGrid()
  917.     '调 整 网 格
  918.     With WglrGrid
  919.         '加 1 保持一行录入行
  920.         If .Rows < Pmbcsjhs + .FixedRows + Fzxwghs + 1 Then
  921.             .Rows = Pmbcsjhs + .FixedRows + Fzxwghs + 1
  922.             For Jsqte = .FixedRows To .Rows - 1
  923.                 .RowHeight(Jsqte) = Sjhgd
  924.             Next Jsqte
  925.         Else
  926.             '判断是否有辅助行和录入行,如没有则加行
  927.             Do While .TextMatrix(.Rows - 1 - Fzxwghs, 0) = "*"
  928.                 .AddItem ""
  929.                 .RowHeight(.Rows - 1) = Sjhgd
  930.             Loop
  931.         End If
  932.     End With
  933. End Sub
  935. Private Sub Lrzdbz()                                                      '录入字段帮助
  936.     If Not Ydcommand.Visible Then
  937.         Exit Sub
  938.     End If
  939.     Valilock = True
  940.     With WglrGrid
  941.         
  942.         changelock = True        '调入另外窗体必须加锁
  943.         Call Drbmhelp(GridInt(.Col, 6), GridStr(.Col, 3), Trim(Ydtext.Text))
  944.         changelock = False
  945.         If Len(Xtfhcs) <> 0 Then
  946.             If GridInt(.Col, 7) = 0 Then
  947.                 Ydtext.Text = Xtfhcs
  948.             Else
  949.                 Ydtext.Text = Xtfhcsfz
  950.             End If
  951.         End If
  952.         
  953.         Valilock = False
  954.         If Ydtext.Visible Then
  955.             Ydtext.SetFocus
  956.         End If
  957.     End With
  958. End Sub
  960. Private Sub Form_Resize()                                                '窗体大小发生变化时,重新显示文本框
  961.     Call Cxxswbk
  962.     On Error Resume Next
  963.     With WglrGrid
  964.         .Width = Me.Width - 160
  965.         .Height = Me.Height - .Top - 400
  966.     End With
  967.     With Pic_Title
  968.         .Width = Me.Width - 160
  969.     End With
  970.     
  971.     GsToolbar.Left = Me.Width - GsToolbar.Width - 100
  972. End Sub
  974. Private Function Fun_Drfrmyxxpd() As Boolean                             '调入其它窗体或功能产生的有效性判断(包括数据回写)
  975.     Fun_Drfrmyxxpd = True
  976.     With WglrGrid
  977.         
  978.         '如果当前网格处于编辑状态,则先进行数据回写再进行有效性判断
  979.         
  980.         If Ydtext.Visible Or YdCombo.Visible Then
  981.             Call Lrsjhx
  982.             If Not sjzdyxxpd(Dqlrwgh, Dqlrwgl) Then
  983.                 Fun_Drfrmyxxpd = False
  984.                 Exit Function
  985.             End If
  986.         End If
  987.         
  988.         '进行行有效性判断
  989.         If Not Sjhzyxxpd(.Row) Then
  990.             Fun_Drfrmyxxpd = False
  991.             Exit Function
  992.         End If
  993.         
  994.     End With
  995. End Function
  997. Private Sub WglrGrid_EnterCell()                                    '显示当前数据行相关信息
  998.     With WglrGrid
  999.         If .Row >= .FixedRows Then
  1000.             Lab_Row = Trim(Str(.Row - .FixedRows + 1))
  1001.         End If
  1002.     End With
  1003. End Sub
  1005. Private Sub WglrGrid_GotFocus()                                     '网格得到焦点
  1006.     
  1007.     '网格得到焦点,如果当前选择行为非数据行
  1008.     '则调整当前焦点至有效数据行
  1009.     
  1010.     With WglrGrid
  1011.         If .Row < .FixedRows And .Rows > .FixedRows Then
  1012.             changelock = True
  1013.             .Select .FixedRows, .Col
  1014.             changelock = False
  1015.         End If
  1016.         If .Col < Qslz Then
  1017.             changelock = True
  1018.             .Select .Row, Qslz
  1019.             changelock = False
  1020.         End If
  1021.     End With
  1022.     
  1023. End Sub
  1025. Private Sub WglrGrid_LostFocus()                                    '录入网格失去焦点
  1026.     
  1027.     '用以屏蔽调用其它窗体时发生网格失去焦点事件
  1028.     If changelock Then
  1029.         Exit Sub
  1030.     End If
  1031.     
  1032.     '引发网格RowcolChange事件
  1033.     With WglrGrid
  1034.         If Not (Ydtext.Visible Or YdCombo.Visible) Then
  1035.             .Select 0, 0
  1036.         End If
  1037.     End With
  1038.     
  1039. End Sub
  1041. Private Sub WglrGrid_AfterScroll(ByVal OldTopRow As Long, ByVal OldLeftCol As Long, ByVal NewTopRow As Long, ByVal NewLeftCol As Long)                                       '限制用户在录入过程中滚动鼠标
  1042.     
  1043.     If Gdtlock Then
  1044.         Exit Sub
  1045.     End If
  1046.     
  1047.     With WglrGrid
  1048.         If Ydtext.Visible Or YdCombo.Visible Then
  1049.             Gdtlock = True
  1050.             .TopRow = Dqtoprow
  1051.             .LeftCol = Dqleftcol
  1052.             Gdtlock = False
  1053.             Exit Sub
  1054.         End If
  1055.         
  1056.     End With
  1057. End Sub
  1059. Private Sub WglrGrid_LeaveCell()                                    '离开单元格
  1060.     If changelock Then
  1061.         Exit Sub
  1062.     End If
  1063.     
  1064.     '记录刚刚离开网格单元的行列值
  1065.     Dqlkwgh = WglrGrid.Row
  1066.     Dqlkwgl = WglrGrid.Col
  1067.     
  1068.     '判断是否需要录入数据回写
  1069.     If Not (Ydtext.Visible Or YdCombo.Visible) Then
  1070.         Exit Sub
  1071.     End If
  1072.     Call Lrsjhx
  1073. End Sub
  1075. Private Sub WglrGrid_RowColChange()                                '网格录入行列发生变化时,进行有效性判断
  1076.     Valilock = True       '屏蔽文本框失去焦点进行有效性判断
  1077.     With WglrGrid
  1078.         If changelock Then
  1079.             Exit Sub
  1080.         End If
  1081.         If Not sjzdyxxpd(Dqlrwgh, Dqlrwgl) Then
  1082.             Exit Sub
  1083.         End If
  1084.         If .Row <> Dqlkwgh Then
  1085.             If Not Sjhzyxxpd(Dqlkwgh) Then
  1086.                 Exit Sub
  1087.             End If
  1088.         End If
  1089.     End With
  1090.     Call fhyxh
  1091.     Call Xldql
  1092.     
  1093. End Sub
  1095. Private Sub WglrGrid_DblClick()          '鼠标双击网格显示文本框
  1096.     With WglrGrid
  1097.         Call xswbk
  1098.     End With
  1099. End Sub
  1101. Private Sub Ycwbk()                      '隐藏文本框,帮助按钮,列表组合框
  1102.     Valilock = True
  1103.     Ydtext.Visible = False
  1104.     YdCombo.Visible = False
  1105.     Ydcommand.Visible = False
  1106. End Sub
  1108. Private Sub YdCombo_KeyDown(KeyCode As Integer, Shift As Integer)        '列表框移动
  1109.     With WglrGrid
  1110.         Select Case KeyCode
  1111.         Case vbKeyEscape                'ESC 键放弃录入
  1112.             Valilock = True
  1113.             .SetFocus
  1114.             Call Ycwbk
  1115.             Valilock = False
  1116.         Case vbKeyReturn                '回 车 键 =13
  1117.             KeyCode = 0
  1118.             .SetFocus
  1119.             Call Lrsjhx
  1120.             Rowjsq = .Row
  1121.             Coljsq = .Col + 1
  1122.             If Coljsq > .Cols - 1 Then
  1123.                 If Rowjsq < .Rows - 1 Then
  1124.                     Rowjsq = Rowjsq + 1
  1125.                 End If
  1126.                 Coljsq = Qslz
  1127.             End If
  1128.             Do While Rowjsq <= .Rows - 1
  1129.                 If .ColHidden(Coljsq) Or (Not GridBoolean(Coljsq, 1)) Then
  1130.                     Coljsq = Coljsq + 1
  1131.                     If Coljsq > .Cols - 1 Then
  1132.                         Rowjsq = Rowjsq + 1
  1133.                         Coljsq = Qslz
  1134.                     End If
  1135.                 Else
  1136.                     Exit Do
  1137.                 End If
  1138.             Loop
  1139.             .Select Rowjsq, Coljsq
  1140.         Case vbKeyLeft                  '左 箭 头 =37
  1141.             If .Col - 1 = Qslz Then
  1142.                 If .ColHidden(Qslz) Or (Not GridBoolean(Qslz, 1)) Then
  1143.                     GoTo jzzx
  1144.                 End If
  1145.             End If
  1146.             If .Col > Qslz Then
  1147.                 KeyCode = 0
  1148.                 .SetFocus
  1149.                 Call Lrsjhx
  1150.                 Coljsq = .Col - 1
  1151.                 Do While Coljsq > Qslz
  1152.                     If Coljsq - 1 = Qslz Then
  1153.                         If .ColHidden(Qslz) Or (Not GridBoolean(Qslz, 1)) Then
  1154.                             GoTo jzzx
  1155.                         End If
  1156.                     End If
  1157.                     If .ColHidden(Coljsq) Or (Not GridBoolean(Coljsq, 1)) Then
  1158.                         Coljsq = Coljsq - 1
  1159.                     Else
  1160.                         Exit Do
  1161.                     End If
  1162.                 Loop
  1163.                 .Select .Row, Coljsq
  1164.             End If
  1165.             
  1166.         Case vbKeyRight                 '右 箭 头 =39
  1167.             KeyCode = 0
  1168.             .SetFocus
  1169.             Call Lrsjhx
  1170.             Rowjsq = .Row
  1171.             Coljsq = .Col + 1
  1172.             If Coljsq > .Cols - 1 Then
  1173.                 If Rowjsq < .Rows - 1 Then
  1174.                     Rowjsq = Rowjsq + 1
  1175.                 End If
  1176.                 Coljsq = Qslz
  1177.             End If
  1178.             Do While Rowjsq <= .Rows - 1
  1179.                 If .ColHidden(Coljsq) Or (Not GridBoolean(Coljsq, 1)) Then
  1180.                     Coljsq = Coljsq + 1
  1181.                     If Coljsq > .Cols - 1 Then
  1182.                         Rowjsq = Rowjsq + 1
  1183.                         Coljsq = Qslz
  1184.                     End If
  1185.                 Else
  1186.                     Exit Do
  1187.                 End If
  1188.             Loop
  1189.             .Select Rowjsq, Coljsq
  1190.         Case Else
  1191.         End Select
  1192.         
  1193. jzzx:
  1194.         
  1195.     End With
  1196. End Sub
  1198. Private Sub YdCombo_LostFocus()
  1199.     With WglrGrid                                    '因为选中网格会先发生Rowcolchange事件置Valiock
  1200.         If Not Valilock Then                           '为TRUE
  1201.             Call Lrsjhx
  1202.             If Not Sjhzyxxpd(Dqlrwgh) Then
  1203.                 Exit Sub
  1204.             End If
  1205.         End If
  1206.     End With
  1207. End Sub
  1209. Private Sub Ydcommand_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
  1210.     Call Lrzdbz
  1211. End Sub
  1213. Private Sub ydtext_KeyDown(KeyCode As Integer, Shift As Integer)
  1214.     Dim Rowjsq As Long, Coljsq As Long
  1215.     With WglrGrid
  1216.         Select Case KeyCode
  1217.         Case vbKeyF2
  1218.             Call Lrzdbz
  1219.         Case vbKeyEscape                'ESC 键放弃录入
  1220.             Valilock = True
  1221.             Call Ycwbk
  1222.             .SetFocus
  1223.         Case vbKeyReturn                '回 车 键 =13
  1224.             KeyCode = 0
  1225.             .SetFocus
  1226.             Call Lrsjhx
  1227.             Rowjsq = .Row
  1228.             Coljsq = .Col + 1
  1229.             If Coljsq > .Cols - 1 Then
  1230.                 If Rowjsq < .Rows - 1 Then
  1231.                     Rowjsq = Rowjsq + 1
  1232.                 End If
  1233.                 Coljsq = Qslz
  1234.             End If
  1235.             Do While Rowjsq <= .Rows - 1
  1236.                 If .ColHidden(Coljsq) Or (Not GridBoolean(Coljsq, 1)) Then
  1237.                     Coljsq = Coljsq + 1
  1238.                     If Coljsq > .Cols - 1 Then
  1239.                         Rowjsq = Rowjsq + 1
  1240.                         Coljsq = Qslz
  1241.                     End If
  1242.                 Else
  1243.                     Exit Do
  1244.                 End If
  1245.             Loop
  1246.             .Select Rowjsq, Coljsq
  1247.         Case vbKeyUp                    '上 箭 头 =38
  1248.             KeyCode = 0
  1249.             .SetFocus
  1250.             Call Lrsjhx
  1251.             If .Row > .FixedRows Then
  1252.                 .Row = .Row - 1
  1253.             End If
  1254.         Case vbKeyDown                  '下 箭 头 =40
  1255.             KeyCode = 0
  1256.             .SetFocus
  1257.             Call Lrsjhx
  1258.             If .Row < .Rows - 1 Then
  1259.                 .Row = .Row + 1
  1260.             End If
  1261.         Case vbKeyLeft                  '左 箭 头 =37
  1262.             If .Col - 1 = Qslz Then
  1263.                 If .ColHidden(Qslz) Or (Not GridBoolean(Qslz, 1)) Then
  1264.                     GoTo jzzx
  1265.                 End If
  1266.             End If
  1267.             If Ydtext.SelStart = 0 And .Col > Qslz Then
  1268.                 KeyCode = 0
  1269.                 .SetFocus
  1270.                 Call Lrsjhx
  1271.                 Coljsq = .Col - 1
  1272.                 Do While Coljsq > Qslz
  1273.                     If Coljsq - 1 = Qslz Then
  1274.                         If .ColHidden(Qslz) Or (Not GridBoolean(Qslz, 1)) Then
  1275.                             GoTo jzzx
  1276.                         End If
  1277.                     End If
  1278.                     If .ColHidden(Coljsq) Or (Not GridBoolean(Coljsq, 1)) Then
  1279.                         Coljsq = Coljsq - 1
  1280.                     Else
  1281.                         Exit Do
  1282.                     End If
  1283.                 Loop
  1284.                 .Select .Row, Coljsq
  1285.             End If
  1286. jzzx:
  1287.             
  1288.             
  1289.         Case vbKeyRight                 '右 箭 头 =39
  1290.             wblong = Len(Ydtext.Text)
  1291.             If (Ydtext.SelStart = wblong Or Ydtext.SelLength = wblong) Then
  1292.                 KeyCode = 0
  1293.                 .SetFocus
  1294.                 Call Lrsjhx
  1295.                 Rowjsq = .Row
  1296.                 Coljsq = .Col + 1
  1297.                 If Coljsq > .Cols - 1 Then
  1298.                     If Rowjsq < .Rows - 1 Then
  1299.                         Rowjsq = Rowjsq + 1
  1300.                     End If
  1301.                     Coljsq = Qslz
  1302.                 End If
  1303.                 Do While Rowjsq <= .Rows - 1
  1304.                     If .ColHidden(Coljsq) Or (Not GridBoolean(Coljsq, 1)) Then
  1305.                         Coljsq = Coljsq + 1
  1306.                         If Coljsq > .Cols - 1 Then
  1307.                             Rowjsq = Rowjsq + 1
  1308.                             Coljsq = Qslz
  1309.                         End If
  1310.                     Else
  1311.                         Exit Do
  1312.                     End If
  1313.                 Loop
  1314.                 .Select Rowjsq, Coljsq
  1315.             End If
  1316.         Case Else
  1317.         End Select
  1318.     End With
  1319. End Sub
  1321. Private Sub ydtext_KeyPress(KeyAscii As Integer)         '录入字符事中控制
  1322.     Call InputFieldLimit(Ydtext, GridInt(WglrGrid.Col, 1), KeyAscii)
  1323.     If KeyAscii <> 0 Then
  1324.         Call Xyxhbz(Dqlrwgh)
  1325.     End If
  1326. End Sub
  1328. Private Sub ydtext_Change()                              '录入事中变化处理
  1329.     
  1330.     '防止程序改变但不进行处理
  1331.     
  1332.     If Wbkbhlock Then
  1333.         Exit Sub
  1334.     End If
  1335.     
  1336.     With WglrGrid
  1337.         
  1338.         '限制字段录入长度
  1339.         Wbkbhlock = True
  1340.         Select Case GridInt(.Col, 1)
  1341.         Case 8
  1342.             Call Sjgskz(Ydtext, Xtjezws - Xtjexsws - 1, Xtjexsws)
  1343.         Case 9
  1344.             Call Sjgskz(Ydtext, Xtslzws - Xtslxsws - 1, Xtslxsws)
  1345.         Case 10
  1346.             Call Sjgskz(Ydtext, Xtdjzws - Xtdjxsws - 1, Xtdjxsws)
  1347.         Case Else
  1348.             If GridInt(.Col, 3) <> 0 Or GridInt(.Col, 4) <> 0 Then
  1349.                 Call Sjgskz(Ydtext, GridInt(.Col, 3), GridInt(.Col, 4))
  1350.             End If
  1351.         End Select
  1352.         Wbkbhlock = False
  1353.     End With
  1354. End Sub
  1356. Private Sub ydtext_LostFocus()            '如果由于选中网格之外的控件而发生有效性判断(选中网格会先发生Rowcolchange事件置Valiock为TRUE)
  1357.     With WglrGrid
  1358.         If Not Valilock Then
  1359.             Call Lrsjhx
  1360.             If Not sjzdyxxpd(Dqlrwgh, Dqlrwgl) Then
  1361.                 Exit Sub
  1362.             End If
  1363.             If Not Sjhzyxxpd(Dqlrwgh) Then
  1364.                 Exit Sub
  1365.             End If
  1366.         End If
  1367.     End With
  1368. End Sub
  1370. Private Sub xswbk()                       '在当前选中单元显示文本框,列表框,帮助按钮(通用)
  1371.     Dim Wbkpy As Integer, Wbkpy1 As Integer '文本框偏移量
  1372.     
  1373.     '如果单据操作状态为浏览状态则不能显示录入载体
  1374.     If Trim(Lab_OperStatus.Caption) = "1" Then
  1375.         Exit Sub
  1376.     End If
  1377.     
  1378.     '显示文本框前返回有效行列（解决滚动条问题）
  1379.     Call Xldqh
  1380.     Call Xldql
  1381.     
  1382.     '隐藏文本框,帮助按钮,列表组合框
  1383.     Call Ycwbk
  1384.     
  1385.     With WglrGrid
  1386.         Dqlrwgh = .Row
  1387.         Dqlrwgl = .Col
  1388.         If Not GridBoolean(.Col, 1) Or .Row < .FixedRows Then
  1389.             Exit Sub
  1390.         End If
  1391.         
  1392.         Wbkpy = 30
  1393.         Wbkpy1 = 15
  1394.         
  1395.         If GridBoolean(.Col, 3) Then
  1396.             YdCombo.Left = .CellLeft + .Left + Wbkpy
  1397.             YdCombo.Top = .CellTop + .Top + Wbkpy
  1398.             YdCombo.Width = .CellWidth - Wbkpy1
  1399.             Call Wbkcl
  1400.             YdCombo.Visible = True
  1401.             YdCombo.SetFocus
  1402.             Ydcommand.Visible = False
  1403.             Ydtext.Visible = False
  1404.         Else
  1405.             If GridBoolean(.Col, 2) Then
  1406.                 Ydcommand.Left = .Left + .CellLeft + .CellWidth - Ydcommand.Width + Wbkpy
  1407.                 Ydcommand.Top = .Top + .CellTop + .CellHeight - Ydcommand.Height + Wbkpy
  1408.                 Ydcommand.Visible = True
  1409.             Else
  1410.                 Ydcommand.Visible = False
  1411.             End If
  1412.             
  1413.             Ydtext.Left = .CellLeft + .Left + Wbkpy
  1414.             Ydtext.Top = .CellTop + .Top + Wbkpy
  1415.             If Ydcommand.Visible Then
  1416.                 If Sfblbzkd Then
  1417.                     Ydtext.Width = .CellWidth - Ydcommand.Width
  1418.                 Else
  1419.                     Ydtext.Width = .CellWidth - Wbkpy1
  1420.                 End If
  1421.             Else
  1422.                 Ydtext.Width = .CellWidth - Wbkpy1
  1423.             End If
  1424.             Ydtext.Height = .CellHeight - Wbkpy1
  1425.             
  1426.             If GridInt(.Col, 2) <> 0 Then
  1427.                 Ydtext.MaxLength = GridInt(.Col, 2)
  1428.             Else
  1429.                 Ydtext.MaxLength = 3000
  1430.             End If
  1431.             
  1432.             Call Wbkcl
  1433.             
  1434.             Ydtext.Visible = True
  1435.             Ydtext.SetFocus
  1436.         End If
  1437.         Dqtoprow = .TopRow
  1438.         Dqleftcol = .LeftCol
  1439.         
  1440.         '重置锁值
  1441.         Valilock = False
  1442.         Wbkbhlock = False
  1443.     End With
  1444. End Sub
  1446. Private Sub Cxxswbk()                                                  'Formresize中重新显示文本框,列表框,帮助按钮(通用)
  1447.     
  1448.     Dim Wbkpy As Integer, Wbkpy1 As Integer
  1449.     Wbkpy = 30
  1450.     Wbkpy1 = 15
  1451.     With WglrGrid
  1452.         If YdCombo.Visible Then
  1453.             YdCombo.Left = .CellLeft + .Left + Wbkpy
  1454.             YdCombo.Top = .CellTop + .Top + Wbkpy
  1455.             YdCombo.Width = .CellWidth - Wbkpy1
  1456.         End If
  1457.         If Ydcommand.Visible Then
  1458.             Ydcommand.Left = .Left + .CellLeft + .CellWidth - Ydcommand.Width + Wbkpy
  1459.             Ydcommand.Top = .Top + .CellTop + .CellHeight - Ydcommand.Height + Wbkpy
  1460.         End If
  1461.         If Ydtext.Visible Then
  1462.             If Ydcommand.Visible Then
  1463.                 If Sfblbzkd Then
  1464.                     Ydtext.Width = .CellWidth - Ydcommand.Width
  1465.                 Else
  1466.                     Ydtext.Width = .CellWidth - Wbkpy1
  1467.                 End If
  1468.             Else
  1469.                 Ydtext.Width = .CellWidth - Wbkpy1
  1470.             End If
  1471.             
  1472.             Ydtext.Left = .CellLeft + .Left + Wbkpy
  1473.             Ydtext.Top = .CellTop + .Top + Wbkpy
  1474.             Ydtext.Height = .CellHeight - Wbkpy1
  1475.         End If
  1476.     End With
  1477.     
  1478. End Sub
  1480. Private Sub Lrsjhx()                                                   '文本框录入数据回写
  1481.     With WglrGrid
  1482.         If YdCombo.Visible Then
  1483.             .Text = Trim(YdCombo.Text)
  1484.         End If
  1485.         If Ydtext.Visible Then
  1486.             .Text = RTrim(Ydtext.Text)       '原Trim()
  1487.         End If
  1488.         
  1489.         '(如果字段录入内容发生变化,则打开有效性判断锁)
  1490.         If .Col = Sydz("002", GridStr(), Szzls) Then
  1491.             If Zdlrqnr <> RTrim(.Text) Then
  1492.                 Yxxpdlock = False
  1493.                 Hyxxpdlock = False
  1494.             End If
  1495.         Else
  1496.             If Zdlrqnr <> Trim(.Text) Then
  1497.                 Yxxpdlock = False
  1498.                 Hyxxpdlock = False
  1499.             End If
  1500.         End If
  1501.         
  1502.         '如果字段录入内容不为空则写数据行有效性标志
  1503.         
  1504.         If Len(Trim(.Text)) <> 0 Then
  1505.             Call Xyxhbz(.Row)
  1506.         End If
  1507.         
  1508.         '隐藏文本框,帮助按钮,列表组合框
  1509.         Call Ycwbk
  1510.         
  1511.     End With
  1512. End Sub
  1514. Private Sub WglrGrid_KeyDown(KeyCode As Integer, Shift As Integer)    '网格录入增行，删行快捷键
  1515.     
  1516.     '如果单据操作状态为浏览状态则不能显示录入载体
  1517.     If Trim(Lab_OperStatus.Caption) = "1" Then
  1518.         Exit Sub
  1519.     End If
  1520.     
  1521.     Select Case KeyCode
  1522.     Case vbKeyF2                   '按F2键参照
  1523.         Call xswbk
  1524.         Call Lrzdbz
  1525.     Case vbKeyDelete               '删行
  1526.         Call Scdqfl
  1527.     Case vbKeyInsert               '增行
  1528.         Call zjlrfl
  1529.     End Select
  1530.     
  1531. End Sub
  1533. Private Sub WglrGrid_KeyPress(KeyAscii As Integer)                     '网格接受键盘录入
  1534.     Dim Str_ChangeTe As String    '临时交换内容
  1535.     Dim Coljsq As Long            '临时列计数器
  1536.     Dim Int_SaveKey As Integer    '保存KeyAscii值
  1537.     
  1538.     '如果单据操作状态为浏览状态则不能显示录入载体
  1539.     If Trim(Lab_OperStatus.Caption) = "1" Then
  1540.         Exit Sub
  1541.     End If
  1542.     
  1543.     Int_SaveKey = KeyAscii
  1544.     
  1545.     With WglrGrid
  1546.         '屏 蔽 回 车 键
  1547.         If KeyAscii = vbKeyReturn Then
  1548.             KeyAscii = 0
  1549.             Rowjsq = .Row
  1550.             Coljsq = .Col + 1
  1551.             If Coljsq > .Cols - 1 Then
  1552.                 If Rowjsq < .Rows - 1 Then
  1553.                     Rowjsq = Rowjsq + 1
  1554.                 End If
  1555.                 Coljsq = Qslz
  1556.             End If
  1557.             Do While Rowjsq <= .Rows - 1
  1558.                 If .ColHidden(Coljsq) Or (Not GridBoolean(Coljsq, 1)) Then
  1559.                     Coljsq = Coljsq + 1
  1560.                     If Coljsq > .Cols - 1 Then
  1561.                         Rowjsq = Rowjsq + 1
  1562.                         Coljsq = Qslz
  1563.                     End If
  1564.                 Else
  1565.                     Exit Do
  1566.                 End If
  1567.             Loop
  1568.             .Select Rowjsq, Coljsq
  1569.             Exit Sub
  1570.         End If
  1571.         '接受用户录入
  1572.         Select Case KeyAscii
  1573.         Case 0 To 32
  1574.             
  1575.             '显示录入载体
  1576.             Call xswbk
  1577.             
  1578.         Case Else
  1579.             
  1580.             '防止非编辑字段SendKeys()出现死循环
  1581.             If Not GridBoolean(.Col, 1) Or .Row < .FixedRows Then
  1582.                 Exit Sub
  1583.             End If
  1584.             
  1585.             If GridBoolean(.Col, 3) Then
  1586.                 
  1587.                 '列表框录入
  1588.                 Call xswbk
  1589.                 
  1590.             Else
  1591.                 
  1592.                 
  1593.                 Ydtext.Text = ""
  1594.                 Call InputFieldLimit(Ydtext, GridInt(WglrGrid.Col, 1), KeyAscii)
  1595.                 If KeyAscii = 0 Then
  1596.                     Exit Sub
  1597.                 End If
  1598.                 
  1599.                 '写有效行数据标志
  1600.                 Call Xyxhbz(.Row)
  1601.                 Call xswbk
  1602.                 Ydtext.Text = ""
  1603.                 Valilock = True
  1604.                 SendKeys Chr(KeyAscii), wait
  1605.                 DoEvents
  1606.                 Valilock = False
  1607.                 
  1608.             End If
  1609.         End Select
  1610.     End With
  1611. End Sub
  1613. Private Sub zjlrfl()                                                    '增加录入分录
  1614.     With WglrGrid
  1615.         If Not (Ydtext.Visible Or YdCombo.Visible) Then
  1616.             If Not Fun_Drfrmyxxpd Then
  1617.                 Exit Sub
  1618.             End If
  1619.         Else
  1620.             Exit Sub
  1621.         End If
  1622.         If .Row < .FixedRows Then
  1623.             Exit Sub
  1624.         End If
  1625.         .AddItem "", .Row
  1626.         .RowHeight(.Row) = Sjhgd
  1627.         If .Row <> .Rows - 1 Then
  1628.             If .TextMatrix(.Row + 1, 0) = "*" Then
  1629.                 .TextMatrix(.Row, 0) = "*"
  1630.             Else
  1631.                 .RemoveItem .Rows - 1
  1632.             End If
  1633.         End If
  1634.         Call Xldqh
  1635.         Call Xldql
  1636.         Hyxxpdlock = False
  1637.     End With
  1638. End Sub
  1640. Private Sub Scdqfl()                                                    '删除当前分录
  1641.     Dim Answer As Integer, Scqwghz As Long, Scqwglz As Long, Hjlzte As Long, Sflrzt As Boolean
  1642.     With WglrGrid
  1643.         Scqwghz = .Row
  1644.         Scqwglz = .Col
  1645.         If .TextMatrix(.Row, 0) = "*" Then
  1646.             
  1647.             '判断是否为录入状态
  1648.             If Ydtext.Visible Or YdCombo.Visible Then
  1649.                 Sflrzt = True
  1650.                 Validate = True
  1651.                 Call Lrsjhx
  1652.                 Validate = False
  1653.             End If
  1654.             
  1655.             Call Xldqh
  1656.             changelock = True
  1657.             .Select .Row, 0
  1658.             changelock = False
  1659.             If Shsfts Then
  1660.                 .Cell(flexcpBackColor, .Row, Qslz, .Row, .Cols - 1) = QBColor(12)
  1661.                 Tsxx = "请确认是否删除当前记录?"
  1662.                 Yhanswer = Xtxxts(Tsxx, 2, 2)
  1663.                 If Yhanswer = 2 Then
  1664.                     .Cell(flexcpBackColor, .Row, Qslz, .Row, .Cols - 1) = &H80000005
  1665.                     changelock = True
  1666.                     .Select Scqwghz, Scqwglz
  1667.                     changelock = False
  1668.                     
  1669.                     '如为录入状态,则恢复录入
  1670.                     If Sflrzt Then
  1671.                         Call xswbk
  1672.                     End If
  1673.                     
  1674.                     Exit Sub
  1675.                 End If
  1676.             End If
  1677.             
  1678.             '[>>删除当前记录同时将此记录后面逻辑标号相应-1
  1679.             On Error GoTo Swcwcl
  1680.             Cw_DataEnvi.DataConnect.BeginTrans
  1681.             
  1682.             Cw_DataEnvi.DataConnect.Execute ("Delete Cwzz_CashFlowItem Where CashFlowID=" & Val(Trim(WglrGrid.TextMatrix(.Row, 1))))
  1683.             Cw_DataEnvi.DataConnect.Execute ("Update Cwzz_CashFlowItem Set LogicId=LogicId-1 Where LogicId>" & .Row)
  1684.             
  1685.             Cw_DataEnvi.DataConnect.CommitTrans
  1686.             
  1687.             '<<]
  1688.             .RemoveItem .Row
  1689.             
  1690.             If .Rows < Pmbcsjhs + .FixedRows + Fzxwghs + 1 Then
  1691.                 .AddItem ""
  1692.                 .RowHeight(.Rows - 1) = Sjhgd
  1693.             End If
  1694.             changelock = True
  1695.             .Select .Row, Scqwglz
  1696.             changelock = False
  1697.             
  1698.         End If
  1699.     End With
  1700.     
  1701.     Exit Sub
  1702.     
  1703.     '[>>事务错误处理
  1704. Swcwcl:
  1705.     If Err.Number = -2147217873 Then              '(-2147217873 为SQL Server 2000通过建立外键产生的错误号)
  1706.         Tsxx = "该编码已经被使用,不能删除!"
  1707.         Call Xtxxts(Tsxx, 0, 1)
  1708.         Exit Sub
  1709.     Else
  1710.         Tsxx = "出现未知情况,该编码不能被删除!"
  1711.         Call Xtxxts(Tsxx, 0, 1)
  1712.         Exit Sub
  1713.     End If
  1714.     '<<]
  1715. End Sub
  1717. Private Sub Qkwlzd(sjh As Long, Sjl As Long)                            '清空为零字段
  1718.     If Not GridBoolean(Sjl, 5) Then
  1719.         Exit Sub
  1720.     End If
  1721.     With WglrGrid
  1722.         If Val(Trim(.TextMatrix(sjh, Sjl))) = 0 Then
  1723.             .TextMatrix(sjh, Sjl) = ""
  1724.         End If
  1725.     End With
  1726. End Sub
  1728. Private Sub fhyxh()                                                     '返回录入数据有效行,同时让得到焦点网格可见
  1729.     With WglrGrid
  1730.         If .Row >= .FixedRows Then
  1731.             If .TextMatrix(.Row, 0) <> "*" Then
  1732.                 For Rowjsq = .FixedRows To .Rows - 1
  1733.                     If .TextMatrix(Rowjsq, 0) <> "*" Then
  1734.                         Exit For
  1735.                     End If
  1736.                 Next Rowjsq
  1737.                 If Rowjsq <= .Rows - 1 Then
  1738.                     changelock = True
  1739.                     .Select Rowjsq, .Col
  1740.                     changelock = False
  1741.                 Else
  1742.                     changelock = True
  1743.                     .Select .Rows - 1, .Col
  1744.                     changelock = False
  1745.                 End If
  1746.             End If
  1747.             Call Xldqh
  1748.         End If
  1749.     End With
  1750. End Sub
  1752. Private Sub Xldqh()                                                      '显露当前行
  1753.     Dim Toprowte As Long
  1754.     With WglrGrid
  1755.         Toprowte = 0
  1756.         Do While .CellTop + .RowHeight(.Row) + Fzxwghs * Sjhgd > .Height And .TopRow <> Toprowte
  1757.             Toprowte = .TopRow
  1758.             .TopRow = .TopRow + 1
  1759.         Loop
  1760.         Toprowte = 0
  1761.         Do While .CellTop < .FixedRows * .RowHeight(0) And .TopRow <> Toprowte
  1762.             Toprowte = .TopRow
  1763.             .TopRow = .TopRow - 1
  1764.         Loop
  1765.     End With
  1766. End Sub
  1768. Private Sub Xldql()                                                     '显露当前列
  1769.     
  1770.     Dim Leftcolte As Long
  1771.     
  1772.     With WglrGrid
  1773.         If .Col >= Qslz And .Col >= .FixedCols Then
  1774.             If .LeftCol > .Col Then
  1775.                 .LeftCol = .Col
  1776.             End If
  1777.             Leftcolte = 0
  1778.             Do While .CellLeft + .CellWidth > .Width And .LeftCol <> Leftcolte
  1779.                 Leftcolte = .LeftCol
  1780.                 .LeftCol = .LeftCol + 1
  1781.             Loop
  1782.         End If
  1783.     End With
  1784.     
  1785. End Sub
  1787. Private Function pdhwk(sjh As Long)                                     '判断网格行是否为空行(所有录入字段均为空*非录入字段除外)
  1788.     With WglrGrid
  1789.         For Coljsq = Qslz To .Cols - 1
  1790.             If Len(Trim(.TextMatrix(sjh, Coljsq))) <> 0 And GridBoolean(Coljsq, 1) Then
  1791.                 pdhwk = False
  1792.                 Exit Function
  1793.             End If
  1794.         Next Coljsq
  1795.         pdhwk = True
  1796.     End With
  1797. End Function
  1799. Private Sub Xyxhbz(sjh As Long)                                         '写行有效性标志,并判断是否增行
  1800.     With WglrGrid
  1801.         If .TextMatrix(sjh, 0) = "*" Then
  1802.             Exit Sub
  1803.         End If
  1804.         .TextMatrix(sjh, 0) = "*"
  1805.         If sjh >= .Rows - Fzxwghs - 1 Then
  1806.             .AddItem ""
  1807.             .RowHeight(.Rows - 1) = Sjhgd
  1808.         End If
  1809.     End With
  1810. End Sub
  1812. Private Sub GsToolbar_ButtonClick(ByVal Button As MSComctlLib.Button)   '表格格式设置(通用)
  1813.     
  1814.     Select Case Button.Key
  1815.     Case "bcgs"                                       '保存表格格式
  1816.         Call Bcwggs(WglrGrid, GridCode, GridStr())
  1817.     Case "hfmrgs"                                     '恢复默认格式
  1818.         Call Hfmrgs(WglrGrid, GridCode, GridStr())
  1819.     Case "szxsxm"                                     '设置显示项目
  1820.         Call Szxsxm(WglrGrid, GridCode)
  1821.     End Select
  1822.     
  1823. End Sub
  1825. Private Sub bbyl(bbylte As Boolean)                    '报表打印预览
  1826.     Dim Bbzbt$, Bbxbt() As String, bbxbtzzxs() As Integer, Bbxbtgs As Integer
  1827.     Dim Bbbwh() As String, Bbbwhzzxs() As Integer, Bbbwhgs As Integer
  1828.     Bbxbtgs = 1                                          '报 表 小 标 题 行 数
  1829.     Bbbwhgs = 0                                          '报 表 表 尾 行 数
  1830.     ReDim Bbxbt(1 To Bbxbtgs)
  1831.     ReDim bbxbtzzxs(1 To Bbxbtgs)
  1832.     If Bbbwhgs <> 0 Then
  1833.         ReDim Bbbwh(1 To Bbbwhgs)
  1834.         ReDim Bbbwhzzxs(1 To Bbbwhgs)
  1835.     End If
  1836.     Bbzbt = ReportTitle
  1837.     Call Scyxsjb(WglrGrid)                               '生成报表数据
  1838.     Call Scdybb(Dyymctbl, Bbzbt, Bbxbt(), bbxbtzzxs(), Bbxbtgs, Bbbwh(), Bbbwhzzxs(), Bbbwhgs, bbylte)
  1839.     If Not bbylte Then
  1840.         Unload DY_Tybbyldy
  1841.     End If
  1842. End Sub