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

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

企业管理

开发平台：

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_FrmProfitBudget 
  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   =   411004004
  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          =   285
  254.          Index           =   4
  255.          Left            =   630
  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          =   270
  274.       Left            =   7320
  275.       MultiLine       =   -1  'True
  276.       TabIndex        =   0
  277.       Top             =   3600
  278.       Visible         =   0   'False
  279.       Width           =   915
  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_FrmProfitBudget"
  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_FrmProfitBudgetC.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_ProfitBudget"
  597.     Load Dyymctbl
  598.     
  599.     '调 入 网 格
  600.     GridCode = "cwfx_ProfitBudget"      '网格属性编码
  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_FrmProfitBudgetC
  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_ProfitBudgetMaster.*,Item FROM cwfx_ProfitBudgetMaster,Cwfx_InComeCostInitial "
  634.     SqlStr = SqlStr + " where cwfx_ProfitBudgetMaster.ID=Cwfx_InComeCostInitial.ID And Year=" & Str(Int_OriYear)
  635.     SqlStr = SqlStr + " order by cwfx_ProfitBudgetMaster.ID "
  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("ID"))
  653.             
  654.             WglrGrid.TextMatrix(Jsqte, Sydz("001", GridStr(), Szzls)) = Trim(.Fields("Item"))
  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.     
  705.     '屏蔽文本框,下拉组合框有效性判断
  706.     Dim Msg, Style, Title, Response
  707.     Valilock = True
  708.     
  709.     '屏蔽网格失去焦点产生的有效性判断
  710.     
  711.     changelock = True
  712.     
  713.     Select Case Button.Key
  714.     Case "ymsz"                                          '页面设置
  715.         Dyymctbl.Show 1
  716.     Case "yl"                                            '预 览
  717.         If Fun_Drfrmyxxpd Then
  718.             Call bbyl(True)
  719.         End If
  720.     Case "dy"                                            '打 印
  721.         If Fun_Drfrmyxxpd Then
  722.             Call bbyl(False)
  723.         End If
  724.     Case "sh"                                            '删 行
  725.         Call Scdqfl
  726.     Case "dr"                                            '导入
  727.         Msg = "导入将替换本年已录入的相同项目的预算数据?"   ' 定义信息。
  728.         Style = vbYesNo + vbDefaultButton2 + vbExclamation ' 定义按钮。
  729.         Title = "百利/ERP财务分析系统5.0"   ' 定义标题。
  730.         Response = MsgBox(Msg, Style, Title)
  731.         If Response = vbYes Then   ' 用户按下“是”。
  732.             Call ImportFromLastYear
  733.            
  734.         End If
  735.         
  736.     Case "bz"                                            '帮 助
  737.         Call F1bz
  738.     Case "fh"                                            '退 出
  739.         Unload Me
  740.     End Select
  741.     
  742.     '解 锁
  743.     Valilock = False
  744.     changelock = False
  745.     
  746. End Sub
  748. Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)        '支持热键操作
  749.     If Shift = 2 Then
  750.         Select Case UCase(Chr(KeyCode))
  751.         Case "P"                   'Ctrl+P 打印
  752.             If Tlb_Action.Buttons("dy").Enabled Then
  753.                 Call bbyl(False)
  754.             End If
  755.         End Select
  756.     End If
  757. End Sub
  759. Private Sub Wbkcl()                                                 '文本框录入之前处理(根据实际情况)
  760.     Dim xswbrr As String
  761.     With WglrGrid
  762.         Zdlrqnr = Trim(.Text)
  763.         xswbrr = Trim(.Text)
  764.         
  765.         If GridBoolean(.Col, 3) Then   '列表框录入
  766.             
  767.             '填充列表框程序
  768.             Call FillCombo(YdCombo, GridStr(.Col, 5), xswbrr, 0)
  769.         Else
  770.             Wbkbhlock = True
  771.             
  772.             '====以下为用户自定义
  773.             Ydtext.Text = xswbrr
  774.             '====以上为用户自定义
  775.             
  776.             Wbkbhlock = False
  777.             Ydtext.SelStart = Len(Ydtext.Text)
  778.         End If
  779.     End With
  780. End Sub
  782. Private Function sjzdyxxpd(Dqpdwgh As Long, Dqpdwgl As Long)        '录入数据字段有效性判断,同时进行字段录入事后处理
  783.     Dim Str_JudgeText As String  '临时有效性判断字段内容
  784.     Dim Coljsq As Long           '临时列计数器
  785.     Dim RecTemp As New ADODB.Recordset     '临时使用动态集
  786.     Dim Dbl_Qcye As Double                 '临时期初余额
  787.     
  788.     With WglrGrid
  789.         
  790.         '非录入状态有效性为合法
  791.         If Yxxpdlock Or .Row < .FixedRows Then
  792.             sjzdyxxpd = True
  793.             Exit Function
  794.         End If
  795.         
  796.         Str_JudgeText = Trim(.TextMatrix(Dqpdwgh, Dqpdwgl))
  797.         Select Case GridStr(Dqpdwgl, 1)
  798.             
  799.             '以下为自定义部分[
  800.             '1.放置字段有效性判断程序
  801.         Case "001"          '科目(如有效则调入科目编码)
  802.             If Len(Str_JudgeText) <> 0 Then
  803.                 SqlStr = "Select * FROM Cwfx_InComeCostInitial Where ID='" & Val(Str_JudgeText) & "' OR Item='" & Str_JudgeText & "'"
  804.                 Set RecTemp = Cw_DataEnvi.DataConnect.Execute(SqlStr)
  805.                 With RecTemp
  806.                     If .EOF Then
  807.                         Tsxx = "此项目不存在!"
  808.                         GoTo Lrcwcl
  809.                     End If
  810.                     
  811.                     '1.如果科目存在则存储相应预算科目编码
  812.                     WglrGrid.TextMatrix(Dqpdwgh, 2) = Trim(RecTemp.Fields("ID"))
  813.                     WglrGrid.TextMatrix(Dqpdwgh, Sydz("001", GridStr(), Szzls)) = Trim(RecTemp.Fields("Item"))
  814.                 End With
  815.                 
  816.                 '判断记录是否重复
  817.                 SqlStr = "SELECT cwfx_ProfitBudgetMaster.I_id From cwfx_ProfitBudgetMaster WHERE ID='" & WglrGrid.TextMatrix(Dqpdwgh, 2) & "'And Year=" & Str(Int_OriYear)
  818.                 Set RecTemp = Cw_DataEnvi.DataConnect.Execute(SqlStr)
  819.                 If Not RecTemp.EOF Then
  820.                     If RecTemp.Fields("I_ID") <> Val(WglrGrid.TextMatrix(Dqpdwgh, 1)) Then
  821.                         Tsxx = "录入记录重复!"
  822.                         Dqpdwgl = Sydz("001", GridStr(), Szzls)
  823.                         GoTo Lrcwcl
  824.                     End If
  825.                 End If
  826.                 
  827.                 
  828.             Else
  829.                 WglrGrid.TextMatrix(Dqpdwgh, Sydz("001", GridStr(), Szzls)) = ""
  830.             End If
  831.             
  832.             '2.放置字段事后处理程序
  833.             '科目所要进行核算项不能为空
  834.             If (Not .ColHidden(Sydz("001", GridStr(), Szzls))) And Trim(.TextMatrix(Dqpdwgh, Sydz("001", GridStr(), Szzls))) = "" Then
  835.                 Tsxx = "预算项目不能为空!"
  836.                 Lrywlz = Sydz("001", GridStr(), Szzls)
  837.                 GoTo Lrcwcl
  838.             End If
  839.             
  840.             
  841.             '以上为自定义部分]
  842.             
  843.         End Select
  844.         '2.放置字段事后处理程序
  845.         Cur_SumBudget = 0
  846.         For I = 2 To 25
  847.             Cur_SumBudget = Cur_SumBudget + Val(WglrGrid.TextMatrix(Dqpdwgh, Sydz(IIf(I > 9, "0", "00") + Trim(Str(I)), GridStr(), Szzls)))
  848.         Next
  849.         WglrGrid.TextMatrix(Dqpdwgh, Sydz("026", GridStr(), Szzls)) = IIf(Cur_SumBudget = 0, "", Cur_SumBudget)
  850.         
  851.         '字段录入正确后为零字段清空
  852.         Call Qkwlzd(Dqpdwgh, Dqpdwgl)
  853.         
  854.         sjzdyxxpd = True
  855.         Yxxpdlock = True
  856.         Exit Function
  857.     End With
  858.     
  859. Lrcwcl:    '录入错误处理
  860.     With WglrGrid
  861.         Call Xtxxts(Tsxx, 0, 1)
  862.         changelock = True
  863.         .Select Dqpdwgh, Dqpdwgl
  864.         changelock = False
  865.         Call xswbk
  866.         sjzdyxxpd = False
  867.         Exit Function
  868.     End With
  869. End Function
  871. Private Function Sjhzyxxpd(ByVal Yxxpdh As Long) As Boolean                  '录入数据行有效性判断,同时进行行处理
  872.     Dim Lrywlz As Long
  873.     Dim RecTemp As New ADODB.Recordset             '临时使用动态集
  874.     Dim SqlStr As String                           '临时连接字符串
  875.     Dim Rec_AccSumAssi As New ADODB.Recordset      '辅助总帐动态集
  876.     Dim Dbl_Now(1 To 16) As Double                 '科目记录现数据
  877.     Dim Str_OriItemCode As String                  '辅助核算项目编码(原)
  878.     Dim Str_NowItemCode As String                  '辅助核算项目编码(现)
  879.     
  880.     With WglrGrid
  881.         
  882.         '判断行为空和无效数据行则清除当前行
  883.         If Yxxpdh > (.Rows - .FixedRows) Then Exit Function
  884.         If .TextMatrix(Yxxpdh, 0) <> "*" Then
  885.             Sjhzyxxpd = True
  886.             Exit Function
  887.         Else
  888.             If pdhwk(Yxxpdh) And Yxxpdh + 1 <= .Rows - 1 Then
  889.                 If .TextMatrix(Yxxpdh + 1, 0) <> "*" Then
  890.                     changelock = True
  891.                     .RemoveItem Yxxpdh
  892.                     If .Rows < Pmbcsjhs + .FixedRows + Fzxwghs + 1 Then
  893.                         .AddItem ""
  894.                         .RowHeight(.Rows - 1) = Sjhgd
  895.                     End If
  896.                     changelock = False
  897.                     Sjhzyxxpd = True
  898.                     Exit Function
  899.                 End If
  900.             End If
  901.         End If
  902.         
  903.         '行没有发生变化则不进行有效性判断
  904.         If Hyxxpdlock Then
  905.             Sjhzyxxpd = True
  906.             Exit Function
  907.         End If
  908.         
  909.         '以下为自定义部分[
  910.         
  911.         '1.放置行有效性判断程序
  912.         
  913.         '首先进行为空判断(固定不变)
  914.         For Jsqte = Qslz To .Cols - 1
  915.             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
  916.                 Tsxx = GridStr(Jsqte, 2)
  917.                 Lrywlz = Jsqte
  918.                 GoTo Lrcwcl
  919.                 Exit For
  920.             End If
  921.         Next Jsqte
  922.         
  923.         '科目所要进行核算项不能为空
  924.         If (Not .ColHidden(Sydz("001", GridStr(), Szzls))) And Trim(.TextMatrix(Yxxpdh, Sydz("001", GridStr(), Szzls))) = "" Then
  925.             Tsxx = "预算项目不能为空!"
  926.             Lrywlz = Sydz("001", GridStr(), Szzls)
  927.             GoTo Lrcwcl
  928.         End If
  929.         
  930.         '判断记录是否重复
  931.         SqlStr = "SELECT cwfx_ProfitBudgetMaster.I_id From cwfx_ProfitBudgetMaster WHERE ID='" & WglrGrid.TextMatrix(Yxxpdh, 2) & "'And Year=" & Str(Int_OriYear)
  932.         Set RecTemp = Cw_DataEnvi.DataConnect.Execute(SqlStr)
  933.         If Not RecTemp.EOF Then
  934.             If RecTemp.Fields("I_ID") <> Val(WglrGrid.TextMatrix(Yxxpdh, 1)) Then
  935.                 Tsxx = "录入记录重复!"
  936.                 For Jsqte = Qslz To WglrGrid.Cols - 1
  937.                     If Not WglrGrid.ColHidden(Jsqte) Then
  938.                         Lrywlz = Jsqte
  939.                     End If
  940.                 Next Jsqte
  941.                 Lrywlz = Sydz("001", GridStr(), Szzls)
  942.                 GoTo Lrcwcl
  943.             End If
  944.         End If
  945.         
  946.         '2.进行行数据回写
  947.         
  948.     End With
  949.     
  950.     On Error GoTo Swcwcl
  951.     
  952.     Cw_DataEnvi.DataConnect.BeginTrans
  953.     
  954.     With Rec_AccSumAssi
  955.         
  956.         If Val(Trim(WglrGrid.TextMatrix(Yxxpdh, 1))) <> 0 Then
  957.             If .State = 1 Then .Close
  958.             .Open "SELECT cwfx_ProfitBudgetMaster.* From cwfx_ProfitBudgetMaster WHERE I_id = " & Val(WglrGrid.TextMatrix(Yxxpdh, 1)), Cw_DataEnvi.DataConnect, adOpenDynamic, adLockOptimistic
  959.             
  960.             If Not .EOF Then
  961.                 .Fields("ID") = WglrGrid.TextMatrix(Yxxpdh, 2)                                            '预算科目
  962.                 .Fields("Year") = Int_OriYear                                           '会计年度
  963.                 .Fields("Budget_1") = Val(WglrGrid.TextMatrix(Yxxpdh, Sydz("002", GridStr(), Szzls)))
  964.                 .Fields("Add_1") = Val(WglrGrid.TextMatrix(Yxxpdh, Sydz("003", GridStr(), Szzls)))
  965.                 .Fields("Budget_2") = Val(WglrGrid.TextMatrix(Yxxpdh, Sydz("004", GridStr(), Szzls)))
  966.                 .Fields("Add_2") = Val(WglrGrid.TextMatrix(Yxxpdh, Sydz("005", GridStr(), Szzls)))
  967.                 .Fields("Budget_3") = Val(WglrGrid.TextMatrix(Yxxpdh, Sydz("006", GridStr(), Szzls)))
  968.                 .Fields("Add_3") = Val(WglrGrid.TextMatrix(Yxxpdh, Sydz("007", GridStr(), Szzls)))
  969.                 .Fields("Budget_4") = Val(WglrGrid.TextMatrix(Yxxpdh, Sydz("008", GridStr(), Szzls)))
  970.                 .Fields("Add_4") = Val(WglrGrid.TextMatrix(Yxxpdh, Sydz("009", GridStr(), Szzls)))
  971.                 .Fields("Budget_5") = Val(WglrGrid.TextMatrix(Yxxpdh, Sydz("010", GridStr(), Szzls)))
  972.                 .Fields("Add_5") = Val(WglrGrid.TextMatrix(Yxxpdh, Sydz("011", GridStr(), Szzls)))
  973.                 .Fields("Budget_6") = Val(WglrGrid.TextMatrix(Yxxpdh, Sydz("012", GridStr(), Szzls)))
  974.                 .Fields("Add_6") = Val(WglrGrid.TextMatrix(Yxxpdh, Sydz("013", GridStr(), Szzls)))
  975.                 .Fields("Budget_7") = Val(WglrGrid.TextMatrix(Yxxpdh, Sydz("014", GridStr(), Szzls)))
  976.                 .Fields("Add_7") = Val(WglrGrid.TextMatrix(Yxxpdh, Sydz("015", GridStr(), Szzls)))
  977.                 .Fields("Budget_8") = Val(WglrGrid.TextMatrix(Yxxpdh, Sydz("016", GridStr(), Szzls)))
  978.                 .Fields("Add_8") = Val(WglrGrid.TextMatrix(Yxxpdh, Sydz("017", GridStr(), Szzls)))
  979.                 .Fields("Budget_9") = Val(WglrGrid.TextMatrix(Yxxpdh, Sydz("018", GridStr(), Szzls)))
  980.                 .Fields("Add_9") = Val(WglrGrid.TextMatrix(Yxxpdh, Sydz("019", GridStr(), Szzls)))
  981.                 .Fields("Budget_10") = Val(WglrGrid.TextMatrix(Yxxpdh, Sydz("020", GridStr(), Szzls)))
  982.                 .Fields("Add_10") = Val(WglrGrid.TextMatrix(Yxxpdh, Sydz("021", GridStr(), Szzls)))
  983.                 .Fields("Budget_11") = Val(WglrGrid.TextMatrix(Yxxpdh, Sydz("022", GridStr(), Szzls)))
  984.                 .Fields("Add_11") = Val(WglrGrid.TextMatrix(Yxxpdh, Sydz("023", GridStr(), Szzls)))
  985.                 .Fields("Budget_12") = Val(WglrGrid.TextMatrix(Yxxpdh, Sydz("024", GridStr(), Szzls)))
  986.                 .Fields("Add_12") = Val(WglrGrid.TextMatrix(Yxxpdh, Sydz("025", GridStr(), Szzls)))
  987.                 
  988.                 .Fields("YearBudget") = Val(WglrGrid.TextMatrix(Yxxpdh, Sydz("027", GridStr(), Szzls)))
  989.                 
  990.                 
  991.                 .Update
  992.                 
  993.                 '更新其他各会计期间数据
  994.                 
  995.             End If
  996.             
  997.         Else
  998.             If .State = 1 Then .Close
  999.             .Open "SELECT cwfx_ProfitBudgetMaster.* From cwfx_ProfitBudgetMaster WHERE I_id = " & Val(WglrGrid.TextMatrix(Yxxpdh, 1)), Cw_DataEnvi.DataConnect, adOpenDynamic, adLockOptimistic
  1000.             
  1001.             .AddNew
  1002.             .Fields("ID") = Trim(WglrGrid.TextMatrix(Yxxpdh, 2))                                     '预算科目
  1003.             .Fields("Year") = Int_OriYear                                          '会计年度
  1004.             
  1005.             .Fields("Budget_1") = Val(WglrGrid.TextMatrix(Yxxpdh, Sydz("002", GridStr(), Szzls)))
  1006.             .Fields("Add_1") = Val(WglrGrid.TextMatrix(Yxxpdh, Sydz("003", GridStr(), Szzls)))
  1007.             .Fields("Budget_2") = Val(WglrGrid.TextMatrix(Yxxpdh, Sydz("004", GridStr(), Szzls)))
  1008.             .Fields("Add_2") = Val(WglrGrid.TextMatrix(Yxxpdh, Sydz("005", GridStr(), Szzls)))
  1009.             .Fields("Budget_3") = Val(WglrGrid.TextMatrix(Yxxpdh, Sydz("006", GridStr(), Szzls)))
  1010.             .Fields("Add_3") = Val(WglrGrid.TextMatrix(Yxxpdh, Sydz("007", GridStr(), Szzls)))
  1011.             .Fields("Budget_4") = Val(WglrGrid.TextMatrix(Yxxpdh, Sydz("008", GridStr(), Szzls)))
  1012.             .Fields("Add_4") = Val(WglrGrid.TextMatrix(Yxxpdh, Sydz("009", GridStr(), Szzls)))
  1013.             .Fields("Budget_5") = Val(WglrGrid.TextMatrix(Yxxpdh, Sydz("010", GridStr(), Szzls)))
  1014.             .Fields("Add_5") = Val(WglrGrid.TextMatrix(Yxxpdh, Sydz("011", GridStr(), Szzls)))
  1015.             .Fields("Budget_6") = Val(WglrGrid.TextMatrix(Yxxpdh, Sydz("012", GridStr(), Szzls)))
  1016.             .Fields("Add_6") = Val(WglrGrid.TextMatrix(Yxxpdh, Sydz("013", GridStr(), Szzls)))
  1017.             .Fields("Budget_7") = Val(WglrGrid.TextMatrix(Yxxpdh, Sydz("014", GridStr(), Szzls)))
  1018.             .Fields("Add_7") = Val(WglrGrid.TextMatrix(Yxxpdh, Sydz("015", GridStr(), Szzls)))
  1019.             .Fields("Budget_8") = Val(WglrGrid.TextMatrix(Yxxpdh, Sydz("016", GridStr(), Szzls)))
  1020.             .Fields("Add_8") = Val(WglrGrid.TextMatrix(Yxxpdh, Sydz("017", GridStr(), Szzls)))
  1021.             .Fields("Budget_9") = Val(WglrGrid.TextMatrix(Yxxpdh, Sydz("018", GridStr(), Szzls)))
  1022.             .Fields("Add_9") = Val(WglrGrid.TextMatrix(Yxxpdh, Sydz("019", GridStr(), Szzls)))
  1023.             .Fields("Budget_10") = Val(WglrGrid.TextMatrix(Yxxpdh, Sydz("020", GridStr(), Szzls)))
  1024.             .Fields("Add_10") = Val(WglrGrid.TextMatrix(Yxxpdh, Sydz("021", GridStr(), Szzls)))
  1025.             .Fields("Budget_11") = Val(WglrGrid.TextMatrix(Yxxpdh, Sydz("022", GridStr(), Szzls)))
  1026.             .Fields("Add_11") = Val(WglrGrid.TextMatrix(Yxxpdh, Sydz("023", GridStr(), Szzls)))
  1027.             .Fields("Budget_12") = Val(WglrGrid.TextMatrix(Yxxpdh, Sydz("024", GridStr(), Szzls)))
  1028.             .Fields("Add_12") = Val(WglrGrid.TextMatrix(Yxxpdh, Sydz("025", GridStr(), Szzls)))
  1029.             
  1030.             .Fields("YearBudget") = Val(WglrGrid.TextMatrix(Yxxpdh, Sydz("027", GridStr(), Szzls)))
  1031.             
  1032.             
  1033.             .Update
  1034.             
  1035.             WglrGrid.TextMatrix(Yxxpdh, 1) = .Fields("I_id")
  1036.             
  1037.             
  1038.         End If
  1039.         
  1040.     End With
  1041.     
  1042.     Cw_DataEnvi.DataConnect.CommitTrans
  1043.     
  1044.     ' <<]
  1045.     
  1046.     '以上为自定义部分]
  1047.     
  1048.     Sjhzyxxpd = True
  1049.     Hyxxpdlock = True
  1050.     Exit Function
  1051.     
  1052. Swcwcl:
  1053.     Cw_DataEnvi.DataConnect.RollbackTrans
  1054.     Tsxx = "存盘过程中出现未知错误,程序自动恢复保存前状态!"
  1055.     Call Xtxxts(Tsxx, 0, 1)
  1056.     Exit Function
  1057.     
  1058. Lrcwcl:      '录入错误处理
  1059.     With WglrGrid
  1060.         Call Xtxxts(Tsxx, 0, 1)
  1061.         changelock = True
  1062.         .Select Yxxpdh, Lrywlz
  1063.         changelock = False
  1064.         Call xswbk
  1065.         
  1066.         Sjhzyxxpd = False
  1067.         Exit Function
  1068.     End With
  1069. End Function
  1071. '===================以 下 程 序 为 通 用 部 分 ,一 般 不 需 更 改======================='
  1072. Private Sub Sub_AdjustGrid()
  1073.     '调 整 网 格
  1074.     With WglrGrid
  1075.         '加 1 保持一行录入行
  1076.         If .Rows < Pmbcsjhs + .FixedRows + Fzxwghs + 1 Then
  1077.             .Rows = Pmbcsjhs + .FixedRows + Fzxwghs + 1
  1078.             For Jsqte = .FixedRows To .Rows - 1
  1079.                 .RowHeight(Jsqte) = Sjhgd
  1080.             Next Jsqte
  1081.         Else
  1082.             '判断是否有辅助行和录入行,如没有则加行
  1083.             Do While .TextMatrix(.Rows - 1 - Fzxwghs, 0) = "*"
  1084.                 .AddItem ""
  1085.                 .RowHeight(.Rows - 1) = Sjhgd
  1086.             Loop
  1087.         End If
  1088.     End With
  1089. End Sub
  1091. Private Sub Lrzdbz()                                                      '录入字段帮助
  1092.     If Not YdCommand.Visible Then
  1093.         Exit Sub
  1094.     End If
  1095.     Valilock = True
  1096.     With WglrGrid
  1097.         
  1098.         changelock = True        '调入另外窗体必须加锁
  1099.         If .Col = Sydz("001", GridStr(), Szzls) Then
  1100.             Call Drbmhelp(GridInt(.Col, 6), GridStr(.Col, 3), Trim(Ydtext.Text))
  1101.         End If
  1102.         changelock = False
  1103.         If Len(Xtfhcs) <> 0 Then
  1104.             If GridInt(.Col, 7) = 0 Then
  1105.                 Ydtext.Text = Xtfhcs
  1106.             Else
  1107.                 Ydtext.Text = Xtfhcsfz
  1108.             End If
  1109.         End If
  1110.         
  1111.         Valilock = False
  1112.         If Ydtext.Visible Then
  1113.             Ydtext.SetFocus
  1114.         End If
  1115.     End With
  1116. End Sub
  1118. Private Sub Form_Resize()                                                '窗体大小发生变化时,重新显示文本框
  1119.     Call Cxxswbk
  1120. End Sub
  1122. Private Function Fun_Drfrmyxxpd() As Boolean                             '调入其它窗体或功能产生的有效性判断(包括数据回写)
  1123.     Fun_Drfrmyxxpd = True
  1124.     With WglrGrid
  1125.         
  1126.         '如果当前网格处于编辑状态,则先进行数据回写再进行有效性判断
  1127.         
  1128.         If Ydtext.Visible Or YdCombo.Visible Then
  1129.             Call Lrsjhx
  1130.             If Not sjzdyxxpd(Dqlrwgh, Dqlrwgl) Then
  1131.                 Fun_Drfrmyxxpd = False
  1132.                 Exit Function
  1133.             End If
  1134.         End If
  1135.         
  1136.         '进行行有效性判断
  1137.         If Not Sjhzyxxpd(.Row) Then
  1138.             Fun_Drfrmyxxpd = False
  1139.             Exit Function
  1140.         End If
  1141.         
  1142.     End With
  1143. End Function
  1145. Private Sub WglrGrid_GotFocus()                                     '网格得到焦点
  1146.     
  1147.     '网格得到焦点,如果当前选择行为非数据行
  1148.     '则调整当前焦点至有效数据行
  1149.     
  1150.     With WglrGrid
  1151.         If .Row < .FixedRows And .Rows > .FixedRows Then
  1152.             changelock = True
  1153.             .Select .FixedRows, .Col
  1154.             changelock = False
  1155.         End If
  1156.         If .Col < Qslz Then
  1157.             changelock = True
  1158.             .Select .Row, Qslz
  1159.             changelock = False
  1160.         End If
  1161.     End With
  1162.     
  1163. End Sub
  1165. Private Sub WglrGrid_LostFocus()                                    '录入网格失去焦点
  1166.     
  1167.     '用以屏蔽调用其它窗体时发生网格失去焦点事件
  1168.     If changelock Then
  1169.         Exit Sub
  1170.     End If
  1171.     
  1172.     '引发网格RowcolChange事件
  1173.     With WglrGrid
  1174.         If Not (Ydtext.Visible Or YdCombo.Visible) Then
  1175.             .Select 0, 0
  1176.         End If
  1177.     End With
  1178.     
  1179. End Sub
  1181. Private Sub WglrGrid_AfterScroll(ByVal OldTopRow As Long, ByVal OldLeftCol As Long, ByVal NewTopRow As Long, ByVal NewLeftCol As Long)                                       '限制用户在录入过程中滚动鼠标
  1182.     
  1183.     If Gdtlock Then
  1184.         Exit Sub
  1185.     End If
  1186.     
  1187.     With WglrGrid
  1188.         If Ydtext.Visible Or YdCombo.Visible Then
  1189.             Gdtlock = True
  1190.             .TopRow = Dqtoprow
  1191.             .LeftCol = Dqleftcol
  1192.             Gdtlock = False
  1193.             Exit Sub
  1194.         End If
  1195.         
  1196.     End With
  1197. End Sub
  1199. Private Sub WglrGrid_LeaveCell()                                    '离开单元格
  1200.     If changelock Then
  1201.         Exit Sub
  1202.     End If
  1203.     
  1204.     '记录刚刚离开网格单元的行列值
  1205.     Dqlkwgh = WglrGrid.Row
  1206.     Dqlkwgl = WglrGrid.Col
  1207.     
  1208.     '判断是否需要录入数据回写
  1209.     If Not (Ydtext.Visible Or YdCombo.Visible) Then
  1210.         Exit Sub
  1211.     End If
  1212.     Call Lrsjhx
  1213. End Sub
  1215. Private Sub WglrGrid_RowColChange()                                '网格录入行列发生变化时,进行有效性判断
  1216.     Valilock = True       '屏蔽文本框失去焦点进行有效性判断
  1217.     With WglrGrid
  1218.         If changelock Then
  1219.             Exit Sub
  1220.         End If
  1221.         If Not sjzdyxxpd(Dqlrwgh, Dqlrwgl) Then
  1222.             Exit Sub
  1223.         End If
  1224.         If .Row <> Dqlkwgh Then
  1225.             If Not Sjhzyxxpd(Dqlkwgh) Then
  1226.                 Exit Sub
  1227.             End If
  1228.         End If
  1229.     End With
  1230.     Call fhyxh
  1231.     Call Xldql
  1232.     
  1233. End Sub
  1235. Private Sub WglrGrid_DblClick()          '鼠标双击网格显示文本框
  1236.     Dim I As Integer
  1237.     Dim Bln_Add As Boolean
  1238.     Dim CurrentRow As Integer
  1239.     Dim CurrentCol As Integer
  1240.     Let Bln_Add = False
  1241.     
  1242.     With WglrGrid
  1243.         '非数据行退出
  1244.         If .Row < .FixedRows Then
  1245.             Exit Sub
  1246.         End If
  1247.         
  1248.         For I = 3 To 25 Step 2                 '如果是追加列则取月份
  1249.             If .Col = Sydz(IIf(I > 9, "0", "00") + Trim(Str(I)), GridStr(), Szzls) Then
  1250.                 Bln_Add = True
  1251.                 Int_Month = Int(I / 2)
  1252.                 Exit For
  1253.             End If
  1254.         Next
  1255.         
  1256.         On Error GoTo Swcwcl1
  1257.         If Bln_Add Then                       '是追加列调用追加金额form
  1258.             Str_Show = "项目名称:" & Trim(.TextMatrix(.Row, Sydz("001", GridStr(), Szzls))) & "  会计年度:" & Trim(Str(Int_OriYear)) & "  月份:" & Trim(Str(Int_Month))
  1259.             Str_TableAdd = "cwfx_ProfitBudgetSlaver"
  1260.             Int_I_Id = .TextMatrix(.Row, 1)
  1261.             Str_Title = "利润预算追加金额表"
  1262.             Str_ReportSubTitle = Space(10) + Fun_FormatOutPut("会计年度:" + Str(Int_OriYear), 30)
  1263.             CurrentRow = .Row
  1264.             CurrentCol = .Col
  1265.             YS_FrmBudgetAdd.HelpContextID = "0411004004"
  1266.             YS_FrmBudgetAdd.Show 1
  1267.             .Row = CurrentRow
  1268.             .Col = CurrentCol
  1269.             
  1270.             .TextMatrix(.Row, .Col) = IIf(Cur_TableAdd = 0, "", Cur_TableAdd)   '金额回写单位格
  1271.             
  1272.             Cur_SumBudget = 0
  1273.             For I = 2 To 25
  1274.                 Cur_SumBudget = Cur_SumBudget + Val(.TextMatrix(.Row, Sydz(IIf(I > 9, "0", "00") + Trim(Str(I)), GridStr(), Szzls)))
  1275.             Next
  1276.             .TextMatrix(.Row, Sydz("026", GridStr(), Szzls)) = IIf(Cur_SumBudget = 0, "", Cur_SumBudget)
  1277.             
  1278.             Hyxxpdlock = False
  1279.             
  1280.         Else
  1281.             Call xswbk
  1282.         End If
  1283.         
  1284.     End With
  1285.     Exit Sub
  1286.     
  1287. Swcwcl1:
  1288.     Tsxx = "先确认本次预算金额的录入才能录入追加金额!"
  1289.     Call Xtxxts(Tsxx, 0, 1)
  1290. End Sub
  1292. Private Sub Ycwbk()                      '隐藏文本框,帮助按钮,列表组合框
  1293.     Valilock = True
  1294.     Ydtext.Visible = False
  1295.     YdCombo.Visible = False
  1296.     YdCommand.Visible = False
  1297. End Sub
  1299. Private Sub YdCombo_KeyDown(KeyCode As Integer, Shift As Integer)        '列表框移动
  1300.     With WglrGrid
  1301.         Select Case KeyCode
  1302.         Case vbKeyEscape                'ESC 键放弃录入
  1303.             Valilock = True
  1304.             .SetFocus
  1305.             Call Ycwbk
  1306.             Valilock = False
  1307.         Case vbKeyReturn                '回 车 键 =13
  1308.             KeyCode = 0
  1309.             .SetFocus
  1310.             Call Lrsjhx
  1311.             Rowjsq = .Row
  1312.             Coljsq = .Col + 1
  1313.             If Coljsq > .Cols - 1 Then
  1314.                 If Rowjsq < .Rows - 1 Then
  1315.                     Rowjsq = Rowjsq + 1
  1316.                 End If
  1317.                 Coljsq = Qslz
  1318.             End If
  1319.             Do While Rowjsq <= .Rows - 1
  1320.                 If .ColHidden(Coljsq) Or (Not GridBoolean(Coljsq, 1)) Then
  1321.                     Coljsq = Coljsq + 1
  1322.                     If Coljsq > .Cols - 1 Then
  1323.                         Rowjsq = Rowjsq + 1
  1324.                         Coljsq = Qslz
  1325.                     End If
  1326.                 Else
  1327.                     Exit Do
  1328.                 End If
  1329.             Loop
  1330.             .Select Rowjsq, Coljsq
  1331.         Case vbKeyLeft                  '左 箭 头 =37
  1332.             If .Col - 1 = Qslz Then
  1333.                 If .ColHidden(Qslz) Or (Not GridBoolean(Qslz, 1)) Then
  1334.                     GoTo jzzx
  1335.                 End If
  1336.             End If
  1337.             If .Col > Qslz Then
  1338.                 KeyCode = 0
  1339.                 .SetFocus
  1340.                 Call Lrsjhx
  1341.                 Coljsq = .Col - 1
  1342.                 Do While Coljsq > Qslz
  1343.                     If Coljsq - 1 = Qslz Then
  1344.                         If .ColHidden(Qslz) Or (Not GridBoolean(Qslz, 1)) Then
  1345.                             GoTo jzzx
  1346.                         End If
  1347.                     End If
  1348.                     If .ColHidden(Coljsq) Or (Not GridBoolean(Coljsq, 1)) Then
  1349.                         Coljsq = Coljsq - 1
  1350.                     Else
  1351.                         Exit Do
  1352.                     End If
  1353.                 Loop
  1354.                 .Select .Row, Coljsq
  1355.             End If
  1356.             
  1357.         Case vbKeyRight                 '右 箭 头 =39
  1358.             KeyCode = 0
  1359.             .SetFocus
  1360.             Call Lrsjhx
  1361.             Rowjsq = .Row
  1362.             Coljsq = .Col + 1
  1363.             If Coljsq > .Cols - 1 Then
  1364.                 If Rowjsq < .Rows - 1 Then
  1365.                     Rowjsq = Rowjsq + 1
  1366.                 End If
  1367.                 Coljsq = Qslz
  1368.             End If
  1369.             Do While Rowjsq <= .Rows - 1
  1370.                 If .ColHidden(Coljsq) Or (Not GridBoolean(Coljsq, 1)) Then
  1371.                     Coljsq = Coljsq + 1
  1372.                     If Coljsq > .Cols - 1 Then
  1373.                         Rowjsq = Rowjsq + 1
  1374.                         Coljsq = Qslz
  1375.                     End If
  1376.                 Else
  1377.                     Exit Do
  1378.                 End If
  1379.             Loop
  1380.             .Select Rowjsq, Coljsq
  1381.         Case Else
  1382.         End Select
  1383.         
  1384. jzzx:
  1385.         
  1386.     End With
  1387. End Sub
  1389. Private Sub YdCombo_LostFocus()
  1390.     With WglrGrid                                    '因为选中网格会先发生Rowcolchange事件置Valiock
  1391.         If Not Valilock Then                           '为TRUE
  1392.             Call Lrsjhx
  1393.             If Not Sjhzyxxpd(Dqlrwgh) Then
  1394.                 Exit Sub
  1395.             End If
  1396.         End If
  1397.     End With
  1398. End Sub
  1400. Private Sub Ydcommand_MouseDown(Button As Integer, Shift As Integer, x As Single, Y As Single)
  1401.     Call Lrzdbz
  1402. End Sub
  1404. Private Sub ydtext_KeyDown(KeyCode As Integer, Shift As Integer)
  1405.     Dim Rowjsq As Long, Coljsq As Long
  1406.     With WglrGrid
  1407.         Select Case KeyCode
  1408.         Case vbKeyF2
  1409.             Call Lrzdbz
  1410.         Case vbKeyEscape                'ESC 键放弃录入
  1411.             Valilock = True
  1412.             Call Ycwbk
  1413.             .SetFocus
  1414.         Case vbKeyReturn                '回 车 键 =13
  1415.             KeyCode = 0
  1416.             .SetFocus
  1417.             Call Lrsjhx
  1418.             Rowjsq = .Row
  1419.             Coljsq = .Col + 1
  1420.             If Coljsq > .Cols - 1 Then
  1421.                 If Rowjsq < .Rows - 1 Then
  1422.                     Rowjsq = Rowjsq + 1
  1423.                 End If
  1424.                 Coljsq = Qslz
  1425.             End If
  1426.             Do While Rowjsq <= .Rows - 1
  1427.                 If .ColHidden(Coljsq) Or (Not GridBoolean(Coljsq, 1)) Then
  1428.                     Coljsq = Coljsq + 1
  1429.                     If Coljsq > .Cols - 1 Then
  1430.                         Rowjsq = Rowjsq + 1
  1431.                         Coljsq = Qslz
  1432.                     End If
  1433.                 Else
  1434.                     Exit Do
  1435.                 End If
  1436.             Loop
  1437.             If Rowjsq <= .Rows - 1 Then
  1438.                 .Select Rowjsq, Coljsq
  1439.             End If
  1440.         Case vbKeyUp                    '上 箭 头 =38
  1441.             KeyCode = 0
  1442.             .SetFocus
  1443.             Call Lrsjhx
  1444.             If .Row > .FixedRows Then
  1445.                 .Row = .Row - 1
  1446.             End If
  1447.         Case vbKeyDown                  '下 箭 头 =40
  1448.             KeyCode = 0
  1449.             .SetFocus
  1450.             Call Lrsjhx
  1451.             If .Row < .Rows - 1 Then
  1452.                 .Row = .Row + 1
  1453.             End If
  1454.         Case vbKeyLeft                  '左 箭 头 =37
  1455.             If .Col - 1 = Qslz Then
  1456.                 If .ColHidden(Qslz) Or (Not GridBoolean(Qslz, 1)) Then
  1457.                     GoTo jzzx
  1458.                 End If
  1459.             End If
  1460.             If Ydtext.SelStart = 0 And .Col > Qslz Then
  1461.                 KeyCode = 0
  1462.                 .SetFocus
  1463.                 Call Lrsjhx
  1464.                 Coljsq = .Col - 1
  1465.                 Do While Coljsq > Qslz
  1466.                     If Coljsq - 1 = Qslz Then
  1467.                         If .ColHidden(Qslz) Or (Not GridBoolean(Qslz, 1)) Then
  1468.                             GoTo jzzx
  1469.                         End If
  1470.                     End If
  1471.                     If .ColHidden(Coljsq) Or (Not GridBoolean(Coljsq, 1)) Then
  1472.                         Coljsq = Coljsq - 1
  1473.                     Else
  1474.                         Exit Do
  1475.                     End If
  1476.                 Loop
  1477.                 .Select .Row, Coljsq
  1478.             End If
  1479. jzzx:
  1480.             
  1481.             
  1482.         Case vbKeyRight                 '右 箭 头 =39
  1483.             wblong = Len(Ydtext.Text)
  1484.             If (Ydtext.SelStart = wblong Or Ydtext.SelLength = wblong) Then
  1485.                 KeyCode = 0
  1486.                 .SetFocus
  1487.                 Call Lrsjhx
  1488.                 Rowjsq = .Row
  1489.                 Coljsq = .Col + 1
  1490.                 If Coljsq > .Cols - 1 Then
  1491.                     If Rowjsq < .Rows - 1 Then
  1492.                         Rowjsq = Rowjsq + 1
  1493.                     End If
  1494.                     Coljsq = Qslz
  1495.                 End If
  1496.                 Do While Rowjsq <= .Rows - 1
  1497.                     If .ColHidden(Coljsq) Or (Not GridBoolean(Coljsq, 1)) Then
  1498.                         Coljsq = Coljsq + 1
  1499.                         If Coljsq > .Cols - 1 Then
  1500.                             Rowjsq = Rowjsq + 1
  1501.                             Coljsq = Qslz
  1502.                         End If
  1503.                     Else
  1504.                         Exit Do
  1505.                     End If
  1506.                 Loop
  1507.                 .Select Rowjsq, Coljsq
  1508.             End If
  1509.         Case Else
  1510.         End Select
  1511.     End With
  1512. End Sub
  1514. Private Sub ydtext_KeyPress(KeyAscii As Integer)         '录入字符事中控制
  1515.     Call InputFieldLimit(Ydtext, GridInt(WglrGrid.Col, 1), KeyAscii)
  1516.     If KeyAscii <> 0 Then
  1517.         Call Xyxhbz(Dqlrwgh)
  1518.     End If
  1519. End Sub
  1521. Private Sub ydtext_Change()                              '录入事中变化处理
  1522.     
  1523.     '防止程序改变但不进行处理
  1524.     
  1525.     If Wbkbhlock Then
  1526.         Exit Sub
  1527.     End If
  1528.     
  1529.     With WglrGrid
  1530.         
  1531.         '限制字段录入长度
  1532.         Wbkbhlock = True
  1533.         Select Case GridInt(.Col, 1)
  1534.         Case 8
  1535.             Call Sjgskz(Ydtext, Xtjezws - Xtjexsws - 1, Xtjexsws)
  1536.         Case 9
  1537.             Call Sjgskz(Ydtext, Xtslzws - Xtslxsws - 1, Xtslxsws)
  1538.         Case 10
  1539.             Call Sjgskz(Ydtext, Xtdjzws - Xtdjxsws - 1, Xtdjxsws)
  1540.         Case Else
  1541.             If GridInt(.Col, 3) <> 0 Or GridInt(.Col, 4) <> 0 Then
  1542.                 Call Sjgskz(Ydtext, GridInt(.Col, 3), GridInt(.Col, 4))
  1543.             End If
  1544.         End Select
  1545.         Wbkbhlock = False
  1546.     End With
  1547. End Sub
  1549. Private Sub ydtext_LostFocus()            '如果由于选中网格之外的控件而发生有效性判断(选中网格会先发生Rowcolchange事件置Valiock为TRUE)
  1550.     With WglrGrid
  1551.         If Not Valilock Then
  1552.             Call Lrsjhx
  1553.             If Not sjzdyxxpd(Dqlrwgh, Dqlrwgl) Then
  1554.                 Exit Sub
  1555.             End If
  1556.             If Not Sjhzyxxpd(Dqlrwgh) Then
  1557.                 Exit Sub
  1558.             End If
  1559.         End If
  1560.     End With
  1561. End Sub
  1563. Private Sub xswbk()                       '在当前选中单元显示文本框,列表框,帮助按钮(通用)
  1564.     Dim Wbkpy As Integer, Wbkpy1 As Integer '文本框偏移量
  1565.     
  1566.     '如果单据操作状态为浏览状态则不能显示录入载体
  1567.     If Trim(Lab_OperStatus.Caption) = "1" Then
  1568.         Exit Sub
  1569.     End If
  1570.     
  1571.     '显示文本框前返回有效行列（解决滚动条问题）
  1572.     Call Xldqh
  1573.     Call Xldql
  1574.     
  1575.     '隐藏文本框,帮助按钮,列表组合框
  1576.     Call Ycwbk
  1577.     
  1578.     With WglrGrid
  1579.         Dqlrwgh = .Row
  1580.         Dqlrwgl = .Col
  1581.         If Not GridBoolean(.Col, 1) Or .Row < .FixedRows Then
  1582.             Exit Sub
  1583.         End If
  1584.         
  1585.         Wbkpy = 30
  1586.         Wbkpy1 = 15
  1587.         
  1588.         If GridBoolean(.Col, 3) Then
  1589.             YdCombo.Left = .CellLeft + .Left + Wbkpy
  1590.             YdCombo.Top = .CellTop + .Top + Wbkpy
  1591.             YdCombo.Width = .CellWidth - Wbkpy1
  1592.             Call Wbkcl
  1593.             YdCombo.Visible = True
  1594.             YdCombo.SetFocus
  1595.             YdCommand.Visible = False
  1596.             Ydtext.Visible = False
  1597.         Else
  1598.             If GridBoolean(.Col, 2) Then
  1599.                 YdCommand.Left = .Left + .CellLeft + .CellWidth - YdCommand.Width + Wbkpy
  1600.                 YdCommand.Top = .Top + .CellTop + .CellHeight - YdCommand.Height + Wbkpy
  1601.                 YdCommand.Visible = True
  1602.             Else
  1603.                 YdCommand.Visible = False
  1604.             End If
  1605.             
  1606.             Ydtext.Left = .CellLeft + .Left + Wbkpy
  1607.             Ydtext.Top = .CellTop + .Top + Wbkpy
  1608.             If YdCommand.Visible Then
  1609.                 If Sfblbzkd Then
  1610.                     Ydtext.Width = .CellWidth - YdCommand.Width
  1611.                 Else
  1612.                     Ydtext.Width = .CellWidth - Wbkpy1
  1613.                 End If
  1614.             Else
  1615.                 Ydtext.Width = .CellWidth - Wbkpy1
  1616.             End If
  1617.             Ydtext.Height = .CellHeight - Wbkpy1
  1618.             
  1619.             If GridInt(.Col, 2) <> 0 Then
  1620.                 Ydtext.MaxLength = GridInt(.Col, 2)
  1621.             Else
  1622.                 Ydtext.MaxLength = 3000
  1623.             End If
  1624.             
  1625.             Call Wbkcl
  1626.             
  1627.             Ydtext.Visible = True
  1628.             Ydtext.SetFocus
  1629.         End If
  1630.         Dqtoprow = .TopRow
  1631.         Dqleftcol = .LeftCol
  1632.         
  1633.         '重置锁值
  1634.         Valilock = False
  1635.         Wbkbhlock = False
  1636.     End With
  1637. End Sub
  1639. Private Sub Cxxswbk()                                                  'Formresize中重新显示文本框,列表框,帮助按钮(通用)
  1640.     
  1641.     Dim Wbkpy As Integer, Wbkpy1 As Integer
  1642.     Wbkpy = 30
  1643.     Wbkpy1 = 15
  1644.     With WglrGrid
  1645.         If YdCombo.Visible Then
  1646.             YdCombo.Left = .CellLeft + .Left + Wbkpy
  1647.             YdCombo.Top = .CellTop + .Top + Wbkpy
  1648.             YdCombo.Width = .CellWidth - Wbkpy1
  1649.         End If
  1650.         If YdCommand.Visible Then
  1651.             YdCommand.Left = .Left + .CellLeft + .CellWidth - YdCommand.Width + Wbkpy
  1652.             YdCommand.Top = .Top + .CellTop + .CellHeight - YdCommand.Height + Wbkpy
  1653.         End If
  1654.         If Ydtext.Visible Then
  1655.             If YdCommand.Visible Then
  1656.                 If Sfblbzkd Then
  1657.                     Ydtext.Width = .CellWidth - YdCommand.Width
  1658.                 Else
  1659.                     Ydtext.Width = .CellWidth - Wbkpy1
  1660.                 End If
  1661.             Else
  1662.                 Ydtext.Width = .CellWidth - Wbkpy1
  1663.             End If
  1664.             
  1665.             Ydtext.Left = .CellLeft + .Left + Wbkpy
  1666.             Ydtext.Top = .CellTop + .Top + Wbkpy
  1667.             Ydtext.Height = .CellHeight - Wbkpy1
  1668.         End If
  1669.     End With
  1670.     
  1671. End Sub
  1673. Private Sub Lrsjhx()                                                   '文本框录入数据回写
  1674.     With WglrGrid
  1675.         If YdCombo.Visible Then
  1676.             .Text = Trim(YdCombo.Text)
  1677.         End If
  1678.         If Ydtext.Visible Then
  1679.             .Text = Trim(Ydtext.Text)
  1680.         End If
  1681.         
  1682.         '(如果字段录入内容发生变化,则打开有效性判断锁)
  1683.         If Zdlrqnr <> Trim(.Text) Then
  1684.             Yxxpdlock = False
  1685.             Hyxxpdlock = False
  1686.         End If
  1687.         
  1688.         '如果字段录入内容不为空则写数据行有效性标志
  1689.         
  1690.         If Len(Trim(.Text)) <> 0 Then
  1691.             Call Xyxhbz(.Row)
  1692.         End If
  1693.         
  1694.         '隐藏文本框,帮助按钮,列表组合框
  1695.         Call Ycwbk
  1696.         
  1697.     End With
  1698. End Sub
  1700. Private Sub WglrGrid_KeyDown(KeyCode As Integer, Shift As Integer)    '网格录入增行，删行快捷键
  1701.     
  1702.     '如果单据操作状态为浏览状态则不能显示录入载体
  1703.     If Trim(Lab_OperStatus.Caption) = "1" Then
  1704.         Exit Sub
  1705.     End If
  1706.     
  1707.     Select Case KeyCode
  1708.     Case vbKeyDelete               '删行
  1709.         Call Scdqfl
  1710.     Case vbKeyInsert               '增行
  1711.         Call zjlrfl
  1712.     End Select
  1713. End Sub
  1715. Private Sub WglrGrid_KeyPress(KeyAscii As Integer)                     '网格接受键盘录入
  1716.     Dim Str_ChangeTe As String    '临时交换内容
  1717.     Dim Coljsq As Long            '临时列计数器
  1718.     Dim Int_SaveKey As Integer    '保存KeyAscii值
  1719.     
  1720.     '如果单据操作状态为浏览状态则不能显示录入载体
  1721.     If Trim(Lab_OperStatus.Caption) = "1" Then
  1722.         Exit Sub
  1723.     End If
  1724.     
  1725.     Int_SaveKey = KeyAscii
  1726.     
  1727.     With WglrGrid
  1728.         '屏 蔽 回 车 键
  1729.         If KeyAscii = vbKeyReturn Then
  1730.             KeyAscii = 0
  1731.             Rowjsq = .Row
  1732.             Coljsq = .Col + 1
  1733.             If Coljsq > .Cols - 1 Then
  1734.                 If Rowjsq < .Rows - 1 Then
  1735.                     Rowjsq = Rowjsq + 1
  1736.                 End If
  1737.                 Coljsq = Qslz
  1738.             End If
  1739.             Do While Rowjsq <= .Rows - 1
  1740.                 If .ColHidden(Coljsq) Or (Not GridBoolean(Coljsq, 1)) Then
  1741.                     Coljsq = Coljsq + 1
  1742.                     If Coljsq > .Cols - 1 Then
  1743.                         Rowjsq = Rowjsq + 1
  1744.                         Coljsq = Qslz
  1745.                     End If
  1746.                 Else
  1747.                     Exit Do
  1748.                 End If
  1749.             Loop
  1750.             If Rowjsq <= .Rows - 1 Then
  1751.                 .Select Rowjsq, Coljsq
  1752.             End If
  1753.             Exit Sub
  1754.         End If
  1755.         '接受用户录入
  1756.         Select Case KeyAscii
  1757.         Case 0 To 32
  1758.             
  1759.             '显示录入载体
  1760.             Call xswbk
  1761.             
  1762.         Case Else
  1763.             
  1764.             '防止非编辑字段SendKeys()出现死循环
  1765.             If Not GridBoolean(.Col, 1) Or .Row < .FixedRows Then
  1766.                 Exit Sub
  1767.             End If
  1768.             
  1769.             If GridBoolean(.Col, 3) Then
  1770.                 
  1771.                 '列表框录入
  1772.                 Call xswbk
  1773.                 
  1774.             Else
  1775.                 
  1776.                 Ydtext.Text = ""
  1777.                 Call InputFieldLimit(Ydtext, GridInt(WglrGrid.Col, 1), KeyAscii)
  1778.                 If KeyAscii = 0 Then
  1779.                     Exit Sub
  1780.                 End If
  1781.                 
  1782.                 '写有效行数据标志
  1783.                 Call Xyxhbz(.Row)
  1784.                 Call xswbk
  1785.                 Ydtext.Text = ""
  1786.                 Valilock = True
  1787.                 SendKeys Chr(KeyAscii), wait
  1788.                 DoEvents
  1789.                 Valilock = False
  1790.                 
  1791.             End If
  1792.         End Select
  1793.     End With
  1794. End Sub
  1796. Private Sub zjlrfl()                                                    '增加录入分录
  1797.     With WglrGrid
  1798.         If Not (Ydtext.Visible Or YdCombo.Visible) Then
  1799.             If Not Fun_Drfrmyxxpd Then
  1800.                 Exit Sub
  1801.             End If
  1802.         Else
  1803.             Exit Sub
  1804.         End If
  1805.         If .Row < .FixedRows Then
  1806.             Exit Sub
  1807.         End If
  1808.         .AddItem "", .Row
  1809.         .RowHeight(.Row) = Sjhgd
  1810.         
  1811.         
  1812.         If .Row <> .Rows - 1 Then
  1813.             If .TextMatrix(.Row + 1, 0) = "*" Then
  1814.                 .TextMatrix(.Row, 0) = "*"
  1815.             Else
  1816.                 .RemoveItem .Rows - 1
  1817.             End If
  1818.         End If
  1819.         Call Xldqh
  1820.         Call Xldql
  1821.         Hyxxpdlock = False
  1822.     End With
  1823. End Sub
  1825. Private Sub Scdqfl()                                                    '删除当前分录
  1826.     Dim Answer As Integer, Scqwghz As Long, Scqwglz As Long, Hjlzte As Long, Sflrzt As Boolean
  1827.     Dim RecTemp As New ADODB.Recordset             '临时使用动态集
  1828.     Dim SqlStr As String                           '临时连接字符串
  1829.     Dim Str_NowItemCode As String                  '辅助核算项目编码(现)
  1830.     
  1831.     With WglrGrid
  1832.         Scqwghz = .Row
  1833.         Scqwglz = .Col
  1834.         If .TextMatrix(.Row, 0) = "*" Then
  1835.             
  1836.             '判断是否为录入状态
  1837.             If Ydtext.Visible Or YdCombo.Visible Then
  1838.                 Sflrzt = True
  1839.                 Validate = True
  1840.                 Call Lrsjhx
  1841.                 Validate = False
  1842.             End If
  1843.             
  1844.             Call Xldqh
  1845.             changelock = True
  1846.             .Select .Row, 0
  1847.             changelock = False
  1848.             If Shsfts Then
  1849.                 .Cell(flexcpBackColor, .Row, Qslz, .Row, .Cols - 1) = QBColor(12)
  1850.                 Tsxx = "请确认是否删除当前记录?"
  1851.                 yhAnswer = Xtxxts(Tsxx, 2, 2)
  1852.                 If yhAnswer = 2 Then
  1853.                     .Cell(flexcpBackColor, .Row, Qslz, .Row, .Cols - 1) = &H80000005
  1854.                     changelock = True
  1855.                     .Select Scqwghz, Scqwglz
  1856.                     changelock = False
  1857.                     
  1858.                     '如为录入状态,则恢复录入
  1859.                     If Sflrzt Then
  1860.                         Call xswbk
  1861.                     End If
  1862.                     
  1863.                     Exit Sub
  1864.                 End If
  1865.             End If
  1866.             
  1867.             On Error GoTo Swcwcl
  1868.             
  1869.             Cw_DataEnvi.DataConnect.BeginTrans
  1870.             
  1871.             If Val(WglrGrid.TextMatrix(.Row, 1)) <> 0 Then
  1872.                 SqlStr = "SELECT i_id From cwfx_ProfitBudgetMaster WHERE  I_id=" & Val(WglrGrid.TextMatrix(.Row, 1))
  1873.                 Set RecTemp = Cw_DataEnvi.DataConnect.Execute(SqlStr)
  1874.                 If Not RecTemp.EOF Then
  1875.                     SqlStr = "Delete cwfx_ProfitBudgetMaster Where I_id=" & Val(WglrGrid.TextMatrix(.Row, 1))
  1876.                     Cw_DataEnvi.DataConnect.Execute (SqlStr)
  1877.                 End If
  1878.             End If
  1879.             
  1880.             Cw_DataEnvi.DataConnect.CommitTrans
  1881.             
  1882.             .RemoveItem .Row
  1883.             
  1884.             If .Rows < Pmbcsjhs + .FixedRows + Fzxwghs + 1 Then
  1885.                 .AddItem ""
  1886.                 .RowHeight(.Rows - 1) = Sjhgd
  1887.             End If
  1888.             changelock = True
  1889.             .Select .Row, Scqwglz
  1890.             changelock = False
  1891.             
  1892.         End If
  1893.     End With
  1894.     
  1895.     Exit Sub
  1896.     
  1897.     '[>>事务错误处理
  1898. Swcwcl:
  1899.     Cw_DataEnvi.DataConnect.RollbackTrans
  1900.     txss = "删除过程中出现错误!"
  1901.     Call Xtxxts(Tsxx, 0, 1)
  1902.     Exit Sub
  1903.     '<<]
  1904. End Sub
  1906. Private Sub Qkwlzd(sjh As Long, Sjl As Long)                            '清空为零字段
  1907.     If Not GridBoolean(Sjl, 5) Then
  1908.         Exit Sub
  1909.     End If
  1910.     With WglrGrid
  1911.         If Val(Trim(.TextMatrix(sjh, Sjl))) = 0 Then
  1912.             .TextMatrix(sjh, Sjl) = ""
  1913.         End If
  1914.     End With
  1915. End Sub
  1917. Private Sub fhyxh()                                                     '返回录入数据有效行,同时让得到焦点网格可见
  1918.     With WglrGrid
  1919.         If .Row >= .FixedRows Then
  1920.             If .TextMatrix(.Row, 0) <> "*" Then
  1921.                 For Rowjsq = .FixedRows To .Rows - 1
  1922.                     If .TextMatrix(Rowjsq, 0) <> "*" Then
  1923.                         Exit For
  1924.                     End If
  1925.                 Next Rowjsq
  1926.                 If Rowjsq <= .Rows - 1 Then
  1927.                     changelock = True
  1928.                     .Select Rowjsq, .Col
  1929.                     changelock = False
  1930.                 Else
  1931.                     changelock = True
  1932.                     .Select .Rows - 1, .Col
  1933.                     changelock = False
  1934.                 End If
  1935.             End If
  1936.             Call Xldqh
  1937.         End If
  1938.     End With
  1939. End Sub
  1941. Private Sub Xldqh()                                                      '显露当前行
  1942.     Dim Toprowte As Long
  1943.     With WglrGrid
  1944.         Toprowte = 0
  1945.         Do While .CellTop + .RowHeight(.Row) + Fzxwghs * Sjhgd > .Height And .TopRow <> Toprowte
  1946.             Toprowte = .TopRow
  1947.             .TopRow = .TopRow + 1
  1948.         Loop
  1949.         Toprowte = 0
  1950.         Do While .CellTop < .FixedRows * .RowHeight(0) And .TopRow <> Toprowte
  1951.             Toprowte = .TopRow
  1952.             .TopRow = .TopRow - 1
  1953.         Loop
  1954.     End With
  1955. End Sub
  1957. Private Sub Xldql()                                                     '显露当前列
  1958.     Dim Leftcolte As Long
  1959.     With WglrGrid
  1960.         If .Col >= Qslz Then
  1961.             If .LeftCol > .Col Then
  1962.                 .LeftCol = .Col
  1963.             End If
  1964.             Leftcolte = 0
  1965.             Do While .CellLeft + .CellWidth > .Width And .LeftCol <> Leftcolte
  1966.                 Leftcolte = .LeftCol
  1967.                 .LeftCol = .LeftCol + 1
  1968.             Loop
  1969.         End If
  1970.     End With
  1971. End Sub
  1973. Private Function pdhwk(sjh As Long)                                     '判断网格行是否为空行(所有录入字段均为空*非录入字段除外)
  1974.     With WglrGrid
  1975.         For Coljsq = Qslz To .Cols - 1
  1976.             If Len(Trim(.TextMatrix(sjh, Coljsq))) <> 0 And GridBoolean(Coljsq, 1) Then
  1977.                 pdhwk = False
  1978.                 Exit Function
  1979.             End If
  1980.         Next Coljsq
  1981.         pdhwk = True
  1982.     End With
  1983. End Function
  1985. Private Sub Xyxhbz(sjh As Long)                                         '写行有效性标志,并判断是否增行
  1986.     With WglrGrid
  1987.         If .TextMatrix(sjh, 0) = "*" Then
  1988.             Exit Sub
  1989.         End If
  1990.         .TextMatrix(sjh, 0) = "*"
  1991.         If sjh >= .Rows - Fzxwghs - 1 Then
  1992.             .AddItem ""
  1993.             .RowHeight(.Rows - 1) = Sjhgd
  1994.         End If
  1995.     End With
  1996. End Sub
  1998. Private Sub GsToolbar_ButtonClick(ByVal Button As MSComctlLib.Button)   '表格格式设置(通用)
  1999.     Select Case Button.Key
  2000.     Case "bcgs"                              '保存表格格式
  2001.         Call Bcwggs(WglrGrid, GridCode, GridStr())
  2002.     Case "hfmrgs"                            '恢复默认格式
  2003.         Call Hfmrgs(WglrGrid, GridCode, GridStr())
  2004.     End Select
  2005. End Sub
  2007. Private Sub bbyl(bbylte As Boolean)                    '报表打印预览
  2008.     Dim Bbzbt$, Bbxbt() As String, bbxbtzzxs() As Integer, Bbxbtgs As Integer
  2009.     Dim Bbbwh() As String, Bbbwhzzxs() As Integer, Bbbwhgs As Integer
  2010.     Bbxbtgs = 1                                          '报 表 小 标 题 行 数
  2011.     Bbbwhgs = 0                                          '报 表 表 尾 行 数
  2012.     ReDim Bbxbt(1 To Bbxbtgs)
  2013.     ReDim bbxbtzzxs(1 To Bbxbtgs)
  2014.     If Bbbwhgs <> 0 Then
  2015.         ReDim Bbbwh(1 To Bbbwhgs)
  2016.         ReDim Bbbwhzzxs(1 To Bbbwhgs)
  2017.     End If
  2018.     Bbzbt = ReportTitle
  2019.     Bbxbt(1) = Space(10) + Fun_FormatOutPut("会计年度:" + Str(Int_OriYear), 28)
  2020.     
  2021.     Call Scyxsjb(WglrGrid)                               '生成报表数据
  2022.     Call Scdybb(Dyymctbl, Bbzbt, Bbxbt(), bbxbtzzxs(), Bbxbtgs, Bbbwh(), Bbbwhzzxs(), Bbbwhgs, bbylte)
  2023.     If Not bbylte Then
  2024.         Unload DY_Tybbyldy
  2025.     End If
  2026. End Sub
  2029. Private Sub ImportFromLastYear()
  2030.     SqlStr = "update cwfx_profitbudgetmaster set "
  2031.     SqlStr = SqlStr + "cwfx_profitbudgetmaster.budget_1=n.budget_1+n.add_1,"
  2032.     SqlStr = SqlStr + "cwfx_profitbudgetmaster.budget_2=n.budget_2+n.add_2,"
  2033.     SqlStr = SqlStr + "cwfx_profitbudgetmaster.budget_3=n.budget_3+n.add_3,"
  2034.     SqlStr = SqlStr + "cwfx_profitbudgetmaster.budget_4=n.budget_4+n.add_4,"
  2035.     SqlStr = SqlStr + "cwfx_profitbudgetmaster.budget_5=n.budget_5+n.add_5,"
  2036.     SqlStr = SqlStr + "cwfx_profitbudgetmaster.budget_6=n.budget_6+n.add_6,"
  2037.     SqlStr = SqlStr + "cwfx_profitbudgetmaster.budget_7=n.budget_7+n.add_7,"
  2038.     SqlStr = SqlStr + "cwfx_profitbudgetmaster.budget_8=n.budget_8+n.add_8,"
  2039.     SqlStr = SqlStr + "cwfx_profitbudgetmaster.budget_9=n.budget_9+n.add_9,"
  2040.     SqlStr = SqlStr + "cwfx_profitbudgetmaster.budget_10=n.budget_10+n.add_10,"
  2041.     SqlStr = SqlStr + "cwfx_profitbudgetmaster.budget_11=n.budget_11+n.add_11,"
  2042.     SqlStr = SqlStr + "cwfx_profitbudgetmaster.budget_12 = n.budget_12 + n.add_12"
  2043.     
  2044.     SqlStr = SqlStr + " from cwfx_profitbudgetmaster,cwfx_profitbudgetmaster as n "
  2045.     SqlStr = SqlStr + " Where cwfx_profitbudgetmaster.id = n.id And "
  2046.     SqlStr = SqlStr + " cwfx_profitbudgetmaster.Year =" & Int_OriYear & " And n.Year =" & Int_OriYear - 1
  2047.     Cw_DataEnvi.DataConnect.Execute (SqlStr)
  2049.     Tsxx = "导入完毕"
  2050.     Call Xtxxts(Tsxx, 0, 4)
  2051. End Sub