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

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