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

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

企业管理

开发平台：

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. Object = "{BDC217C8-ED16-11CD-956C-0000C04E4C0A}#1.1#0"; "TABCTL32.OCX"
  5. Begin VB.Form JC_KjkmszFrm 
  6.    BorderStyle     =   1  'Fixed Single
  7.    Caption         =   "会计科目设置"
  8.    ClientHeight    =   7095
  9.    ClientLeft      =   45
  10.    ClientTop       =   330
  11.    ClientWidth     =   9375
  12.    HelpContextID   =   2001
  13.    Icon            =   "基础设置_会计科目设置.frx":0000
  14.    KeyPreview      =   -1  'True
  15.    LinkTopic       =   "Form2"
  16.    MaxButton       =   0   'False
  17.    MinButton       =   0   'False
  18.    ScaleHeight     =   7095
  19.    ScaleWidth      =   9375
  20.    StartUpPosition =   2  '屏幕中心
  21.    Begin TabDlg.SSTab StTab 
  22.       Height          =   6375
  23.       Left            =   30
  24.       TabIndex        =   0
  25.       Top             =   690
  26.       Width           =   9330
  27.       _ExtentX        =   16457
  28.       _ExtentY        =   11245
  29.       _Version        =   393216
  30.       Style           =   1
  31.       Tabs            =   2
  32.       TabHeight       =   520
  33.       TabCaption(0)   =   "列表视图"
  34.       TabPicture(0)   =   "基础设置_会计科目设置.frx":1042
  35.       Tab(0).ControlEnabled=   -1  'True
  36.       Tab(0).Control(0)=   "CzxsGrid"
  37.       Tab(0).Control(0).Enabled=   0   'False
  38.       Tab(0).ControlCount=   1
  39.       TabCaption(1)   =   "单张视图"
  40.       TabPicture(1)   =   "基础设置_会计科目设置.frx":105E
  41.       Tab(1).ControlEnabled=   0   'False
  42.       Tab(1).Control(0)=   "Frame1"
  43.       Tab(1).ControlCount=   1
  44.       Begin VB.Frame Frame1 
  45.          Height          =   5955
  46.          Left            =   -74910
  47.          TabIndex        =   26
  48.          Top             =   330
  49.          Width           =   9135
  50.          Begin VB.Frame Frame5 
  51.             Caption         =   "打印"
  52.             ForeColor       =   &H00FF0000&
  53.             Height          =   990
  54.             Left            =   270
  55.             TabIndex        =   44
  56.             Top             =   4860
  57.             Width           =   3600
  58.             Begin VB.TextBox LrText 
  59.                Height          =   300
  60.                Index           =   6
  61.                Left            =   1020
  62.                TabIndex        =   48
  63.                Text            =   "6"
  64.                Top             =   570
  65.                Width           =   2430
  66.             End
  67.             Begin VB.CheckBox Chk_SumPrint 
  68.                Caption         =   "汇总打印"
  69.                Height          =   240
  70.                Left            =   180
  71.                TabIndex        =   11
  72.                Top             =   255
  73.                Width           =   1185
  74.             End
  75.             Begin VB.Label Label1 
  76.                AutoSize        =   -1  'True
  77.                Caption         =   "汇总科目:"
  78.                Height          =   180
  79.                Left            =   195
  80.                TabIndex        =   45
  81.                Top             =   630
  82.                Width           =   810
  83.             End
  84.          End
  85.          Begin VB.CheckBox Chk_DayBookFlag 
  86.             Caption         =   "日记帐"
  87.             Height          =   225
  88.             Left            =   4410
  89.             TabIndex        =   21
  90.             Top             =   4050
  91.             Width           =   1065
  92.          End
  93.          Begin VB.TextBox LrText 
  94.             Height          =   300
  95.             Index           =   5
  96.             Left            =   1110
  97.             TabIndex        =   6
  98.             Text            =   "5"
  99.             Top             =   2340
  100.             Width           =   1725
  101.          End
  102.          Begin VB.CheckBox Chk_CashFlow 
  103.             Caption         =   "现金或现金等价物"
  104.             Height          =   315
  105.             Left            =   4410
  106.             TabIndex        =   22
  107.             Top             =   4320
  108.             Width           =   1785
  109.          End
  110.          Begin VB.Frame Frame4 
  111.             Caption         =   "项目核算(I)"
  112.             ForeColor       =   &H00FF0000&
  113.             Height          =   945
  114.             Left            =   4380
  115.             TabIndex        =   40
  116.             Top             =   2940
  117.             Width           =   2955
  118.             Begin VB.CommandButton Ydcommand1 
  119.                Height          =   300
  120.                Index           =   4
  121.                Left            =   2550
  122.                Picture         =   "基础设置_会计科目设置.frx":107A
  123.                Style           =   1  'Graphical
  124.                TabIndex        =   42
  125.                Top             =   540
  126.                Visible         =   0   'False
  127.                Width           =   300
  128.             End
  129.             Begin VB.TextBox LrText 
  130.                Height          =   300
  131.                Index           =   4
  132.                Left            =   870
  133.                TabIndex        =   20
  134.                Text            =   "4"
  135.                Top             =   540
  136.                Width           =   1680
  137.             End
  138.             Begin VB.CheckBox Chk_Ass 
  139.                Caption         =   "项目核算"
  140.                Height          =   255
  141.                Index           =   3
  142.                Left            =   90
  143.                TabIndex        =   19
  144.                Top             =   270
  145.                Width           =   1335
  146.             End
  147.             Begin VB.Label TsLabel 
  148.                AutoSize        =   -1  'True
  149.                Caption         =   "项目类别:"
  150.                Height          =   180
  151.                Index           =   4
  152.                Left            =   60
  153.                TabIndex        =   41
  154.                Top             =   600
  155.                Width           =   810
  156.             End
  157.          End
  158.          Begin VB.CommandButton BcCommand 
  159.             Caption         =   "保存(&S)"
  160.             Height          =   300
  161.             Left            =   4530
  162.             TabIndex        =   23
  163.             Top             =   4950
  164.             Width           =   1120
  165.          End
  166.          Begin VB.CommandButton QxCommand 
  167.             Cancel          =   -1  'True
  168.             Caption         =   "取消(&C)"
  169.             Height          =   300
  170.             Left            =   5730
  171.             TabIndex        =   24
  172.             Top             =   4950
  173.             Width           =   1120
  174.          End
  175.          Begin VB.CheckBox ChkStopUse 
  176.             Caption         =   "停用"
  177.             Height          =   315
  178.             Left            =   4380
  179.             TabIndex        =   12
  180.             Top             =   180
  181.             Width           =   705
  182.          End
  183.          Begin VB.ComboBox Combo_AccFormat 
  184.             Height          =   300
  185.             Left            =   1125
  186.             Style           =   2  'Dropdown List
  187.             TabIndex        =   5
  188.             Top             =   1920
  189.             Width           =   1725
  190.          End
  191.          Begin VB.Frame Frame3 
  192.             Caption         =   "外币核算(&F)"
  193.             ForeColor       =   &H00FF0000&
  194.             Height          =   975
  195.             Left            =   270
  196.             TabIndex        =   36
  197.             Top             =   2730
  198.             Width           =   3615
  199.             Begin VB.CommandButton Ydcommand1 
  200.                Height          =   300
  201.                Index           =   2
  202.                Left            =   3150
  203.                Picture         =   "基础设置_会计科目设置.frx":1404
  204.                Style           =   1  'Graphical
  205.                TabIndex        =   39
  206.                Top             =   540
  207.                Visible         =   0   'False
  208.                Width           =   300
  209.             End
  210.             Begin VB.TextBox LrText 
  211.                Height          =   300
  212.                Index           =   2
  213.                Left            =   990
  214.                TabIndex        =   8
  215.                Text            =   "2"
  216.                Top             =   540
  217.                Width           =   2160
  218.             End
  219.             Begin VB.CheckBox Chk_ForiFlag 
  220.                Caption         =   "外币核算"
  221.                Height          =   225
  222.                Left            =   180
  223.                TabIndex        =   7
  224.                Top             =   270
  225.                Width           =   2055
  226.             End
  227.             Begin VB.Label TsLabel 
  228.                AutoSize        =   -1  'True
  229.                Caption         =   "核算币种:"
  230.                Height          =   180
  231.                Index           =   6
  232.                Left            =   180
  233.                TabIndex        =   37
  234.                Top             =   600
  235.                Width           =   810
  236.             End
  237.          End
  238.          Begin VB.Frame Frame2 
  239.             Caption         =   "数量核算(&Q)"
  240.             ForeColor       =   &H00FF0000&
  241.             Height          =   1035
  242.             Index           =   2
  243.             Left            =   270
  244.             TabIndex        =   34
  245.             Top             =   3780
  246.             Width           =   3615
  247.             Begin VB.TextBox LrText 
  248.                Height          =   300
  249.                Index           =   3
  250.                Left            =   990
  251.                TabIndex        =   10
  252.                Text            =   "3"
  253.                Top             =   570
  254.                Width           =   2460
  255.             End
  256.             Begin VB.CheckBox Chk_QuatFlag 
  257.                Caption         =   "数量核算"
  258.                Height          =   255
  259.                Left            =   180
  260.                TabIndex        =   9
  261.                Top             =   270
  262.                Width           =   2385
  263.             End
  264.             Begin VB.Label TsLabel 
  265.                AutoSize        =   -1  'True
  266.                Caption         =   "计量单位:"
  267.                Height          =   180
  268.                Index           =   5
  269.                Left            =   180
  270.                TabIndex        =   35
  271.                Top             =   630
  272.                Width           =   810
  273.             End
  274.          End
  275.          Begin VB.Frame Frame2 
  276.             Caption         =   "辅助核算(&A)"
  277.             ForeColor       =   &H00FF0000&
  278.             Height          =   1395
  279.             Index           =   1
  280.             Left            =   4380
  281.             TabIndex        =   33
  282.             Top             =   1470
  283.             Width           =   1695
  284.             Begin VB.CheckBox Chk_Ass 
  285.                Caption         =   "供应商往来"
  286.                Height          =   255
  287.                Index           =   4
  288.                Left            =   180
  289.                TabIndex        =   16
  290.                Top             =   510
  291.                Width           =   1335
  292.             End
  293.             Begin VB.CheckBox Chk_Ass 
  294.                Caption         =   "个人往来"
  295.                Height          =   255
  296.                Index           =   2
  297.                Left            =   180
  298.                TabIndex        =   18
  299.                Top             =   1050
  300.                Width           =   1335
  301.             End
  302.             Begin VB.CheckBox Chk_Ass 
  303.                Caption         =   "部门"
  304.                Height          =   255
  305.                Index           =   1
  306.                Left            =   180
  307.                TabIndex        =   17
  308.                Top             =   795
  309.                Width           =   1335
  310.             End
  311.             Begin VB.CheckBox Chk_Ass 
  312.                Caption         =   "客户往来"
  313.                Height          =   255
  314.                Index           =   0
  315.                Left            =   180
  316.                TabIndex        =   15
  317.                Top             =   240
  318.                Width           =   1335
  319.             End
  320.          End
  321.          Begin VB.Frame Frame2 
  322.             Caption         =   "余额方向(&O)"
  323.             ForeColor       =   &H00FF0000&
  324.             Height          =   825
  325.             Index           =   0
  326.             Left            =   4380
  327.             TabIndex        =   32
  328.             Top             =   540
  329.             Width           =   1695
  330.             Begin VB.OptionButton Opt_Yefx 
  331.                Caption         =   "贷方"
  332.                Height          =   225
  333.                Index           =   1
  334.                Left            =   150
  335.                TabIndex        =   14
  336.                Top             =   510
  337.                Width           =   1215
  338.             End
  339.             Begin VB.OptionButton Opt_Yefx 
  340.                Caption         =   "借方"
  341.                Height          =   225
  342.                Index           =   0
  343.                Left            =   150
  344.                TabIndex        =   13
  345.                Top             =   240
  346.                Width           =   1215
  347.             End
  348.          End
  349.          Begin VB.ComboBox Combo_Prop 
  350.             Height          =   300
  351.             Left            =   1125
  352.             Style           =   2  'Dropdown List
  353.             TabIndex        =   4
  354.             Top             =   1485
  355.             Width           =   1725
  356.          End
  357.          Begin VB.ComboBox Combo_Class 
  358.             Height          =   300
  359.             Left            =   1125
  360.             Style           =   2  'Dropdown List
  361.             TabIndex        =   3
  362.             Top             =   1065
  363.             Width           =   1725
  364.          End
  365.          Begin VB.CommandButton Ydcommand1 
  366.             Height          =   300
  367.             Index           =   0
  368.             Left            =   8370
  369.             Picture         =   "基础设置_会计科目设置.frx":178E
  370.             Style           =   1  'Graphical
  371.             TabIndex        =   27
  372.             Top             =   1320
  373.             Visible         =   0   'False
  374.             Width           =   300
  375.          End
  376.          Begin VB.TextBox LrText 
  377.             Height          =   300
  378.             Index           =   1
  379.             Left            =   1125
  380.             TabIndex        =   2
  381.             Text            =   "1"
  382.             Top             =   660
  383.             Width           =   2775
  384.          End
  385.          Begin VB.TextBox LrText 
  386.             Height          =   300
  387.             Index           =   0
  388.             Left            =   1140
  389.             TabIndex        =   1
  390.             Text            =   "0"
  391.             Top             =   240
  392.             Width           =   1710
  393.          End
  394.          Begin VB.Label TsLabel 
  395.             AutoSize        =   -1  'True
  396.             Caption         =   "助记码:"
  397.             Height          =   180
  398.             Index           =   8
  399.             Left            =   270
  400.             TabIndex        =   43
  401.             Top             =   2400
  402.             Width           =   630
  403.          End
  404.          Begin VB.Label TsLabel 
  405.             AutoSize        =   -1  'True
  406.             Caption         =   "帐页格式:"
  407.             Height          =   180
  408.             Index           =   7
  409.             Left            =   285
  410.             TabIndex        =   38
  411.             Top             =   1980
  412.             Width           =   810
  413.          End
  414.          Begin VB.Label TsLabel 
  415.             AutoSize        =   -1  'True
  416.             Caption         =   "科目性质:"
  417.             Height          =   180
  418.             Index           =   2
  419.             Left            =   285
  420.             TabIndex        =   31
  421.             Top             =   1545
  422.             Width           =   810
  423.          End
  424.          Begin VB.Label TsLabel 
  425.             AutoSize        =   -1  'True
  426.             Caption         =   "科目类型:"
  427.             Height          =   180
  428.             Index           =   3
  429.             Left            =   285
  430.             TabIndex        =   30
  431.             Top             =   1125
  432.             Width           =   810
  433.          End
  434.          Begin VB.Label TsLabel 
  435.             AutoSize        =   -1  'True
  436.             Caption         =   "科目名称:"
  437.             Height          =   180
  438.             Index           =   1
  439.             Left            =   285
  440.             TabIndex        =   29
  441.             Top             =   720
  442.             Width           =   810
  443.          End
  444.          Begin VB.Label TsLabel 
  445.             AutoSize        =   -1  'True
  446.             Caption         =   "科目编码:"
  447.             Height          =   180
  448.             Index           =   0
  449.             Left            =   285
  450.             TabIndex        =   28
  451.             Top             =   300
  452.             Width           =   810
  453.          End
  454.       End
  455.       Begin VSFlex8Ctl.VSFlexGrid CzxsGrid 
  456.          Height          =   5895
  457.          Left            =   90
  458.          TabIndex        =   25
  459.          Top             =   390
  460.          Width           =   9135
  461.          _cx             =   5080
  462.          _cy             =   5080
  463.          Appearance      =   1
  464.          BorderStyle     =   1
  465.          Enabled         =   -1  'True
  466.          BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  467.             Name            =   "宋体"
  468.             Size            =   9
  469.             Charset         =   134
  470.             Weight          =   400
  471.             Underline       =   0   'False
  472.             Italic          =   0   'False
  473.             Strikethrough   =   0   'False
  474.          EndProperty
  475.          MousePointer    =   0
  476.          BackColor       =   -2147483643
  477.          ForeColor       =   -2147483640
  478.          BackColorFixed  =   -2147483633
  479.          ForeColorFixed  =   -2147483630
  480.          BackColorSel    =   -2147483635
  481.          ForeColorSel    =   -2147483634
  482.          BackColorBkg    =   8421504
  483.          BackColorAlternate=   -2147483643
  484.          GridColor       =   -2147483633
  485.          GridColorFixed  =   -2147483632
  486.          TreeColor       =   -2147483632
  487.          FloodColor      =   192
  488.          SheetBorder     =   -2147483642
  489.          FocusRect       =   1
  490.          HighLight       =   1
  491.          AllowSelection  =   -1  'True
  492.          AllowBigSelection=   -1  'True
  493.          AllowUserResizing=   0
  494.          SelectionMode   =   0
  495.          GridLines       =   1
  496.          GridLinesFixed  =   2
  497.          GridLineWidth   =   1
  498.          Rows            =   5000
  499.          Cols            =   10
  500.          FixedRows       =   1
  501.          FixedCols       =   0
  502.          RowHeightMin    =   0
  503.          RowHeightMax    =   0
  504.          ColWidthMin     =   0
  505.          ColWidthMax     =   0
  506.          ExtendLastCol   =   0   'False
  507.          FormatString    =   ""
  508.          ScrollTrack     =   0   'False
  509.          ScrollBars      =   3
  510.          ScrollTips      =   0   'False
  511.          MergeCells      =   0
  512.          MergeCompare    =   0
  513.          AutoResize      =   -1  'True
  514.          AutoSizeMode    =   0
  515.          AutoSearch      =   0
  516.          AutoSearchDelay =   2
  517.          MultiTotals     =   -1  'True
  518.          SubtotalPosition=   1
  519.          OutlineBar      =   0
  520.          OutlineCol      =   0
  521.          Ellipsis        =   0
  522.          ExplorerBar     =   0
  523.          PicturesOver    =   0   'False
  524.          FillStyle       =   0
  525.          RightToLeft     =   0   'False
  526.          PictureType     =   0
  527.          TabBehavior     =   0
  528.          OwnerDraw       =   0
  529.          Editable        =   0
  530.          ShowComboButton =   1
  531.          WordWrap        =   0   'False
  532.          TextStyle       =   0
  533.          TextStyleFixed  =   0
  534.          OleDragMode     =   0
  535.          OleDropMode     =   0
  536.          DataMode        =   0
  537.          VirtualData     =   -1  'True
  538.          DataMember      =   ""
  539.          ComboSearch     =   3
  540.          AutoSizeMouse   =   -1  'True
  541.          FrozenRows      =   0
  542.          FrozenCols      =   0
  543.          AllowUserFreezing=   0
  544.          BackColorFrozen =   0
  545.          ForeColorFrozen =   0
  546.          WallPaperAlignment=   9
  547.          AccessibleName  =   ""
  548.          AccessibleDescription=   ""
  549.          AccessibleValue =   ""
  550.          AccessibleRole  =   24
  551.       End
  552.    End
  553.    Begin MSComctlLib.ImageList ImageList1 
  554.       Left            =   0
  555.       Top             =   420
  556.       _ExtentX        =   1005
  557.       _ExtentY        =   1005
  558.       BackColor       =   -2147483643
  559.       ImageWidth      =   16
  560.       ImageHeight     =   16
  561.       MaskColor       =   12632256
  562.       _Version        =   393216
  563.       BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628} 
  564.          NumListImages   =   29
  565.          BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  566.             Picture         =   "基础设置_会计科目设置.frx":1B18
  567.             Key             =   "sz"
  568.          EndProperty
  569.          BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  570.             Picture         =   "基础设置_会计科目设置.frx":1EB2
  571.             Key             =   "dy"
  572.          EndProperty
  573.          BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  574.             Picture         =   "基础设置_会计科目设置.frx":224C
  575.             Key             =   "yl"
  576.          EndProperty
  577.          BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  578.             Picture         =   "基础设置_会计科目设置.frx":25E6
  579.             Key             =   "xg"
  580.          EndProperty
  581.          BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  582.             Picture         =   "基础设置_会计科目设置.frx":2980
  583.             Key             =   "zh"
  584.          EndProperty
  585.          BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  586.             Picture         =   "基础设置_会计科目设置.frx":2D1A
  587.             Key             =   "sh"
  588.          EndProperty
  589.          BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  590.             Picture         =   "基础设置_会计科目设置.frx":30B4
  591.             Key             =   "bc"
  592.          EndProperty
  593.          BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  594.             Picture         =   "基础设置_会计科目设置.frx":344E
  595.             Key             =   "fq"
  596.          EndProperty
  597.          BeginProperty ListImage9 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  598.             Picture         =   "基础设置_会计科目设置.frx":37E8
  599.             Key             =   "bz"
  600.          EndProperty
  601.          BeginProperty ListImage10 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  602.             Picture         =   "基础设置_会计科目设置.frx":3B82
  603.             Key             =   "tc"
  604.          EndProperty
  605.          BeginProperty ListImage11 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  606.             Picture         =   "基础设置_会计科目设置.frx":3F1C
  607.             Key             =   "bcgs"
  608.          EndProperty
  609.          BeginProperty ListImage12 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  610.             Picture         =   "基础设置_会计科目设置.frx":42B6
  611.             Key             =   "mrlk"
  612.          EndProperty
  613.          BeginProperty ListImage13 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  614.             Picture         =   "基础设置_会计科目设置.frx":4650
  615.             Key             =   "xsxm"
  616.          EndProperty
  617.          BeginProperty ListImage14 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  618.             Picture         =   "基础设置_会计科目设置.frx":49EA
  619.             Key             =   "first"
  620.          EndProperty
  621.          BeginProperty ListImage15 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  622.             Picture         =   "基础设置_会计科目设置.frx":4D84
  623.             Key             =   "prev"
  624.          EndProperty
  625.          BeginProperty ListImage16 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  626.             Picture         =   "基础设置_会计科目设置.frx":511E
  627.             Key             =   "next"
  628.          EndProperty
  629.          BeginProperty ListImage17 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  630.             Picture         =   "基础设置_会计科目设置.frx":54B8
  631.             Key             =   "last"
  632.          EndProperty
  633.          BeginProperty ListImage18 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  634.             Picture         =   "基础设置_会计科目设置.frx":5852
  635.             Key             =   "xx"
  636.          EndProperty
  637.          BeginProperty ListImage19 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  638.             Picture         =   "基础设置_会计科目设置.frx":5BEC
  639.             Key             =   "define"
  640.          EndProperty
  641.          BeginProperty ListImage20 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  642.             Picture         =   "基础设置_会计科目设置.frx":5F86
  643.             Key             =   "exec"
  644.          EndProperty
  645.          BeginProperty ListImage21 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  646.             Picture         =   "基础设置_会计科目设置.frx":6320
  647.             Key             =   "xz"
  648.          EndProperty
  649.          BeginProperty ListImage22 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  650.             Picture         =   "基础设置_会计科目设置.frx":66BA
  651.             Key             =   "sc"
  652.          EndProperty
  653.          BeginProperty ListImage23 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  654.             Picture         =   "基础设置_会计科目设置.frx":6A54
  655.             Key             =   "sx"
  656.          EndProperty
  657.          BeginProperty ListImage24 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  658.             Picture         =   "基础设置_会计科目设置.frx":6DEE
  659.             Key             =   "cx"
  660.          EndProperty
  661.          BeginProperty ListImage25 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  662.             Picture         =   "基础设置_会计科目设置.frx":7188
  663.             Key             =   "zd"
  664.          EndProperty
  665.          BeginProperty ListImage26 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  666.             Picture         =   "基础设置_会计科目设置.frx":7522
  667.             Key             =   "dz"
  668.          EndProperty
  669.          BeginProperty ListImage27 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  670.             Picture         =   "基础设置_会计科目设置.frx":78BC
  671.             Key             =   "ph"
  672.          EndProperty
  673.          BeginProperty ListImage28 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  674.             Picture         =   "基础设置_会计科目设置.frx":7C56
  675.             Key             =   "fz"
  676.          EndProperty
  677.          BeginProperty ListImage29 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  678.             Picture         =   "基础设置_会计科目设置.frx":7FF0
  679.             Key             =   "dw"
  680.          EndProperty
  681.       EndProperty
  682.    End
  683.    Begin MSComctlLib.Toolbar SzToolbar 
  684.       Align           =   1  'Align Top
  685.       Height          =   555
  686.       Left            =   0
  687.       TabIndex        =   46
  688.       Top             =   0
  689.       Width           =   9375
  690.       _ExtentX        =   16536
  691.       _ExtentY        =   979
  692.       ButtonWidth     =   820
  693.       ButtonHeight    =   926
  694.       AllowCustomize  =   0   'False
  695.       Appearance      =   1
  696.       Style           =   1
  697.       ImageList       =   "ImageList1"
  698.       _Version        =   393216
  699.       BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628} 
  700.          NumButtons      =   13
  701.          BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  702.             Caption         =   "设置"
  703.             Key             =   "ymsz"
  704.             ImageKey        =   "sz"
  705.          EndProperty
  706.          BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  707.             Caption         =   "打印"
  708.             Key             =   "dy"
  709.             Object.ToolTipText     =   "点击或按Ctrl+P打印表格"
  710.             ImageKey        =   "dy"
  711.          EndProperty
  712.          BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  713.             Caption         =   "预览"
  714.             Key             =   "yl"
  715.             ImageKey        =   "yl"
  716.          EndProperty
  717.          BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  718.             Style           =   3
  719.          EndProperty
  720.          BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  721.             Caption         =   "增加"
  722.             Key             =   "zj"
  723.             Object.ToolTipText     =   "点击或按Ctrl+A增加记录"
  724.             ImageKey        =   "xz"
  725.          EndProperty
  726.          BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  727.             Caption         =   "修改"
  728.             Key             =   "xg"
  729.             ImageKey        =   "xg"
  730.          EndProperty
  731.          BeginProperty Button7 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  732.             Caption         =   "删除"
  733.             Key             =   "sc"
  734.             Object.ToolTipText     =   "点击或按Ctrl+D删除当前记录"
  735.             ImageKey        =   "sc"
  736.          EndProperty
  737.          BeginProperty Button8 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  738.             Style           =   3
  739.          EndProperty
  740.          BeginProperty Button9 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  741.             Caption         =   "定位"
  742.             Key             =   "dw"
  743.             ImageKey        =   "dw"
  744.          EndProperty
  745.          BeginProperty Button10 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  746.             Caption         =   "刷新"
  747.             Key             =   "sx"
  748.             ImageKey        =   "sx"
  749.          EndProperty
  750.          BeginProperty Button11 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  751.             Style           =   3
  752.          EndProperty
  753.          BeginProperty Button12 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  754.             Caption         =   "帮助"
  755.             Key             =   "bz"
  756.             ImageKey        =   "bz"
  757.          EndProperty
  758.          BeginProperty Button13 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  759.             Caption         =   "退出"
  760.             Key             =   "fh"
  761.             ImageKey        =   "tc"
  762.          EndProperty
  763.       EndProperty
  764.       BorderStyle     =   1
  765.       Begin MSComctlLib.Toolbar GsToolbar 
  766.          Height          =   525
  767.          Left            =   6870
  768.          TabIndex        =   47
  769.          Top             =   0
  770.          Width           =   2475
  771.          _ExtentX        =   4366
  772.          _ExtentY        =   926
  773.          ButtonWidth     =   1455
  774.          ButtonHeight    =   926
  775.          AllowCustomize  =   0   'False
  776.          Appearance      =   1
  777.          Style           =   1
  778.          ImageList       =   "ImageList1"
  779.          _Version        =   393216
  780.          BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628} 
  781.             NumButtons      =   3
  782.             BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  783.                Caption         =   "保存格式"
  784.                Key             =   "bcgs"
  785.                ImageKey        =   "bcgs"
  786.             EndProperty
  787.             BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  788.                Caption         =   "默认列宽"
  789.                Key             =   "hfmrgs"
  790.                ImageKey        =   "mrlk"
  791.             EndProperty
  792.             BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  793.                Caption         =   "显示项目"
  794.                Key             =   "szxsxm"
  795.                ImageKey        =   "xsxm"
  796.             EndProperty
  797.          EndProperty
  798.       End
  799.    End
  800. End
  801. Attribute VB_Name = "JC_KjkmszFrm"
  802. Attribute VB_GlobalNameSpace = False
  803. Attribute VB_Creatable = False
  804. Attribute VB_PredeclaredId = True
  805. Attribute VB_Exposed = False
  806. '*******************************************************
  807. '*    模 块 名 称 :会计科目设置
  808. '*    功 能 描 述 :设置公司会计科目
  809. '*    程序员姓名  :张建忠
  810. '*    最后修改人  :张建忠
  811. '*    最后修改时间:2001/11/17
  812. '*    备        注:
  813. '*******************************************************
  815. Dim Rec_CodeSet As New ADODB.Recordset   '编码设置表
  816. Dim RecCodeScheme As New ADODB.Recordset '系统编码方案表
  817. Dim RecTemp As Recordset                 '临时使用动态集
  818. Dim Int_CodeScheme() As Integer          '会计科目编码方案
  819. Dim Int_CodeLev As Integer               '会计科目编码级次
  820. Dim jdzygs As Integer                    '控件焦点转移个数
  821. Dim Lrzt As Integer                      '录入状态标志(0-非录入状态 1-增加 2-修改)
  822. Dim ReportTitle As String                '报表主标题
  823. Dim Bln_ChkAssLock As Boolean            '辅助核算控制锁
  824. Dim Str_RightEdit As String              '编辑(新增、修改、删除)权限索引
  826. '以下为固定使用变量(网格)
  827. Dim Cxnrrec As New ADODB.Recordset       '显示查询内容动态集
  828. Dim Dyymctbl As New DY_Dyymsz            '打印页面窗体变量
  829. Dim GridCode As String                   '显示网格网格代码
  830. Dim GridInf() As Variant                 '整个网格设置信息
  831. Dim Tsxx As String                       '系统提示信息
  832. Dim Qslz As Long                         '网格隐藏(非操作显示)列数
  833. Dim Sjhgd As Double                      '网格数据行高度
  834. Dim GridBoolean() As Boolean             '网格列信息(布尔型)
  835. Dim GridStr()  As String                 '网格列信息(字符型)
  836. Dim GridInt() As Integer                 '网格列信息(整型)
  837. Dim Szzls As Integer                     '数组总列数(网格列数-1)
  839. '以下为固定使用变量(文本框)
  840. Dim Textvar() As Variant                 '存储变体型文本框信息
  841. Dim Textboolean() As Boolean             '存储布尔型文本框信息
  842. Dim Textint() As Integer                 '存储整型文本框信息
  843. Dim Textstr() As String                  '存储字符型文本框信息
  844. Dim Max_Text_Index As Integer            '最大录入文本框索引值
  845. Dim TextGroupCode As String              '文本框录入分组编码
  846. Dim TextValiLock As Boolean              '文本框失去焦点是否进行有效性控制判断
  847. Dim TextValiJudgeLock() As Boolean       '文本框录入有效性判断控制锁
  848. Dim CurTextIndex As Integer              '当前文本框索引值
  849. Dim TextChangeLock As Boolean            '文本框内容变换控制锁
  850. Dim Bln_Cancel As Boolean                '取消按钮信息传递
  852. Private Sub Form_KeyPress(KeyAscii As Integer)   '控 制 焦 点 转 移
  853.     
  854.     jdzygs = 25
  855.     
  856.     Select Case KeyAscii
  857.     Case vbKeyReturn
  858.         If Kjjdzy(jdzygs) Then
  859.             KeyAscii = 0
  860.         End If
  861.     Case 39           '屏蔽"'"
  862.         KeyAscii = 0
  863.     End Select
  864.     
  865. End Sub
  867. Private Sub Form_Load()
  868.     
  869.     '打印报表标题信息
  870.     ReportTitle = "会 计 科 目 表"
  871.     
  872.     '调入打印页面设置窗体
  873.     XtReportCode = "Cwzz_Kjkmsz"
  874.     Load Dyymctbl
  875.     
  876.     '以下为文本框处理程序(读入文本框录入信息)
  877.     TextGroupCode = "Cwzz_Kjkmsz"
  878.     Call Drwbkxx(TextGroupCode, Textvar(), Textboolean(), Textint(), Textstr())
  879.     Call Wbkcsh
  880.     
  881.     '调入网格设置信息
  882.     GridCode = "Cwzz_Kjkmsz"
  883.     Call BzWgcsh(CzxsGrid, GridCode, GridInf(), GridBoolean(), GridInt(), GridStr())
  884.     Qslz = GridInf(1)
  885.     Sjhgd = GridInf(2)
  886.     Szzls = CzxsGrid.Cols - 1
  887.     
  888.     '填 充 网 格
  889.     Call Cxnrtcwg
  890.     
  891.     '初始化ToolBar,Tab卡状态
  892.     StTab.Tab = 0
  893.     StTab.TabEnabled(1) = False
  894.     Frame1.Enabled = False
  895.     
  896.     '设置为非录入状态
  897.     Lrzt = 0
  898.     
  899.     '初始化科目类型列表框
  900.     Call FillCombo(Combo_Class, "Cwzz_Kmlx", "", 0)
  901.     
  902.     '初始化科目性质列表框
  903.     Call FillCombo(Combo_Prop, "Cwzz_Kmxz", "", 0)
  904.     
  905.     '初始化帐页格式列表框
  906.     Call FillCombo(Combo_AccFormat, "Cwzz_Zygs", "", 0)
  907.     
  908.     '读入会计科目编码方案
  909.     Set RecCodeScheme = Cw_DataEnvi.DataConnect.Execute("Select CodeScheme From Gy_CodeScheme Where ItemCode='Cwzz_Kmcode'")
  910.     With RecCodeScheme
  911.         If Not .EOF Then
  912.             Int_CodeLev = Len(Trim(.Fields("CodeScheme")))
  913.             ReDim Int_CodeScheme(Int_CodeLev)
  914.             lenjsq = 0
  915.             For Jsqte = 1 To Int_CodeLev
  916.                 lenjsq = lenjsq + Mid(Trim(.Fields("CodeScheme")), Jsqte, 1)
  917.                 Int_CodeScheme(Jsqte) = lenjsq
  918.             Next Jsqte
  919.         End If
  920.         .Close
  921.     End With
  922.     
  923.     '初始化余额方向
  924.     Opt_Yefx(0).Value = True
  925.     
  926.     '初始化外币 数量 项目核算标志 汇总打印
  927.     Call Textwx(LrText(2))
  928.     Call Textwx(LrText(3))
  929.     Ydcommand1(2).Enabled = False
  930.     Call Textwx(LrText(4))
  931.     Ydcommand1(4).Enabled = False
  932.     Call Textwx(LrText(6))
  933.     
  934.     '编辑(新增、修改、删除)权限索引
  935.     Str_RightEdit = "Cwzz_kjkmsz_Edit"
  936.     
  937. End Sub
  939. Private Sub Cxnrtcwg()                               '查询内容填充网格
  940.     
  941.     Dim Sqlstr As String              '查询连接串
  942.     Dim Jsqte As Long                 '查询临时使用变量
  943.     
  944.     '为加快显示速度,将网格刷新动作冻结
  945.     CzxsGrid.Redraw = False
  946.     
  947.     '[>>查询连接串
  948.     Sqlstr = "SELECT Cwzz_AccCode.*, Gy_ForeignCurrency.ForeignCurrName FROM Cwzz_AccCode LEFT OUTER JOIN" & _
  949.     " Gy_ForeignCurrency ON" & _
  950.     " Cwzz_AccCode.ForeignCurrCode = Gy_ForeignCurrency.ForeignCurrCode order by Ccode"
  951.     '<<]
  952.     Set Cxnrrec = Cw_DataEnvi.DataConnect.Execute(Sqlstr)
  953.     
  954.     With Cxnrrec
  955.         CzxsGrid.Rows = CzxsGrid.FixedRows
  956.         If .EOF And .BOF Then
  957.             CzxsGrid.Redraw = True
  958.             Exit Sub
  959.         End If
  960.         Jsqte = CzxsGrid.FixedRows
  961.         Do While Not .EOF
  962.             CzxsGrid.AddItem ""
  963.             Call Jltcwg(Cxnrrec, Jsqte)                              '调入填充网格子过程
  964.             CzxsGrid.RowHeight(Jsqte) = Sjhgd                        '设置网格高度
  965.             .MoveNext
  966.             Jsqte = Jsqte + 1
  967.         Loop
  968.     End With
  969.     
  970.     '将网格刷新动作解冻
  971.     CzxsGrid.Redraw = True
  972.     
  973. End Sub
  975. Private Sub Jltcwg(Jlbrec As ADODB.Recordset, Rowjsq As Long)           '记录内容填充网格
  976.     
  977.     Dim Str_Fzhs As String      '辅助核算
  978.     
  979.     '[以下为自定义部分
  980.     With Jlbrec
  981.         
  982.         CzxsGrid.TextMatrix(Rowjsq, Sydz("001", GridStr(), Szzls)) = Trim(.Fields("CClass"))
  983.         CzxsGrid.TextMatrix(Rowjsq, Sydz("002", GridStr(), Szzls)) = .Fields("CodeLevel")
  984.         CzxsGrid.TextMatrix(Rowjsq, Sydz("003", GridStr(), Szzls)) = Trim(.Fields("CCode") & "")
  985.         CzxsGrid.TextMatrix(Rowjsq, Sydz("004", GridStr(), Szzls)) = Trim(.Fields("Cname") & "")
  986.         CzxsGrid.TextMatrix(Rowjsq, Sydz("005", GridStr(), Szzls)) = Trim(.Fields("ForeignCurrName") & "")
  987.         CzxsGrid.TextMatrix(Rowjsq, Sydz("006", GridStr(), Szzls)) = Trim(.Fields("Measure") & "")
  988.         CzxsGrid.TextMatrix(Rowjsq, Sydz("007", GridStr(), Szzls)) = Trim(.Fields("Cproperty") & "")
  989.         Str_Fzhs = ""
  990.         If .Fields("DeptFlag") Then
  991.             Str_Fzhs = Str_Fzhs + "部门 "
  992.         End If
  993.         If .Fields("CusFlag") Then
  994.             Str_Fzhs = Str_Fzhs + "客户 "
  995.         End If
  996.         If .Fields("SupplierFlag") Then
  997.             Str_Fzhs = Str_Fzhs + "供应商 "
  998.         End If
  999.         If .Fields("PersonFlag") Then
  1000.             Str_Fzhs = Str_Fzhs + "个人 "
  1001.         End If
  1002.         If .Fields("ItemFlag") Then
  1003.             Str_Fzhs = Str_Fzhs + "项目 "
  1004.         End If
  1005.         CzxsGrid.TextMatrix(Rowjsq, Sydz("008", GridStr(), Szzls)) = Trim(Str_Fzhs)
  1006.         CzxsGrid.TextMatrix(Rowjsq, Sydz("009", GridStr(), Szzls)) = Trim(.Fields("AccFormat") & "")
  1007.         CzxsGrid.TextMatrix(Rowjsq, Sydz("010", GridStr(), Szzls)) = Trim(.Fields("BalanceOri") & "")
  1008.         CzxsGrid.TextMatrix(Rowjsq, Sydz("011", GridStr(), Szzls)) = Trim(.Fields("StopFlag") & "")
  1009.         CzxsGrid.TextMatrix(Rowjsq, Sydz("012", GridStr(), Szzls)) = Trim(.Fields("AssCode") & "")
  1010.         
  1011.     End With
  1012.     '以上为自定义部分]
  1013.     
  1014. End Sub
  1016. Private Sub Form_Unload(Cancel As Integer)             '窗体卸载
  1017.     
  1018.     Set Cxnrrec = Nothing
  1019.     Set Rec_CodeSet = Nothing
  1020.     Unload Dyymctbl
  1021.     
  1022. End Sub
  1024. Private Function Bclrsj() As Boolean                   '判断录入数据有效性,并保存数据
  1025.     
  1026.     Dim Jsqte As Integer
  1027.     Dim Str_Parent As String   '上级科目号
  1028.     Dim CodeLength As Integer  '录入科目长度
  1029.     Dim CodeLev As Integer     '录入科目级次
  1030.     
  1031.     '对文本框录入内容进行为零和为空判断(固定不变)
  1032.     With Rec_CodeSet
  1033.         For Jsqte = 0 To Max_Text_Index
  1034.             If Textint(Jsqte, 8) = 1 Then     '字段不能为空
  1035.                 If Len(Trim(LrText(Jsqte).Text)) = 0 Then
  1036.                     Tsxx = Textstr(Jsqte, 7) & "不能为空!"
  1037.                     Call Xtxxts(Tsxx, 0, 1)
  1038.                     LrText(Jsqte).SetFocus
  1039.                     Bclrsj = False
  1040.                     Exit Function
  1041.                 End If
  1042.             Else
  1043.                 If Textint(Jsqte, 8) = 2 Then   '字段不能为零
  1044.                     If Val(Trim(LrText(Jsqte).Text)) = 0 Then
  1045.                         Tsxx = Textstr(Jsqte, 7) & "不能为零!"
  1046.                         Call Xtxxts(Tsxx, 0, 1)
  1047.                         LrText(Jsqte).SetFocus
  1048.                         Bclrsj = False
  1049.                         Exit Function
  1050.                     End If
  1051.                 End If
  1052.             End If
  1053.         Next Jsqte
  1054.         
  1055.         '如有外币核算,则外币栏不能为空
  1056.         If Chk_ForiFlag.Value = 1 Then
  1057.             If Len(Trim(LrText(2).Text)) = 0 Then
  1058.                 Tsxx = "科目进行外币核算,则外币项不能为空!"
  1059.                 Call Xtxxts(Tsxx, 0, 1)
  1060.                 LrText(2).SetFocus
  1061.                 Bclrsj = False
  1062.                 Exit Function
  1063.             End If
  1064.         End If
  1065.         
  1066.         '如有数量核算,则数量栏不能为空
  1067.         If Chk_QuatFlag.Value = 1 Then
  1068.             If Len(Trim(LrText(3).Text)) = 0 Then
  1069.                 Tsxx = "科目进行数量核算,则数量项不能为空!"
  1070.                 Call Xtxxts(Tsxx, 0, 1)
  1071.                 LrText(3).SetFocus
  1072.                 
  1073.                 Bclrsj = False
  1074.                 Exit Function
  1075.             End If
  1076.         End If
  1077.         
  1078.         '如有项目核算,则项目类别栏不能为空
  1079.         If Chk_Ass(3).Value = 1 Then
  1080.             If Len(Trim(LrText(4).Text)) = 0 Then
  1081.                 Tsxx = "科目进行项目核算,则项目类别项不能为空!"
  1082.                 Call Xtxxts(Tsxx, 0, 1)
  1083.                 LrText(4).SetFocus
  1084.                 Bclrsj = False
  1085.                 Exit Function
  1086.             End If
  1087.         End If
  1088.         
  1089.         '对需要进行事后判断的文本框录入内容进行有效性判断 (固定不变)
  1090.         For Jsqte = 0 To Max_Text_Index
  1091.             If Textint(Jsqte, 9) = 0 Or Textint(Jsqte, 9) = 2 Then
  1092.                 If Not TextYxxpd(Jsqte) Then
  1093.                     Exit Function
  1094.                 End If
  1095.             End If
  1096.         Next Jsqte
  1097.         
  1098.         If Lrzt = 1 Then  '增 加
  1099.             
  1100.             '判断科目编码是否符合规则,如有效则同时计算科目级次和上级科目编码
  1101.             For Jsqte = 1 To Int_CodeLev
  1102.                 If Int_CodeScheme(Jsqte) = Len(Trim(LrText(0).Text)) Then
  1103.                     CodeLev = Jsqte
  1104.                     Exit For
  1105.                 End If
  1106.             Next Jsqte
  1107.             If Jsqte <= CodeLev Then
  1108.                 If Jsqte > 1 Then
  1109.                     Str_Parent = Mid(Trim(LrText(0).Text), 1, Int_CodeScheme(Jsqte - 1))
  1110.                 Else
  1111.                     Str_Parent = ""
  1112.                 End If
  1113.             Else
  1114.                 Tsxx = "科目编码不符合编码规则!"
  1115.                 Call Xtxxts(Tsxx, 0, 1)
  1116.                 LrText(0).SetFocus
  1117.                 Bclrsj = False
  1118.                 Exit Function
  1119.             End If
  1120.             
  1121.             '判断此科目是否已建立上级科目
  1122.             If Str_Parent <> "" Then
  1123.                 Set Rec_CodeSet = Cw_DataEnvi.DataConnect.Execute("SELECT CCode,StopFlag FROM Cwzz_AccCode  Where CCode='" & Trim(Str_Parent) & "'")
  1124.                 If Rec_CodeSet.EOF Then
  1125.                     Tsxx = "请先建立其上级科目编码!"
  1126.                     Call Xtxxts(Tsxx, 0, 1)
  1127.                     LrText(0).Text = Str_Parent
  1128.                     LrText(0).SelStart = Len(LrText(0).Text)
  1129.                     LrText(0).SetFocus
  1130.                     Bclrsj = False
  1131.                     Exit Function
  1132.                 Else
  1133.                     If Rec_CodeSet.Fields("StopFlag") Then
  1134.                         Tsxx = "其上级科目编码已停用,不能建立下级科目!"
  1135.                         Call Xtxxts(Tsxx, 0, 1)
  1136.                         LrText(0).SetFocus
  1137.                         Bclrsj = False
  1138.                         Exit Function
  1139.                     End If
  1140.                 End If
  1141.                 Set RecTemp = Cw_DataEnvi.DataConnect.Execute("SELECT Top 1 CCode FROM Cwzz_AccVouchSub Where CCode='" & Trim(Str_Parent) & "'")
  1142.                 If Not RecTemp.EOF Then
  1143.                     Tsxx = "科目编码(" + Str_Parent + ")已使用,不能建立下级科目!"
  1144.                     Call Xtxxts(Tsxx, 0, 1)
  1145.                     LrText(0).SelStart = Len(LrText(0).Text)
  1146.                     LrText(0).SetFocus
  1147.                     Bclrsj = False
  1148.                     Exit Function
  1149.                 End If
  1150.             End If
  1151.             
  1152.             '[>>判断编码是否重复
  1153.             If .State = 1 Then .Close
  1154.             .Open "SELECT * FROM Cwzz_AccCode WHERE Ccode= '" + Trim(LrText(0).Text) + "'", Cw_DataEnvi.DataConnect, adOpenDynamic, adLockOptimistic
  1155.             If Not .EOF Then
  1156.                 Tsxx = "科目编码重复!"
  1157.                 Call Xtxxts(Tsxx, 0, 1)
  1158.                 LrText(0).SetFocus
  1159.                 Bclrsj = False
  1160.                 Exit Function
  1161.             End If
  1162.             
  1163.             '判断名称是否重复
  1164.             If .State = 1 Then .Close
  1165.             .Open "SELECT * FROM Cwzz_AccCode WHERE Cname= '" + Trim(LrText(1).Text) + "'", Cw_DataEnvi.DataConnect, adOpenDynamic, adLockOptimistic
  1166.             If Not .EOF Then
  1167.                 Tsxx = "科目名称重复!"
  1168.                 Call Xtxxts(Tsxx, 0, 1)
  1169.                 LrText(1).SetFocus
  1170.                 Bclrsj = False
  1171.                 Exit Function
  1172.             End If
  1173.             
  1174.             '判断助记码是否唯一
  1175.             If Trim(LrText(5).Text) <> "" Then
  1176.                 If .State = 1 Then .Close
  1177.                 .Open "SELECT * FROM Cwzz_AccCode WHERE AssCode= '" + Trim(LrText(5).Text) + "'", Cw_DataEnvi.DataConnect, adOpenDynamic, adLockOptimistic
  1178.                 If Not .EOF Then
  1179.                     Tsxx = "助记码不唯一!"
  1180.                     Call Xtxxts(Tsxx, 0, 1)
  1181.                     LrText(5).SetFocus
  1182.                     Bclrsj = False
  1183.                     Exit Function
  1184.                 End If
  1185.             End If
  1186.             
  1187.             '如果科目汇总打印则其汇总科目不能为空且为其上级科目
  1188.             If Chk_SumPrint.Value = 1 Then
  1189.                 If Len(Trim(LrText(6).Text)) = 0 Then
  1190.                     Tsxx = "科目进行汇总打印,则汇总科目不能为空!"
  1191.                     Call Xtxxts(Tsxx, 0, 1)
  1192.                     LrText(6).SetFocus
  1193.                     Bclrsj = False
  1194.                     Exit Function
  1195.                 Else
  1196.                     If InStr(1, Trim(LrText(0).Text), Trim(LrText(6).Text)) = 0 Then
  1197.                         Tsxx = "汇总打印科目必须为其上级科目!"
  1198.                         Call Xtxxts(Tsxx, 0, 1)
  1199.                         LrText(6).SetFocus
  1200.                         Bclrsj = False
  1201.                         Exit Function
  1202.                     End If
  1203.                     
  1204.                     '判断汇总科目是否存在
  1205.                     Set RecTemp = Cw_DataEnvi.DataConnect.Execute("Select Ccode From Cwzz_AccCode Where Ccode='" & Trim(LrText(6).Text) & "'")
  1206.                     
  1207.                     If RecTemp.EOF Then
  1208.                         Tsxx = "汇总打印科目不存在!"
  1209.                         Call Xtxxts(Tsxx, 0, 1)
  1210.                         LrText(6).SetFocus
  1211.                         Bclrsj = False
  1212.                         Exit Function
  1213.                     End If
  1214.                 End If
  1215.             End If
  1216.             
  1217.             '判断记录内容无误后,将记录内容写入数据表
  1218.             On Error GoTo Swcwcl
  1219.             
  1220.             Cw_DataEnvi.DataConnect.BeginTrans
  1221.             
  1222.             .AddNew
  1223.             .Fields("Cclass") = Combo_Class.Text           '科目类型
  1224.             .Fields("ParentCode") = Str_Parent             '上级科目编码
  1225.             .Fields("Ccode") = Trim(LrText(0).Text)        '科目编码
  1226.             .Fields("AssCode") = Trim(LrText(5).Text)      '助记码
  1227.             .Fields("Cname") = Trim(LrText(1).Text)        '科目名称
  1228.             .Fields("CodeLevel") = CodeLev                 '科目级次
  1229.             .Fields("CProperty") = Combo_Prop.Text         '科目性质
  1230.             .Fields("AccFormat") = Combo_AccFormat.Text    '帐页格式
  1231.             If Chk_ForiFlag.Value = 1 Then                 '外币
  1232.                 .Fields("ForeignFlag") = 1
  1233.                 .Fields("ForeignCurrCode") = Trim(LrText(2).Tag)
  1234.             Else
  1235.                 .Fields("ForeignFlag") = 0
  1236.                 .Fields("ForeignCurrCode") = Null
  1237.             End If
  1238.             If Chk_QuatFlag.Value = 1 Then                 '数量单位
  1239.                 .Fields("QuantityFlag") = 1
  1240.                 .Fields("Measure") = Trim(LrText(3).Text)
  1241.             Else
  1242.                 .Fields("QuantityFlag") = 0
  1243.                 .Fields("Measure") = ""
  1244.             End If
  1245.             If Chk_SumPrint.Value = 1 Then                 '汇总打印
  1246.                 .Fields("IIFSum") = 1
  1247.                 .Fields("cSumCode") = Trim(LrText(6).Text)
  1248.             Else
  1249.                 .Fields("IIFSum") = 1
  1250.                 .Fields("cSumCode") = Trim(LrText(6).Text)
  1251.             End If
  1252.             If Opt_Yefx(0) Then                            '余额方向
  1253.                 .Fields("BalanceOri") = "借"
  1254.             Else
  1255.                 .Fields("BalanceOri") = "贷"
  1256.             End If
  1257.             
  1258.             If Chk_Ass(0).Value = 1 Then                   '客户核算
  1259.                 .Fields("CusFlag") = 1
  1260.             Else
  1261.                 .Fields("CusFlag") = 0
  1262.             End If
  1263.             If Chk_Ass(4).Value = 1 Then                   '供应商核算
  1264.                 .Fields("SupplierFlag") = 1
  1265.             Else
  1266.                 .Fields("SupplierFlag") = 0
  1267.             End If
  1268.             If Chk_Ass(1).Value = 1 Then                   '部门核算
  1269.                 .Fields("DeptFlag") = 1
  1270.             Else
  1271.                 .Fields("DeptFlag") = 0
  1272.             End If
  1273.             If Chk_Ass(2).Value = 1 Then                   '个人核算
  1274.                 .Fields("PersonFlag") = 1
  1275.             Else
  1276.                 .Fields("PersonFlag") = 0
  1277.             End If
  1278.             If Chk_Ass(3).Value = 1 Then                   '项目核算
  1279.                 .Fields("ItemFlag") = 1
  1280.                 .Fields("ItemClassCode") = Trim(LrText(4).Tag)
  1281.             Else
  1282.                 .Fields("ItemFlag") = 0
  1283.                 .Fields("ItemClassCode") = Null
  1284.             End If
  1285.             If Chk_DayBookFlag.Value = 1 Then                 '日记帐
  1286.                 .Fields("DayBookFlag") = 1
  1287.             Else
  1288.                 .Fields("DayBookFlag") = 0
  1289.             End If
  1290.             If Chk_CashFlow.Value = 1 Then                 '现金或现金等价物
  1291.                 .Fields("CashFlowFlag") = 1
  1292.             Else
  1293.                 .Fields("CashFlowFlag") = 0
  1294.             End If
  1295.             .Fields("EndFlag") = 1                         '末级标志
  1296.             
  1297.             If ChkStopUse.Value = 1 Then                   '停用
  1298.                 .Fields("StopFlag") = 1
  1299.             Else
  1300.                 .Fields("StopFlag") = 0
  1301.             End If
  1302.           
  1303.             .Update
  1304.             
  1305.             '将上级科目末级标志置0
  1306.             
  1307.             Set RecTemp = Cw_DataEnvi.DataConnect.Execute("Update Cwzz_AccCode Set Endflag=0 Where Ccode='" & Trim(Str_Parent) & "'")
  1308.             
  1309.             Cw_DataEnvi.DataConnect.CommitTrans
  1310.             
  1311.             Sqlstr = "SELECT Cwzz_AccCode.*, Gy_ForeignCurrency.ForeignCurrName FROM Cwzz_AccCode LEFT OUTER JOIN" & _
  1312.             " Gy_ForeignCurrency ON" & _
  1313.             " Cwzz_AccCode.ForeignCurrCode = Gy_ForeignCurrency.ForeignCurrCode WHERE Ccode= '" & Trim(LrText(0).Text) & "'"
  1314.             Set Cxnrrec = Cw_DataEnvi.DataConnect.Execute(Sqlstr)
  1315.             
  1316.             With CzxsGrid
  1317.                 .AddItem ""
  1318.                 .RowHeight(.Rows - 1) = Sjhgd
  1319.                 .Select .Rows - 1, Qslz
  1320.                 Call Jltcwg(Cxnrrec, .Rows - 1)
  1321.             End With
  1322.             
  1323.             Tsxx = "保存完毕!"
  1324.             Call Xtxxts(Tsxx, 0, 4)
  1325.             Call Cshlrxx(1)
  1326.             LrText(0).SetFocus
  1327.             
  1328.             '将网格按科目编码排序
  1329.             With CzxsGrid
  1330.                 .Col = Sydz("003", GridStr(), Szzls)
  1331.                 CzxsGrid.Sort = flexSortStringAscending
  1332.             End With
  1333.             
  1334.         Else  '否则为修改记录
  1335.             
  1336.             If .State = 1 Then .Close
  1337.             .Open "SELECT * FROM Cwzz_AccCode WHERE Cname= '" + Trim(LrText(1).Text) + "' and CCode<>'" & Trim(LrText(0).Text) & "'", Cw_DataEnvi.DataConnect, adOpenDynamic, adLockOptimistic
  1338.             If Not .EOF Then
  1339.                 Tsxx = "科目名称重复!"
  1340.                 Call Xtxxts(Tsxx, 0, 1)
  1341.                 LrText(1).SetFocus
  1342.                 Bclrsj = False
  1343.                 Exit Function
  1344.             End If
  1345.             
  1346.             '判断助记码是否唯一
  1347.             If Trim(LrText(5).Text) <> "" Then
  1348.                 If .State = 1 Then .Close
  1349.                 .Open "SELECT * FROM Cwzz_AccCode WHERE AssCode= '" + Trim(LrText(5).Text) + "' and CCode<>'" & Trim(LrText(0).Text) & "'", Cw_DataEnvi.DataConnect, adOpenDynamic, adLockOptimistic
  1350.                 If Not .EOF Then
  1351.                     Tsxx = "助记码不唯一!"
  1352.                     Call Xtxxts(Tsxx, 0, 1)
  1353.                     LrText(5).SetFocus
  1354.                     Bclrsj = False
  1355.                     Exit Function
  1356.                 End If
  1357.             End If
  1358.             
  1359.             '如果科目汇总打印则其汇总科目不能为空且为其上级科目
  1360.             If Chk_SumPrint.Value = 1 Then
  1361.                 If Len(Trim(LrText(6).Text)) = 0 Then
  1362.                     Tsxx = "科目进行汇总打印,则汇总科目不能为空!"
  1363.                     Call Xtxxts(Tsxx, 0, 1)
  1364.                     LrText(6).SetFocus
  1365.                     Bclrsj = False
  1366.                     Exit Function
  1367.                 Else
  1368.                     If InStr(1, Trim(LrText(0).Text), Trim(LrText(6).Text)) = 0 Then
  1369.                         Tsxx = "汇总打印科目必须为其上级科目!"
  1370.                         Call Xtxxts(Tsxx, 0, 1)
  1371.                         LrText(6).SetFocus
  1372.                         Bclrsj = False
  1373.                         Exit Function
  1374.                     End If
  1375.                     
  1376.                     '判断汇总科目是否存在
  1377.                     Set RecTemp = Cw_DataEnvi.DataConnect.Execute("Select Ccode From Cwzz_AccCode Where Ccode='" & Trim(LrText(6).Text) & "'")
  1378.                     
  1379.                     If RecTemp.EOF Then
  1380.                         Tsxx = "汇总打印科目不存在!"
  1381.                         Call Xtxxts(Tsxx, 0, 1)
  1382.                         LrText(6).SetFocus
  1383.                         Bclrsj = False
  1384.                         Exit Function
  1385.                     End If
  1386.                 End If
  1387.             End If
  1388.             
  1389.             On Error GoTo Swcwcl
  1390.             
  1391.             Cw_DataEnvi.DataConnect.BeginTrans
  1392.             
  1393.             If .State = 1 Then .Close
  1394.             .Open "SELECT * FROM Cwzz_AccCode WHERE Ccode= '" + Trim(LrText(0).Text) + "'", Cw_DataEnvi.DataConnect, adOpenDynamic, adLockOptimistic
  1395.             If Not .EOF Then
  1396.                 .Fields("AssCode") = Trim(LrText(5).Text)      '助记码
  1397.                 .Fields("Cclass") = Combo_Class.Text           '科目类型
  1398.                 .Fields("Cname") = Trim(LrText(1).Text)        '科目名称
  1399.                 .Fields("CProperty") = Combo_Prop.Text         '科目性质
  1400.                 .Fields("AccFormat") = Combo_AccFormat.Text    '帐页格式
  1401.                 If Chk_ForiFlag.Value = 1 Then                 '外币
  1402.                     .Fields("ForeignFlag") = 1
  1403.                     .Fields("ForeignCurrCode") = Trim(LrText(2).Tag)
  1404.                 Else
  1405.                     .Fields("ForeignFlag") = 0
  1406.                     .Fields("ForeignCurrCode") = Null
  1407.                 End If
  1408.                 If Chk_QuatFlag.Value = 1 Then                 '数量单位
  1409.                     .Fields("QuantityFlag") = 1
  1410.                     .Fields("Measure") = Trim(LrText(3).Text)
  1411.                 Else
  1412.                     .Fields("QuantityFlag") = 0
  1413.                     .Fields("Measure") = ""
  1414.                 End If
  1415.                 If Chk_SumPrint.Value = 1 Then                 '汇总打印
  1416.                     .Fields("IIFSum") = 1
  1417.                     .Fields("cSumCode") = Trim(LrText(6).Text)
  1418.                 Else
  1419.                     .Fields("IIFSum") = 0
  1420.                     .Fields("cSumCode") = ""
  1421.                 End If
  1422.                 If Opt_Yefx(0) Then                            '余额方向
  1423.                     .Fields("BalanceOri") = "借"
  1424.                 Else
  1425.                     .Fields("BalanceOri") = "贷"
  1426.                 End If
  1427.                 
  1428.                 If Chk_Ass(0).Value = 1 Then                   '客户核算
  1429.                     .Fields("CusFlag") = 1
  1430.                 Else
  1431.                     .Fields("CusFlag") = 0
  1432.                 End If
  1433.                 
  1434.                 If Chk_Ass(4).Value = 1 Then                   '供应商核算
  1435.                     .Fields("SupplierFlag") = 1
  1436.                 Else
  1437.                     .Fields("SupplierFlag") = 0
  1438.                 End If
  1439.                 
  1440.                 If Chk_Ass(1).Value = 1 Then                   '部门核算
  1441.                     .Fields("DeptFlag") = 1
  1442.                 Else
  1443.                     .Fields("DeptFlag") = 0
  1444.                 End If
  1445.                 
  1446.                 If Chk_Ass(2).Value = 1 Then                   '个人核算
  1447.                     .Fields("PersonFlag") = 1
  1448.                 Else
  1449.                     .Fields("PersonFlag") = 0
  1450.                 End If
  1451.                 If Chk_Ass(3).Value = 1 Then                   '项目核算
  1452.                     .Fields("ItemFlag") = 1
  1453.                     .Fields("ItemClassCode") = Trim(LrText(4).Tag)
  1454.                 Else
  1455.                     .Fields("ItemFlag") = 0
  1456.                     .Fields("ItemClassCode") = Null
  1457.                 End If
  1458.                 
  1459.                 If ChkStopUse.Value = 1 Then                   '停用
  1460.                     .Fields("StopFlag") = 1
  1461.                 Else
  1462.                     .Fields("StopFlag") = 0
  1463.                 End If
  1464.                 
  1465.                 If Chk_DayBookFlag.Value = 1 Then                 '日记帐
  1466.                     .Fields("DayBookFlag") = 1
  1467.                 Else
  1468.                     .Fields("DayBookFlag") = 0
  1469.                 End If
  1470.                 
  1471.                 If Chk_CashFlow.Value = 1 Then                 '现金或现金等价物
  1472.                     .Fields("CashFlowFlag") = 1
  1473.                 Else
  1474.                     .Fields("CashFlowFlag") = 0
  1475.                 End If
  1476.                 
  1477.                 .Update
  1478.                 
  1479.                 '修改其下级科目科目类型
  1480.                 Sqlstr = "Update Cwzz_AccCode Set Cclass='" & Combo_Class.Text & "' Where Ccode Like  '" & Trim(LrText(0).Text) & "%'"
  1481.                 Cw_DataEnvi.DataConnect.Execute (Sqlstr)
  1482.                 
  1483.             End If
  1484.             
  1485.             Cw_DataEnvi.DataConnect.CommitTrans
  1486.             
  1487.             Sqlstr = "SELECT Cwzz_AccCode.*, Gy_ForeignCurrency.ForeignCurrName FROM Cwzz_AccCode LEFT OUTER JOIN" & _
  1488.             " Gy_ForeignCurrency ON" & _
  1489.             " Cwzz_AccCode.ForeignCurrCode = Gy_ForeignCurrency.ForeignCurrCode WHERE Ccode= '" & Trim(LrText(0).Text) & "'"
  1490.             Set Cxnrrec = Cw_DataEnvi.DataConnect.Execute(Sqlstr)
  1491.             
  1492.             If Not Cxnrrec.EOF Then
  1493.                 With CzxsGrid
  1494.                     Call Jltcwg(Cxnrrec, .Row)
  1495.                 End With
  1496.             End If
  1497.             
  1498.         End If
  1499.         
  1500.         '保存记录成功,函数返回真值
  1501.         Bclrsj = True
  1502.         Exit Function
  1503.         
  1504.     End With
  1505.     
  1506. Swcwcl:
  1507.     
  1508.     Cw_DataEnvi.DataConnect.RollbackTrans
  1509.     
  1510.     Tsxx = "存盘过程中出现错误,程序自动恢复保存前状态!"
  1511.     Call Xtxxts(Tsxx, 0, 1)
  1512.     
  1513.     Exit Function
  1514.     
  1515. End Function
  1517. Private Function Cshlrxx(lrztxx As Integer) As Boolean              '初始化录入字段信息
  1518.     
  1519.     TextChangeLock = True       '关闭文本框Chang事件
  1520.     
  1521.     If lrztxx = 1 Then
  1522.         
  1523.         '增加新记录时将文本框清空
  1524.         For Jsqte = 0 To Max_Text_Index
  1525.             If Len(Trim(Textstr(Jsqte, 1))) <> 0 Then
  1526.                 LrText(Jsqte).Text = ""
  1527.                 LrText(Jsqte).Tag = ""
  1528.             End If
  1529.             TextValiJudgeLock(Jsqte) = True
  1530.         Next Jsqte
  1531.         
  1532.         '[>>
  1533.         '在此处可添加新增记录时初始化设置
  1534.         Chk_ForiFlag.Value = 0
  1535.         Chk_QuatFlag.Value = 0
  1536.         Chk_SumPrint.Value = 0
  1537.         ChkStopUse.Value = 0
  1538.         Opt_Yefx(0).Value = True
  1539.         For Jsqte = 0 To 3
  1540.             Chk_Ass(Jsqte).Value = 0
  1541.         Next Jsqte
  1542.         
  1543.         ChkStopUse.Enabled = False
  1544.         '<<]
  1545.     Else
  1546.         
  1547.         '修改记录时根据记录关键字(编码)从数据表中读入其他字段内容
  1548.         Sqlstr = "SELECT Cwzz_AccCode.*, Gy_ForeignCurrency.ForeignCurrName,Cwzz_ItemClass.ItemClassName FROM Cwzz_AccCode LEFT OUTER JOIN" & _
  1549.         " Gy_ForeignCurrency ON" & _
  1550.         " Cwzz_AccCode.ForeignCurrCode = Gy_ForeignCurrency.ForeignCurrCode LEFT OUTER JOIN" & _
  1551.         " Cwzz_ItemClass ON" & _
  1552.         " Cwzz_AccCode.ItemClassCode = Cwzz_ItemClass.ItemClassCode  Where CCode='" & Trim(CzxsGrid.TextMatrix(CzxsGrid.Row, Sydz("003", GridStr(), Szzls))) & "'"
  1553.         
  1554.         Set RecTemp = Cw_DataEnvi.DataConnect.Execute(Sqlstr)
  1555.         
  1556.         If Not RecTemp.EOF Then
  1557.             
  1558.             LrText(0).Text = Trim(RecTemp.Fields("Ccode"))                 '科目编码
  1559.             LrText(5).Text = Trim(RecTemp.Fields("AssCode") & "")          '助记码
  1560.             LrText(1).Text = Trim(RecTemp.Fields("Cname") & "")            '科目名称
  1561.             Combo_Class.Text = Trim(RecTemp.Fields("CClass"))              '科目类型
  1562.             Combo_Prop.Text = Trim(RecTemp.Fields("CProperty"))            '科目性质
  1563.             Combo_AccFormat = Trim(RecTemp.Fields("AccFormat"))            '帐页格式
  1564.             
  1565.             If RecTemp.Fields("ForeignFlag") Then
  1566.                 Chk_ForiFlag.Value = 1                                         '外币核算标志
  1567.                 LrText(2).Text = Trim(RecTemp.Fields("ForeignCurrName") & "")
  1568.                 LrText(2).Tag = Trim(RecTemp.Fields("ForeignCurrCode") & "")
  1569.                 Call Textyx(LrText(2))
  1570.                 Ydcommand1(2).Enabled = True
  1571.             Else
  1572.                 Chk_ForiFlag.Value = 0
  1573.                 LrText(2).Text = ""
  1574.                 LrText(2).Tag = ""
  1575.                 Call Textwx(LrText(2))
  1576.                 Ydcommand1(2).Enabled = False
  1577.             End If
  1578.             
  1579.             If RecTemp.Fields("QuantityFlag") Then
  1580.                 Chk_QuatFlag.Value = 1                                          '数量核算标志
  1581.                 LrText(3).Text = Trim(RecTemp.Fields("Measure") & "")
  1582.                 Call Textyx(LrText(3))
  1583.             Else
  1584.                 Chk_QuatFlag.Value = 0
  1585.                 Call Textwx(LrText(3))
  1586.                 LrText(3).Text = ""
  1587.             End If
  1588.             
  1589.             If RecTemp.Fields("IIFSum") Then
  1590.                 Chk_SumPrint.Value = 1                                          '汇总打印
  1591.                 LrText(6).Text = Trim(RecTemp.Fields("cSumCode") & "")
  1592.                 Call Textyx(LrText(6))
  1593.             Else
  1594.                 Chk_SumPrint.Value = 0
  1595.                 Call Textwx(LrText(6))
  1596.                 LrText(6).Text = ""
  1597.             End If
  1598.             
  1599.             If Trim(RecTemp.Fields("BalanceOri")) = "借" Then                  '余额方向
  1600.                 Opt_Yefx(0).Value = True
  1601.             Else
  1602.                 Opt_Yefx(1).Value = True
  1603.             End If
  1604.             
  1605.             If RecTemp.Fields("CusFlag") Then
  1606.                 Chk_Ass(0).Value = 1                                           '辅助核算(客户)
  1607.             Else
  1608.                 Chk_Ass(0).Value = 0
  1609.             End If
  1610.             
  1611.             If RecTemp.Fields("SupplierFlag") Then
  1612.                 Chk_Ass(4).Value = 1                                           '辅助核算(供应商)
  1613.             Else
  1614.                 Chk_Ass(4).Value = 0
  1615.             End If
  1616.             
  1617.             If RecTemp.Fields("DeptFlag") Then
  1618.                 Chk_Ass(1).Value = 1                                           '辅助核算(部门)
  1619.             Else
  1620.                 Chk_Ass(1).Value = 0
  1621.             End If
  1622.             
  1623.             If RecTemp.Fields("PersonFlag") Then
  1624.                 Chk_Ass(2).Value = 1                                           '辅助核算(个人)
  1625.             Else
  1626.                 Chk_Ass(2).Value = 0
  1627.             End If
  1628.             
  1629.             If RecTemp.Fields("ItemFlag") Then                                 '辅助核算(项目)
  1630.                 Chk_Ass(3).Value = 1
  1631.                 LrText(4).Text = Trim(RecTemp.Fields("ItemClassName") & "")
  1632.                 LrText(4).Tag = Trim(RecTemp.Fields("ItemClassCode") & "")
  1633.                 Call Textyx(LrText(4))
  1634.                 Ydcommand1(4).Enabled = True
  1635.             Else
  1636.                 Chk_Ass(3).Value = 0
  1637.                 LrText(4).Text = ""
  1638.                 LrText(4).Tag = ""
  1639.                 Call Textwx(LrText(4))
  1640.                 Ydcommand1(4).Enabled = False
  1641.             End If
  1642.             
  1643.             If RecTemp.Fields("DayBookFlag") Then                             '日记帐
  1644.                 Chk_DayBookFlag.Value = 1
  1645.             Else
  1646.                 Chk_DayBookFlag.Value = 0
  1647.             End If
  1648.             
  1649.             If RecTemp.Fields("CashFlowFlag") Then                             '现金或现金等价物
  1650.                 Chk_CashFlow.Value = 1
  1651.             Else
  1652.                 Chk_CashFlow.Value = 0
  1653.             End If
  1654.             
  1655.             If RecTemp.Fields("StopFlag") Then                                  '停用
  1656.                 ChkStopUse.Value = 1
  1657.             Else
  1658.                 ChkStopUse.Value = 0
  1659.             End If
  1660.             
  1661.             If RecTemp.Fields("EndFlag") Then                                   '停用是否有效
  1662.                 ChkStopUse.Enabled = True
  1663.             Else
  1664.                 ChkStopUse.Enabled = False
  1665.             End If
  1666.             
  1667.             
  1668.             
  1669.         Else
  1670.             Tsxx = "该科目已经被其他人删除,请刷新当前数据!"
  1671.             Call Xtxxts(Tsxx, 0, 4)
  1672.             Call Cancel
  1673.             TextChangeLock = False
  1674.             Exit Function
  1675.         End If
  1676.         
  1677.     End If
  1678.     
  1679.     Cshlrxx = True
  1680.     TextChangeLock = False
  1681.     
  1682. End Function
  1684. Private Sub Scdqjl()                 '删 除 当 前 记 录
  1685.     
  1686.     Dim Str_Parent As String
  1687.     Dim Yhanswer As Integer
  1688.     
  1689.     
  1690.     '判断用户是否有此功能执行权限,如有则写上机日志(进入)
  1691.     If Not Security_Log(Str_RightEdit, Xtczybm, 1, True) Then
  1692.          Exit Sub
  1693.     End If
  1694.     
  1695.     '非数据行不能删除
  1696.     If CzxsGrid.Row < CzxsGrid.FixedRows Then
  1697.         Exit Sub
  1698.     End If
  1699.     
  1700.     '用户确认是否删除记录
  1701.     Tsxx = "请确认是否删除当前记录?"
  1702.     Yhanswer = Xtxxts(Tsxx, 2, 2)
  1703.     
  1704.     If Yhanswer = 2 Then
  1705.         Exit Sub
  1706.     End If
  1707.     
  1708.     '判断此科目是否存在下级科目,如存在则提示不能删除
  1709.     
  1710.     Set RecTemp = Cw_DataEnvi.DataConnect.Execute("Select Ccode From Cwzz_AccCode  Where ParentCode='" & Trim(CzxsGrid.TextMatrix(CzxsGrid.Row, Sydz("003", GridStr(), Szzls))) & "'")
  1711.     
  1712.     If Not RecTemp.EOF Then
  1713.         Tsxx = "此科目存在下级科目,不能删除!"
  1714.         Call Xtxxts(Tsxx, 0, 1)
  1715.         Exit Sub
  1716.     End If
  1717.     
  1718.     Set RecTemp = Cw_DataEnvi.DataConnect.Execute("Select ParentCode From Cwzz_AccCode  Where CCode='" & Trim(CzxsGrid.TextMatrix(CzxsGrid.Row, Sydz("003", GridStr(), Szzls))) & "'")
  1719.     
  1720.     If Not RecTemp.EOF Then
  1721.         Str_Parent = Trim(RecTemp.Fields("ParentCode") & "")
  1722.     End If
  1723.     
  1724.     On Error GoTo Cwcl
  1725.     
  1726.     Cw_DataEnvi.DataConnect.BeginTrans
  1727.     
  1728.     '[以下需自定义部分
  1729.     
  1730.     Cw_DataEnvi.DataConnect.Execute "delete Cwzz_AccCode where CCode = '" + Trim(CzxsGrid.TextMatrix(CzxsGrid.Row, Sydz("003", GridStr(), Szzls))) + "'"
  1731.     
  1732.     '依情况修改上级科目末级标志
  1733.     
  1734.     If Str_Parent <> "" Then
  1735.         
  1736.         Set RecTemp = Cw_DataEnvi.DataConnect.Execute("Select Ccode From Cwzz_AccCode  Where ParentCode='" & Str_Parent & "'")
  1737.         
  1738.         If RecTemp.EOF Then
  1739.             Set RecTemp = Cw_DataEnvi.DataConnect.Execute("Update Cwzz_AccCode Set Endflag=1 Where Ccode='" & Trim(Str_Parent) & "'")
  1740.         End If
  1741.     End If
  1742.     
  1743.     '以上为自定义部分]
  1744.     Cw_DataEnvi.DataConnect.CommitTrans
  1745.     
  1746.     CzxsGrid.RemoveItem CzxsGrid.Row
  1747.     
  1748.     Exit Sub
  1749.     
  1750. Cwcl:
  1751.     
  1752.     Cw_DataEnvi.DataConnect.RollbackTrans
  1753.     
  1754.     If Err.Number = -2147217873 Then              '(-2147217873 为SQL Server 2000通过建立外键产生的错误号)
  1755.         Tsxx = "该编码已经被使用,不能删除!"
  1756.         Call Xtxxts(Tsxx, 0, 1)
  1757.         Exit Sub
  1758.     Else
  1759.         Tsxx = "出现未知情况,该编码不能被删除!"
  1760.         Call Xtxxts(Tsxx, 0, 1)
  1761.         Exit Sub
  1762.     End If
  1763.     
  1764. End Sub
  1766. '*******************以下区域为编写自定义过程区域**********************
  1768. Private Sub Chk_ForiFlag_Click()                 '单击外币核算标志
  1769.     
  1770.     If Chk_ForiFlag.Value = 1 Then
  1771.         Call Textyx(LrText(2))
  1772.         Ydcommand1(2).Enabled = True
  1773.     Else
  1774.         Call Textwx(LrText(2))
  1775.         Ydcommand1(2).Enabled = False
  1776.     End If
  1777.     
  1778. End Sub
  1780. Private Sub Chk_QuatFlag_Click()                 '单击数量核算标志
  1781.     
  1782.     If Chk_QuatFlag.Value = 1 Then
  1783.         Call Textyx(LrText(3))
  1784.     Else
  1785.         Call Textwx(LrText(3))
  1786.     End If
  1787.     
  1788. End Sub
  1790. Private Sub Chk_SumPrint_Click()                 '单击汇总打印
  1791.     
  1792.     If Chk_SumPrint.Value = 1 Then
  1793.         Call Textyx(LrText(6))
  1794.     Else
  1795.         Call Textwx(LrText(6))
  1796.     End If
  1797.     
  1798. End Sub
  1800. Private Sub Chk_Ass_Click(Index As Integer)      '单击项目核算标志
  1801.     
  1802.     If Chk_Ass(3).Value = 1 Then
  1803.         Call Textyx(LrText(4))
  1804.         Ydcommand1(4).Enabled = True
  1805.     Else
  1806.         Call Textwx(LrText(4))
  1807.         Ydcommand1(4).Enabled = False
  1808.     End If
  1809.     
  1810.     Select Case Index
  1811.     Case 0                 '客户往来
  1812.         If Chk_Ass(Index).Value = 1 Then
  1813.             Chk_Ass(2).Enabled = False
  1814.             Chk_Ass(4).Enabled = False
  1815.             If Chk_Ass(3).Value = 1 Then
  1816.                 Chk_Ass(1).Enabled = False
  1817.             End If
  1818.             If Chk_Ass(1).Value = 1 Then
  1819.                 Chk_Ass(3).Enabled = False
  1820.             End If
  1821.         Else
  1822.             Chk_Ass(1).Enabled = True
  1823.             Chk_Ass(2).Enabled = True
  1824.             Chk_Ass(3).Enabled = True
  1825.             Chk_Ass(4).Enabled = True
  1826.         End If
  1827.     Case 1                 '部门核算
  1828.         If Chk_Ass(Index).Value = 1 Then
  1829.             If Chk_Ass(0).Value = 1 Then
  1830.                 Chk_Ass(3).Enabled = False
  1831.                 Chk_Ass(4).Enabled = False
  1832.             End If
  1833.             
  1834.             If Chk_Ass(4).Value = 1 Then
  1835.                 Chk_Ass(0).Enabled = False
  1836.                 Chk_Ass(3).Enabled = False
  1837.             End If
  1838.             
  1839.             If Chk_Ass(2).Value = 1 Or Chk_Ass(3).Value = 1 Then
  1840.                 Chk_Ass(0).Enabled = False
  1841.                 Chk_Ass(4).Enabled = False
  1842.             End If
  1843.             
  1844.         Else
  1845.             If Chk_Ass(0).Value <> 1 And Chk_Ass(3).Value <> 1 And Chk_Ass(4).Value <> 1 Then
  1846.                 Chk_Ass(2).Enabled = True
  1847.             End If
  1848.             Chk_Ass(3).Enabled = True
  1849.             If Chk_Ass(0).Value <> 1 Then
  1850.                 Chk_Ass(4).Enabled = True
  1851.             End If
  1852.             If Chk_Ass(4).Value <> 1 Then
  1853.                 Chk_Ass(0).Enabled = True
  1854.             End If
  1855.             
  1856.             If Chk_Ass(3).Value = 1 And Chk_Ass(2).Value = 1 Then
  1857.                 Chk_Ass(0).Enabled = False
  1858.                 Chk_Ass(4).Enabled = False
  1859.             End If
  1860.             
  1861.         End If
  1862.     Case 2                 '个人往来
  1863.         If Chk_Ass(Index).Value <> 1 Then
  1864.             Chk_Ass(0).Enabled = True
  1865.             Chk_Ass(3).Enabled = True
  1866.             Chk_Ass(4).Enabled = True
  1867.         End If
  1868.         
  1869.         If (Chk_Ass(3).Value = 1 And Chk_Ass(1).Value = 1) Or Chk_Ass(Index).Value = 1 Then
  1870.             Chk_Ass(0).Enabled = False
  1871.             Chk_Ass(4).Enabled = False
  1872.         End If
  1873.         
  1874.     Case 3                 '项目核算
  1875.         If Chk_Ass(Index).Value = 1 Then
  1876.             
  1877.             If Chk_Ass(1).Value = 1 Or Chk_Ass(2).Value = 1 Then
  1878.                 Chk_Ass(0).Enabled = False
  1879.                 Chk_Ass(4).Enabled = False
  1880.             End If
  1881.             
  1882.             If Chk_Ass(0).Value = 1 Then
  1883.                 Chk_Ass(1).Enabled = False
  1884.                 Chk_Ass(4).Enabled = False
  1885.             End If
  1886.             
  1887.             If Chk_Ass(4).Value = 1 Then
  1888.                 Chk_Ass(0).Enabled = False
  1889.                 Chk_Ass(1).Enabled = False
  1890.             End If
  1891.         Else
  1892.             If Chk_Ass(0).Value <> 1 And Chk_Ass(4).Value <> 1 Then
  1893.                 Chk_Ass(2).Enabled = True
  1894.             End If
  1895.             Chk_Ass(1).Enabled = True
  1896.             If Chk_Ass(0).Value <> 1 Then
  1897.                 Chk_Ass(4).Enabled = True
  1898.             End If
  1899.             If Chk_Ass(4).Value <> 1 Then
  1900.                 Chk_Ass(0).Enabled = True
  1901.             End If
  1902.             
  1903.             If (Chk_Ass(1).Value = 1 And Chk_Ass(2) = 1) Or Chk_Ass(2).Value = 1 Then
  1904.                 Chk_Ass(0).Enabled = False
  1905.                 Chk_Ass(4).Enabled = False
  1906.             End If
  1907.             
  1908.         End If
  1909.     Case 4                 '供应商往来
  1910.         If Chk_Ass(Index).Value = 1 Then
  1911.             Chk_Ass(2).Enabled = False
  1912.             Chk_Ass(0).Enabled = False
  1913.             If Chk_Ass(3).Value = 1 Then
  1914.                 Chk_Ass(1).Enabled = False
  1915.             End If
  1916.             If Chk_Ass(1).Value = 1 Then
  1917.                 Chk_Ass(3).Enabled = False
  1918.             End If
  1919.         Else
  1920.             Chk_Ass(0).Enabled = True
  1921.             Chk_Ass(1).Enabled = True
  1922.             Chk_Ass(2).Enabled = True
  1923.             Chk_Ass(3).Enabled = True
  1924.         End If
  1925.     End Select
  1926.     
  1927. End Sub
  1929. Private Sub Combo_Class_Change()                       '根据类型改变余额方向
  1930.     
  1931.     If Combo_Class.ListIndex = 0 Or Combo_Class.ListIndex = 3 Then   '资产类和成本类余额方向一般为借方
  1932.         Opt_Yefx(0).Value = True
  1933.     Else
  1934.         Opt_Yefx(1).Value = True
  1935.     End If
  1936.     
  1937. End Sub
  1939. '*******************以上区域为编写自定义过程区域**********************
  1941. '*******************************以下为基本处理程序(固定不变)*******************************************'
  1942. Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)        '支持热键操作
  1943.     
  1944.     If Shift = 2 Then
  1945.         Select Case UCase(Chr(KeyCode))
  1946.         Case "P"                                                                          'Ctrl+P 打印
  1947.             If SzToolbar.Buttons("dy").Visible And SzToolbar.Buttons("dy").Enabled Then
  1948.                 Call bbyl(False)
  1949.             End If
  1950.         Case "A"                                                                          'Ctrl+A 增加
  1951.             '判断用户是否有此功能执行权限,如有则写上机日志(进入)
  1952.             If Not Security_Log(Str_RightEdit, Xtczybm, 1, True) Then
  1953.                 Exit Sub
  1954.             End If
  1955.             If SzToolbar.Buttons("zj").Visible And SzToolbar.Buttons("zj").Enabled Then
  1956.                 Call Toolbjzt
  1957.                 Lrzt = 1
  1958.                 Call Cshlrxx(Lrzt)
  1959.                 LrText(0).SetFocus
  1960.                 LrText(0).Locked = False
  1961.             End If
  1962.         Case "D"                                                                          'Ctrl+D 删除
  1963.             If SzToolbar.Buttons("sc").Visible And SzToolbar.Buttons("sc").Enabled Then
  1964.                 Call Scdqjl
  1965.             End If
  1966.         End Select
  1967.     End If
  1968.     
  1969. End Sub
  1971. Private Sub SzToolbar_ButtonClick(ByVal Button As MSComctlLib.Button)
  1972.     
  1973.     Select Case Button.Key
  1974.     Case "ymsz"                                          '页面设置
  1975.         Dyymctbl.Show 1
  1976.     Case "yl"                                            '预 览
  1977.         Call bbyl(True)
  1978.     Case "dy"                                            '打 印
  1979.         Call bbyl(False)
  1980.     Case "zj"                                            '增 加
  1981.     
  1982.         '判断用户是否有此功能执行权限,如有则写上机日志(进入)
  1983.         If Not Security_Log(Str_RightEdit, Xtczybm, 1, True) Then
  1984.             Exit Sub
  1985.         End If
  1986.         
  1987.         Call Toolbjzt
  1988.         Lrzt = 1
  1989.         Call Cshlrxx(Lrzt)
  1990.         LrText(0).SetFocus
  1991.         LrText(0).Locked = False
  1992.     Case "dw"                                            '定 位
  1993.         JC_FrmKmdw.Show 1
  1994.         If Xtfhcs <> "" Then
  1995.             With CzxsGrid
  1996.                 For Jsqte = .FixedRows To .Rows - 1
  1997.                     If Mid(.TextMatrix(Jsqte, Sydz("003", GridStr(), Szzls)), 1, Len(Xtfhcs)) = Xtfhcs Then
  1998.                         .Select Jsqte, Sydz("003", GridStr(), Szzls)
  1999.                         .TopRow = Jsqte
  2000.                         Exit For
  2001.                     End If
  2002.                 Next Jsqte
  2003.             End With
  2004.         End If
  2005.     Case "xg"                                            '修 改
  2006.         Call Xgdqjl
  2007.     Case "sc"                                            '删 除
  2008.         Call Scdqjl
  2009.     Case "sx"                                            '刷 新
  2010.         Call Cxnrtcwg
  2011.     Case "bz"                                            '帮 助
  2012.         Call F1bz
  2013.     Case "fh"                                            '退 出
  2014.         Unload Me
  2015.     End Select
  2016.     
  2017. End Sub
  2019. Private Sub CzxsGrid_DblClick()                                         '修改当前编码记录
  2020.     
  2021.     Call Xgdqjl
  2022.     
  2023. End Sub
  2025. Private Sub Xgdqjl()                                                    '修改当前编码记录
  2026.     
  2027.     '判断用户是否有此功能执行权限,如有则写上机日志(进入)
  2028.     If Not Security_Log(Str_RightEdit, Xtczybm, 1, True, False) Then
  2029.         BcCommand.Enabled = False
  2030.     End If
  2032.     
  2033.     If CzxsGrid.Row < CzxsGrid.FixedRows Then
  2034.         Exit Sub
  2035.     End If
  2036.     
  2037.     Call Toolbjzt
  2038.     Lrzt = 2
  2039.     
  2040.     If Cshlrxx(Lrzt) Then
  2041.         LrText(1).SetFocus
  2042.         LrText(0).Locked = True
  2043.     End If
  2044.     
  2045. End Sub
  2047. Private Sub Toolbjzt()                                                  'Toolbar状态(编辑状态)
  2048.     
  2049.     StTab.TabEnabled(1) = True
  2050.     StTab.Tab = 1
  2051.     Frame1.Enabled = True
  2052.     StTab.TabEnabled(0) = False
  2053.     CzxsGrid.Enabled = False
  2054.     
  2055.     With SzToolbar
  2056.         .Buttons("ymsz").Enabled = False
  2057.         .Buttons("dy").Enabled = False
  2058.         .Buttons("yl").Enabled = False
  2059.         .Buttons("zj").Enabled = False
  2060.         .Buttons("xg").Enabled = False
  2061.         .Buttons("sc").Enabled = False
  2062.         .Buttons("sx").Enabled = False
  2063.         .Buttons("dw").Enabled = False
  2064.     End With
  2065.     
  2066. End Sub
  2068. Private Sub Toolfbjzt()                                                 'Toolbar状态(非编辑状态)
  2069.     
  2070.     StTab.TabEnabled(0) = True
  2071.     StTab.Tab = 0
  2072.     CzxsGrid.Enabled = True
  2073.     Frame1.Enabled = False
  2074.     StTab.TabEnabled(1) = False
  2075.     Lrzt = 0
  2076.     
  2077.     With SzToolbar
  2078.         .Buttons("ymsz").Enabled = True
  2079.         .Buttons("dy").Enabled = True
  2080.         .Buttons("yl").Enabled = True
  2081.         .Buttons("zj").Enabled = True
  2082.         .Buttons("xg").Enabled = True
  2083.         .Buttons("sc").Enabled = True
  2084.         .Buttons("sx").Enabled = True
  2085.         .Buttons("dw").Enabled = True
  2086.     End With
  2087.     
  2088. End Sub
  2090. Private Sub BcCommand_Click()                                           '保 存
  2091.     
  2092.     If Not Bclrsj Then
  2093.         Exit Sub
  2094.     End If
  2095.     
  2096.     If Lrzt = 2 Then
  2097.         Call Toolfbjzt
  2098.     End If
  2099.     
  2100. End Sub
  2102. Private Sub QxCommand_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)       '取消
  2103.     
  2104.     '避免执行Click程序
  2105.     Bln_Cancel = True
  2106.     
  2107.     Call Cancel
  2108.     
  2109. End Sub
  2111. Private Sub QxCommand_Click()                                           '取消
  2112.     
  2113.     If Bln_Cancel Then
  2114.         Bln_Cancel = False
  2115.         Exit Sub
  2116.     End If
  2117.     
  2118.     Call Cancel
  2119.     
  2120. End Sub
  2122. Private Sub Cancel()                                                    '取消
  2123.     
  2124.     '文本框加锁
  2125.     For Jsqte = 0 To Max_Text_Index
  2126.         TextValiJudgeLock(Jsqte) = True
  2127.     Next Jsqte
  2128.     
  2129.     Call Toolfbjzt
  2130.     
  2131. End Sub
  2133. Private Sub CzxsGrid_BeforeMoveColumn(ByVal Col As Long, Position As Long)           '网格列发生移动时自动交换网格索引信息
  2134.     
  2135.     Call FnBln_RefreshArray(Col, Position, GridStr(), GridInf())
  2136.     
  2137. End Sub
  2139. Private Sub GsToolbar_ButtonClick(ByVal Button As MSComctlLib.Button)   '表格格式设置(通用)
  2140.     
  2141.     Select Case Button.Key
  2142.     Case "bcgs"                                       '保存表格格式
  2143.         Call Bcwggs(CzxsGrid, GridCode, GridStr())
  2144.     Case "hfmrgs"                                     '恢复默认格式
  2145.         Call Hfmrgs(CzxsGrid, GridCode, GridStr())
  2146.     Case "szxsxm"                                     '设置显示项目
  2147.         Call Szxsxm(CzxsGrid, GridCode)
  2148.     End Select
  2149.     
  2150. End Sub
  2152. Private Sub bbyl(bbylte As Boolean)                    '报表打印预览
  2153.     
  2154.     Dim Bbzbt$, Bbxbt() As String, bbxbtzzxs() As Integer, Bbxbtgs As Integer
  2155.     Dim Bbbwh() As String, Bbbwhzzxs() As Integer, Bbbwhgs As Integer
  2156.     Bbxbtgs = 1                                          '报 表 小 标 题 行 数
  2157.     Bbbwhgs = 0                                          '报 表 表 尾 行 数
  2158.     ReDim Bbxbt(1 To Bbxbtgs)
  2159.     ReDim bbxbtzzxs(1 To Bbxbtgs)
  2160.     
  2161.     If Bbbwhgs <> 0 Then
  2162.         ReDim Bbbwh(1 To Bbbwhgs)
  2163.         ReDim Bbbwhzzxs(1 To Bbbwhgs)
  2164.     End If
  2165.     
  2166.     Bbzbt = ReportTitle
  2167.     Bbxbt(1) = " "
  2168.     bbxbtzzxs(1) = 0                                     '报表行组织形式(0-居左 1-居中 2-居右)
  2169.     
  2170.     Call Scyxsjb(CzxsGrid)                               '生成报表数据
  2171.     Call Scdybb(Dyymctbl, Bbzbt, Bbxbt(), bbxbtzzxs(), Bbxbtgs, Bbbwh(), Bbbwhzzxs(), Bbbwhgs, bbylte)
  2172.     
  2173.     If Not bbylte Then
  2174.         Unload DY_Tybbyldy
  2175.     End If
  2176.     
  2177. End Sub
  2179. '************以下为文本框录入处理程序(固定不变部分)*************'
  2181. Private Sub Wbklrwbcl(Index As Integer)    '文本框录入事后处理程序
  2182.     
  2183.     '以下为依据实际情况自定义部分[
  2184.     
  2185.     '在此填写文本框录入事后处理程序
  2186.     
  2187.     ']以上为依据实际情况自定义部分
  2188.     
  2189. End Sub
  2191. Private Sub LrText_Change(Index As Integer)
  2192.     
  2193.     '屏蔽程序改变控制
  2194.     If TextChangeLock Then
  2195.         Exit Sub
  2196.     End If
  2197.     
  2198.     TextValiJudgeLock(Index) = False    '打开有效性判断锁
  2199.     
  2200.     '限制字段录入长度
  2201.     
  2202.     TextChangeLock = True  '加锁(防止执行Lrtext_Change)
  2203.     
  2204.     Select Case Textint(Index, 1)
  2205.     Case 8, 11       '金额型
  2206.         Call Sjgskz(LrText(Index), Xtjezws - Xtjexsws - 1, Xtjexsws)
  2207.     Case 9, 12       '数量型
  2208.         Call Sjgskz(LrText(Index), Xtslzws - Xtslxsws - 1, Xtslxsws)
  2209.     Case 10          '单价型
  2210.         Call Sjgskz(LrText(Index), Xtdjzws - Xtdjxsws - 1, Xtdjxsws)
  2211.     Case Else        '其他小数类型控制
  2212.         If Textint(Index, 6) <> 0 Or Textint(Index, 7) <> 0 Then
  2213.             Call Sjgskz(LrText(Index), Textint(Index, 6), Textint(Index, 7))
  2214.         End If
  2215.     End Select
  2216.     
  2217.     '自动调入上级科目科目名称
  2218.     Select Case Index
  2219.     Case 0
  2220.         For Jsqte = 1 To Int_CodeLev
  2221.             If Int_CodeScheme(Jsqte) = Len(Trim(LrText(0).Text)) Then
  2222.                 CodeLev = Jsqte
  2223.                 Exit For
  2224.             End If
  2225.         Next Jsqte
  2226.         If Jsqte <= CodeLev Then
  2227.             If Jsqte > 1 Then
  2228.                 Str_Parent = Mid(Trim(LrText(0).Text), 1, Int_CodeScheme(Jsqte - 1))
  2229.             Else
  2230.                 Str_Parent = ""
  2231.             End If
  2232.             Set RecTemp = Cw_DataEnvi.DataConnect.Execute("SELECT CCode,Cname FROM Cwzz_AccCode  Where CCode='" & Trim(Str_Parent) & "'")
  2233.             If Not RecTemp.EOF Then
  2234.                 LrText(1).Text = Trim(RecTemp.Fields("Cname")) + "/"
  2235.             End If
  2236.         Else
  2237.             LrText(1).Text = ""
  2238.         End If
  2239.         
  2240.         If Val(Mid(LrText(0).Text, 1)) <= 5 And Val(Mid(LrText(0).Text, 1)) >= 1 Then
  2241.             Combo_Class.Text = Combo_Class.List(Val(Mid(LrText(0).Text, 1)) - 1)
  2242.         End If
  2243.     End Select
  2244.     
  2245.     TextChangeLock = False '解锁
  2246.     
  2247. End Sub
  2249. Private Sub LrText_GotFocus(Index As Integer)                                                 '文本框得到焦点,显示相应信息
  2250.     
  2251.     Call TextShow(Index)
  2252.     CurTextIndex = Index
  2253.     LrText(Index).SelStart = Len(LrText(Index))
  2254.     
  2255. End Sub
  2257. Private Sub LrText_KeyDown(Index As Integer, KeyCode As Integer, Shift As Integer)            '字段按F2键提供帮助
  2258.     
  2259.     Select Case KeyCode
  2260.     Case vbKeyF2
  2261.         Call Text_Help(Index)
  2262.     End Select
  2263.     
  2264. End Sub
  2266. Private Sub LrText_KeyPress(Index As Integer, KeyAscii As Integer)                            '文本框录入事中控制
  2267.     
  2268.     Call InputFieldLimit(LrText(Index), Textint(Index, 1), KeyAscii)
  2269.     
  2270. End Sub
  2272. Private Sub LrText_LostFocus(Index As Integer)                                                '文本框失去焦点
  2273.     
  2274.     '显示相应信息但不能进行有效性判断
  2275.     
  2276. End Sub
  2278. Private Sub Ydcommand1_MouseDown(Index As Integer, Button As Integer, Shift As Integer, x As Single, y As Single)     '按钮提供帮助
  2279.     
  2280.     Call Text_Help(Index)
  2281.     
  2282. End Sub
  2284. Private Sub Text_Help(Index As Integer)                                                       '录入字段帮助
  2285.     
  2286.     If Not Textboolean(Index, 1) Then
  2287.         Exit Sub
  2288.     End If
  2289.     
  2290.     '调用帮助
  2291.     Call Drbmhelp(Textint(Index, 2), Textstr(Index, 4), Trim(LrText(Index).Text))
  2292.     
  2293.     '根据设置选择显示编码和名称,并进行存储
  2294.     If Len(Xtfhcs) <> 0 Then
  2295.         If Textint(Index, 3) = 1 Then
  2296.             LrText(Index).Text = Xtfhcsfz
  2297.             LrText(Index).Tag = Xtfhcs
  2298.         Else
  2299.             LrText(Index).Text = Xtfhcs
  2300.             LrText(Index).Tag = Xtfhcsfz
  2301.         End If
  2302.     End If
  2303.     
  2304.     LrText(Index).SetFocus
  2305.     
  2306. End Sub
  2308. Private Sub TextShow(Index As Integer)        '文本框得到焦点,显示相应信息
  2309.     
  2310.     '填写文本框得到焦点,进行相应信息处理程序
  2311.     
  2312. End Sub
  2314. Private Sub Wbkcsh()                          '录入文本框初始化
  2315.     
  2316.     Dim Jsqte As Integer
  2317.     
  2318.     '最大录入文本框索引值
  2319.     Max_Text_Index = Textvar(1)
  2320.     
  2321.     ReDim TextValiJudgeLock(Max_Text_Index)
  2322.     
  2323.     For Jsqte = 0 To Max_Text_Index
  2324.         If Len(Trim(Textstr(Jsqte, 1))) <> 0 Then
  2325.             If Textboolean(Jsqte, 1) Then
  2326.                 If Jsqte <> 0 And Not Textboolean(Jsqte, 3) Then
  2327.                     Load Ydcommand1(Jsqte)
  2328.                 End If
  2329.                 Ydcommand1(Jsqte).Visible = True
  2330.                 Ydcommand1(Jsqte).Move LrText(Jsqte).Left + LrText(Jsqte).Width, LrText(Jsqte).Top
  2331.             End If
  2332.             
  2333.             TextChangeLock = True
  2334.             LrText(Jsqte).Text = ""
  2335.             LrText(Jsqte).Tag = ""
  2336.             
  2337.             If Textint(Jsqte, 5) <> 0 Then
  2338.                 LrText(Jsqte).MaxLength = Textint(Jsqte, 5)
  2339.             End If
  2340.             
  2341.             TextChangeLock = False
  2342.         End If
  2343.         
  2344.         TextValiJudgeLock(Jsqte) = True
  2345.     Next Jsqte
  2346.     
  2347. End Sub
  2349. Private Function TextYxxpd(Index As Integer) As Boolean           '文本框有效性判断
  2350.     
  2351.     Dim Sqlstr As String
  2352.     Dim Findrec As ADODB.Recordset
  2353.     
  2354.     '文本框内容未曾改变不进行有效性判断
  2355.     If TextValiJudgeLock(Index) Then
  2356.         TextYxxpd = True
  2357.         Exit Function
  2358.     End If
  2359.     
  2360.     '文本框内容为空认为有效,并清空其Tag值
  2361.     If Trim(LrText(Index)) = "" Then
  2362.         LrText(Index).Tag = ""
  2363.         Call Wbklrwbcl(Index)
  2364.         TextValiJudgeLock(Index) = True
  2365.         TextYxxpd = True
  2366.         Exit Function
  2367.     End If
  2368.     
  2369.     '可在此加入不做有效性判断的理由
  2370.     
  2371.     '1.外币核算
  2372.     If Index = 2 Then
  2373.         If Chk_ForiFlag.Value = 0 Then
  2374.             TextYxxpd = True
  2375.             Exit Function
  2376.         End If
  2377.     End If
  2378.     
  2379.     '2.项目核算
  2380.     If Index = 4 Then
  2381.         If Chk_Ass(3).Value = 0 Then
  2382.             TextYxxpd = True
  2383.             Exit Function
  2384.         End If
  2385.     End If
  2386.     
  2387.     Select Case Textint(Index, 4)
  2388.     Case 1      '编码型
  2389.         Sqlstr = Trim(Textstr(Index, 5))
  2390.         Sqlstr = Replace(Sqlstr, "@", "'" + Trim(LrText(Index).Text) + "'")
  2391.         Set Findrec = Cw_DataEnvi.DataConnect.Execute(Sqlstr)
  2392.         
  2393.         If Findrec.EOF Then
  2394.             Call Xtxxts(Trim(Textstr(Index, 6)), 0, 1)
  2395.             LrText(Index).SetFocus
  2396.             Exit Function
  2397.         Else
  2398.             Select Case Textint(Index, 3)
  2399.             Case 0
  2400.                 
  2401.                 If Len(Trim(Textstr(Index, 2))) <> 0 Then
  2402.                     LrText(Index).Text = Trim(Findrec.Fields(Trim(Textstr(Index, 2))))
  2403.                 End If
  2404.                 
  2405.                 If Len(Trim(Textstr(Index, 3) & "")) <> 0 Then
  2406.                     LrText(Index).Tag = Trim(Findrec.Fields(Trim(Textstr(Index, 3))))
  2407.                 End If
  2408.                 
  2409.             Case 1
  2410.                 
  2411.                 If Len(Trim(Textstr(Index, 3) & "")) <> 0 Then
  2412.                     LrText(Index).Text = Trim(Findrec.Fields(Trim(Textstr(Index, 3))))
  2413.                 End If
  2414.                 
  2415.                 If Len(Trim(Textstr(Index, 2))) <> 0 Then
  2416.                     LrText(Index).Tag = Trim(Findrec.Fields(Trim(Textstr(Index, 2))))
  2417.                 End If
  2418.             End Select
  2419.         End If
  2420.         
  2421.     Case 2      '日期型
  2422.         If IsDate(LrText(Index).Text) Then
  2423.             LrText(Index).Text = Format(LrText(Index).Text, "yyyy-mm-dd")
  2424.             If Val(Mid(LrText(Index), 1, 4)) < 1900 Then
  2425.                 LrText(Index).Text = "1900" + Mid(LrText(Index), 5, 6)
  2426.             End If
  2427.         Else
  2428.             Tsxx = "非法公历日期!(格式:" + Format(Date, "yyyy-mm-dd") + ")"
  2429.             Call Xtxxts(Tsxx, 0, 1)
  2430.             LrText(Index).SetFocus
  2431.             Exit Function
  2432.         End If
  2433.         
  2434.     Case 3      '其他类型
  2435.         
  2436.     End Select
  2437.     
  2438.     '如果有效则加锁,用户不改变内容则不再进行有效性判断
  2439.     TextValiJudgeLock(Index) = True
  2440.     
  2441.     '调用文本框事后处理程序
  2442.     Call Wbklrwbcl(Index)
  2443.     
  2444.     '有效性判断通过则返回True
  2445.     TextYxxpd = True
  2446.     
  2447. End Function