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

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

企业管理

开发平台：

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 YS_FrmItemBudget 
  5.    BackColor       =   &H00C0C0C0&
  6.    BorderStyle     =   1  'Fixed Single
  7.    Caption         =   "项目预算表"
  8.    ClientHeight    =   7965
  9.    ClientLeft      =   675
  10.    ClientTop       =   720
  11.    ClientWidth     =   11400
  12.    BeginProperty Font 
  13.       Name            =   "宋体"
  14.       Size            =   14.25
  15.       Charset         =   0
  16.       Weight          =   700
  17.       Underline       =   0   'False
  18.       Italic          =   0   'False
  19.       Strikethrough   =   0   'False
  20.    EndProperty
  21.    HelpContextID   =   411004002
  22.    Icon            =   "预算设置_项目预算.frx":0000
  23.    KeyPreview      =   -1  'True
  24.    LinkTopic       =   "Form4"
  25.    MaxButton       =   0   'False
  26.    MinButton       =   0   'False
  27.    ScaleHeight     =   7965
  28.    ScaleWidth      =   11400
  29.    StartUpPosition =   1  '所有者中心
  30.    Begin VB.CommandButton Ydcommand 
  31.       BeginProperty Font 
  32.          Name            =   "MS Sans Serif"
  33.          Size            =   8.25
  34.          Charset         =   0
  35.          Weight          =   400
  36.          Underline       =   0   'False
  37.          Italic          =   0   'False
  38.          Strikethrough   =   0   'False
  39.       EndProperty
  40.       Height          =   300
  41.       Left            =   9030
  42.       Picture         =   "预算设置_项目预算.frx":1042
  43.       Style           =   1  'Graphical
  44.       TabIndex        =   1
  45.       Top             =   3660
  46.       Visible         =   0   'False
  47.       Width           =   300
  48.    End
  49.    Begin VB.PictureBox Pic_Title 
  50.       BeginProperty Font 
  51.          Name            =   "MS Sans Serif"
  52.          Size            =   8.25
  53.          Charset         =   0
  54.          Weight          =   400
  55.          Underline       =   0   'False
  56.          Italic          =   0   'False
  57.          Strikethrough   =   0   'False
  58.       EndProperty
  59.       Height          =   1125
  60.       Left            =   0
  61.       Picture         =   "预算设置_项目预算.frx":13CC
  62.       ScaleHeight     =   1065
  63.       ScaleWidth      =   11715
  64.       TabIndex        =   7
  65.       Top             =   570
  66.       Width           =   11775
  67.       Begin MSComctlLib.ImageList ImageList1 
  68.          Left            =   4260
  69.          Top             =   60
  70.          _ExtentX        =   1005
  71.          _ExtentY        =   1005
  72.          BackColor       =   -2147483643
  73.          ImageWidth      =   16
  74.          ImageHeight     =   16
  75.          MaskColor       =   12632256
  76.          _Version        =   393216
  77.          BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628} 
  78.             NumListImages   =   25
  79.             BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  80.                Picture         =   "预算设置_项目预算.frx":35490
  81.                Key             =   "sz"
  82.             EndProperty
  83.             BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  84.                Picture         =   "预算设置_项目预算.frx":3582A
  85.                Key             =   "dy"
  86.             EndProperty
  87.             BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  88.                Picture         =   "预算设置_项目预算.frx":35BC4
  89.                Key             =   "yl"
  90.             EndProperty
  91.             BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  92.                Picture         =   "预算设置_项目预算.frx":35F5E
  93.                Key             =   "xg"
  94.             EndProperty
  95.             BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  96.                Picture         =   "预算设置_项目预算.frx":362F8
  97.                Key             =   "zh"
  98.             EndProperty
  99.             BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  100.                Picture         =   "预算设置_项目预算.frx":36692
  101.                Key             =   "sh"
  102.             EndProperty
  103.             BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  104.                Picture         =   "预算设置_项目预算.frx":36A2C
  105.                Key             =   "bc"
  106.             EndProperty
  107.             BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  108.                Picture         =   "预算设置_项目预算.frx":36DC6
  109.                Key             =   "fq"
  110.             EndProperty
  111.             BeginProperty ListImage9 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  112.                Picture         =   "预算设置_项目预算.frx":37160
  113.                Key             =   "bz"
  114.             EndProperty
  115.             BeginProperty ListImage10 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  116.                Picture         =   "预算设置_项目预算.frx":374FA
  117.                Key             =   "tc"
  118.             EndProperty
  119.             BeginProperty ListImage11 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  120.                Picture         =   "预算设置_项目预算.frx":37894
  121.                Key             =   "bcgs"
  122.             EndProperty
  123.             BeginProperty ListImage12 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  124.                Picture         =   "预算设置_项目预算.frx":37C2E
  125.                Key             =   "mrlk"
  126.             EndProperty
  127.             BeginProperty ListImage13 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  128.                Picture         =   "预算设置_项目预算.frx":37FC8
  129.                Key             =   "xsxm"
  130.             EndProperty
  131.             BeginProperty ListImage14 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  132.                Picture         =   "预算设置_项目预算.frx":38362
  133.                Key             =   "first"
  134.             EndProperty
  135.             BeginProperty ListImage15 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  136.                Picture         =   "预算设置_项目预算.frx":386FC
  137.                Key             =   "prev"
  138.             EndProperty
  139.             BeginProperty ListImage16 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  140.                Picture         =   "预算设置_项目预算.frx":38A96
  141.                Key             =   "next"
  142.             EndProperty
  143.             BeginProperty ListImage17 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  144.                Picture         =   "预算设置_项目预算.frx":38E30
  145.                Key             =   "last"
  146.             EndProperty
  147.             BeginProperty ListImage18 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  148.                Picture         =   "预算设置_项目预算.frx":391CA
  149.                Key             =   "xx"
  150.             EndProperty
  151.             BeginProperty ListImage19 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  152.                Picture         =   "预算设置_项目预算.frx":39564
  153.                Key             =   "define"
  154.             EndProperty
  155.             BeginProperty ListImage20 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  156.                Picture         =   "预算设置_项目预算.frx":398FE
  157.                Key             =   "exec"
  158.             EndProperty
  159.             BeginProperty ListImage21 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  160.                Picture         =   "预算设置_项目预算.frx":39C98
  161.                Key             =   "xz"
  162.             EndProperty
  163.             BeginProperty ListImage22 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  164.                Picture         =   "预算设置_项目预算.frx":3A032
  165.                Key             =   "sc"
  166.             EndProperty
  167.             BeginProperty ListImage23 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  168.                Picture         =   "预算设置_项目预算.frx":3A3CC
  169.                Key             =   "sx"
  170.             EndProperty
  171.             BeginProperty ListImage24 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  172.                Picture         =   "预算设置_项目预算.frx":3A766
  173.                Key             =   "cx"
  174.             EndProperty
  175.             BeginProperty ListImage25 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  176.                Picture         =   "预算设置_项目预算.frx":3AB00
  177.                Key             =   "zd"
  178.             EndProperty
  179.          EndProperty
  180.       End
  181.       Begin VB.Label Lbl_ItemClass 
  182.          BackStyle       =   0  'Transparent
  183.          BeginProperty Font 
  184.             Name            =   "MS Sans Serif"
  185.             Size            =   8.25
  186.             Charset         =   0
  187.             Weight          =   400
  188.             Underline       =   0   'False
  189.             Italic          =   0   'False
  190.             Strikethrough   =   0   'False
  191.          EndProperty
  192.          ForeColor       =   &H00FF0000&
  193.          Height          =   285
  194.          Left            =   1080
  195.          TabIndex        =   14
  196.          Top             =   810
  197.          Width           =   3075
  198.       End
  199.       Begin VB.Label Label1 
  200.          Appearance      =   0  'Flat
  201.          BackColor       =   &H80000005&
  202.          BackStyle       =   0  'Transparent
  203.          Caption         =   "项目类别:"
  204.          BeginProperty Font 
  205.             Name            =   "MS Sans Serif"
  206.             Size            =   8.25
  207.             Charset         =   0
  208.             Weight          =   400
  209.             Underline       =   0   'False
  210.             Italic          =   0   'False
  211.             Strikethrough   =   0   'False
  212.          EndProperty
  213.          ForeColor       =   &H80000008&
  214.          Height          =   195
  215.          Index           =   1
  216.          Left            =   210
  217.          TabIndex        =   13
  218.          Top             =   810
  219.          Width           =   795
  220.       End
  221.       Begin VB.Label Label1 
  222.          Appearance      =   0  'Flat
  223.          BackColor       =   &H80000005&
  224.          BackStyle       =   0  'Transparent
  225.          Caption         =   "项目名称:"
  226.          BeginProperty Font 
  227.             Name            =   "MS Sans Serif"
  228.             Size            =   8.25
  229.             Charset         =   0
  230.             Weight          =   400
  231.             Underline       =   0   'False
  232.             Italic          =   0   'False
  233.             Strikethrough   =   0   'False
  234.          EndProperty
  235.          ForeColor       =   &H80000008&
  236.          Height          =   195
  237.          Index           =   0
  238.          Left            =   4350
  239.          TabIndex        =   12
  240.          Top             =   810
  241.          Width           =   795
  242.       End
  243.       Begin VB.Label lbl_AccountYear 
  244.          BackStyle       =   0  'Transparent
  245.          BeginProperty Font 
  246.             Name            =   "MS Sans Serif"
  247.             Size            =   8.25
  248.             Charset         =   0
  249.             Weight          =   400
  250.             Underline       =   0   'False
  251.             Italic          =   0   'False
  252.             Strikethrough   =   0   'False
  253.          EndProperty
  254.          ForeColor       =   &H00FF0000&
  255.          Height          =   285
  256.          Left            =   9120
  257.          TabIndex        =   11
  258.          Top             =   810
  259.          Width           =   1515
  260.       End
  261.       Begin VB.Label Label1 
  262.          Appearance      =   0  'Flat
  263.          BackColor       =   &H80000005&
  264.          BackStyle       =   0  'Transparent
  265.          Caption         =   "会计年度:"
  266.          BeginProperty Font 
  267.             Name            =   "MS Sans Serif"
  268.             Size            =   8.25
  269.             Charset         =   0
  270.             Weight          =   400
  271.             Underline       =   0   'False
  272.             Italic          =   0   'False
  273.             Strikethrough   =   0   'False
  274.          EndProperty
  275.          ForeColor       =   &H80000008&
  276.          Height          =   195
  277.          Index           =   2
  278.          Left            =   8250
  279.          TabIndex        =   10
  280.          Top             =   810
  281.          Width           =   795
  282.       End
  283.       Begin VB.Label Lbl_Item 
  284.          BackStyle       =   0  'Transparent
  285.          BeginProperty Font 
  286.             Name            =   "MS Sans Serif"
  287.             Size            =   8.25
  288.             Charset         =   0
  289.             Weight          =   400
  290.             Underline       =   0   'False
  291.             Italic          =   0   'False
  292.             Strikethrough   =   0   'False
  293.          EndProperty
  294.          ForeColor       =   &H00FF0000&
  295.          Height          =   285
  296.          Left            =   5220
  297.          TabIndex        =   9
  298.          Top             =   810
  299.          Width           =   2925
  300.       End
  301.       Begin VB.Label tsLabel 
  302.          BackColor       =   &H80000018&
  303.          BackStyle       =   0  'Transparent
  304.          Caption         =   "项目预算表"
  305.          BeginProperty Font 
  306.             Name            =   "宋体"
  307.             Size            =   12
  308.             Charset         =   134
  309.             Weight          =   700
  310.             Underline       =   0   'False
  311.             Italic          =   0   'False
  312.             Strikethrough   =   0   'False
  313.          EndProperty
  314.          ForeColor       =   &H00000000&
  315.          Height          =   285
  316.          Index           =   4
  317.          Left            =   630
  318.          TabIndex        =   8
  319.          Top             =   210
  320.          Width           =   2655
  321.       End
  322.    End
  323.    Begin VB.TextBox Ydtext 
  324.       BackColor       =   &H00C0FFFF&
  325.       BorderStyle     =   0  'None
  326.       BeginProperty Font 
  327.          Name            =   "MS Sans Serif"
  328.          Size            =   8.25
  329.          Charset         =   0
  330.          Weight          =   400
  331.          Underline       =   0   'False
  332.          Italic          =   0   'False
  333.          Strikethrough   =   0   'False
  334.       EndProperty
  335.       Height          =   330
  336.       Left            =   8310
  337.       MultiLine       =   -1  'True
  338.       TabIndex        =   0
  339.       Top             =   3690
  340.       Visible         =   0   'False
  341.       Width           =   1185
  342.    End
  343.    Begin VB.ComboBox YdCombo 
  344.       BeginProperty Font 
  345.          Name            =   "MS Sans Serif"
  346.          Size            =   8.25
  347.          Charset         =   0
  348.          Weight          =   400
  349.          Underline       =   0   'False
  350.          Italic          =   0   'False
  351.          Strikethrough   =   0   'False
  352.       EndProperty
  353.       Height          =   300
  354.       Left            =   8310
  355.       Style           =   2  'Dropdown List
  356.       TabIndex        =   3
  357.       Top             =   4110
  358.       Visible         =   0   'False
  359.       Width           =   1155
  360.    End
  361.    Begin VB.Timer Timer1 
  362.       Interval        =   1
  363.       Left            =   8310
  364.       Top             =   2970
  365.    End
  366.    Begin VSFlex8Ctl.VSFlexGrid WglrGrid 
  367.       Height          =   6225
  368.       Left            =   0
  369.       TabIndex        =   4
  370.       Top             =   1710
  371.       Width           =   11775
  372.       _cx             =   5080
  373.       _cy             =   5080
  374.       Appearance      =   1
  375.       BorderStyle     =   1
  376.       Enabled         =   -1  'True
  377.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  378.          Name            =   "宋体"
  379.          Size            =   9
  380.          Charset         =   134
  381.          Weight          =   400
  382.          Underline       =   0   'False
  383.          Italic          =   0   'False
  384.          Strikethrough   =   0   'False
  385.       EndProperty
  386.       MousePointer    =   0
  387.       BackColor       =   16777215
  388.       ForeColor       =   -2147483640
  389.       BackColorFixed  =   12632256
  390.       ForeColorFixed  =   -2147483630
  391.       BackColorSel    =   -2147483635
  392.       ForeColorSel    =   -2147483634
  393.       BackColorBkg    =   -2147483636
  394.       BackColorAlternate=   16777215
  395.       GridColor       =   -2147483633
  396.       GridColorFixed  =   -2147483632
  397.       TreeColor       =   -2147483632
  398.       FloodColor      =   192
  399.       SheetBorder     =   -2147483642
  400.       FocusRect       =   1
  401.       HighLight       =   1
  402.       AllowSelection  =   -1  'True
  403.       AllowBigSelection=   -1  'True
  404.       AllowUserResizing=   0
  405.       SelectionMode   =   0
  406.       GridLines       =   1
  407.       GridLinesFixed  =   2
  408.       GridLineWidth   =   1
  409.       Rows            =   50
  410.       Cols            =   10
  411.       FixedRows       =   1
  412.       FixedCols       =   1
  413.       RowHeightMin    =   0
  414.       RowHeightMax    =   0
  415.       ColWidthMin     =   0
  416.       ColWidthMax     =   0
  417.       ExtendLastCol   =   0   'False
  418.       FormatString    =   ""
  419.       ScrollTrack     =   0   'False
  420.       ScrollBars      =   3
  421.       ScrollTips      =   0   'False
  422.       MergeCells      =   0
  423.       MergeCompare    =   0
  424.       AutoResize      =   -1  'True
  425.       AutoSizeMode    =   0
  426.       AutoSearch      =   0
  427.       AutoSearchDelay =   2
  428.       MultiTotals     =   -1  'True
  429.       SubtotalPosition=   1
  430.       OutlineBar      =   0
  431.       OutlineCol      =   0
  432.       Ellipsis        =   0
  433.       ExplorerBar     =   0
  434.       PicturesOver    =   0   'False
  435.       FillStyle       =   0
  436.       RightToLeft     =   0   'False
  437.       PictureType     =   0
  438.       TabBehavior     =   0
  439.       OwnerDraw       =   0
  440.       Editable        =   0
  441.       ShowComboButton =   1
  442.       WordWrap        =   0   'False
  443.       TextStyle       =   0
  444.       TextStyleFixed  =   0
  445.       OleDragMode     =   0
  446.       OleDropMode     =   0
  447.       DataMode        =   0
  448.       VirtualData     =   -1  'True
  449.       DataMember      =   ""
  450.       ComboSearch     =   3
  451.       AutoSizeMouse   =   -1  'True
  452.       FrozenRows      =   0
  453.       FrozenCols      =   0
  454.       AllowUserFreezing=   0
  455.       BackColorFrozen =   0
  456.       ForeColorFrozen =   0
  457.       WallPaperAlignment=   9
  458.       AccessibleName  =   ""
  459.       AccessibleDescription=   ""
  460.       AccessibleValue =   ""
  461.       AccessibleRole  =   24
  462.    End
  463.    Begin MSComctlLib.Toolbar Tlb_Action 
  464.       Align           =   1  'Align Top
  465.       Height          =   555
  466.       Left            =   0
  467.       TabIndex        =   2
  468.       Top             =   0
  469.       Width           =   11400
  470.       _ExtentX        =   20108
  471.       _ExtentY        =   979
  472.       ButtonWidth     =   820
  473.       ButtonHeight    =   926
  474.       AllowCustomize  =   0   'False
  475.       Wrappable       =   0   'False
  476.       Appearance      =   1
  477.       Style           =   1
  478.       ImageList       =   "ImageList1"
  479.       _Version        =   393216
  480.       BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628} 
  481.          NumButtons      =   10
  482.          BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  483.             Caption         =   "设置"
  484.             Key             =   "ymsz"
  485.             Object.ToolTipText     =   "打印页面设置"
  486.             ImageKey        =   "sz"
  487.          EndProperty
  488.          BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  489.             Caption         =   "打印"
  490.             Key             =   "dy"
  491.             Object.ToolTipText     =   "打印当前单据或Ctrl+P"
  492.             ImageKey        =   "dy"
  493.          EndProperty
  494.          BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  495.             Caption         =   "预览"
  496.             Key             =   "yl"
  497.             ImageKey        =   "yl"
  498.          EndProperty
  499.          BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  500.             Style           =   3
  501.          EndProperty
  502.          BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  503.             Caption         =   "删行"
  504.             Key             =   "sh"
  505.             Object.ToolTipText     =   "删除当前记录行或Delete"
  506.             ImageKey        =   "sh"
  507.          EndProperty
  508.          BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  509.             Style           =   3
  510.          EndProperty
  511.          BeginProperty Button7 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  512.             Caption         =   "导入"
  513.             Key             =   "dr"
  514.             Description     =   "导入上年数据"
  515.             Object.ToolTipText     =   "导入上年数据"
  516.             ImageKey        =   "zd"
  517.          EndProperty
  518.          BeginProperty Button8 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  519.             Style           =   3
  520.          EndProperty
  521.          BeginProperty Button9 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  522.             Caption         =   "帮助"
  523.             Key             =   "bz"
  524.             ImageKey        =   "bz"
  525.          EndProperty
  526.          BeginProperty Button10 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  527.             Caption         =   "退出"
  528.             Key             =   "fh"
  529.             ImageKey        =   "tc"
  530.          EndProperty
  531.       EndProperty
  532.       BorderStyle     =   1
  533.       Begin MSComctlLib.Toolbar GsToolbar 
  534.          Height          =   525
  535.          Left            =   9720
  536.          TabIndex        =   6
  537.          Top             =   0
  538.          Width           =   1695
  539.          _ExtentX        =   2990
  540.          _ExtentY        =   926
  541.          ButtonWidth     =   1455
  542.          ButtonHeight    =   926
  543.          AllowCustomize  =   0   'False
  544.          Appearance      =   1
  545.          Style           =   1
  546.          ImageList       =   "ImageList1"
  547.          _Version        =   393216
  548.          BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628} 
  549.             NumButtons      =   2
  550.             BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  551.                Caption         =   "保存格式"
  552.                Key             =   "bcgs"
  553.                ImageKey        =   "bcgs"
  554.             EndProperty
  555.             BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  556.                Caption         =   "默认列宽"
  557.                Key             =   "hfmrgs"
  558.                ImageKey        =   "mrlk"
  559.             EndProperty
  560.          EndProperty
  561.       End
  562.    End
  563.    Begin VB.Label Lab_OperStatus 
  564.       BackColor       =   &H000080FF&
  565.       Caption         =   "1"
  566.       BeginProperty Font 
  567.          Name            =   "MS Sans Serif"
  568.          Size            =   8.25
  569.          Charset         =   0
  570.          Weight          =   400
  571.          Underline       =   0   'False
  572.          Italic          =   0   'False
  573.          Strikethrough   =   0   'False
  574.       EndProperty
  575.       Height          =   345
  576.       Left            =   10980
  577.       TabIndex        =   5
  578.       Top             =   1230
  579.       Visible         =   0   'False
  580.       Width           =   345
  581.    End
  582. End
  583. Attribute VB_Name = "YS_FrmItemBudget"
  584. Attribute VB_GlobalNameSpace = False
  585. Attribute VB_Creatable = False
  586. Attribute VB_PredeclaredId = True
  587. Attribute VB_Exposed = False
  588. '**************************************************************************************************
  589. '*    模 块 名 称 :项目预算表
  590. '*    功 能 描 述 :对所进行预算的会计科目的预算金额录入
  591. '*    程序员姓名  :魏永生
  592. '*    最后修改人  :
  593. '*    最后修改时间:2002/01/21
  594. '*    备        注:程序中所有依实际情况自定义部分均用[>> <<]括起
  595. '*
  596. '*    1.每次调入外部功能窗体，均要加锁ChangeLock=True,窗体关闭后解锁ChangeLock=false
  597. '*    2.网格列存储内容注解
  598. '*      0-行有效标识 1-记录编辑唯一标识 2-科目编码
  599. '*    3.Lab_OperStatus 用此标签来标识单据录入状态(默认值为1) 1-浏览 2-修改
  600. '**************************************************************************************************
  601.     
  602.  '以下为固定使用变量(网格)
  603. Dim Cxnrrec As New ADODB.Recordset              '显示查询内容动态集
  604. Dim Dyymctbl As New DY_Dyymsz                   '打印页面窗体变量
  605. Dim GridCode As String                          '显示网格网格代码
  606. Dim GridInf() As Variant                        '整个网格设置信息
  607. Dim ReportTitle As String                       '报表主标题
  608. Dim Tsxx As String                              '系统提示信息
  609. Dim Pmbcsjhs As Long                            '屏幕网格保持数据行数(大于等于1)
  610. Dim Fzxwghs As Integer                          '辅助项网格行数(包括合计行)
  611. Dim Sfxshjwg As Boolean                         '是否显示合计网格
  612. Dim Qslz As Long                                '网格隐藏(非操作显示)列数
  613. Dim Sjhgd As Double                             '网格数据行高度
  614. Dim GridBoolean() As Boolean                    '网格列信息(布尔型)
  615. Dim GridStr()  As String                        '网格列信息(字符型)
  616. Dim GridInt() As Integer                        '网格列信息(整型)
  617. Dim Sfblbzkd As Boolean                         '是否保留帮助宽度(字段提供帮助时,是否为按钮保留空间)
  618. Dim Dqlrwgh As Long                             '当前录入数据网格行
  619. Dim Dqlrwgl As Long                             '当前录入数据网格列
  620. Dim Dqlkwgh As Long                             '刚刚离开网格行(不一定为录入行)
  621. Dim Dqlkwgl As Long                             '刚刚离开网格列
  622. Dim Dqtoprow As Long                            '当前录入状态时最上端可视行
  623. Dim Dqleftcol As Long                           '当前录入状态时最左端可视列
  624. Dim Zdlrqnr As String                           '字段录入修改前内容(用来判断内容是否修改)
  625. Dim Wbkbhlock As Boolean                        '文本框改变值锁
  626. Dim changelock As Boolean                       '网格行列改变控制锁(用来区别用户改变.程序改变)
  627. Dim Gdtlock As Boolean                          '滚动条滚动控制(用来区别用户改变.程序改变)
  628. Dim Yxxpdlock As Boolean                        '字段有效性判断锁(内容不修改不需进行字段有效性判断)
  629. Dim Hyxxpdlock As Boolean                       '行有效性判断锁(字段内容不修改不需进行行有效性判断)
  630. Dim Valilock As Boolean                         '文本框失去焦点是否进行有效性控制(TRUE 为锁定*限用网格录入)
  631. Dim Shsfts As Boolean                           '删除记录行是否提示
  632. Dim Szzls As Integer                            '网格信息数组最大下标值(网格列数-1)
  633. Private Sub Form_KeyPress(KeyAscii As Integer)      '控制焦点转移和限制录入字符"'"
  634.     Select Case KeyAscii
  635.     Case 39                                         '屏蔽字符"'"
  636.         KeyAscii = 0
  637.     End Select
  638. End Sub
  640. Private Sub Form_Load()                             '窗 体 装 入
  641.     Dim RecTemp As New ADODB.Recordset              '临时使用动态集
  642.     '隐藏选择对话框
  643.     lbl_AccountYear.Caption = Str(Int_OriYear)
  644.     Lbl_ItemClass = Trim(Str_ItemClassName)
  645.     Lbl_Item = Trim(Str_ItemName)
  646.     
  647.     YS_FrmItemBudgetC.Hide
  648.     
  649.     
  650.     '初始化各种锁值
  651.     changelock = False             '网格行列改变控制锁
  652.     Gdtlock = False                '滚动条滚动控制
  653.     Yxxpdlock = True               '字段有效性判断锁
  654.     Hyxxpdlock = True              '行有效性判断锁
  655.     Wbkbhlock = False              '文本框内容改变锁
  656.     
  657.     '报表主标题及报表编码
  658.     ReportTitle = "项目预算表"
  659.     XtReportCode = "cwfx_Budget"
  660.     Load Dyymctbl
  661.     
  662.     '调 入 网 格
  663.     GridCode = "cwfx_ItemBudget"      '网格属性编码
  664.     Call BzWgcsh(WglrGrid, GridCode, GridInf(), GridBoolean(), GridInt(), GridStr())
  665.     
  666.     Qslz = GridInf(1)
  667.     Sjhgd = GridInf(2)
  668.     Pmbcsjhs = GridInf(3)
  669.     Fzxwghs = GridInf(4)
  670.     Sfblbzkd = GridInf(5)
  671.     Shsfts = GridInf(6)
  672.     Sfxshjwg = GridInf(7)
  673.     Szzls = WglrGrid.Cols - 1
  674.     
  675.     '生成查询结果
  676.     Call Sub_Query
  677.     
  678.     '设置状态为修改状态
  679.     Lab_OperStatus = "2"
  680.     
  681. End Sub
  683. Private Sub Form_Unload(Cancel As Integer)           '窗体卸载
  684.     
  685.     '卸载打印页面窗体
  686.     Unload Dyymctbl
  687.     Unload YS_FrmItemBudgetC
  688.     
  689. End Sub
  691. Private Sub Sub_Query()                              '生成查询结果
  692.     Dim SqlStr As String                   '查询字符串
  693.     Dim RecTemp As New ADODB.Recordset     '临时使用动态集
  694.     Dim Jsqte  As Long                     '临时计数器
  695.     
  696.     SqlStr = "SELECT Cwfx_ItemBudgetMaster.*,CName FROM Cwfx_ItemBudgetMaster,Cwzz_AccCode "
  697.     SqlStr = SqlStr + " where Cwfx_ItemBudgetMaster.CCode=Cwzz_AccCode.CCode And Year=" & Str(Int_OriYear) & _
  698.     " and Cwfx_ItemBudgetMaster.ItemClassCode='" & Str_ItemClassCode & "'" & _
  699.     " and Cwfx_ItemBudgetMaster.ItemCode='" & Str_ItemCode & "'"
  700.     SqlStr = SqlStr + " order by Cwfx_ItemBudgetMaster.Ccode "
  701.     Set RecTemp = Cw_DataEnvi.DataConnect.Execute(SqlStr)
  702.     
  703.     With RecTemp
  704.         
  705.         WglrGrid.Clear 1
  706.         
  707.         WglrGrid.Rows = .RecordCount + WglrGrid.FixedRows
  708.         
  709.         Jsqte = WglrGrid.FixedRows
  710.         Do While Not .EOF
  711.             If Jsqte >= WglrGrid.Rows Then
  712.                 WglrGrid.AddItem ""
  713.             End If
  714.             
  715.             WglrGrid.TextMatrix(Jsqte, 0) = "*"                                                              '有效记录标识
  716.             WglrGrid.TextMatrix(Jsqte, 1) = Trim(.Fields("I_id"))            '记录唯一标识
  717.             WglrGrid.TextMatrix(Jsqte, 2) = Trim(.Fields("CCode"))
  718.             
  719.             
  720.             WglrGrid.TextMatrix(Jsqte, Sydz("001", GridStr(), Szzls)) = Trim(.Fields("Cname"))
  721.             WglrGrid.TextMatrix(Jsqte, Sydz("002", GridStr(), Szzls)) = IIf(.Fields("Budget_1") = 0, "", .Fields("budget_1"))
  722.             WglrGrid.TextMatrix(Jsqte, Sydz("003", GridStr(), Szzls)) = IIf(.Fields("Add_1") = 0, "", .Fields("Add_1"))
  723.             WglrGrid.TextMatrix(Jsqte, Sydz("004", GridStr(), Szzls)) = IIf(.Fields("Budget_2") = 0, "", .Fields("budget_2"))
  724.             WglrGrid.TextMatrix(Jsqte, Sydz("005", GridStr(), Szzls)) = IIf(.Fields("Add_2") = 0, "", .Fields("Add_2"))
  725.             WglrGrid.TextMatrix(Jsqte, Sydz("006", GridStr(), Szzls)) = IIf(.Fields("Budget_3") = 0, "", .Fields("budget_3"))
  726.             WglrGrid.TextMatrix(Jsqte, Sydz("007", GridStr(), Szzls)) = IIf(.Fields("Add_3") = 0, "", .Fields("Add_3"))
  727.             WglrGrid.TextMatrix(Jsqte, Sydz("008", GridStr(), Szzls)) = IIf(.Fields("Budget_4") = 0, "", .Fields("budget_4"))
  728.             WglrGrid.TextMatrix(Jsqte, Sydz("009", GridStr(), Szzls)) = IIf(.Fields("Add_4") = 0, "", .Fields("Add_4"))
  729.             WglrGrid.TextMatrix(Jsqte, Sydz("010", GridStr(), Szzls)) = IIf(.Fields("Budget_5") = 0, "", .Fields("budget_5"))
  730.             WglrGrid.TextMatrix(Jsqte, Sydz("011", GridStr(), Szzls)) = IIf(.Fields("Add_5") = 0, "", .Fields("Add_5"))
  731.             WglrGrid.TextMatrix(Jsqte, Sydz("012", GridStr(), Szzls)) = IIf(.Fields("Budget_6") = 0, "", .Fields("budget_6"))
  732.             WglrGrid.TextMatrix(Jsqte, Sydz("013", GridStr(), Szzls)) = IIf(.Fields("Add_6") = 0, "", .Fields("Add_6"))
  733.             WglrGrid.TextMatrix(Jsqte, Sydz("014", GridStr(), Szzls)) = IIf(.Fields("Budget_7") = 0, "", .Fields("budget_7"))
  734.             WglrGrid.TextMatrix(Jsqte, Sydz("015", GridStr(), Szzls)) = IIf(.Fields("Add_7") = 0, "", .Fields("Add_7"))
  735.             WglrGrid.TextMatrix(Jsqte, Sydz("016", GridStr(), Szzls)) = IIf(.Fields("Budget_8") = 0, "", .Fields("budget_8"))
  736.             WglrGrid.TextMatrix(Jsqte, Sydz("017", GridStr(), Szzls)) = IIf(.Fields("Add_8") = 0, "", .Fields("Add_8"))
  737.             WglrGrid.TextMatrix(Jsqte, Sydz("018", GridStr(), Szzls)) = IIf(.Fields("Budget_9") = 0, "", .Fields("budget_9"))
  738.             WglrGrid.TextMatrix(Jsqte, Sydz("019", GridStr(), Szzls)) = IIf(.Fields("Add_9") = 0, "", .Fields("Add_9"))
  739.             WglrGrid.TextMatrix(Jsqte, Sydz("020", GridStr(), Szzls)) = IIf(.Fields("Budget_10") = 0, "", .Fields("budget_10"))
  740.             WglrGrid.TextMatrix(Jsqte, Sydz("021", GridStr(), Szzls)) = IIf(.Fields("Add_10") = 0, "", .Fields("Add_10"))
  741.             WglrGrid.TextMatrix(Jsqte, Sydz("022", GridStr(), Szzls)) = IIf(.Fields("Budget_11") = 0, "", .Fields("budget_11"))
  742.             WglrGrid.TextMatrix(Jsqte, Sydz("023", GridStr(), Szzls)) = IIf(.Fields("Add_11") = 0, "", .Fields("Add_11"))
  743.             WglrGrid.TextMatrix(Jsqte, Sydz("024", GridStr(), Szzls)) = IIf(.Fields("Budget_12") = 0, "", .Fields("budget_12"))
  744.             WglrGrid.TextMatrix(Jsqte, Sydz("025", GridStr(), Szzls)) = IIf(.Fields("Add_12") = 0, "", .Fields("Add_12"))
  745.             
  746.             Cur_SumBudget = .Fields("Budget_1") + .Fields("Budget_2") + .Fields("Budget_3") + .Fields("Budget_4") + _
  747.             .Fields("Budget_5") + .Fields("Budget_6") + .Fields("Budget_7") + .Fields("Budget_8") + _
  748.             .Fields("Budget_9") + .Fields("Budget_10") + .Fields("Budget_11") + .Fields("Budget_12") + _
  749.             .Fields("Add_1") + .Fields("Add_2") + .Fields("Add_3") + .Fields("Add_4") + .Fields("Add_5") + _
  750.             .Fields("Add_6") + .Fields("Add_7") + .Fields("Add_8") + .Fields("Add_9") + .Fields("Add_10") + _
  751.             .Fields("Add_11") + .Fields("Add_12")
  752.             WglrGrid.TextMatrix(Jsqte, Sydz("026", GridStr(), Szzls)) = IIf(Cur_SumBudget = 0, "", Cur_SumBudget)
  753.             
  754.             
  755.             WglrGrid.TextMatrix(Jsqte, Sydz("027", GridStr(), Szzls)) = IIf(.Fields("YearBudget") = 0, "", .Fields("YearBudget"))
  756.             
  757.             '<<]
  758.             WglrGrid.RowHeight(Jsqte) = Sjhgd
  759.             .MoveNext
  760.             Jsqte = Jsqte + 1
  761.         Loop
  762.     End With
  763.     
  764.     '调整网格
  765.     Call Sub_AdjustGrid
  766.     
  767. End Sub
  772. Private Sub Tlb_Action_ButtonClick(ByVal Button As MSComctlLib.Button)             '用户点击工具条
  773.     
  774.     '屏蔽文本框,下拉组合框有效性判断
  775.     Dim Msg, Style, Title, Response
  776.     Valilock = True
  777.     
  778.     '屏蔽网格失去焦点产生的有效性判断
  779.     
  780.     changelock = True
  781.     
  782.     Select Case Button.Key
  783.     Case "ymsz"                                          '页面设置
  784.         Dyymctbl.Show 1
  785.     Case "yl"                                            '预 览
  786.         If Fun_Drfrmyxxpd Then
  787.             Call bbyl(True)
  788.         End If
  789.     Case "dy"                                            '打 印
  790.         If Fun_Drfrmyxxpd Then
  791.             Call bbyl(False)
  792.         End If
  793.     Case "sh"                                            '删 行
  794.         Call Scdqfl
  795.     Case "dr"                                            '导入
  796.         Msg = "导入将替换本年已录入的相同科目的预算数据?"   ' 定义信息。
  797.         Style = vbYesNo + vbDefaultButton2 + vbExclamation ' 定义按钮。
  798.         Title = "百利/ERP财务分析系统5.0"   ' 定义标题。
  799.         Response = MsgBox(Msg, Style, Title)
  800.         If Response = vbYes Then   ' 用户按下“是”。
  801.             Call ImportFromLastYear
  802.            
  803.         End If
  804.         
  805.     Case "bz"                                            '帮 助
  806.         Call F1bz
  807.     Case "fh"                                            '退 出
  808.         Unload Me
  809.     End Select
  810.     
  811.     '解 锁
  812.     Valilock = False
  813.     changelock = False
  814.     
  815. End Sub
  817. Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)        '支持热键操作
  818.     If Shift = 2 Then
  819.         Select Case UCase(Chr(KeyCode))
  820.         Case "P"                   'Ctrl+P 打印
  821.             If Tlb_Action.Buttons("dy").Enabled Then
  822.                 Call bbyl(False)
  823.             End If
  824.         End Select
  825.     End If
  826. End Sub
  828. Private Sub Wbkcl()                                                 '文本框录入之前处理(根据实际情况)
  829.     Dim xswbrr As String
  830.     With WglrGrid
  831.         Zdlrqnr = Trim(.Text)
  832.         xswbrr = Trim(.Text)
  833.         
  834.         If GridBoolean(.Col, 3) Then   '列表框录入
  835.             
  836.             '填充列表框程序
  837.             Call FillCombo(YdCombo, GridStr(.Col, 5), xswbrr, 0)
  838.         Else
  839.             Wbkbhlock = True
  840.             
  841.             '====以下为用户自定义
  842.             Ydtext.Text = xswbrr
  843.             '====以上为用户自定义
  844.             
  845.             Wbkbhlock = False
  846.             Ydtext.SelStart = Len(Ydtext.Text)
  847.         End If
  848.     End With
  849. End Sub
  851. Private Function sjzdyxxpd(Dqpdwgh As Long, Dqpdwgl As Long)        '录入数据字段有效性判断,同时进行字段录入事后处理
  852.     Dim Str_JudgeText As String                                     '临时有效性判断字段内容
  853.     Dim Coljsq As Long                                              '临时列计数器
  854.     Dim RecTemp As New ADODB.Recordset                              '临时使用动态集
  855.     Dim Dbl_Qcye As Double                                          '临时期初余额
  856.     
  857.     With WglrGrid
  858.         
  859.         '非录入状态有效性为合法
  860.         If Yxxpdlock Or .Row < .FixedRows Then
  861.             sjzdyxxpd = True
  862.             Exit Function
  863.         End If
  864.         
  865.         Str_JudgeText = Trim(.TextMatrix(Dqpdwgh, Dqpdwgl))
  866.         Select Case GridStr(Dqpdwgl, 1)
  867.             
  868.             '以下为自定义部分[
  869.             '1.放置字段有效性判断程序
  870.         Case "001"          '科目(如有效则调入科目编码)
  871.             If Len(Str_JudgeText) <> 0 Then
  872.                 SqlStr = "Select * FROM Cwzz_AccCode Where CCode='" & Str_JudgeText & "' OR CName='" & Str_JudgeText & "'"
  873.                 Set RecTemp = Cw_DataEnvi.DataConnect.Execute(SqlStr)
  874.                 With RecTemp
  875.                     If .EOF Then
  876.                         Tsxx = "此科目不存在!"
  877.                         GoTo Lrcwcl
  878.                     End If
  879.                     
  880.                     '1.如果科目存在则存储相应预算科目编码
  881.                     WglrGrid.TextMatrix(Dqpdwgh, 2) = Trim(RecTemp.Fields("CCode"))
  882.                     WglrGrid.TextMatrix(Dqpdwgh, Sydz("001", GridStr(), Szzls)) = Trim(RecTemp.Fields("CName"))
  883.                 End With
  884.                 
  885.                 '判断记录是否重复
  886.                 SqlStr = "SELECT Cwfx_ItemBudgetMaster.I_id From Cwfx_ItemBudgetMaster WHERE ItemClassCode='" & _
  887.                 Trim(Str_ItemClassCode) & "' and ItemCode='" & Str_ItemCode & "' and Ccode='" & _
  888.                 WglrGrid.TextMatrix(Dqpdwgh, 2) & "'And Year=" & Str(Int_OriYear)
  889.                 Set RecTemp = Cw_DataEnvi.DataConnect.Execute(SqlStr)
  890.                 If Not RecTemp.EOF Then
  891.                     If RecTemp.Fields("I_ID") <> Val(WglrGrid.TextMatrix(Dqpdwgh, 1)) Then
  892.                         Tsxx = "录入记录重复!"
  893.                         Dqpdwgl = Sydz("001", GridStr(), Szzls)
  894.                         
  895.                         GoTo Lrcwcl
  896.                     End If
  897.                 End If
  898.                 
  899.             Else
  900.                 WglrGrid.TextMatrix(Dqpdwgh, Sydz("001", GridStr(), Szzls)) = ""
  901.             End If
  902.             
  903.             '以上为自定义部分]
  904.             '科目所要进行核算项不能为空
  905.             If (Not .ColHidden(Sydz("001", GridStr(), Szzls))) And Trim(.TextMatrix(Dqpdwgh, Sydz("001", GridStr(), Szzls))) = "" Then
  906.                 Tsxx = "预算项目不能为空!"
  907.                 Lrywlz = Sydz("001", GridStr(), Szzls)
  908.                 GoTo Lrcwcl
  909.             End If
  910.             
  911.             
  912.         End Select
  913.         '2.放置字段事后处理程序
  914.         Cur_SumBudget = 0
  915.         For I = 2 To 25
  916.             Cur_SumBudget = Cur_SumBudget + Val(WglrGrid.TextMatrix(Dqpdwgh, Sydz(IIf(I > 9, "0", "00") + Trim(Str(I)), GridStr(), Szzls)))
  917.         Next
  918.         WglrGrid.TextMatrix(Dqpdwgh, Sydz("026", GridStr(), Szzls)) = IIf(Cur_SumBudget = 0, "", Cur_SumBudget)
  919.         '字段录入正确后为零字段清空
  920.         Call Qkwlzd(Dqpdwgh, Dqpdwgl)
  921.         
  922.         sjzdyxxpd = True
  923.         Yxxpdlock = True
  924.         Exit Function
  925.     End With
  926.     
  927. Lrcwcl:    '录入错误处理
  928.     With WglrGrid
  929.         Call Xtxxts(Tsxx, 0, 1)
  930.         changelock = True
  931.         .Select Dqpdwgh, Dqpdwgl
  932.         changelock = False
  933.         Call xswbk
  934.         sjzdyxxpd = False
  935.         Exit Function
  936.     End With
  937. End Function
  939. Private Function Sjhzyxxpd(ByVal Yxxpdh As Long) As Boolean                  '录入数据行有效性判断,同时进行行处理
  940.     Dim Lrywlz As Long
  941.     Dim RecTemp As New ADODB.Recordset             '临时使用动态集
  942.     Dim SqlStr As String                           '临时连接字符串
  943.     Dim Rec_AccSumAssi As New ADODB.Recordset      '辅助总帐动态集
  944.     Dim Dbl_Now(1 To 16) As Double                 '科目记录现数据
  945.     Dim Str_OriItemCode As String                  '辅助核算项目编码(原)
  946.     Dim Str_NowItemCode As String                  '辅助核算项目编码(现)
  947.     
  948.     With WglrGrid
  949.         
  950.         '判断行为空和无效数据行则清除当前行
  951.         If Yxxpdh > (.Rows - .FixedRows) Then Exit Function
  952.         If .TextMatrix(Yxxpdh, 0) <> "*" Then
  953.             Sjhzyxxpd = True
  954.             Exit Function
  955.         Else
  956.             If pdhwk(Yxxpdh) And Yxxpdh + 1 <= .Rows - 1 Then
  957.                 If .TextMatrix(Yxxpdh + 1, 0) <> "*" Then
  958.                     changelock = True
  959.                     .RemoveItem Yxxpdh
  960.                     If .Rows < Pmbcsjhs + .FixedRows + Fzxwghs + 1 Then
  961.                         .AddItem ""
  962.                         .RowHeight(.Rows - 1) = Sjhgd
  963.                     End If
  964.                     changelock = False
  965.                     Sjhzyxxpd = True
  966.                     Exit Function
  967.                 End If
  968.             End If
  969.         End If
  970.         
  971.         '行没有发生变化则不进行有效性判断
  972.         If Hyxxpdlock Then
  973.             Sjhzyxxpd = True
  974.             Exit Function
  975.         End If
  976.         
  977.         '以下为自定义部分[
  978.         
  979.         '1.放置行有效性判断程序
  980.         
  981.         '首先进行为空判断(固定不变)
  982.         For Jsqte = Qslz To .Cols - 1
  983.             If (GridInt(Jsqte, 5) = 1 And Len(Trim(.TextMatrix(Yxxpdh, Jsqte))) = 0) Or (GridInt(Jsqte, 5) = 2 And Val(Trim(.TextMatrix(Yxxpdh, Jsqte))) = 0) Then
  984.                 Tsxx = GridStr(Jsqte, 2)
  985.                 Lrywlz = Jsqte
  986.                 GoTo Lrcwcl
  987.                 Exit For
  988.             End If
  989.         Next Jsqte
  990.         
  991.         '科目所要进行核算项不能为空
  992.         If (Not .ColHidden(Sydz("001", GridStr(), Szzls))) And Trim(.TextMatrix(Yxxpdh, Sydz("001", GridStr(), Szzls))) = "" Then
  993.             Tsxx = "预算科目不能为空!"
  994.             Lrywlz = Sydz("001", GridStr(), Szzls)
  995.             GoTo Lrcwcl
  996.         End If
  997.         
  998.         '判断记录是否重复
  999.         SqlStr = "SELECT Cwfx_ItemBudgetMaster.I_id From Cwfx_ItemBudgetMaster WHERE ItemClassCode='" & _
  1000.         Trim(Str_ItemClassCode) & "' and ItemCode='" & Str_ItemCode & "' and Ccode='" & _
  1001.         WglrGrid.TextMatrix(Yxxpdh, 2) & "'And Year=" & Str(Int_OriYear)
  1002.         Set RecTemp = Cw_DataEnvi.DataConnect.Execute(SqlStr)
  1003.         If Not RecTemp.EOF Then
  1004.             If RecTemp.Fields("I_ID") <> Val(WglrGrid.TextMatrix(Yxxpdh, 1)) Then
  1005.                 Tsxx = "录入记录重复!"
  1006.                 For Jsqte = Qslz To WglrGrid.Cols - 1
  1007.                     If Not WglrGrid.ColHidden(Jsqte) Then
  1008.                         Lrywlz = Jsqte
  1009.                     End If
  1010.                 Next Jsqte
  1011.                 Lrywlz = Sydz("001", GridStr(), Szzls)
  1012.                 
  1013.                 GoTo Lrcwcl
  1014.             End If
  1015.         End If
  1016.         
  1017.         '2.进行行数据回写
  1018.         
  1019.     End With
  1020.     
  1021.     On Error GoTo Swcwcl
  1022.     
  1023.     Cw_DataEnvi.DataConnect.BeginTrans
  1024.     
  1025.     With Rec_AccSumAssi
  1026.         
  1027.         If Val(Trim(WglrGrid.TextMatrix(Yxxpdh, 1))) <> 0 Then
  1028.             If .State = 1 Then .Close
  1029.             .Open "SELECT Cwfx_ItemBudgetMaster.* From Cwfx_ItemBudgetMaster WHERE I_id = " & Val(WglrGrid.TextMatrix(Yxxpdh, 1)), Cw_DataEnvi.DataConnect, adOpenDynamic, adLockOptimistic
  1030.             
  1031.             If Not .EOF Then
  1032.                 .Fields("Ccode") = WglrGrid.TextMatrix(Yxxpdh, 2)                '预算科目
  1033.                 .Fields("ItemClassCode") = Trim(Str_ItemClassCode)
  1034.                 .Fields("ItemCode") = Trim(Str_ItemCode)
  1035.                 .Fields("Year") = Int_OriYear                                           '会计年度
  1036.                 .Fields("Budget_1") = Val(WglrGrid.TextMatrix(Yxxpdh, Sydz("002", GridStr(), Szzls)))
  1037.                 .Fields("Add_1") = Val(WglrGrid.TextMatrix(Yxxpdh, Sydz("003", GridStr(), Szzls)))
  1038.                 .Fields("Budget_2") = Val(WglrGrid.TextMatrix(Yxxpdh, Sydz("004", GridStr(), Szzls)))
  1039.                 .Fields("Add_2") = Val(WglrGrid.TextMatrix(Yxxpdh, Sydz("005", GridStr(), Szzls)))
  1040.                 .Fields("Budget_3") = Val(WglrGrid.TextMatrix(Yxxpdh, Sydz("006", GridStr(), Szzls)))
  1041.                 .Fields("Add_3") = Val(WglrGrid.TextMatrix(Yxxpdh, Sydz("007", GridStr(), Szzls)))
  1042.                 .Fields("Budget_4") = Val(WglrGrid.TextMatrix(Yxxpdh, Sydz("008", GridStr(), Szzls)))
  1043.                 .Fields("Add_4") = Val(WglrGrid.TextMatrix(Yxxpdh, Sydz("009", GridStr(), Szzls)))
  1044.                 .Fields("Budget_5") = Val(WglrGrid.TextMatrix(Yxxpdh, Sydz("010", GridStr(), Szzls)))
  1045.                 .Fields("Add_5") = Val(WglrGrid.TextMatrix(Yxxpdh, Sydz("011", GridStr(), Szzls)))
  1046.                 .Fields("Budget_6") = Val(WglrGrid.TextMatrix(Yxxpdh, Sydz("012", GridStr(), Szzls)))
  1047.                 .Fields("Add_6") = Val(WglrGrid.TextMatrix(Yxxpdh, Sydz("013", GridStr(), Szzls)))
  1048.                 .Fields("Budget_7") = Val(WglrGrid.TextMatrix(Yxxpdh, Sydz("014", GridStr(), Szzls)))
  1049.                 .Fields("Add_7") = Val(WglrGrid.TextMatrix(Yxxpdh, Sydz("015", GridStr(), Szzls)))
  1050.                 .Fields("Budget_8") = Val(WglrGrid.TextMatrix(Yxxpdh, Sydz("016", GridStr(), Szzls)))
  1051.                 .Fields("Add_8") = Val(WglrGrid.TextMatrix(Yxxpdh, Sydz("017", GridStr(), Szzls)))
  1052.                 .Fields("Budget_9") = Val(WglrGrid.TextMatrix(Yxxpdh, Sydz("018", GridStr(), Szzls)))
  1053.                 .Fields("Add_9") = Val(WglrGrid.TextMatrix(Yxxpdh, Sydz("019", GridStr(), Szzls)))
  1054.                 .Fields("Budget_10") = Val(WglrGrid.TextMatrix(Yxxpdh, Sydz("020", GridStr(), Szzls)))
  1055.                 .Fields("Add_10") = Val(WglrGrid.TextMatrix(Yxxpdh, Sydz("021", GridStr(), Szzls)))
  1056.                 .Fields("Budget_11") = Val(WglrGrid.TextMatrix(Yxxpdh, Sydz("022", GridStr(), Szzls)))
  1057.                 .Fields("Add_11") = Val(WglrGrid.TextMatrix(Yxxpdh, Sydz("023", GridStr(), Szzls)))
  1058.                 .Fields("Budget_12") = Val(WglrGrid.TextMatrix(Yxxpdh, Sydz("024", GridStr(), Szzls)))
  1059.                 .Fields("Add_12") = Val(WglrGrid.TextMatrix(Yxxpdh, Sydz("025", GridStr(), Szzls)))
  1060.                 
  1061.                 .Fields("YearBudget") = Val(WglrGrid.TextMatrix(Yxxpdh, Sydz("027", GridStr(), Szzls)))
  1062.                 
  1063.                 
  1064.                 .Update
  1065.                 
  1066.                 '更新其他各会计期间数据
  1067.                 
  1068.             End If
  1069.             
  1070.         Else
  1071.             If .State = 1 Then .Close
  1072.             .Open "SELECT Cwfx_ItemBudgetMaster.* From Cwfx_ItemBudgetMaster WHERE I_id = " & Val(WglrGrid.TextMatrix(Yxxpdh, 1)), Cw_DataEnvi.DataConnect, adOpenDynamic, adLockOptimistic
  1073.             
  1074.             .AddNew
  1075.             .Fields("Ccode") = Trim(WglrGrid.TextMatrix(Yxxpdh, 2))                                     '预算科目
  1076.             .Fields("ItemClassCode") = Trim(Str_ItemClassCode)
  1077.             .Fields("ItemCode") = Trim(Str_ItemCode)
  1078.             .Fields("Year") = Int_OriYear                                          '会计年度
  1079.             
  1080.             .Fields("Budget_1") = Val(WglrGrid.TextMatrix(Yxxpdh, Sydz("002", GridStr(), Szzls)))
  1081.             .Fields("Add_1") = Val(WglrGrid.TextMatrix(Yxxpdh, Sydz("003", GridStr(), Szzls)))
  1082.             .Fields("Budget_2") = Val(WglrGrid.TextMatrix(Yxxpdh, Sydz("004", GridStr(), Szzls)))
  1083.             .Fields("Add_2") = Val(WglrGrid.TextMatrix(Yxxpdh, Sydz("005", GridStr(), Szzls)))
  1084.             .Fields("Budget_3") = Val(WglrGrid.TextMatrix(Yxxpdh, Sydz("006", GridStr(), Szzls)))
  1085.             .Fields("Add_3") = Val(WglrGrid.TextMatrix(Yxxpdh, Sydz("007", GridStr(), Szzls)))
  1086.             .Fields("Budget_4") = Val(WglrGrid.TextMatrix(Yxxpdh, Sydz("008", GridStr(), Szzls)))
  1087.             .Fields("Add_4") = Val(WglrGrid.TextMatrix(Yxxpdh, Sydz("009", GridStr(), Szzls)))
  1088.             .Fields("Budget_5") = Val(WglrGrid.TextMatrix(Yxxpdh, Sydz("010", GridStr(), Szzls)))
  1089.             .Fields("Add_5") = Val(WglrGrid.TextMatrix(Yxxpdh, Sydz("011", GridStr(), Szzls)))
  1090.             .Fields("Budget_6") = Val(WglrGrid.TextMatrix(Yxxpdh, Sydz("012", GridStr(), Szzls)))
  1091.             .Fields("Add_6") = Val(WglrGrid.TextMatrix(Yxxpdh, Sydz("013", GridStr(), Szzls)))
  1092.             .Fields("Budget_7") = Val(WglrGrid.TextMatrix(Yxxpdh, Sydz("014", GridStr(), Szzls)))
  1093.             .Fields("Add_7") = Val(WglrGrid.TextMatrix(Yxxpdh, Sydz("015", GridStr(), Szzls)))
  1094.             .Fields("Budget_8") = Val(WglrGrid.TextMatrix(Yxxpdh, Sydz("016", GridStr(), Szzls)))
  1095.             .Fields("Add_8") = Val(WglrGrid.TextMatrix(Yxxpdh, Sydz("017", GridStr(), Szzls)))
  1096.             .Fields("Budget_9") = Val(WglrGrid.TextMatrix(Yxxpdh, Sydz("018", GridStr(), Szzls)))
  1097.             .Fields("Add_9") = Val(WglrGrid.TextMatrix(Yxxpdh, Sydz("019", GridStr(), Szzls)))
  1098.             .Fields("Budget_10") = Val(WglrGrid.TextMatrix(Yxxpdh, Sydz("020", GridStr(), Szzls)))
  1099.             .Fields("Add_10") = Val(WglrGrid.TextMatrix(Yxxpdh, Sydz("021", GridStr(), Szzls)))
  1100.             .Fields("Budget_11") = Val(WglrGrid.TextMatrix(Yxxpdh, Sydz("022", GridStr(), Szzls)))
  1101.             .Fields("Add_11") = Val(WglrGrid.TextMatrix(Yxxpdh, Sydz("023", GridStr(), Szzls)))
  1102.             .Fields("Budget_12") = Val(WglrGrid.TextMatrix(Yxxpdh, Sydz("024", GridStr(), Szzls)))
  1103.             .Fields("Add_12") = Val(WglrGrid.TextMatrix(Yxxpdh, Sydz("025", GridStr(), Szzls)))
  1104.             
  1105.             .Fields("YearBudget") = Val(WglrGrid.TextMatrix(Yxxpdh, Sydz("027", GridStr(), Szzls)))
  1106.             .Update
  1107.             
  1108.             WglrGrid.TextMatrix(Yxxpdh, 1) = .Fields("I_id")
  1109.         End If
  1110.         
  1111.     End With
  1112.     
  1113.     Cw_DataEnvi.DataConnect.CommitTrans
  1114.     
  1115.     ' <<]
  1116.     
  1117.     '以上为自定义部分]
  1118.     
  1119.     Sjhzyxxpd = True
  1120.     Hyxxpdlock = True
  1121.     Exit Function
  1122.     
  1123. Swcwcl:
  1124.     Cw_DataEnvi.DataConnect.RollbackTrans
  1125.     Tsxx = "存盘过程中出现未知错误,程序自动恢复保存前状态!"
  1126.     Call Xtxxts(Tsxx, 0, 1)
  1127.     Exit Function
  1128.     
  1129. Lrcwcl:      '录入错误处理
  1130.     With WglrGrid
  1131.         Call Xtxxts(Tsxx, 0, 1)
  1132.         changelock = True
  1133.         .Select Yxxpdh, Lrywlz
  1134.         changelock = False
  1135.         Call xswbk
  1136.         
  1137.         Sjhzyxxpd = False
  1138.         Exit Function
  1139.     End With
  1140. End Function
  1142. '===================以 下 程 序 为 通 用 部 分 ,一 般 不 需 更 改======================='
  1143. Private Sub Sub_AdjustGrid()
  1144.     '调 整 网 格
  1145.     With WglrGrid
  1146.         '加 1 保持一行录入行
  1147.         If .Rows < Pmbcsjhs + .FixedRows + Fzxwghs + 1 Then
  1148.             .Rows = Pmbcsjhs + .FixedRows + Fzxwghs + 1
  1149.             For Jsqte = .FixedRows To .Rows - 1
  1150.                 .RowHeight(Jsqte) = Sjhgd
  1151.             Next Jsqte
  1152.         Else
  1153.             '判断是否有辅助行和录入行,如没有则加行
  1154.             Do While .TextMatrix(.Rows - 1 - Fzxwghs, 0) = "*"
  1155.                 .AddItem ""
  1156.                 .RowHeight(.Rows - 1) = Sjhgd
  1157.             Loop
  1158.         End If
  1159.     End With
  1160. End Sub
  1162. Private Sub Lrzdbz()                                                      '录入字段帮助
  1163.     If Not YdCommand.Visible Then
  1164.         Exit Sub
  1165.     End If
  1166.     Valilock = True
  1167.     With WglrGrid
  1168.         
  1169.         changelock = True        '调入另外窗体必须加锁
  1170.         If .Col = Sydz("001", GridStr(), Szzls) Then
  1171.             Call Drbmhelp(GridInt(.Col, 6), GridStr(.Col, 3), Trim(Ydtext.Text))
  1172.             Str_Ccode = Xtfhcs
  1173.         End If
  1174.         changelock = False
  1175.         If Len(Xtfhcs) <> 0 Then
  1176.             If GridInt(.Col, 7) = 0 Then
  1177.                 Ydtext.Text = Xtfhcs
  1178.             Else
  1179.                 Ydtext.Text = Xtfhcsfz
  1180.             End If
  1181.         End If
  1182.         
  1183.         Valilock = False
  1184.         If Ydtext.Visible Then
  1185.             Ydtext.SetFocus
  1186.         End If
  1187.     End With
  1188. End Sub
  1190. Private Sub Form_Resize()                                                '窗体大小发生变化时,重新显示文本框
  1191.     Call Cxxswbk
  1192. End Sub
  1194. Private Function Fun_Drfrmyxxpd() As Boolean                             '调入其它窗体或功能产生的有效性判断(包括数据回写)
  1195.     Fun_Drfrmyxxpd = True
  1196.     With WglrGrid
  1197.         
  1198.         '如果当前网格处于编辑状态,则先进行数据回写再进行有效性判断
  1199.         
  1200.         If Ydtext.Visible Or YdCombo.Visible Then
  1201.             Call Lrsjhx
  1202.             If Not sjzdyxxpd(Dqlrwgh, Dqlrwgl) Then
  1203.                 Fun_Drfrmyxxpd = False
  1204.                 Exit Function
  1205.             End If
  1206.         End If
  1207.         
  1208.         '进行行有效性判断
  1209.         If Not Sjhzyxxpd(.Row) Then
  1210.             Fun_Drfrmyxxpd = False
  1211.             Exit Function
  1212.         End If
  1213.         
  1214.     End With
  1215. End Function
  1217. Private Sub WglrGrid_GotFocus()                                     '网格得到焦点
  1218.     
  1219.     '网格得到焦点,如果当前选择行为非数据行
  1220.     '则调整当前焦点至有效数据行
  1221.     
  1222.     With WglrGrid
  1223.         If .Row < .FixedRows And .Rows > .FixedRows Then
  1224.             changelock = True
  1225.             .Select .FixedRows, .Col
  1226.             changelock = False
  1227.         End If
  1228.         If .Col < Qslz Then
  1229.             changelock = True
  1230.             .Select .Row, Qslz
  1231.             changelock = False
  1232.         End If
  1233.     End With
  1234.     
  1235. End Sub
  1237. Private Sub WglrGrid_LostFocus()                                    '录入网格失去焦点
  1238.     
  1239.     '用以屏蔽调用其它窗体时发生网格失去焦点事件
  1240.     If changelock Then
  1241.         Exit Sub
  1242.     End If
  1243.     
  1244.     '引发网格RowcolChange事件
  1245.     With WglrGrid
  1246.         If Not (Ydtext.Visible Or YdCombo.Visible) Then
  1247.             .Select 0, 0
  1248.         End If
  1249.     End With
  1250.     
  1251. End Sub
  1253. Private Sub WglrGrid_AfterScroll(ByVal OldTopRow As Long, ByVal OldLeftCol As Long, ByVal NewTopRow As Long, ByVal NewLeftCol As Long)                                       '限制用户在录入过程中滚动鼠标
  1254.     
  1255.     If Gdtlock Then
  1256.         Exit Sub
  1257.     End If
  1258.     
  1259.     With WglrGrid
  1260.         If Ydtext.Visible Or YdCombo.Visible Then
  1261.             Gdtlock = True
  1262.             .TopRow = Dqtoprow
  1263.             .LeftCol = Dqleftcol
  1264.             Gdtlock = False
  1265.             Exit Sub
  1266.         End If
  1267.         
  1268.     End With
  1269. End Sub
  1271. Private Sub WglrGrid_LeaveCell()                                    '离开单元格
  1272.     If changelock Then
  1273.         Exit Sub
  1274.     End If
  1275.     
  1276.     '记录刚刚离开网格单元的行列值
  1277.     Dqlkwgh = WglrGrid.Row
  1278.     Dqlkwgl = WglrGrid.Col
  1279.     
  1280.     '判断是否需要录入数据回写
  1281.     If Not (Ydtext.Visible Or YdCombo.Visible) Then
  1282.         Exit Sub
  1283.     End If
  1284.     Call Lrsjhx
  1285. End Sub
  1287. Private Sub WglrGrid_RowColChange()                                '网格录入行列发生变化时,进行有效性判断
  1288.     Valilock = True       '屏蔽文本框失去焦点进行有效性判断
  1289.     With WglrGrid
  1290.         If changelock Then
  1291.             Exit Sub
  1292.         End If
  1293.         If Not sjzdyxxpd(Dqlrwgh, Dqlrwgl) Then
  1294.             Exit Sub
  1295.         End If
  1296.         If .Row <> Dqlkwgh Then
  1297.             If Not Sjhzyxxpd(Dqlkwgh) Then
  1298.                 Exit Sub
  1299.             End If
  1300.         End If
  1301.     End With
  1302.     Call fhyxh
  1303.     Call Xldql
  1304.     
  1305. End Sub
  1307. Private Sub WglrGrid_DblClick()          '鼠标双击网格显示文本框
  1308.     Dim I As Integer
  1309.     Dim Bln_Add As Boolean
  1310.     Dim CurrentRow As Integer
  1311.     Dim CurrentCol As Integer
  1312.     Let Bln_Add = False
  1313.     
  1314.     With WglrGrid
  1315.         '非数据行退出
  1316.         If .Row < .FixedRows Then
  1317.             Exit Sub
  1318.         End If
  1319.         
  1320.         For I = 3 To 25 Step 2                 '如果是追加列则取月份
  1321.             If .Col = Sydz(IIf(I > 9, "0", "00") + Trim(Str(I)), GridStr(), Szzls) Then
  1322.                 Bln_Add = True
  1323.                 Int_Month = Int(I / 2)
  1324.                 Exit For
  1325.             End If
  1326.         Next
  1327.         
  1328.         On Error GoTo Swcwcl1
  1329.         
  1330.         If Bln_Add Then                       '是追加列调用追加金额form
  1331.             Str_Show = "项目:" + Trim(Str_ItemName) + _
  1332.             "  预算科目:" & Trim(.TextMatrix(.Row, Sydz("001", GridStr(), Szzls))) & _
  1333.             "  会计年度:" & Trim(Str(Int_OriYear)) & "  月份:" & Trim(Str(Int_Month))
  1334.             Str_TableAdd = "cwfx_ItemBudgetSlaver"
  1335.             Int_I_Id = .TextMatrix(.Row, 1)
  1336.             Str_Title = "项目预算追加金额表"
  1337.             Str_ReportSubTitle = " 预算科目: " & _
  1338.             Trim(.TextMatrix(.Row, Sydz("001", GridStr(), Szzls))) + Space(5) + _
  1339.             Fun_FormatOutPut("  会计年度: " + Str(Int_OriYear), 24)
  1340.             CurrentRow = .Row
  1341.             CurrentCol = .Col
  1342.             YS_FrmBudgetAdd.HelpContextID = "0411004002"
  1343.             YS_FrmBudgetAdd.Show 1
  1344.             .Row = CurrentRow
  1345.             .Col = CurrentCol
  1346.             
  1347.             .TextMatrix(.Row, .Col) = IIf(Cur_TableAdd = 0, "", Cur_TableAdd)   '金额回写单位格
  1348.             Cur_SumBudget = 0
  1349.             For I = 2 To 25
  1350.                 Cur_SumBudget = Cur_SumBudget + Val(.TextMatrix(.Row, Sydz(IIf(I > 9, "0", "00") + Trim(Str(I)), GridStr(), Szzls)))
  1351.             Next
  1352.             .TextMatrix(.Row, Sydz("026", GridStr(), Szzls)) = IIf(Cur_SumBudget = 0, "", Cur_SumBudget)
  1353.             
  1354.             Hyxxpdlock = False
  1355.             
  1356.         Else
  1357.             Call xswbk
  1358.         End If
  1359.         
  1360.     End With
  1361.     Exit Sub
  1362.     
  1363. Swcwcl1:
  1364.     Tsxx = "先确认本次预算金额的录入才能录入追加金额!"
  1365.     Call Xtxxts(Tsxx, 0, 1)
  1366. End Sub
  1368. Private Sub Ycwbk()                      '隐藏文本框,帮助按钮,列表组合框
  1369.     Valilock = True
  1370.     Ydtext.Visible = False
  1371.     YdCombo.Visible = False
  1372.     YdCommand.Visible = False
  1373. End Sub
  1375. Private Sub YdCombo_KeyDown(KeyCode As Integer, Shift As Integer)        '列表框移动
  1376.     With WglrGrid
  1377.         Select Case KeyCode
  1378.         Case vbKeyEscape                'ESC 键放弃录入
  1379.             Valilock = True
  1380.             .SetFocus
  1381.             Call Ycwbk
  1382.             Valilock = False
  1383.         Case vbKeyReturn                '回 车 键 =13
  1384.             KeyCode = 0
  1385.             .SetFocus
  1386.             Call Lrsjhx
  1387.             Rowjsq = .Row
  1388.             Coljsq = .Col + 1
  1389.             If Coljsq > .Cols - 1 Then
  1390.                 If Rowjsq < .Rows - 1 Then
  1391.                     Rowjsq = Rowjsq + 1
  1392.                 End If
  1393.                 Coljsq = Qslz
  1394.             End If
  1395.             Do While Rowjsq <= .Rows - 1
  1396.                 If .ColHidden(Coljsq) Or (Not GridBoolean(Coljsq, 1)) Then
  1397.                     Coljsq = Coljsq + 1
  1398.                     If Coljsq > .Cols - 1 Then
  1399.                         Rowjsq = Rowjsq + 1
  1400.                         Coljsq = Qslz
  1401.                     End If
  1402.                 Else
  1403.                     Exit Do
  1404.                 End If
  1405.             Loop
  1406.             .Select Rowjsq, Coljsq
  1407.         Case vbKeyLeft                  '左 箭 头 =37
  1408.             If .Col - 1 = Qslz Then
  1409.                 If .ColHidden(Qslz) Or (Not GridBoolean(Qslz, 1)) Then
  1410.                     GoTo jzzx
  1411.                 End If
  1412.             End If
  1413.             If .Col > Qslz Then
  1414.                 KeyCode = 0
  1415.                 .SetFocus
  1416.                 Call Lrsjhx
  1417.                 Coljsq = .Col - 1
  1418.                 Do While Coljsq > Qslz
  1419.                     If Coljsq - 1 = Qslz Then
  1420.                         If .ColHidden(Qslz) Or (Not GridBoolean(Qslz, 1)) Then
  1421.                             GoTo jzzx
  1422.                         End If
  1423.                     End If
  1424.                     If .ColHidden(Coljsq) Or (Not GridBoolean(Coljsq, 1)) Then
  1425.                         Coljsq = Coljsq - 1
  1426.                     Else
  1427.                         Exit Do
  1428.                     End If
  1429.                 Loop
  1430.                 .Select .Row, Coljsq
  1431.             End If
  1432.             
  1433.         Case vbKeyRight                 '右 箭 头 =39
  1434.             KeyCode = 0
  1435.             .SetFocus
  1436.             Call Lrsjhx
  1437.             Rowjsq = .Row
  1438.             Coljsq = .Col + 1
  1439.             If Coljsq > .Cols - 1 Then
  1440.                 If Rowjsq < .Rows - 1 Then
  1441.                     Rowjsq = Rowjsq + 1
  1442.                 End If
  1443.                 Coljsq = Qslz
  1444.             End If
  1445.             Do While Rowjsq <= .Rows - 1
  1446.                 If .ColHidden(Coljsq) Or (Not GridBoolean(Coljsq, 1)) Then
  1447.                     Coljsq = Coljsq + 1
  1448.                     If Coljsq > .Cols - 1 Then
  1449.                         Rowjsq = Rowjsq + 1
  1450.                         Coljsq = Qslz
  1451.                     End If
  1452.                 Else
  1453.                     Exit Do
  1454.                 End If
  1455.             Loop
  1456.             .Select Rowjsq, Coljsq
  1457.         Case Else
  1458.         End Select
  1459.         
  1460. jzzx:
  1461.         
  1462.     End With
  1463. End Sub
  1465. Private Sub YdCombo_LostFocus()
  1466.     With WglrGrid                                    '因为选中网格会先发生Rowcolchange事件置Valiock
  1467.         If Not Valilock Then                           '为TRUE
  1468.             Call Lrsjhx
  1469.             If Not Sjhzyxxpd(Dqlrwgh) Then
  1470.                 Exit Sub
  1471.             End If
  1472.         End If
  1473.     End With
  1474. End Sub
  1476. Private Sub Ydcommand_MouseDown(Button As Integer, Shift As Integer, x As Single, Y As Single)
  1477.     Call Lrzdbz
  1478. End Sub
  1480. Private Sub ydtext_KeyDown(KeyCode As Integer, Shift As Integer)
  1481.     Dim Rowjsq As Long, Coljsq As Long
  1482.     With WglrGrid
  1483.         Select Case KeyCode
  1484.         Case vbKeyF2
  1485.             Call Lrzdbz
  1486.         Case vbKeyEscape                'ESC 键放弃录入
  1487.             Valilock = True
  1488.             Call Ycwbk
  1489.             .SetFocus
  1490.         Case vbKeyReturn                '回 车 键 =13
  1491.             KeyCode = 0
  1492.             .SetFocus
  1493.             Call Lrsjhx
  1494.             Rowjsq = .Row
  1495.             Coljsq = .Col + 1
  1496.             If Coljsq > .Cols - 1 Then
  1497.                 If Rowjsq < .Rows - 1 Then
  1498.                     Rowjsq = Rowjsq + 1
  1499.                 End If
  1500.                 Coljsq = Qslz
  1501.             End If
  1502.             Do While Rowjsq <= .Rows - 1
  1503.                 If .ColHidden(Coljsq) Or (Not GridBoolean(Coljsq, 1)) Then
  1504.                     Coljsq = Coljsq + 1
  1505.                     If Coljsq > .Cols - 1 Then
  1506.                         Rowjsq = Rowjsq + 1
  1507.                         Coljsq = Qslz
  1508.                     End If
  1509.                 Else
  1510.                     Exit Do
  1511.                 End If
  1512.             Loop
  1513.             If Rowjsq <= .Rows - 1 Then
  1514.                 .Select Rowjsq, Coljsq
  1515.             End If
  1516.         Case vbKeyUp                    '上 箭 头 =38
  1517.             KeyCode = 0
  1518.             .SetFocus
  1519.             Call Lrsjhx
  1520.             If .Row > .FixedRows Then
  1521.                 .Row = .Row - 1
  1522.             End If
  1523.         Case vbKeyDown                  '下 箭 头 =40
  1524.             KeyCode = 0
  1525.             .SetFocus
  1526.             Call Lrsjhx
  1527.             If .Row < .Rows - 1 Then
  1528.                 .Row = .Row + 1
  1529.             End If
  1530.         Case vbKeyLeft                  '左 箭 头 =37
  1531.             If .Col - 1 = Qslz Then
  1532.                 If .ColHidden(Qslz) Or (Not GridBoolean(Qslz, 1)) Then
  1533.                     GoTo jzzx
  1534.                 End If
  1535.             End If
  1536.             If Ydtext.SelStart = 0 And .Col > Qslz Then
  1537.                 KeyCode = 0
  1538.                 .SetFocus
  1539.                 Call Lrsjhx
  1540.                 Coljsq = .Col - 1
  1541.                 Do While Coljsq > Qslz
  1542.                     If Coljsq - 1 = Qslz Then
  1543.                         If .ColHidden(Qslz) Or (Not GridBoolean(Qslz, 1)) Then
  1544.                             GoTo jzzx
  1545.                         End If
  1546.                     End If
  1547.                     If .ColHidden(Coljsq) Or (Not GridBoolean(Coljsq, 1)) Then
  1548.                         Coljsq = Coljsq - 1
  1549.                     Else
  1550.                         Exit Do
  1551.                     End If
  1552.                 Loop
  1553.                 .Select .Row, Coljsq
  1554.             End If
  1555. jzzx:
  1556.             
  1557.             
  1558.         Case vbKeyRight                 '右 箭 头 =39
  1559.             wblong = Len(Ydtext.Text)
  1560.             If (Ydtext.SelStart = wblong Or Ydtext.SelLength = wblong) Then
  1561.                 KeyCode = 0
  1562.                 .SetFocus
  1563.                 Call Lrsjhx
  1564.                 Rowjsq = .Row
  1565.                 Coljsq = .Col + 1
  1566.                 If Coljsq > .Cols - 1 Then
  1567.                     If Rowjsq < .Rows - 1 Then
  1568.                         Rowjsq = Rowjsq + 1
  1569.                     End If
  1570.                     Coljsq = Qslz
  1571.                 End If
  1572.                 Do While Rowjsq <= .Rows - 1
  1573.                     If .ColHidden(Coljsq) Or (Not GridBoolean(Coljsq, 1)) Then
  1574.                         Coljsq = Coljsq + 1
  1575.                         If Coljsq > .Cols - 1 Then
  1576.                             Rowjsq = Rowjsq + 1
  1577.                             Coljsq = Qslz
  1578.                         End If
  1579.                     Else
  1580.                         Exit Do
  1581.                     End If
  1582.                 Loop
  1583.                 .Select Rowjsq, Coljsq
  1584.             End If
  1585.         Case Else
  1586.         End Select
  1587.     End With
  1588. End Sub
  1590. Private Sub ydtext_KeyPress(KeyAscii As Integer)         '录入字符事中控制
  1591.     Call InputFieldLimit(Ydtext, GridInt(WglrGrid.Col, 1), KeyAscii)
  1592.     If KeyAscii <> 0 Then
  1593.         Call Xyxhbz(Dqlrwgh)
  1594.     End If
  1595. End Sub
  1597. Private Sub ydtext_Change()                              '录入事中变化处理
  1598.     
  1599.     '防止程序改变但不进行处理
  1600.     
  1601.     If Wbkbhlock Then
  1602.         Exit Sub
  1603.     End If
  1604.     
  1605.     With WglrGrid
  1606.         
  1607.         '限制字段录入长度
  1608.         Wbkbhlock = True
  1609.         Select Case GridInt(.Col, 1)
  1610.         Case 8
  1611.             Call Sjgskz(Ydtext, Xtjezws - Xtjexsws - 1, Xtjexsws)
  1612.         Case 9
  1613.             Call Sjgskz(Ydtext, Xtslzws - Xtslxsws - 1, Xtslxsws)
  1614.         Case 10
  1615.             Call Sjgskz(Ydtext, Xtdjzws - Xtdjxsws - 1, Xtdjxsws)
  1616.         Case Else
  1617.             If GridInt(.Col, 3) <> 0 Or GridInt(.Col, 4) <> 0 Then
  1618.                 Call Sjgskz(Ydtext, GridInt(.Col, 3), GridInt(.Col, 4))
  1619.             End If
  1620.         End Select
  1621.         Wbkbhlock = False
  1622.     End With
  1623. End Sub
  1625. Private Sub ydtext_LostFocus()            '如果由于选中网格之外的控件而发生有效性判断(选中网格会先发生Rowcolchange事件置Valiock为TRUE)
  1626.     With WglrGrid
  1627.         If Not Valilock Then
  1628.             Call Lrsjhx
  1629.             If Not sjzdyxxpd(Dqlrwgh, Dqlrwgl) Then
  1630.                 Exit Sub
  1631.             End If
  1632.             If Not Sjhzyxxpd(Dqlrwgh) Then
  1633.                 Exit Sub
  1634.             End If
  1635.         End If
  1636.     End With
  1637. End Sub
  1639. Private Sub xswbk()                       '在当前选中单元显示文本框,列表框,帮助按钮(通用)
  1640.     Dim Wbkpy As Integer, Wbkpy1 As Integer '文本框偏移量
  1641.     
  1642.     '如果单据操作状态为浏览状态则不能显示录入载体
  1643.     If Trim(Lab_OperStatus.Caption) = "1" Then
  1644.         Exit Sub
  1645.     End If
  1646.     
  1647.     '显示文本框前返回有效行列（解决滚动条问题）
  1648.     Call Xldqh
  1649.     Call Xldql
  1650.     
  1651.     '隐藏文本框,帮助按钮,列表组合框
  1652.     Call Ycwbk
  1653.     
  1654.     With WglrGrid
  1655.         Dqlrwgh = .Row
  1656.         Dqlrwgl = .Col
  1657.         If Not GridBoolean(.Col, 1) Or .Row < .FixedRows Then
  1658.             Exit Sub
  1659.         End If
  1660.         
  1661.         Wbkpy = 30
  1662.         Wbkpy1 = 15
  1663.         
  1664.         If GridBoolean(.Col, 3) Then
  1665.             YdCombo.Left = .CellLeft + .Left + Wbkpy
  1666.             YdCombo.Top = .CellTop + .Top + Wbkpy
  1667.             YdCombo.Width = .CellWidth - Wbkpy1
  1668.             Call Wbkcl
  1669.             YdCombo.Visible = True
  1670.             YdCombo.SetFocus
  1671.             YdCommand.Visible = False
  1672.             Ydtext.Visible = False
  1673.         Else
  1674.             If GridBoolean(.Col, 2) Then
  1675.                 YdCommand.Left = .Left + .CellLeft + .CellWidth - YdCommand.Width + Wbkpy
  1676.                 YdCommand.Top = .Top + .CellTop + .CellHeight - YdCommand.Height + Wbkpy
  1677.                 YdCommand.Visible = True
  1678.             Else
  1679.                 YdCommand.Visible = False
  1680.             End If
  1681.             
  1682.             Ydtext.Left = .CellLeft + .Left + Wbkpy
  1683.             Ydtext.Top = .CellTop + .Top + Wbkpy
  1684.             If YdCommand.Visible Then
  1685.                 If Sfblbzkd Then
  1686.                     Ydtext.Width = .CellWidth - YdCommand.Width
  1687.                 Else
  1688.                     Ydtext.Width = .CellWidth - Wbkpy1
  1689.                 End If
  1690.             Else
  1691.                 Ydtext.Width = .CellWidth - Wbkpy1
  1692.             End If
  1693.             Ydtext.Height = .CellHeight - Wbkpy1
  1694.             
  1695.             If GridInt(.Col, 2) <> 0 Then
  1696.                 Ydtext.MaxLength = GridInt(.Col, 2)
  1697.             Else
  1698.                 Ydtext.MaxLength = 3000
  1699.             End If
  1700.             
  1701.             Call Wbkcl
  1702.             
  1703.             Ydtext.Visible = True
  1704.             Ydtext.SetFocus
  1705.         End If
  1706.         Dqtoprow = .TopRow
  1707.         Dqleftcol = .LeftCol
  1708.         
  1709.         '重置锁值
  1710.         Valilock = False
  1711.         Wbkbhlock = False
  1712.     End With
  1713. End Sub
  1715. Private Sub Cxxswbk()                                                  'Formresize中重新显示文本框,列表框,帮助按钮(通用)
  1716.     
  1717.     Dim Wbkpy As Integer, Wbkpy1 As Integer
  1718.     Wbkpy = 30
  1719.     Wbkpy1 = 15
  1720.     With WglrGrid
  1721.         If YdCombo.Visible Then
  1722.             YdCombo.Left = .CellLeft + .Left + Wbkpy
  1723.             YdCombo.Top = .CellTop + .Top + Wbkpy
  1724.             YdCombo.Width = .CellWidth - Wbkpy1
  1725.         End If
  1726.         If YdCommand.Visible Then
  1727.             YdCommand.Left = .Left + .CellLeft + .CellWidth - YdCommand.Width + Wbkpy
  1728.             YdCommand.Top = .Top + .CellTop + .CellHeight - YdCommand.Height + Wbkpy
  1729.         End If
  1730.         If Ydtext.Visible Then
  1731.             If YdCommand.Visible Then
  1732.                 If Sfblbzkd Then
  1733.                     Ydtext.Width = .CellWidth - YdCommand.Width
  1734.                 Else
  1735.                     Ydtext.Width = .CellWidth - Wbkpy1
  1736.                 End If
  1737.             Else
  1738.                 Ydtext.Width = .CellWidth - Wbkpy1
  1739.             End If
  1740.             
  1741.             Ydtext.Left = .CellLeft + .Left + Wbkpy
  1742.             Ydtext.Top = .CellTop + .Top + Wbkpy
  1743.             Ydtext.Height = .CellHeight - Wbkpy1
  1744.         End If
  1745.     End With
  1746.     
  1747. End Sub
  1749. Private Sub Lrsjhx()                                                   '文本框录入数据回写
  1750.     With WglrGrid
  1751.         If YdCombo.Visible Then
  1752.             .Text = Trim(YdCombo.Text)
  1753.         End If
  1754.         If Ydtext.Visible Then
  1755.             .Text = Trim(Ydtext.Text)
  1756.         End If
  1757.         
  1758.         '(如果字段录入内容发生变化,则打开有效性判断锁)
  1759.         If Zdlrqnr <> Trim(.Text) Then
  1760.             Yxxpdlock = False
  1761.             Hyxxpdlock = False
  1762.         End If
  1763.         
  1764.         '如果字段录入内容不为空则写数据行有效性标志
  1765.         
  1766.         If Len(Trim(.Text)) <> 0 Then
  1767.             Call Xyxhbz(.Row)
  1768.         End If
  1769.         
  1770.         '隐藏文本框,帮助按钮,列表组合框
  1771.         Call Ycwbk
  1772.         
  1773.     End With
  1774. End Sub
  1776. Private Sub WglrGrid_KeyDown(KeyCode As Integer, Shift As Integer)    '网格录入增行，删行快捷键
  1777.     
  1778.     '如果单据操作状态为浏览状态则不能显示录入载体
  1779.     If Trim(Lab_OperStatus.Caption) = "1" Then
  1780.         Exit Sub
  1781.     End If
  1782.     
  1783.     Select Case KeyCode
  1784.     Case vbKeyDelete               '删行
  1785.         Call Scdqfl
  1786.     Case vbKeyInsert               '增行
  1787.         Call zjlrfl
  1788.     End Select
  1789. End Sub
  1791. Private Sub WglrGrid_KeyPress(KeyAscii As Integer)                     '网格接受键盘录入
  1792.     Dim Str_ChangeTe As String    '临时交换内容
  1793.     Dim Coljsq As Long            '临时列计数器
  1794.     Dim Int_SaveKey As Integer    '保存KeyAscii值
  1795.     
  1796.     '如果单据操作状态为浏览状态则不能显示录入载体
  1797.     If Trim(Lab_OperStatus.Caption) = "1" Then
  1798.         Exit Sub
  1799.     End If
  1800.     
  1801.     Int_SaveKey = KeyAscii
  1802.     
  1803.     With WglrGrid
  1804.         '屏 蔽 回 车 键
  1805.         If KeyAscii = vbKeyReturn Then
  1806.             KeyAscii = 0
  1807.             Rowjsq = .Row
  1808.             Coljsq = .Col + 1
  1809.             If Coljsq > .Cols - 1 Then
  1810.                 If Rowjsq < .Rows - 1 Then
  1811.                     Rowjsq = Rowjsq + 1
  1812.                 End If
  1813.                 Coljsq = Qslz
  1814.             End If
  1815.             Do While Rowjsq <= .Rows - 1
  1816.                 If .ColHidden(Coljsq) Or (Not GridBoolean(Coljsq, 1)) Then
  1817.                     Coljsq = Coljsq + 1
  1818.                     If Coljsq > .Cols - 1 Then
  1819.                         Rowjsq = Rowjsq + 1
  1820.                         Coljsq = Qslz
  1821.                     End If
  1822.                 Else
  1823.                     Exit Do
  1824.                 End If
  1825.             Loop
  1826.             If Rowjsq <= .Rows - 1 Then
  1827.                 .Select Rowjsq, Coljsq
  1828.             End If
  1829.             Exit Sub
  1830.         End If
  1831.         '接受用户录入
  1832.         Select Case KeyAscii
  1833.         Case 0 To 32
  1834.             
  1835.             '显示录入载体
  1836.             Call xswbk
  1837.             
  1838.         Case Else
  1839.             
  1840.             '防止非编辑字段SendKeys()出现死循环
  1841.             If Not GridBoolean(.Col, 1) Or .Row < .FixedRows Then
  1842.                 Exit Sub
  1843.             End If
  1844.             
  1845.             If GridBoolean(.Col, 3) Then
  1846.                 
  1847.                 '列表框录入
  1848.                 Call xswbk
  1849.                 
  1850.             Else
  1851.                 
  1852.                 Ydtext.Text = ""
  1853.                 Call InputFieldLimit(Ydtext, GridInt(WglrGrid.Col, 1), KeyAscii)
  1854.                 If KeyAscii = 0 Then
  1855.                     Exit Sub
  1856.                 End If
  1857.                 
  1858.                 '写有效行数据标志
  1859.                 Call Xyxhbz(.Row)
  1860.                 Call xswbk
  1861.                 Ydtext.Text = ""
  1862.                 Valilock = True
  1863.                 SendKeys Chr(KeyAscii), wait
  1864.                 DoEvents
  1865.                 Valilock = False
  1866.                 
  1867.             End If
  1868.         End Select
  1869.     End With
  1870. End Sub
  1872. Private Sub zjlrfl()                                                    '增加录入分录
  1873.     With WglrGrid
  1874.         If Not (Ydtext.Visible Or YdCombo.Visible) Then
  1875.             If Not Fun_Drfrmyxxpd Then
  1876.                 Exit Sub
  1877.             End If
  1878.         Else
  1879.             Exit Sub
  1880.         End If
  1881.         If .Row < .FixedRows Then
  1882.             Exit Sub
  1883.         End If
  1884.         .AddItem "", .Row
  1885.         .RowHeight(.Row) = Sjhgd
  1886.         
  1887.         
  1888.         If .Row <> .Rows - 1 Then
  1889.             If .TextMatrix(.Row + 1, 0) = "*" Then
  1890.                 .TextMatrix(.Row, 0) = "*"
  1891.             Else
  1892.                 .RemoveItem .Rows - 1
  1893.             End If
  1894.         End If
  1895.         Call Xldqh
  1896.         Call Xldql
  1897.         Hyxxpdlock = False
  1898.     End With
  1899. End Sub
  1901. Private Sub Scdqfl()                                                    '删除当前分录
  1902.     Dim Answer As Integer, Scqwghz As Long, Scqwglz As Long, Hjlzte As Long, Sflrzt As Boolean
  1903.     Dim RecTemp As New ADODB.Recordset             '临时使用动态集
  1904.     Dim SqlStr As String                           '临时连接字符串
  1905.     Dim Str_NowItemCode As String                  '辅助核算项目编码(现)
  1906.     
  1907.     With WglrGrid
  1908.         Scqwghz = .Row
  1909.         Scqwglz = .Col
  1910.         If .TextMatrix(.Row, 0) = "*" Then
  1911.             
  1912.             '判断是否为录入状态
  1913.             If Ydtext.Visible Or YdCombo.Visible Then
  1914.                 Sflrzt = True
  1915.                 Validate = True
  1916.                 Call Lrsjhx
  1917.                 Validate = False
  1918.             End If
  1919.             
  1920.             Call Xldqh
  1921.             changelock = True
  1922.             .Select .Row, 0
  1923.             changelock = False
  1924.             If Shsfts Then
  1925.                 .Cell(flexcpBackColor, .Row, Qslz, .Row, .Cols - 1) = QBColor(12)
  1926.                 Tsxx = "请确认是否删除当前记录?"
  1927.                 yhAnswer = Xtxxts(Tsxx, 2, 2)
  1928.                 If yhAnswer = 2 Then
  1929.                     .Cell(flexcpBackColor, .Row, Qslz, .Row, .Cols - 1) = &H80000005
  1930.                     changelock = True
  1931.                     .Select Scqwghz, Scqwglz
  1932.                     changelock = False
  1933.                     
  1934.                     '如为录入状态,则恢复录入
  1935.                     If Sflrzt Then
  1936.                         Call xswbk
  1937.                     End If
  1938.                     
  1939.                     Exit Sub
  1940.                 End If
  1941.             End If
  1942.             
  1943.             On Error GoTo Swcwcl
  1944.             
  1945.             Cw_DataEnvi.DataConnect.BeginTrans
  1946.             
  1947.             If Val(WglrGrid.TextMatrix(.Row, 1)) <> 0 Then
  1948.                 SqlStr = "SELECT i_id From Cwfx_ItemBudgetMaster WHERE  I_id=" & Val(WglrGrid.TextMatrix(.Row, 1))
  1949.                 Set RecTemp = Cw_DataEnvi.DataConnect.Execute(SqlStr)
  1950.                 If Not RecTemp.EOF Then
  1951.                     SqlStr = "Delete Cwfx_ItemBudgetMaster Where I_id=" & Val(WglrGrid.TextMatrix(.Row, 1))
  1952.                     Cw_DataEnvi.DataConnect.Execute (SqlStr)
  1953.                 End If
  1954.             End If
  1955.             
  1956.             Cw_DataEnvi.DataConnect.CommitTrans
  1957.             
  1958.             .RemoveItem .Row
  1959.             
  1960.             If .Rows < Pmbcsjhs + .FixedRows + Fzxwghs + 1 Then
  1961.                 .AddItem ""
  1962.                 .RowHeight(.Rows - 1) = Sjhgd
  1963.             End If
  1964.             changelock = True
  1965.             .Select .Row, Scqwglz
  1966.             changelock = False
  1967.             
  1968.         End If
  1969.     End With
  1970.     
  1971.     Exit Sub
  1972.     
  1973.     '[>>事务错误处理
  1974. Swcwcl:
  1975.     Cw_DataEnvi.DataConnect.RollbackTrans
  1976.     txss = "删除过程中出现错误!"
  1977.     Call Xtxxts(Tsxx, 0, 1)
  1978.     Exit Sub
  1979.     '<<]
  1980. End Sub
  1982. Private Sub Qkwlzd(sjh As Long, Sjl As Long)                            '清空为零字段
  1983.     If Not GridBoolean(Sjl, 5) Then
  1984.         Exit Sub
  1985.     End If
  1986.     With WglrGrid
  1987.         If Val(Trim(.TextMatrix(sjh, Sjl))) = 0 Then
  1988.             .TextMatrix(sjh, Sjl) = ""
  1989.         End If
  1990.     End With
  1991. End Sub
  1993. Private Sub fhyxh()                                                     '返回录入数据有效行,同时让得到焦点网格可见
  1994.     With WglrGrid
  1995.         If .Row >= .FixedRows Then
  1996.             If .TextMatrix(.Row, 0) <> "*" Then
  1997.                 For Rowjsq = .FixedRows To .Rows - 1
  1998.                     If .TextMatrix(Rowjsq, 0) <> "*" Then
  1999.                         Exit For
  2000.                     End If
  2001.                 Next Rowjsq
  2002.                 If Rowjsq <= .Rows - 1 Then
  2003.                     changelock = True
  2004.                     .Select Rowjsq, .Col
  2005.                     changelock = False
  2006.                 Else
  2007.                     changelock = True
  2008.                     .Select .Rows - 1, .Col
  2009.                     changelock = False
  2010.                 End If
  2011.             End If
  2012.             Call Xldqh
  2013.         End If
  2014.     End With
  2015. End Sub
  2017. Private Sub Xldqh()                                                      '显露当前行
  2018.     Dim Toprowte As Long
  2019.     With WglrGrid
  2020.         Toprowte = 0
  2021.         Do While .CellTop + .RowHeight(.Row) + Fzxwghs * Sjhgd > .Height And .TopRow <> Toprowte
  2022.             Toprowte = .TopRow
  2023.             .TopRow = .TopRow + 1
  2024.         Loop
  2025.         Toprowte = 0
  2026.         Do While .CellTop < .FixedRows * .RowHeight(0) And .TopRow <> Toprowte
  2027.             Toprowte = .TopRow
  2028.             .TopRow = .TopRow - 1
  2029.         Loop
  2030.     End With
  2031. End Sub
  2033. Private Sub Xldql()                                                     '显露当前列
  2034.     Dim Leftcolte As Long
  2035.     With WglrGrid
  2036.         If .Col >= Qslz Then
  2037.             If .LeftCol > .Col Then
  2038.                 .LeftCol = .Col
  2039.             End If
  2040.             Leftcolte = 0
  2041.             Do While .CellLeft + .CellWidth > .Width And .LeftCol <> Leftcolte
  2042.                 Leftcolte = .LeftCol
  2043.                 .LeftCol = .LeftCol + 1
  2044.             Loop
  2045.         End If
  2046.     End With
  2047. End Sub
  2049. Private Function pdhwk(sjh As Long)                                     '判断网格行是否为空行(所有录入字段均为空*非录入字段除外)
  2050.     With WglrGrid
  2051.         For Coljsq = Qslz To .Cols - 1
  2052.             If Len(Trim(.TextMatrix(sjh, Coljsq))) <> 0 And GridBoolean(Coljsq, 1) Then
  2053.                 pdhwk = False
  2054.                 Exit Function
  2055.             End If
  2056.         Next Coljsq
  2057.         pdhwk = True
  2058.     End With
  2059. End Function
  2061. Private Sub Xyxhbz(sjh As Long)                                         '写行有效性标志,并判断是否增行
  2062.     With WglrGrid
  2063.         If .TextMatrix(sjh, 0) = "*" Then
  2064.             Exit Sub
  2065.         End If
  2066.         .TextMatrix(sjh, 0) = "*"
  2067.         If sjh >= .Rows - Fzxwghs - 1 Then
  2068.             .AddItem ""
  2069.             .RowHeight(.Rows - 1) = Sjhgd
  2070.         End If
  2071.     End With
  2072. End Sub
  2074. Private Sub GsToolbar_ButtonClick(ByVal Button As MSComctlLib.Button)   '表格格式设置(通用)
  2075.     Select Case Button.Key
  2076.     Case "bcgs"                              '保存表格格式
  2077.         Call Bcwggs(WglrGrid, GridCode, GridStr())
  2078.     Case "hfmrgs"                            '恢复默认格式
  2079.         Call Hfmrgs(WglrGrid, GridCode, GridStr())
  2080.     End Select
  2081. End Sub
  2083. Private Sub bbyl(bbylte As Boolean)                    '报表打印预览
  2084.     Dim Bbzbt$, Bbxbt() As String, bbxbtzzxs() As Integer, Bbxbtgs As Integer
  2085.     Dim Bbbwh() As String, Bbbwhzzxs() As Integer, Bbbwhgs As Integer
  2086.     Bbxbtgs = 1                                          '报 表 小 标 题 行 数
  2087.     Bbbwhgs = 0                                          '报 表 表 尾 行 数
  2088.     ReDim Bbxbt(1 To Bbxbtgs)
  2089.     ReDim bbxbtzzxs(1 To Bbxbtgs)
  2090.     If Bbbwhgs <> 0 Then
  2091.         ReDim Bbbwh(1 To Bbbwhgs)
  2092.         ReDim Bbbwhzzxs(1 To Bbbwhgs)
  2093.     End If
  2094.     Bbzbt = ReportTitle
  2095.     Bbxbt(1) = Space(2) + "项目类别:" + Trim(Str_ItemClassName) + "  项目:" + Trim(Str_ItemName) + _
  2096.     Space(2) + Fun_FormatOutPut("会计年度:" + Trim(lbl_AccountYear.Caption), 30)
  2097.     
  2098.     Call Scyxsjb(WglrGrid)                               '生成报表数据
  2099.     Call Scdybb(Dyymctbl, Bbzbt, Bbxbt(), bbxbtzzxs(), Bbxbtgs, Bbbwh(), Bbbwhzzxs(), Bbbwhgs, bbylte)
  2100.     If Not bbylte Then
  2101.         Unload DY_Tybbyldy
  2102.     End If
  2103. End Sub
  2106. Private Sub ImportFromLastYear()
  2107.     SqlStr = "update cwfx_Itembudgetmaster set "
  2108.     SqlStr = SqlStr + "cwfx_Itembudgetmaster.budget_1=n.budget_1+n.add_1,"
  2109.     SqlStr = SqlStr + "cwfx_Itembudgetmaster.budget_2=n.budget_2+n.add_2,"
  2110.     SqlStr = SqlStr + "cwfx_Itembudgetmaster.budget_3=n.budget_3+n.add_3,"
  2111.     SqlStr = SqlStr + "cwfx_Itembudgetmaster.budget_4=n.budget_4+n.add_4,"
  2112.     SqlStr = SqlStr + "cwfx_Itembudgetmaster.budget_5=n.budget_5+n.add_5,"
  2113.     SqlStr = SqlStr + "cwfx_Itembudgetmaster.budget_6=n.budget_6+n.add_6,"
  2114.     SqlStr = SqlStr + "cwfx_Itembudgetmaster.budget_7=n.budget_7+n.add_7,"
  2115.     SqlStr = SqlStr + "cwfx_Itembudgetmaster.budget_8=n.budget_8+n.add_8,"
  2116.     SqlStr = SqlStr + "cwfx_Itembudgetmaster.budget_9=n.budget_9+n.add_9,"
  2117.     SqlStr = SqlStr + "cwfx_Itembudgetmaster.budget_10=n.budget_10+n.add_10,"
  2118.     SqlStr = SqlStr + "cwfx_Itembudgetmaster.budget_11=n.budget_11+n.add_11,"
  2119.     SqlStr = SqlStr + "cwfx_Itembudgetmaster.budget_12=n.budget_12 + n.add_12"
  2120.     SqlStr = SqlStr + " from cwfx_Itembudgetmaster,cwfx_Itembudgetmaster as n "
  2121.     SqlStr = SqlStr + " Where cwfx_Itembudgetmaster.ccode = n.ccode And "
  2122.     SqlStr = SqlStr + " cwfx_Itembudgetmaster.ItemClassCode = n.ItemClassCode And "
  2123.     SqlStr = SqlStr + " cwfx_Itembudgetmaster.ItemCode = n.ItemCode And "
  2124.     SqlStr = SqlStr + " cwfx_Itembudgetmaster.ItemClassCode = '" & Trim(Str_ItemClassCode) & "' And "
  2125.     SqlStr = SqlStr + " cwfx_Itembudgetmaster.ItemCode ='" & Trim(Str_ItemCode) & "' And "
  2126.     SqlStr = SqlStr + " cwfx_Itembudgetmaster.Year =" & Int_OriYear & " And n.Year =" & Int_OriYear - 1
  2127.     Cw_DataEnvi.DataConnect.Execute (SqlStr)
  2129.     Tsxx = "导入完毕"
  2130.     Call Xtxxts(Tsxx, 0, 4)
  2131. End Sub