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

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

企业管理

开发平台：

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 AutoTran_DefiSy 
  5.    BackColor       =   &H00E9F4FA&
  6.    BorderStyle     =   1  'Fixed Single
  7.    Caption         =   "期间损益转帐凭证"
  8.    ClientHeight    =   7230
  9.    ClientLeft      =   675
  10.    ClientTop       =   720
  11.    ClientWidth     =   10530
  12.    Icon            =   "自动转帐凭证_期间损益转帐定义.frx":0000
  13.    KeyPreview      =   -1  'True
  14.    LinkTopic       =   "Form4"
  15.    MaxButton       =   0   'False
  16.    MinButton       =   0   'False
  17.    ScaleHeight     =   7230
  18.    ScaleWidth      =   10530
  19.    Begin VB.PictureBox Pic_Title 
  20.       Height          =   1410
  21.       Left            =   0
  22.       Picture         =   "自动转帐凭证_期间损益转帐定义.frx":1042
  23.       ScaleHeight     =   1350
  24.       ScaleWidth      =   11835
  25.       TabIndex        =   10
  26.       Top             =   570
  27.       Width           =   11895
  28.       Begin VB.CommandButton Ydcommand1 
  29.          Height          =   297
  30.          Left            =   3360
  31.          Picture         =   "自动转帐凭证_期间损益转帐定义.frx":35106
  32.          Style           =   1  'Graphical
  33.          TabIndex        =   23
  34.          Top             =   720
  35.          Visible         =   0   'False
  36.          Width           =   283
  37.       End
  38.       Begin VB.TextBox LrText 
  39.          Height          =   300
  40.          Index           =   0
  41.          Left            =   4710
  42.          TabIndex        =   1
  43.          Text            =   "0"
  44.          Top             =   690
  45.          Width           =   1693
  46.       End
  47.       Begin VB.ComboBox CmbOut_In 
  48.          Height          =   300
  49.          Left            =   7380
  50.          TabIndex        =   3
  51.          Text            =   "Combo1"
  52.          Top             =   690
  53.          Width           =   1365
  54.       End
  55.       Begin VB.TextBox LrText 
  56.          Height          =   300
  57.          Index           =   2
  58.          Left            =   7380
  59.          TabIndex        =   4
  60.          Text            =   "2"
  61.          Top             =   1050
  62.          Width           =   2535
  63.       End
  64.       Begin VB.TextBox LrText 
  65.          Height          =   300
  66.          Index           =   1
  67.          Left            =   4710
  68.          TabIndex        =   2
  69.          Text            =   "1"
  70.          Top             =   1050
  71.          Width           =   1693
  72.       End
  73.       Begin VB.Label tsLabel 
  74.          AutoSize        =   -1  'True
  75.          BackColor       =   &H80000018&
  76.          BackStyle       =   0  'Transparent
  77.          Caption         =   "期间损益转帐凭证"
  78.          BeginProperty Font 
  79.             Name            =   "宋体"
  80.             Size            =   12
  81.             Charset         =   134
  82.             Weight          =   700
  83.             Underline       =   0   'False
  84.             Italic          =   0   'False
  85.             Strikethrough   =   0   'False
  86.          EndProperty
  87.          ForeColor       =   &H00000000&
  88.          Height          =   240
  89.          Index           =   0
  90.          Left            =   570
  91.          TabIndex        =   21
  92.          Top             =   240
  93.          Width           =   2040
  94.       End
  95.       Begin VB.Label Lbl_AutoAccClassCode 
  96.          Caption         =   "Lbl_AutoAccClassCode"
  97.          Height          =   240
  98.          Left            =   1695
  99.          TabIndex        =   20
  100.          Top             =   90
  101.          Visible         =   0   'False
  102.          Width           =   1980
  103.       End
  104.       Begin VB.Label Lbl_AutoAccClassName 
  105.          AutoSize        =   -1  'True
  106.          BackStyle       =   0  'Transparent
  107.          Caption         =   "Lbl_AutoAccClassName"
  108.          Height          =   240
  109.          Left            =   1350
  110.          TabIndex        =   19
  111.          Top             =   780
  112.          Width           =   1830
  113.       End
  114.       Begin VB.Label Lbl_AutoAccCode 
  115.          Caption         =   "Lbl_AutoAccCode"
  116.          Height          =   240
  117.          Left            =   180
  118.          TabIndex        =   18
  119.          Top             =   90
  120.          Visible         =   0   'False
  121.          Width           =   1380
  122.       End
  123.       Begin VB.Label Lbl_AutoAccName 
  124.          AutoSize        =   -1  'True
  125.          BackStyle       =   0  'Transparent
  126.          Caption         =   "Lbl_AutoAccName"
  127.          Height          =   240
  128.          Left            =   1350
  129.          TabIndex        =   17
  130.          Top             =   1110
  131.          Width           =   1575
  132.       End
  133.       Begin VB.Label tsLabel 
  134.          AutoSize        =   -1  'True
  135.          BackStyle       =   0  'Transparent
  136.          Caption         =   "转帐名称:"
  137.          Height          =   180
  138.          Index           =   2
  139.          Left            =   450
  140.          TabIndex        =   16
  141.          Top             =   1110
  142.          Width           =   810
  143.       End
  144.       Begin VB.Label tsLabel 
  145.          AutoSize        =   -1  'True
  146.          BackStyle       =   0  'Transparent
  147.          Caption         =   "凭证类别:"
  148.          Height          =   180
  149.          Index           =   1
  150.          Left            =   450
  151.          TabIndex        =   15
  152.          Top             =   780
  153.          Width           =   810
  154.       End
  155.       Begin VB.Label Label4 
  156.          AutoSize        =   -1  'True
  157.          BackStyle       =   0  'Transparent
  158.          Caption         =   "收支:"
  159.          Height          =   180
  160.          Left            =   6840
  161.          TabIndex        =   14
  162.          Top             =   780
  163.          Width           =   450
  164.       End
  165.       Begin VB.Label Label3 
  166.          AutoSize        =   -1  'True
  167.          BackStyle       =   0  'Transparent
  168.          Caption         =   "摘要:"
  169.          Height          =   180
  170.          Left            =   6840
  171.          TabIndex        =   13
  172.          Top             =   1110
  173.          Width           =   450
  174.       End
  175.       Begin VB.Label Label2 
  176.          AutoSize        =   -1  'True
  177.          BackStyle       =   0  'Transparent
  178.          Caption         =   "本年利润科目:"
  179.          Height          =   180
  180.          Left            =   3420
  181.          TabIndex        =   12
  182.          Top             =   1110
  183.          Width           =   1170
  184.       End
  185.       Begin VB.Label Label1 
  186.          AutoSize        =   -1  'True
  187.          BackStyle       =   0  'Transparent
  188.          Caption         =   "损益科目:"
  189.          Height          =   180
  190.          Left            =   3780
  191.          TabIndex        =   11
  192.          Top             =   780
  193.          Width           =   810
  194.       End
  195.    End
  196.    Begin VSFlex8Ctl.VSFlexGrid WglrGrid 
  197.       Height          =   5250
  198.       Left            =   0
  199.       TabIndex        =   5
  200.       Top             =   1950
  201.       Width           =   10530
  202.       _cx             =   5080
  203.       _cy             =   5080
  204.       Appearance      =   1
  205.       BorderStyle     =   1
  206.       Enabled         =   -1  'True
  207.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  208.          Name            =   "宋体"
  209.          Size            =   9
  210.          Charset         =   134
  211.          Weight          =   400
  212.          Underline       =   0   'False
  213.          Italic          =   0   'False
  214.          Strikethrough   =   0   'False
  215.       EndProperty
  216.       MousePointer    =   0
  217.       BackColor       =   -2147483643
  218.       ForeColor       =   -2147483640
  219.       BackColorFixed  =   -2147483633
  220.       ForeColorFixed  =   -2147483630
  221.       BackColorSel    =   -2147483635
  222.       ForeColorSel    =   -2147483634
  223.       BackColorBkg    =   -2147483632
  224.       BackColorAlternate=   -2147483643
  225.       GridColor       =   -2147483633
  226.       GridColorFixed  =   -2147483632
  227.       TreeColor       =   -2147483632
  228.       FloodColor      =   192
  229.       SheetBorder     =   -2147483642
  230.       FocusRect       =   1
  231.       HighLight       =   1
  232.       AllowSelection  =   -1  'True
  233.       AllowBigSelection=   -1  'True
  234.       AllowUserResizing=   0
  235.       SelectionMode   =   0
  236.       GridLines       =   1
  237.       GridLinesFixed  =   2
  238.       GridLineWidth   =   1
  239.       Rows            =   5000
  240.       Cols            =   10
  241.       FixedRows       =   1
  242.       FixedCols       =   0
  243.       RowHeightMin    =   0
  244.       RowHeightMax    =   0
  245.       ColWidthMin     =   0
  246.       ColWidthMax     =   0
  247.       ExtendLastCol   =   0   'False
  248.       FormatString    =   ""
  249.       ScrollTrack     =   0   'False
  250.       ScrollBars      =   3
  251.       ScrollTips      =   0   'False
  252.       MergeCells      =   0
  253.       MergeCompare    =   0
  254.       AutoResize      =   -1  'True
  255.       AutoSizeMode    =   0
  256.       AutoSearch      =   0
  257.       AutoSearchDelay =   2
  258.       MultiTotals     =   -1  'True
  259.       SubtotalPosition=   1
  260.       OutlineBar      =   0
  261.       OutlineCol      =   0
  262.       Ellipsis        =   0
  263.       ExplorerBar     =   0
  264.       PicturesOver    =   0   'False
  265.       FillStyle       =   0
  266.       RightToLeft     =   0   'False
  267.       PictureType     =   0
  268.       TabBehavior     =   0
  269.       OwnerDraw       =   0
  270.       Editable        =   0
  271.       ShowComboButton =   1
  272.       WordWrap        =   0   'False
  273.       TextStyle       =   0
  274.       TextStyleFixed  =   0
  275.       OleDragMode     =   0
  276.       OleDropMode     =   0
  277.       DataMode        =   0
  278.       VirtualData     =   -1  'True
  279.       DataMember      =   ""
  280.       ComboSearch     =   3
  281.       AutoSizeMouse   =   -1  'True
  282.       FrozenRows      =   0
  283.       FrozenCols      =   0
  284.       AllowUserFreezing=   0
  285.       BackColorFrozen =   0
  286.       ForeColorFrozen =   0
  287.       WallPaperAlignment=   9
  288.       AccessibleName  =   ""
  289.       AccessibleDescription=   ""
  290.       AccessibleValue =   ""
  291.       AccessibleRole  =   24
  292.    End
  293.    Begin VB.Timer Timer1 
  294.       Interval        =   1
  295.       Left            =   0
  296.       Top             =   960
  297.    End
  298.    Begin MSComctlLib.Toolbar Tlb_Action 
  299.       Align           =   1  'Align Top
  300.       Height          =   555
  301.       Left            =   0
  302.       TabIndex        =   6
  303.       Top             =   0
  304.       Width           =   10530
  305.       _ExtentX        =   18574
  306.       _ExtentY        =   979
  307.       ButtonWidth     =   820
  308.       ButtonHeight    =   926
  309.       AllowCustomize  =   0   'False
  310.       Wrappable       =   0   'False
  311.       Appearance      =   1
  312.       Style           =   1
  313.       ImageList       =   "ImageList1"
  314.       _Version        =   393216
  315.       BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628} 
  316.          NumButtons      =   13
  317.          BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  318.             Caption         =   "设置"
  319.             Key             =   "ymsz"
  320.             Object.ToolTipText     =   "打印页面设置"
  321.             ImageKey        =   "sz"
  322.          EndProperty
  323.          BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  324.             Caption         =   "打印"
  325.             Key             =   "dy"
  326.             Object.ToolTipText     =   "打印当前单据或Ctrl+P"
  327.             ImageKey        =   "dy"
  328.          EndProperty
  329.          BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  330.             Caption         =   "预览"
  331.             Key             =   "yl"
  332.             ImageKey        =   "yl"
  333.          EndProperty
  334.          BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  335.             Style           =   3
  336.          EndProperty
  337.          BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  338.             Caption         =   "编辑"
  339.             Key             =   "xg"
  340.             Object.ToolTipText     =   "修改当前单据或F3"
  341.             ImageKey        =   "xg"
  342.          EndProperty
  343.          BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  344.             Key             =   "fgh0"
  345.             Style           =   3
  346.          EndProperty
  347.          BeginProperty Button7 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  348.             Caption         =   "自动"
  349.             Key             =   "Fill"
  350.             ImageKey        =   "zd"
  351.          EndProperty
  352.          BeginProperty Button8 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  353.             Style           =   3
  354.          EndProperty
  355.          BeginProperty Button9 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  356.             Caption         =   "保存"
  357.             Key             =   "bc"
  358.             Object.ToolTipText     =   "保存单据或F6"
  359.             ImageKey        =   "bc"
  360.          EndProperty
  361.          BeginProperty Button10 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  362.             Caption         =   "放弃"
  363.             Key             =   "fq"
  364.             Object.ToolTipText     =   "放弃此次操作"
  365.             ImageKey        =   "fq"
  366.          EndProperty
  367.          BeginProperty Button11 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  368.             Key             =   "fgh2"
  369.             Style           =   3
  370.          EndProperty
  371.          BeginProperty Button12 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  372.             Caption         =   "帮助"
  373.             Key             =   "bz"
  374.             ImageKey        =   "bz"
  375.          EndProperty
  376.          BeginProperty Button13 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  377.             Caption         =   "退出"
  378.             Key             =   "fh"
  379.             ImageKey        =   "tc"
  380.          EndProperty
  381.       EndProperty
  382.       BorderStyle     =   1
  383.       Begin MSComctlLib.Toolbar GsToolbar 
  384.          Height          =   525
  385.          Left            =   8820
  386.          TabIndex        =   7
  387.          Top             =   0
  388.          Width           =   1695
  389.          _ExtentX        =   2990
  390.          _ExtentY        =   926
  391.          ButtonWidth     =   1455
  392.          ButtonHeight    =   926
  393.          AllowCustomize  =   0   'False
  394.          Appearance      =   1
  395.          Style           =   1
  396.          ImageList       =   "ImageList1"
  397.          _Version        =   393216
  398.          BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628} 
  399.             NumButtons      =   2
  400.             BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  401.                Caption         =   "保存格式"
  402.                Key             =   "bcgs"
  403.                ImageKey        =   "bcgs"
  404.             EndProperty
  405.             BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  406.                Caption         =   "默认列宽"
  407.                Key             =   "hfmrgs"
  408.                ImageKey        =   "mrlk"
  409.             EndProperty
  410.          EndProperty
  411.       End
  412.    End
  413.    Begin MSComctlLib.ImageList ImageList1 
  414.       Left            =   0
  415.       Top             =   1200
  416.       _ExtentX        =   1005
  417.       _ExtentY        =   1005
  418.       BackColor       =   -2147483643
  419.       ImageWidth      =   16
  420.       ImageHeight     =   16
  421.       MaskColor       =   12632256
  422.       _Version        =   393216
  423.       BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628} 
  424.          NumListImages   =   38
  425.          BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  426.             Picture         =   "自动转帐凭证_期间损益转帐定义.frx":35490
  427.             Key             =   "sz"
  428.          EndProperty
  429.          BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  430.             Picture         =   "自动转帐凭证_期间损益转帐定义.frx":3582A
  431.             Key             =   "dy"
  432.          EndProperty
  433.          BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  434.             Picture         =   "自动转帐凭证_期间损益转帐定义.frx":35BC4
  435.             Key             =   "yl"
  436.          EndProperty
  437.          BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  438.             Picture         =   "自动转帐凭证_期间损益转帐定义.frx":35F5E
  439.             Key             =   "xg"
  440.          EndProperty
  441.          BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  442.             Picture         =   "自动转帐凭证_期间损益转帐定义.frx":362F8
  443.             Key             =   "zh"
  444.          EndProperty
  445.          BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  446.             Picture         =   "自动转帐凭证_期间损益转帐定义.frx":36692
  447.             Key             =   "sh"
  448.          EndProperty
  449.          BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  450.             Picture         =   "自动转帐凭证_期间损益转帐定义.frx":36A2C
  451.             Key             =   "bc"
  452.          EndProperty
  453.          BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  454.             Picture         =   "自动转帐凭证_期间损益转帐定义.frx":36DC6
  455.             Key             =   "fq"
  456.          EndProperty
  457.          BeginProperty ListImage9 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  458.             Picture         =   "自动转帐凭证_期间损益转帐定义.frx":37160
  459.             Key             =   "bz"
  460.          EndProperty
  461.          BeginProperty ListImage10 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  462.             Picture         =   "自动转帐凭证_期间损益转帐定义.frx":374FA
  463.             Key             =   "tc"
  464.          EndProperty
  465.          BeginProperty ListImage11 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  466.             Picture         =   "自动转帐凭证_期间损益转帐定义.frx":37894
  467.             Key             =   "bcgs"
  468.          EndProperty
  469.          BeginProperty ListImage12 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  470.             Picture         =   "自动转帐凭证_期间损益转帐定义.frx":37C2E
  471.             Key             =   "mrlk"
  472.          EndProperty
  473.          BeginProperty ListImage13 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  474.             Picture         =   "自动转帐凭证_期间损益转帐定义.frx":37FC8
  475.             Key             =   "xsxm"
  476.          EndProperty
  477.          BeginProperty ListImage14 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  478.             Picture         =   "自动转帐凭证_期间损益转帐定义.frx":38362
  479.             Key             =   "first"
  480.          EndProperty
  481.          BeginProperty ListImage15 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  482.             Picture         =   "自动转帐凭证_期间损益转帐定义.frx":386FC
  483.             Key             =   "prev"
  484.          EndProperty
  485.          BeginProperty ListImage16 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  486.             Picture         =   "自动转帐凭证_期间损益转帐定义.frx":38A96
  487.             Key             =   "next"
  488.          EndProperty
  489.          BeginProperty ListImage17 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  490.             Picture         =   "自动转帐凭证_期间损益转帐定义.frx":38E30
  491.             Key             =   "last"
  492.          EndProperty
  493.          BeginProperty ListImage18 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  494.             Picture         =   "自动转帐凭证_期间损益转帐定义.frx":391CA
  495.             Key             =   "xx"
  496.          EndProperty
  497.          BeginProperty ListImage19 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  498.             Picture         =   "自动转帐凭证_期间损益转帐定义.frx":39564
  499.             Key             =   "define"
  500.          EndProperty
  501.          BeginProperty ListImage20 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  502.             Picture         =   "自动转帐凭证_期间损益转帐定义.frx":398FE
  503.             Key             =   "exec"
  504.          EndProperty
  505.          BeginProperty ListImage21 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  506.             Picture         =   "自动转帐凭证_期间损益转帐定义.frx":39C98
  507.             Key             =   "xz"
  508.          EndProperty
  509.          BeginProperty ListImage22 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  510.             Picture         =   "自动转帐凭证_期间损益转帐定义.frx":3A032
  511.             Key             =   "sc"
  512.          EndProperty
  513.          BeginProperty ListImage23 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  514.             Picture         =   "自动转帐凭证_期间损益转帐定义.frx":3A3CC
  515.             Key             =   "sx"
  516.          EndProperty
  517.          BeginProperty ListImage24 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  518.             Picture         =   "自动转帐凭证_期间损益转帐定义.frx":3A766
  519.             Key             =   "cx"
  520.          EndProperty
  521.          BeginProperty ListImage25 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  522.             Picture         =   "自动转帐凭证_期间损益转帐定义.frx":3AB00
  523.             Key             =   "zd"
  524.          EndProperty
  525.          BeginProperty ListImage26 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  526.             Picture         =   "自动转帐凭证_期间损益转帐定义.frx":3AE9A
  527.             Key             =   "dz"
  528.          EndProperty
  529.          BeginProperty ListImage27 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  530.             Picture         =   "自动转帐凭证_期间损益转帐定义.frx":3B234
  531.             Key             =   "ph"
  532.          EndProperty
  533.          BeginProperty ListImage28 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  534.             Picture         =   "自动转帐凭证_期间损益转帐定义.frx":3B5CE
  535.             Key             =   "fz"
  536.          EndProperty
  537.          BeginProperty ListImage29 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  538.             Picture         =   "自动转帐凭证_期间损益转帐定义.frx":3B968
  539.             Key             =   "dw"
  540.          EndProperty
  541.          BeginProperty ListImage30 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  542.             Picture         =   "自动转帐凭证_期间损益转帐定义.frx":3BD02
  543.             Key             =   "hf"
  544.          EndProperty
  545.          BeginProperty ListImage31 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  546.             Picture         =   "自动转帐凭证_期间损益转帐定义.frx":3C09C
  547.             Key             =   "pz"
  548.          EndProperty
  549.          BeginProperty ListImage32 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  550.             Picture         =   "自动转帐凭证_期间损益转帐定义.frx":3C436
  551.             Key             =   "check"
  552.          EndProperty
  553.          BeginProperty ListImage33 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  554.             Picture         =   "自动转帐凭证_期间损益转帐定义.frx":3C7D0
  555.             Key             =   "qs"
  556.          EndProperty
  557.          BeginProperty ListImage34 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  558.             Picture         =   "自动转帐凭证_期间损益转帐定义.frx":3CB6A
  559.             Key             =   "fullcheck"
  560.          EndProperty
  561.          BeginProperty ListImage35 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  562.             Picture         =   "自动转帐凭证_期间损益转帐定义.frx":3CF04
  563.             Key             =   "qq"
  564.          EndProperty
  565.          BeginProperty ListImage36 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  566.             Picture         =   "自动转帐凭证_期间损益转帐定义.frx":3D29E
  567.             Key             =   "bcw"
  568.          EndProperty
  569.          BeginProperty ListImage37 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  570.             Picture         =   "自动转帐凭证_期间损益转帐定义.frx":3D638
  571.             Key             =   "ye"
  572.          EndProperty
  573.          BeginProperty ListImage38 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  574.             Picture         =   "自动转帐凭证_期间损益转帐定义.frx":3D9D2
  575.             Key             =   ""
  576.          EndProperty
  577.       EndProperty
  578.    End
  579.    Begin VB.Label Lab_OperStatus 
  580.       BackColor       =   &H000080FF&
  581.       Caption         =   "1"
  582.       Height          =   360
  583.       Left            =   0
  584.       TabIndex        =   22
  585.       Top             =   0
  586.       Visible         =   0   'False
  587.       Width           =   375
  588.    End
  589.    Begin VB.Label Lab_GetName 
  590.       Caption         =   "Lab_GetName"
  591.       Height          =   255
  592.       Left            =   7320
  593.       TabIndex        =   9
  594.       Top             =   780
  595.       Visible         =   0   'False
  596.       Width           =   1065
  597.    End
  598.    Begin VB.Label Lab_Pzclzt 
  599.       BackColor       =   &H0000FFFF&
  600.       Caption         =   "2"
  601.       ForeColor       =   &H00808080&
  602.       Height          =   330
  603.       Left            =   1140
  604.       TabIndex        =   8
  605.       Top             =   870
  606.       Visible         =   0   'False
  607.       Width           =   405
  608.    End
  609.    Begin VB.Label tsLabel 
  610.       AutoSize        =   -1  'True
  611.       BackColor       =   &H80000018&
  612.       BackStyle       =   0  'Transparent
  613.       Caption         =   "期间损益结转"
  614.       BeginProperty Font 
  615.          Name            =   "楷体_GB2312"
  616.          Size            =   15.75
  617.          Charset         =   134
  618.          Weight          =   700
  619.          Underline       =   0   'False
  620.          Italic          =   0   'False
  621.          Strikethrough   =   0   'False
  622.       EndProperty
  623.       ForeColor       =   &H00000000&
  624.       Height          =   315
  625.       Index           =   6
  626.       Left            =   4095
  627.       TabIndex        =   0
  628.       Top             =   765
  629.       Width           =   2085
  630.    End
  631.    Begin VB.Line Line1 
  632.       BorderColor     =   &H000000FF&
  633.       Index           =   0
  634.       X1              =   3765
  635.       X2              =   6416
  636.       Y1              =   1110
  637.       Y2              =   1110
  638.    End
  639.    Begin VB.Line Line1 
  640.       BorderColor     =   &H000000FF&
  641.       Index           =   1
  642.       X1              =   3765
  643.       X2              =   6416
  644.       Y1              =   1140
  645.       Y2              =   1140
  646.    End
  647. End
  648. Attribute VB_Name = "AutoTran_DefiSy"
  649. Attribute VB_GlobalNameSpace = False
  650. Attribute VB_Creatable = False
  651. Attribute VB_PredeclaredId = True
  652. Attribute VB_Exposed = False
  653. '*********************************************************************************************************
  654. '*    模 块 名 称 :期间损益转帐凭证编辑
  655. '*    功 能 描 述 :此功能模块主要完成期间损益转帐凭证的定义、修改、预览打印等。
  656. '*    程序员姓名  : 姜冬梅
  657. '*    最后修改人  : 姜冬梅
  658. '*    开始设计时间：2001/1/10
  659. '*    最后修改时间:
  660. '*    备        注:程序中所有依实际情况自定义部分均用[>>  <<]括起
  661. '*
  662. '*    1.每次调入外部功能窗体，均要加锁ChangeLock=True,窗体关闭后解锁ChangeLock=false
  663. '*
  664. '*    2.网格列存储内容注解
  665. '*
  666. '*    3.Lab_OperStatus 用此标签来标识单据录入状态(默认值为1) "1"-浏览 "2"-新增 "3"-修改
  667. '*
  668. '*    4.Lab_Pzclzt 用此标签来标识凭证处理状态(默认值为1) "1"-填制凭证 "2"-查询凭证列表 "3"-审核凭证
  669. '*
  670. '*    5.原则:只要单据能够存盘(无论修改或新增)则其必须接受完整性及有效性规则检查
  671. '*    6.期间损益科目的结转全部结转到本年利润
  672. '*********************************************************************************************************
  673.  
  674.  '[以下为根据实际情况设置变量
  675.     Dim Jsqte  As Long                              '临时计数器
  676.     Dim Sqlstr As String                            '临时的SQL字符串
  677.     Dim RecTemp As New ADODB.Recordset              '临时使用动态集
  678.     Dim Rec_AutoAccItem As New ADODB.Recordset      '转帐项目记录集
  679.     Dim TranClassCode As String                     '转帐类别编码
  680.  ']
  681.  
  682.  '以下为固定使用变量(网格)
  683.     Dim Cxnrrec As New ADODB.Recordset              '显示查询内容动态集
  684.     Dim Dyymctbl As New DY_Dyymsz                   '打印页面窗体变量
  685.     Dim GridCode As String                          '显示网格网格代码
  686.     Dim GridInf() As Variant                        '整个网格设置信息
  687.     Dim ReportTitle As String                       '报表主标题
  688.     Dim Tsxx As String                              '系统提示信息
  689.     Dim Pmbcsjhs As Long                            '屏幕网格保持数据行数(大于等于1)
  690.     Dim Fzxwghs As Integer                          '辅助项网格行数(包括合计行)
  691.     Dim Sfxshjwg As Boolean                         '是否显示合计网格
  692.     Dim Qslz As Long                                '网格隐藏(非操作显示)列数
  693.     Dim Sjhgd As Double                             '网格数据行高度
  694.     Dim GridBoolean() As Boolean                    '网格列信息(布尔型)
  695.     Dim GridStr()  As String                        '网格列信息(字符型)
  696.     Dim GridInt() As Integer                        '网格列信息(整型)
  697.     Dim Sfblbzkd As Boolean                         '是否保留帮助宽度(字段提供帮助时,是否为按钮保留空间)
  698.     Dim changelock As Boolean                       '网格行列改变控制锁(用来区别用户改变.程序改变)
  699.     Dim Valilock As Boolean                         '文本框失去焦点是否进行有效性控制(TRUE 为锁定*限用网格录入)
  700.     Dim Szzls As Integer                            '网格信息数组最大下标值(网格列数-1)
  701.     
  702.     '以下为固定使用变量(文本框)
  703.     Dim Textvar() As Variant                        '存储变体型文本框信息
  704.     Dim Textboolean() As Boolean                    '存储布尔型文本框信息
  705.     Dim Textint() As Integer                        '存储整型文本框信息
  706.     Dim Textstr() As String                         '存储字符型文本框信息
  707.     Dim Max_Text_Index As Integer                   '最大录入文本框索引值
  708.     Dim TextGroupCode As String                     '文本框录入分组编码
  709.     Dim TextValiLock As Boolean                     '文本框失去焦点是否进行有效性控制判断
  710.     Dim TextValiJudgeLock() As Boolean              '文本框录入有效性判断控制锁,=True时光标离开不需要马上进行判断
  711.     '=False时,即允许马上进行有效性验证。
  712.     Dim CurTextIndex As Integer                     '当前文本框索引值
  713.     Dim TextChangeLock As Boolean                   '文本框内容变换控制锁.=True时屏蔽LrText.Change事件，=False时则执行。
  714.      '=True时，关闭Change事件，当新增记录填充网格、取消操作、按帮助按纽时均需关闭CHANGE事件。
  715.     Dim Bln_Cancel As Boolean                       '取消按钮信息传递
  716.     
  719. Private Sub Form_KeyPress(KeyAscii As Integer)       '控 制 焦 点 转 移
  720.     Dim jdzygs As Integer
  721.     jdzygs = 10
  722.     Select Case KeyAscii
  723.     Case vbKeyReturn
  724.         If Kjjdzy(jdzygs) Then
  725.             KeyAscii = 0
  726.         End If
  727.     Case 39           '屏蔽字符"'"
  728.         KeyAscii = 0
  729.     End Select
  730. End Sub
  732. Private Sub Form_Load()                              '窗 体 装 入
  733.     
  734.     TranClassCode = AutoTran_TranList.TranClassCode
  735.     '报表主标题及报表编码
  736.     ReportTitle = "期间损益结转"
  737.     XtReportCode = "Cwzz_AutoAccDefiMy"
  738.     Load Dyymctbl
  739.     
  740.     '调 入 网 格
  741.     GridCode = "Cwzz_AutoAccDefiSy "          '网格属性编码"
  742.     Call BzWgcsh(WglrGrid, GridCode, GridInf(), GridBoolean(), GridInt(), GridStr())
  743.     
  744.     Qslz = GridInf(1)
  745.     Sjhgd = GridInf(2)
  746.     Pmbcsjhs = GridInf(3)
  747.     Fzxwghs = GridInf(4)
  748.     Sfblbzkd = GridInf(5)
  749.     Shsfts = GridInf(6)
  750.     Sfxshjwg = GridInf(7)
  751.     Szzls = WglrGrid.Cols - 1
  752.     For Jsqte = WglrGrid.FixedRows To WglrGrid.Rows - 1
  753.         WglrGrid.RowHeight(Jsqte) = Sjhgd
  754.     Next Jsqte
  755.     
  756.     '填充收支方向
  757.     Call FillCombo(CmbOut_In, "Cwzz_OutIn", "", 0)
  758.     
  759.     '调入文本框
  760.     TextGroupCode = "Cwzz_AutoAccDefiSy"
  761.     Call Drwbkxx(TextGroupCode, Textvar(), Textboolean(), Textint(), Textstr())  '读入文本框录入信息
  762.     Call Wbkcsh
  763.     Call Cxnrtcwg
  764.     
  765.     
  766.     '装入会计科目编码帮助窗体(为加快参照速度)PZ_FrmKjkmcz
  767.     Load PZ_FrmKjkmcz
  768.     Lab_OperStatus = 3
  769.     
  770. End Sub
  772. Private Sub Cxnrtcwg()                               '查 询 内 容 填 充 网 格
  773.     '读入凭证类别，转帐名称
  774.     With AutoTran_TranList.CzxsGrid
  775.         Lbl_AutoAccCode.Caption = .Tag
  776.     End With
  777.     Sqlstr = "SELECT Cwzz_AutoTranMain.VouchClassCode, Cwzz_VouchClass.VouchClassName, " & _
  778.     " Cwzz_AutoTranMain.TranName , Cwzz_AutoTranMain.TranCode FROM Cwzz_AutoTranMain " & _
  779.     "left OUTER JOIN Cwzz_VouchClass ON " & _
  780.     "Cwzz_VouchClass.VouchClassCode = Cwzz_AutoTranMain.VouchClassCode where TranCode='" & Lbl_AutoAccCode.Caption & "' and TranClass='" & TranClassCode & "'"
  781.     Set RecTemp = Cw_DataEnvi.DataConnect.Execute(Sqlstr)
  782.     Lbl_AutoAccName.Caption = Trim(RecTemp.Fields("TranName"))
  783.     Lbl_AutoAccClassCode.Caption = Trim(RecTemp.Fields("VouchClassCode"))
  784.     Lbl_AutoAccClassName.Caption = Trim(RecTemp.Fields("VouchClassName"))
  785.     RecTemp.Close
  786.     '设置操作状态为浏览
  787.     Lab_OperStatus.Caption = "1"
  788.     
  789.     '设置工具条状态
  790.     Call Sub_OperStatus("11")
  791.     
  792.     '显示整张单据信息
  793.     Call Sub_ShowBill
  794.     '修改]
  795. End Sub
  797. Private Sub Wbkcsh()                          '录入文本框初始化
  798.     
  799.     '最大录入文本框索引值
  800.     Max_Text_Index = Textvar(1)
  801.     
  802.     ReDim TextValiJudgeLock(Max_Text_Index)
  803.     For Jsqte = 0 To Max_Text_Index
  804.         If Len(Trim(Textstr(Jsqte, 1))) <> 0 Then
  805.             TextChangeLock = True
  806.             LrText(Jsqte).Text = ""
  807.             LrText(Jsqte).Tag = ""
  808.             If Textint(Jsqte, 5) <> 0 Then
  809.                 LrText(Jsqte).MaxLength = Textint(Jsqte, 5)
  810.             End If
  811.             TextChangeLock = False
  812.         End If
  813.         TextValiJudgeLock(Jsqte) = True
  814.     Next Jsqte
  815. End Sub
  817. Private Sub Form_Unload(Cancel As Integer)           '窗体卸载
  818.     '卸载打印页面窗体
  819.     Unload Dyymctbl
  820.     
  821.     '卸载会计科目编码参照窗体
  822.     PZ_FrmKjkmcz.UnloadCheck.Value = 1
  823.     Unload PZ_FrmKjkmcz
  824.     Set Rec_AutoAccItem = Nothing
  825.     Set RecTemp = Nothing
  826. End Sub
  828. Private Sub Sub_ShowBill()                                          '根据当前单据号显示整张单据内容
  829.     With WglrGrid
  830.         .Rows = Pmbcsjhs + .FixedRows + Fzxwghs + 1
  831.         For Jsqte = .FixedRows To .Rows - 1
  832.             .RowHeight(Jsqte) = Sjhgd
  833.         Next Jsqte
  834.     End With
  835.     Sqlstr = "SELECT Cwzz_AutoTranItem.TranClass, Cwzz_AutoTranItem.TranCode, " & _
  836.     "Cwzz_AutoTranItem.Ccode, Cwzz_AutoTranItem.GetCcode," & _
  837.     "Cwzz_AccCode1.Cname AS GetName, Cwzz_AccCode.Cname as Cname," & _
  838.     "Cwzz_AutoTranItem.Digest, Cwzz_AutoTranItem.TranOri," & _
  839.     "Cwzz_AutoTranItem.TranProp FROM Cwzz_AccCode Cwzz_AccCode1 RIGHT OUTER JOIN " & _
  840.     "Cwzz_AutoTranItem ON Cwzz_AccCode1.Ccode = Cwzz_AutoTranItem.GetCcode LEFT OUTER JOIN " & _
  841.     "Cwzz_AccCode ON Cwzz_AutoTranItem.Ccode = Cwzz_AccCode.Ccode LEFT OUTER JOIN " & _
  842.     "Cwzz_AutoTranMain ON Cwzz_AutoTranItem.TranCode = Cwzz_AutoTranMain.TranCode AND " & _
  843.     "Cwzz_AutoTranItem.TranClass = Cwzz_AutoTranMain.TranClass " & _
  844.     "where Cwzz_AutoTranItem.TranCode='" & Lbl_AutoAccCode.Caption & "'" & _
  845.     "and Cwzz_AutoTranItem.tranclass='" & TranClassCode & "' and Cwzz_AutoTranItem.FormulaCode<>'05'" & _
  846.     " order by AutoTranId"
  847.     Set RecTemp = Cw_DataEnvi.DataConnect.Execute(Sqlstr)
  848.     With RecTemp
  849.         WglrGrid.Clear 1
  850.         If .EOF Then
  851.             Exit Sub
  852.         End If
  853.         
  854.         '[>>显示单据头
  855.         Call Bill_Head_Show
  856.         Jsqte = WglrGrid.FixedRows
  857.         Do While Not .EOF
  858.             If Jsqte >= WglrGrid.Rows Then
  859.                 WglrGrid.AddItem ""
  860.             End If
  861.             '[>>显示单据分录
  862.             WglrGrid.TextMatrix(Jsqte, 0) = "*"
  863.             WglrGrid.TextMatrix(Jsqte, Sydz("001", GridStr(), Szzls)) = Trim(.Fields("Digest") & "")         '摘 要
  864.             WglrGrid.TextMatrix(Jsqte, Sydz("002", GridStr(), Szzls)) = Trim(.Fields("Ccode"))               '转帐科目编码
  865.             WglrGrid.TextMatrix(Jsqte, Sydz("003", GridStr(), Szzls)) = Trim(.Fields("Cname") & "")          '科目名称
  866.             WglrGrid.TextMatrix(Jsqte, Sydz("004", GridStr(), Szzls)) = Trim(.Fields("TranOri") & "")        '转帐性质
  867.             WglrGrid.TextMatrix(Jsqte, Sydz("005", GridStr(), Szzls)) = Trim(LrText(1).Text)                 '利润科目
  868.             WglrGrid.TextMatrix(Jsqte, Sydz("006", GridStr(), Szzls)) = Trim(Lab_GetName.Caption)            '科目名称
  869.             '<<]
  870.             WglrGrid.RowHeight(Jsqte) = Sjhgd
  871.             .MoveNext
  872.             Jsqte = Jsqte + 1
  873.         Loop
  874.     End With
  875. End Sub
  877. Private Sub Tlb_Action_ButtonClick(ByVal Button As MSComctlLib.Button)             '用户点击工具条
  878.     
  879.     '屏蔽文本框,下拉组合框有效性判断,即在网格单元内录入数据时,点帮助信息等,不执行文本框等验证,即不执行YdText或YdCombo的LostFocus事件.
  880.     Valilock = True
  881.     
  882.     '屏蔽网格失去焦点产生的有效性判断
  883.     changelock = True
  884.     Select Case Button.Key
  885.     Case "ymsz"                                          '页面设置
  886.         Dyymctbl.Show 1
  887.     Case "yl"                                            '预 览
  888.         Call bbyl(True)
  889.     Case "dy"                                            '打 印
  890.         Call bbyl(False)
  891.     Case "xg"                                            '修 改
  892.         Call Sub_EditBill
  893.     Case "Fill"                                         '填充关系
  894.         Call Fill_Relation
  895.     Case "bc"                                            '保 存
  896.         Call Sub_SaveBill
  897.     Case "fq"                                            '放 弃
  898.         Call Sub_AbandonBill
  899.     Case "bz"                                            '帮 助
  900.         Call F1bz
  901.     Case "fh"                                            '退 出
  902.         Unload Me
  903.     End Select
  904.     '解 锁
  905.     Valilock = False
  906.     changelock = False
  907. End Sub
  909. Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)        '支持热键操作，更确切地讲，是工具栏热键
  910.     If Shift = 2 Then   'Ctrl的位屏蔽值=2
  911.         Select Case UCase(Chr(KeyCode))
  912.         Case "P"                   'Ctrl+P 打印
  913.             If Tlb_Action.Buttons("dy").Enabled Then Call bbyl(False)
  914.         End Select
  915.     End If
  916.     Select Case KeyCode
  917.     Case vbKeyF3          '修改
  918.         If Tlb_Action.Buttons("xg").Enabled Then
  919.             Call Sub_EditBill
  920.         End If
  921.     Case vbKeyF6          '保存凭证
  922.         If Tlb_Action.Buttons("bc").Enabled Then
  923.             Call Sub_SaveBill
  924.         End If
  925.     End Select
  926. End Sub
  928. Private Sub Sub_OperStatus(Str_Status As String)                 '工具条依据不同状态所进行的变化
  929.     With Tlb_Action
  930.         Select Case Str_Status
  931.         Case "10"   '浏览(系统进入、放弃新增单据、填制凭证时删除单据,凭证审核)
  932.             '工具条
  933.             .Buttons("dy").Enabled = True      '打印
  934.             .Buttons("yl").Enabled = True      '预览
  935.             .Buttons("xg").Enabled = False     '修改
  936.             .Buttons("Fill").Enabled = False     '填充
  937.             
  938.             .Buttons("zh").Enabled = False     '增行
  939.             .Buttons("sh").Enabled = False     '删行
  940.             .Buttons("cx").Enabled = True      '查询
  941.             .Buttons("bc").Enabled = False     '保存
  942.             .Buttons("fq").Enabled = False     '放弃
  943.             
  944.             '录入文本框
  945.             For Jsqte = Max_Text_Index To 0 Step -1
  946.                 LrText(Jsqte).Enabled = False
  947.             Next Jsqte
  948.             CmbOut_In.Enabled = False
  949.             
  950.         Case "11"   '浏览(放弃修改单据,查询单据)
  951.             '工具条
  952.             .Buttons("dy").Enabled = True      '打印
  953.             .Buttons("yl").Enabled = True      '预览
  954.             .Buttons("xg").Enabled = True      '修改
  955.             .Buttons("Fill").Enabled = False      '填充
  956.             .Buttons("bc").Enabled = False     '保存
  957.             .Buttons("fq").Enabled = False     '放弃
  958.             '录入文本框
  959.             For Jsqte = 0 To Max_Text_Index
  960.                 LrText(Jsqte).Enabled = False
  961.             Next Jsqte
  962.             CmbOut_In.Enabled = False
  963.             
  964.         Case "30"   '修改
  965.             '工具条
  966.             .Buttons("dy").Enabled = False      '打印
  967.             .Buttons("yl").Enabled = False      '预览
  968.             .Buttons("xg").Enabled = False      '修改
  969.             .Buttons("Fill").Enabled = True       '填充
  970.             .Buttons("bc").Enabled = True       '保存
  971.             .Buttons("fq").Enabled = True       '放弃
  972.             '录入文本框
  973.             For Jsqte = 0 To Max_Text_Index
  974.                 LrText(Jsqte).Enabled = True
  975.             Next Jsqte
  976.             CmbOut_In.Enabled = True
  977.             LrText(0).SetFocus
  978.         End Select
  979.     End With
  980. End Sub
  982. Private Sub Sub_EditBill()                                                '修改一张单据
  983.     '判断当前凭证是否允许修改
  984.     If Not Fun_AllowEdit Then
  985.         Exit Sub
  986.     End If
  987.     
  988.     '设置操作状态为修改
  989.     Lab_OperStatus.Caption = "3"
  990.     '设置工具条状态
  991.     Call Sub_OperStatus("30")
  992. End Sub
  994. Private Function Fun_AllowEdit() As Boolean
  995.     Fun_AllowEdit = True
  996. End Function
  998. Private Sub Sub_AbandonBill()                                              '放弃对当前单据的操作
  999.     
  1000.     '先关闭录入载体
  1001.     Select Case Trim(Lab_OperStatus.Caption)
  1002.     Case "3"         '修改状态
  1003.         '重新显示当前单据
  1004.         Call Sub_ShowBill
  1005.         '设置操作状态为浏览
  1006.         Lab_OperStatus = "1"
  1007.         Call Sub_OperStatus("11")
  1008.     End Select
  1009. End Sub
  1011. Private Sub Xldqh()                                                      '显露当前行
  1012.     Dim Toprowte As Long
  1013.     With WglrGrid
  1014.         Toprowte = 0
  1015.         Do While .CellTop + .RowHeight(.Row) + Fzxwghs * Sjhgd > .Height And .TopRow <> Toprowte
  1016.             Toprowte = .TopRow
  1017.             .TopRow = .TopRow + 1
  1018.         Loop
  1019.         Toprowte = 0
  1020.         Do While .CellTop < .FixedRows * .RowHeight(0) And .TopRow <> Toprowte
  1021.             Toprowte = .TopRow
  1022.             .TopRow = .TopRow - 1
  1023.         Loop
  1024.     End With
  1025. End Sub
  1027. Private Sub GsToolbar_ButtonClick(ByVal Button As MSComctlLib.Button)   '表格格式设置(通用)
  1028.     Select Case Button.Key
  1029.     Case "bcgs"                              '保存表格格式
  1030.         Call Bcwggs(WglrGrid, GridCode, GridStr)
  1031.     Case "hfmrgs"                            '恢复默认格式
  1032.         Call Hfmrgs(WglrGrid, GridCode, GridStr)
  1033.     End Select
  1034. End Sub
  1036. Private Sub bbyl(bbylte As Boolean)                                     '打印预览(通用)
  1037.     Dim Bbzbt$, Bbxbt() As String, bbxbtzzxs() As Integer, Bbxbtgs As Integer
  1038.     Dim Bbbwh() As String, Bbbwhzzxs() As Integer, Bbbwhgs As Integer
  1039.     Bbxbtgs = 1                                  '报 表 小 标 题 行 数
  1040.     Bbbwhgs = 1                                  '报 表 表 尾 行 数
  1041.     ReDim Bbxbt(1 To Bbxbtgs)
  1042.     ReDim bbxbtzzxs(1 To Bbxbtgs)
  1043.     If Bbbwhgs <> 0 Then
  1044.         ReDim Bbbwh(1 To Bbbwhgs)
  1045.         ReDim Bbbwhzzxs(1 To Bbbwhgs)
  1046.     End If
  1047.     Bbzbt = ReportTitle
  1048.     bbxbtzzxs(1) = 0                             '报表行组织形式(0-居左 1-居中 2-居右)
  1049.     Bbxbt(1) = "转帐名称：" + Lbl_AutoAccName              '报表行组织形式(0-居左 1-居中 2-居右)
  1050.     Call Scyxsjb(WglrGrid)                               '生成报表数据
  1051.     Call Scdybb(Dyymctbl, Bbzbt, Bbxbt(), bbxbtzzxs(), Bbxbtgs, Bbbwh(), Bbbwhzzxs(), Bbbwhgs, bbylte)
  1052.     If Not bbylte Then
  1053.         Unload DY_Tybbyldy
  1054.     End If
  1055. End Sub
  1057. Private Function Sub_SaveBill() As Boolean                   '保 存 单 据
  1058.     Dim Rowjsq As Long           '网格行计数器
  1059.     Dim Coljsq As Long           '网格列计数器
  1060.     Dim Int_RowCount As Integer  '有效数据行计数器
  1061.     Dim Lrywlz As Long           '录入有误列值
  1062.     Dim Bj As Boolean           '辅助项有效标志
  1063.     '下面将对所有有效数据行进行有效性判断
  1064.     If LrText(0) = "" Then  '转帐科目必须输入
  1065.         Tsxx = "请输入损益类科目！"
  1066.         Call Xtxxts(Tsxx, 0, 4)
  1067.         LrText(0).SetFocus
  1068.         Exit Function
  1069.     End If
  1070.     If LrText(1) = "" Then  '利润科目必须输入
  1071.         Tsxx = "请输入本年利润科目！"
  1072.         Call Xtxxts(Tsxx, 0, 4)
  1073.         LrText(1).SetFocus
  1074.         Exit Function
  1075.     End If
  1076.     If LrText(2) = "" Then  '摘要必须输入
  1077.         Tsxx = "请输入摘要！"
  1078.         Call Xtxxts(Tsxx, 0, 4)
  1079.         LrText(2).SetFocus
  1080.         Exit Function
  1081.     End If
  1082.     Int_RowCount = 0
  1083.     With WglrGrid
  1084.         For Rowjsq = .FixedRows To .Rows - 1
  1085.             
  1086.             '带*号者为有效数据行
  1087.             If .TextMatrix(Rowjsq, 0) <> "*" Then
  1088.                 Exit For
  1089.             Else
  1090.                 Int_RowCount = Int_RowCount + 1
  1091.             End If
  1092.             
  1093.             '2.[自定义判断(补丁)
  1094.             '首先进行为空判断(固定不变)
  1095.             For Jsqte = Qslz To .Cols - 1
  1096.                 If (GridInt(Jsqte, 5) = 1 And Len(Trim(.TextMatrix(Rowjsq, Jsqte))) = 0) Or (GridInt(Jsqte, 5) = 2 And Val(Trim(.TextMatrix(Yxxpdh, Jsqte))) = 0) Then
  1097.                     Tsxx = GridStr(Jsqte, 2)
  1098.                     Lrywlz = Jsqte
  1099.                     GoTo Lrcwcl
  1100.                     Exit For
  1101.                 End If
  1102.             Next Jsqte
  1103.         Next Rowjsq
  1104.         If Int_RowCount = 0 Then
  1105.             Tsxx = "有效行数为零,不能存盘!"
  1106.             Call Xtxxts(Tsxx, 0, 1)
  1107.             Exit Function
  1108.         End If
  1109.     End With  '网格
  1110.     
  1111.     '如果以上有效性检查均顺利通过,则执行存盘动作
  1112.     
  1113.     On Error GoTo Swcwcl
  1114.     Cw_DataEnvi.DataConnect.BeginTrans
  1115.     
  1116.     '修改单据
  1117.     '1.删除原单据所有内容
  1118.     
  1119.     Cw_DataEnvi.DataConnect.Execute ("Delete Cwzz_AutoTranItem Where TranCode='" & Trim(Lbl_AutoAccCode.Caption) & "' and TranClass='" & TranClassCode & "'")
  1120.     If Rec_AutoAccItem.State = 1 Then Rec_AutoAccItem.Close
  1121.     Rec_AutoAccItem.Open "Select * From Cwzz_AutoTranItem Where 1=2", Cw_DataEnvi.DataConnect, adOpenDynamic, adLockPessimistic
  1122.     
  1123.     '写网格中的转出科目定义数据
  1124.     For Rowjsq = WglrGrid.FixedRows To WglrGrid.Rows - 1
  1125.         If WglrGrid.TextMatrix(Rowjsq, 0) <> "*" Then
  1126.             Exit For
  1127.         End If
  1128.         With Rec_AutoAccItem
  1129.             .AddNew
  1130.             .Fields("TranClass") = TranClassCode
  1131.             .Fields("TranCode") = Trim(Lbl_AutoAccCode.Caption)                                         '转帐编号
  1132.             .Fields("Digest") = Trim(WglrGrid.TextMatrix(Rowjsq, Sydz("001", GridStr(), Szzls)))        '摘要
  1133.             .Fields("Ccode") = Trim(WglrGrid.TextMatrix(Rowjsq, Sydz("002", GridStr(), Szzls)))         '损益科目
  1134.             .Fields("TranOri") = WglrGrid.TextMatrix(Rowjsq, Sydz("004", GridStr(), Szzls))             '转帐方向
  1135.             .Fields("TranProp") = "转出"                                                                '转帐性质
  1136.             .Fields("GetCcode") = Trim(WglrGrid.TextMatrix(Rowjsq, Sydz("002", GridStr(), Szzls)))      '本年利润科目
  1137.             .Fields("DistriProp") = 100                                                                 '若网格内该项没有填写，默认100%
  1138.             .Fields("FormulaCode") = "01"                                                               '来源数据项目,期末余额
  1139.         End With
  1140.     Next Rowjsq
  1141.     '写转入科目定义数据
  1142.     With Rec_AutoAccItem
  1143.         .AddNew
  1144.         .Fields("TranClass") = TranClassCode
  1145.         .Fields("TranCode") = Trim(Lbl_AutoAccCode.Caption)                                         '转帐编号
  1146.         .Fields("Digest") = Trim(LrText(2).Text)                                                    '摘要
  1147.         .Fields("Ccode") = Trim(LrText(1).Text)                                                     '损益科目
  1148.         If WglrGrid.TextMatrix(WglrGrid.FixedRows, Sydz("004", GridStr(), Szzls)) = "借" Then
  1149.             .Fields("TranOri") = "贷"                                                               '转帐方向
  1150.         Else
  1151.             .Fields("TranOri") = "借"                                                               '转帐方向
  1152.         End If
  1153.         .Fields("TranProp") = "转入"                                                                '转帐性质
  1154.         .Fields("GetCcode") = ""                                                                    '
  1155.         .Fields("DistriProp") = 100                                                                 '若网格内该项没有填写，默认100%
  1156.         .Fields("FormulaCode") = "05"                                                               '来源数据为对方汇总数
  1157.         .Update
  1158.     End With
  1159.     Cw_DataEnvi.DataConnect.CommitTrans
  1160.     Sub_SaveBill = True
  1161.     Tsxx = "保存完毕! "
  1162.     Call Xtxxts(Tsxx, 0, 4)
  1163.     
  1164.     '标识单据发生改动
  1165.     Bln_BillChange = True
  1166.     
  1167.     '设置操作状态为浏览
  1168.     Lab_OperStatus = "1"
  1169.     Call Sub_OperStatus("11")
  1170.     Exit Function
  1171.     
  1172. Swcwcl:
  1173.     Cw_DataEnvi.DataConnect.RollbackTrans
  1174.     Tsxx = "存盘过程中出现未知错误,程序自动恢复保存前状态!"
  1175.     Call Xtxxts(Tsxx, 0, 1)
  1176.     Exit Function
  1177.     
  1178. Lrcwcl:        '录入错误处理
  1179.     With WglrGrid
  1180.         Call Xtxxts("(第 " + Trim(Str(Int_RowCount)) + " 条记录)-" + Tsxx, 0, 1)
  1181.         changelock = True
  1182.         .Select Rowjsq, Lrywlz
  1183.         WglrGrid.SetFocus
  1184.         changelock = False
  1185.         Exit Function
  1186.     End With
  1187.     
  1188. End Function
  1190. Private Function TextYxxpd(Index As Integer) As Boolean           '文本框有效性判断
  1191.     Dim Sqlstr As String
  1192.     Dim Findrec As ADODB.Recordset
  1193.     If TextValiJudgeLock(Index) Then    '文本框内容未曾改变不进行有效性判断
  1194.         TextYxxpd = True
  1195.         Exit Function
  1196.     End If
  1197.     If Trim(LrText(Index)) = "" Then
  1198.         LrText(Index).Tag = ""
  1199.         Call WbklrCl_After(Index)
  1200.         TextValiJudgeLock(Index) = True
  1201.         TextYxxpd = True
  1202.         Exit Function
  1203.     End If
  1204.     Select Case Textint(Index, 4)
  1205.     Case 1      '编码型
  1206.         Sqlstr = Trim(Textstr(Index, 5))
  1207.         Sqlstr = Replace(Sqlstr, "@", "'" + Trim(LrText(Index).Text) + "'")
  1208.         Set Findrec = Cw_DataEnvi.DataConnect.Execute(Sqlstr)
  1209.         If Findrec.EOF Then
  1210.             Call Xtxxts(Trim(Textstr(Index, 6)), 0, 1)
  1211.             LrText(Index).SetFocus
  1212.             Exit Function
  1213.         Else
  1214.             Select Case Textint(Index, 3)
  1215.             Case 0
  1216.                 If Len(Trim(Textstr(Index, 2))) <> 0 Then
  1217.                     LrText(Index).Text = Trim(Findrec.Fields(Trim(Textstr(Index, 2))))
  1218.                 End If
  1219.                 If Len(Trim(Textstr(Index, 3) & "")) <> 0 Then
  1220.                     LrText(Index).Tag = Trim(Findrec.Fields(Trim(Textstr(Index, 3))))
  1221.                 End If
  1222.             Case 1
  1223.                 If Len(Trim(Textstr(Index, 3) & "")) <> 0 Then
  1224.                     LrText(Index).Text = Trim(Findrec.Fields(Trim(Textstr(Index, 3))))
  1225.                 End If
  1226.                 If Len(Trim(Textstr(Index, 2))) <> 0 Then
  1227.                     LrText(Index).Tag = Trim(Findrec.Fields(Trim(Textstr(Index, 2))))
  1228.                 End If
  1229.             End Select
  1230.         End If
  1231.     Case 2      '日期型
  1232.         If IsDate(LrText(Index).Text) Then
  1233.             LrText(Index).Text = Format(LrText(Index).Text, "yyyy-mm-dd")
  1234.         Else
  1235.             Tsxx = "非法公历日期!(格式:" + Format(Date, "yyyy-mm-dd") + ")"
  1236.             Call Xtxxts(Tsxx, 0, 1)
  1237.             LrText(Index).SetFocus
  1238.             Exit Function
  1239.         End If
  1240.     Case 3      '其他类型
  1241.         If Index = 0 Then
  1242.             Sqlstr = "select * from Cwzz_AccCode where CCode='" & Trim(LrText(Index)) & "'"
  1243.             Set Findrec = Cw_DataEnvi.DataConnect.Execute(Sqlstr)
  1244.             If Findrec.EOF = True Then
  1245.                 Tsxx = "该科目不存在！"
  1246.                 GoTo Error1
  1247.             End If
  1248.             If Trim(Findrec.Fields("StopUse") & "") = True Then
  1249.                 Tsxx = "该科目已停用！"
  1250.                 GoTo Error1
  1251.             End If
  1252.         End If
  1253.         If Index = 1 Then
  1254.             Sqlstr = "select * from Cwzz_AccCode where ccode='" & Trim(LrText(Index)) & "'"
  1255.             Set Findrec = Cw_DataEnvi.DataConnect.Execute(Sqlstr)
  1256.             If Findrec.EOF = True Then
  1257.                 Tsxx = "该科目不存在！"
  1258.                 GoTo Error1
  1259.             End If
  1260.             If Trim(Findrec.Fields("EndFlag") & "") <> True Then
  1261.                 Tsxx = "应填写末级科目！"
  1262.                 GoTo Error1
  1263.             End If
  1264.             If Trim(Findrec.Fields("StopUse") & "") = True Then
  1265.                 Tsxx = "该科目已停用！"
  1266.                 GoTo Error1
  1267.             End If
  1268.         End If
  1269.         Select Case Textint(Index, 3)
  1270.         Case 0
  1271.             If Len(Trim(Textstr(Index, 2))) <> 0 Then
  1272.                 LrText(Index).Text = Trim(Findrec.Fields(Trim(Textstr(Index, 2))))
  1273.             End If
  1274.             If Len(Trim(Textstr(Index, 3) & "")) <> 0 Then
  1275.                 LrText(Index).Tag = Trim(Findrec.Fields(Trim(Textstr(Index, 3))))
  1276.             End If
  1277.         Case 1
  1278.             If Len(Trim(Textstr(Index, 3) & "")) <> 0 Then
  1279.                 LrText(Index).Text = Trim(Findrec.Fields(Trim(Textstr(Index, 3))))
  1280.             End If
  1281.             If Len(Trim(Textstr(Index, 2))) <> 0 Then
  1282.                 LrText(Index).Tag = Trim(Findrec.Fields(Trim(Textstr(Index, 2))))
  1283.             End If
  1284.         End Select
  1285.     End Select
  1286.     TextValiJudgeLock(Index) = True
  1287.     TextYxxpd = True
  1288.     Exit Function
  1289. Error1:
  1290.     Call Xtxxts(Tsxx, 0, 1)
  1291.     LrText(Index).SetFocus
  1292.     TextYxxpd = False
  1293.     Exit Function
  1294. End Function
  1296. Private Sub WbklrCl_After(Index As Integer)    '文本框录入事后处理程序
  1297.     
  1298.     '以下为依据实际情况自定义部分[
  1299.     
  1300.     '在此填写文本框录入事后处理程序
  1301.     ']以上为依据实际情况自定义部分
  1302. End Sub
  1303.   
  1304. Private Sub LrText_Change(Index As Integer)
  1305.     
  1306.     '屏蔽程序改变控制
  1307.     If TextChangeLock Then
  1308.         Exit Sub
  1309.     End If
  1310.     
  1311.     TextValiJudgeLock(Index) = False    '打开有效性判断锁
  1312.     
  1313.     '限制字段录入长度
  1314.     
  1315.     TextChangeLock = True  '加锁(防止执行Lrtext_Change)
  1316.     Select Case Textint(Index, 1)
  1317.     Case 8           '金额型
  1318.         Call Sjgskz(LrText(Index), Xtjezws - Xtjexsws - 1, Xtjexsws)
  1319.     Case 9           '数量型
  1320.         Call Sjgskz(LrText(Index), Xtslzws - Xtslxsws - 1, Xtslxsws)
  1321.     Case 10          '单价型
  1322.         Call Sjgskz(LrText(Index), Xtdjzws - Xtdjxsws - 1, Xtdjxsws)
  1323.     Case Else        '其他小数类型控制
  1324.         If Textint(Index, 6) <> 0 Or Textint(Index, 7) <> 0 Then
  1325.             Call Sjgskz(LrText(Index), Textint(Index, 6), Textint(Index, 7))
  1326.         End If
  1327.     End Select
  1328.     
  1329.     TextChangeLock = False '解锁
  1330. End Sub
  1332. Private Sub LrText_GotFocus(Index As Integer)                                                 '文本框得到焦点,显示相应信息
  1333.     Call TextShow(Index)
  1334.     CurTextIndex = Index
  1335.     LrText(Index).SelStart = Len(LrText(Index))
  1336. End Sub
  1338. Private Sub LrText_KeyDown(Index As Integer, KeyCode As Integer, Shift As Integer)            '字段按F2键提供帮助
  1339.     Select Case KeyCode
  1340.     Case vbKeyF2
  1341.         Call Text_Help(Index)
  1342.     End Select
  1343. End Sub
  1345. Private Sub LrText_KeyPress(Index As Integer, KeyAscii As Integer)                            '文本框录入事中控制
  1346.     Call InputFieldLimit(LrText(Index), Textint(Index, 1), KeyAscii)
  1347. End Sub
  1349. Private Sub LrText_LostFocus(Index As Integer)                                                '文本框失去焦点进行有效性判断及相应处理
  1350.     If Textint(Index, 9) = 0 Or Textint(Index, 9) = 1 Then '事中判断
  1351.         Call TextYxxpd(Index)
  1352.     End If
  1353. End Sub
  1355. Private Sub Text_Help(Index As Integer)                                                       '录入字段帮助
  1356.     If Not Textboolean(Index, 1) Then
  1357.         Exit Sub
  1358.     End If
  1359.     TextValiJudgeLock(Index) = True
  1360.     
  1361.     '先进行有效性判断
  1362.     If Not TextYxxpd(CurTextIndex) Then
  1363.         Exit Sub
  1364.     End If
  1365.     
  1366.     Call Drbmhelp(Textint(Index, 2), Textstr(Index, 4), Trim(LrText(Index).Text))
  1367.     If Len(Xtfhcs) <> 0 Then
  1368.         If Textint(Index, 3) = 1 Then
  1369.             LrText(Index).Text = Xtfhcsfz
  1370.             LrText(Index).Tag = Xtfhcs
  1371.         Else
  1372.             LrText(Index).Text = Xtfhcs
  1373.             LrText(Index).Tag = Xtfhcsfz
  1374.         End If
  1375.         
  1376.     End If
  1377.     TextValiJudgeLock(Index) = False
  1378.     LrText(Index).SetFocus
  1379. End Sub
  1381. Public Sub Fill_Relation()
  1382.     Dim sqlstr1 As String   '临时字符串
  1383.     If LrText(0) = "" Then
  1384.         Tsxx = "请输入损益科目！"
  1385.         Call Xtxxts(Tsxx, 0, 4)
  1386.         LrText(0).SetFocus
  1387.         Exit Sub
  1388.     End If
  1389.     If LrText(1) = "" Then
  1390.         Tsxx = "请输入本年利润科目！"
  1391.         Call Xtxxts(Tsxx, 0, 4)
  1392.         LrText(1).SetFocus
  1393.         Exit Sub
  1394.     End If
  1395.     If LrText(2) = "" Then
  1396.         Tsxx = "请输入摘要信息！"
  1397.         Call Xtxxts(Tsxx, 0, 4)
  1398.         LrText(2).SetFocus
  1399.         Exit Sub
  1400.     End If
  1401.     
  1402.     '转帐科目（损益科目）记录集
  1403.     Sqlstr = "select * from Cwzz_AccCode where Ccode like '" & Trim(LrText(0).Text) & "%' and EndFlag='1' and StopFlag<>'1'"
  1404.     Set Cxnrrec = Cw_DataEnvi.DataConnect.Execute(Sqlstr)
  1405.     If Cxnrrec.EOF = True Then
  1406.         Tsxx = "重新选择损益类科目编码!"
  1407.         Call Xtxxts(Tsxx, 1, 1)
  1408.         Exit Sub
  1409.     End If
  1410.     
  1411.     '本年利润科目记录集
  1412.     sqlstr1 = "select * from Cwzz_AccCode where Ccode='" & Trim(LrText(1).Text) & "' and EndFlag='1' and StopFlag<>'1'"
  1413.     Set RecTemp = Cw_DataEnvi.DataConnect.Execute(sqlstr1)
  1414.     If RecTemp.EOF = True Then
  1415.         Tsxx = "重新选择利润科目编码!"
  1416.         Call Xtxxts(Tsxx, 1, 1)
  1417.         Exit Sub
  1418.     End If
  1419.     With Cxnrrec
  1420.         WglrGrid.Clear 1
  1421.         If .EOF And .BOF Then
  1422.             Exit Sub
  1423.         End If
  1424.         Jsqte = WglrGrid.FixedRows
  1425.         Do While Not .EOF
  1426.             If Jsqte >= WglrGrid.Rows Then
  1427.                 WglrGrid.AddItem ""
  1428.             End If
  1429.             WglrGrid.TextMatrix(Jsqte, 0) = "*"
  1430.             WglrGrid.TextMatrix(Jsqte, Sydz("001", GridStr(), Szzls)) = LrText(2)
  1431.             
  1432.             WglrGrid.TextMatrix(Jsqte, Sydz("002", GridStr(), Szzls)) = Trim(.Fields("CCode"))
  1433.             WglrGrid.TextMatrix(Jsqte, Sydz("003", GridStr(), Szzls)) = Trim(.Fields("CName"))
  1434.             If CmbOut_In.Text = "收入" Then
  1435.                 WglrGrid.TextMatrix(Jsqte, Sydz("004", GridStr(), Szzls)) = "借"
  1436.             Else
  1437.                 WglrGrid.TextMatrix(Jsqte, Sydz("004", GridStr(), Szzls)) = "贷"
  1438.             End If
  1439.             
  1440.             WglrGrid.TextMatrix(Jsqte, Sydz("005", GridStr(), Szzls)) = RecTemp.Fields("Ccode") & ""
  1441.             WglrGrid.TextMatrix(Jsqte, Sydz("006", GridStr(), Szzls)) = RecTemp.Fields("Cname") & ""
  1442.             WglrGrid.RowHeight(Jsqte) = Sjhgd
  1443.             .MoveNext
  1444.             Jsqte = Jsqte + 1
  1445.         Loop
  1446.     End With
  1447.     '修改]
  1448. End Sub
  1450. Private Sub TextShow(Index As Integer)        '文本框得到焦点,显示相应信息
  1451.     If Textboolean(Index, 1) Then
  1452.         Ydcommand1.Visible = True
  1453.         Ydcommand1.Move LrText(Index).Left + LrText(Index).Width, LrText(Index).Top
  1454.         Ydcommand1.Tag = Index
  1455.     Else
  1456.         Ydcommand1.Tag = ""
  1457.         Ydcommand1.Visible = False
  1458.     End If
  1459. End Sub
  1461. Private Sub Ydcommand1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
  1462.     Call Text_Help(Ydcommand1.Tag)
  1463. End Sub
  1465. Public Sub Bill_Head_Show()             '填充窗体的网格之上文本框等内容
  1466.     Dim rs_temp1 As New ADODB.Recordset      '临时记录集
  1467.     Dim rs_temp2 As New ADODB.Recordset      '临时记录集
  1468.     
  1469.     '取损益科目的数据
  1470.     Sqlstr = "SELECT Cwzz_AutoTranItem.TranClass, Cwzz_AutoTranItem.TranCode, " & _
  1471.     "Cwzz_AutoTranItem.TranOri,Cwzz_AutoTranItem.Ccode,Cwzz_AutoTranItem.Digest, " & _
  1472.     "Cwzz_AutoTranItem.GetCcode,Cwzz_AutoTranItem.FormulaCode " & _
  1473.     "FROM Cwzz_AutoTranMain RIGHT OUTER JOIN Cwzz_AutoTranItem ON " & _
  1474.     "Cwzz_AutoTranMain.TranCode = Cwzz_AutoTranItem.TranCode AND " & _
  1475.     "Cwzz_AutoTranMain.TranClass = Cwzz_AutoTranItem.TranClass " & _
  1476.     "where Cwzz_AutoTranItem.TranCode='" & Lbl_AutoAccCode.Caption & "' " & _
  1477.     "and Cwzz_AutoTranItem.tranclass='" & TranClassCode & "'" & _
  1478.     "and Cwzz_AutoTranItem.FormulaCode<>'05' order by Cwzz_AutoTranItem.Ccode"
  1479.     Set Rec_AutoAccItem = Cw_DataEnvi.DataConnect.Execute(Sqlstr)
  1480.     If Rec_AutoAccItem.Fields("TranOri") = "借" Then
  1481.         CmbOut_In.Text = "收入"
  1482.     Else
  1483.         CmbOut_In.Text = "支出"
  1484.     End If
  1485.     LrText(2).Text = Rec_AutoAccItem.Fields("Digest")
  1486.     '转帐科目编码
  1487.     If Rec_AutoAccItem.Fields("Ccode") & "" <> "" Then
  1488.         Sqlstr = "Select * from Cwzz_AccCode where Ccode='" & Trim(Rec_AutoAccItem.Fields("Ccode") & "") & "' order by Ccode"
  1489.         Set rs_temp1 = Cw_DataEnvi.DataConnect.Execute(Sqlstr)
  1490.         If rs_temp1.EOF = False Then
  1491.             LrText(0).Text = Trim(rs_temp1.Fields("ParentCode") & "")
  1492.         Else
  1493.             LrText(0).Text = ""
  1494.         End If
  1495.     End If
  1496.     
  1497.     '取本年利润的数据
  1498.     Sqlstr = "SELECT Cwzz_AutoTranItem.TranClass, Cwzz_AutoTranItem.TranCode, " & _
  1499.     "Cwzz_AutoTranItem.TranOri,Cwzz_AutoTranItem.Ccode,Cwzz_AutoTranItem.Digest, " & _
  1500.     "Cwzz_AutoTranItem.GetCcode " & _
  1501.     "FROM Cwzz_AutoTranMain RIGHT OUTER JOIN Cwzz_AutoTranItem ON " & _
  1502.     "Cwzz_AutoTranMain.TranCode = Cwzz_AutoTranItem.TranCode AND " & _
  1503.     "Cwzz_AutoTranMain.TranClass = Cwzz_AutoTranItem.TranClass " & _
  1504.     "where Cwzz_AutoTranItem.TranCode='" & Lbl_AutoAccCode.Caption & "' " & _
  1505.     "and Cwzz_AutoTranItem.tranclass='" & TranClassCode & "'" & _
  1506.     "and Cwzz_AutoTranItem.FormulaCode='05'"
  1507.     Set Rec_AutoAccItem = Cw_DataEnvi.DataConnect.Execute(Sqlstr)
  1508.     If Trim(Rec_AutoAccItem.Fields("Ccode") & "") <> "" Then
  1509.         Sqlstr = "select * from Cwzz_AccCode where Ccode='" & Trim(Rec_AutoAccItem.Fields("Ccode") & "") & "' "
  1510.         Set rs_temp2 = Cw_DataEnvi.DataConnect.Execute(Sqlstr)
  1511.         If rs_temp2.EOF = False Then
  1512.             LrText(1).Text = Trim(rs_temp2.Fields("CCode") & "")
  1513.             Lab_GetName.Caption = Trim(rs_temp2.Fields("CName") & "")           '为下一步网格内显示用
  1514.         Else
  1515.             LrText(1).Text = ""
  1516.         End If
  1517.     End If
  1518. End Sub