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

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

企业管理

开发平台：

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