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

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

企业管理

开发平台：

Visual Basic

ʰ：源码内容
  1. VERSION 5.00
  2. Object = "{BEEECC20-4D5F-4F8B-BFDC-5D9B6FBDE09D}#1.0#0"; "vsflex8.ocx"
  3. Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "mscomctl.ocx"
  4. Begin VB.Form YH_FrmZddz 
  5.    Caption         =   "自动对帐"
  6.    ClientHeight    =   6930
  7.    ClientLeft      =   60
  8.    ClientTop       =   345
  9.    ClientWidth     =   9570
  10.    HelpContextID   =   5103
  11.    Icon            =   "银行_自动对帐.frx":0000
  12.    KeyPreview      =   -1  'True
  13.    LinkTopic       =   "Form1"
  14.    MDIChild        =   -1  'True
  15.    ScaleHeight     =   6930
  16.    ScaleWidth      =   9570
  17.    Begin VB.PictureBox Pic_Title 
  18.       BackColor       =   &H00FFFFFF&
  19.       Height          =   1065
  20.       Left            =   30
  21.       Picture         =   "银行_自动对帐.frx":1042
  22.       ScaleHeight     =   1005
  23.       ScaleWidth      =   11820
  24.       TabIndex        =   0
  25.       Top             =   600
  26.       Width           =   11880
  27.       Begin VB.Label Label4 
  28.          Appearance      =   0  'Flat
  29.          BackColor       =   &H80000005&
  30.          BorderStyle     =   1  'Fixed Single
  31.          ForeColor       =   &H80000008&
  32.          Height          =   180
  33.          Index           =   2
  34.          Left            =   10365
  35.          TabIndex        =   15
  36.          Top             =   240
  37.          Width           =   390
  38.       End
  39.       Begin VB.Label Lab_Bill 
  40.          Appearance      =   0  'Flat
  41.          AutoSize        =   -1  'True
  42.          BackColor       =   &H80000005&
  43.          BackStyle       =   0  'Transparent
  44.          Caption         =   "未勾对"
  45.          ForeColor       =   &H00000000&
  46.          Height          =   180
  47.          Index           =   1
  48.          Left            =   10815
  49.          TabIndex        =   14
  50.          Top             =   240
  51.          Width           =   540
  52.       End
  53.       Begin VB.Label Label4 
  54.          Appearance      =   0  'Flat
  55.          BackColor       =   &H00E9FC61&
  56.          BorderStyle     =   1  'Fixed Single
  57.          ForeColor       =   &H80000008&
  58.          Height          =   180
  59.          Index           =   0
  60.          Left            =   9240
  61.          TabIndex        =   13
  62.          Top             =   247
  63.          Width           =   390
  64.       End
  65.       Begin VB.Label Lab_Bill 
  66.          Appearance      =   0  'Flat
  67.          AutoSize        =   -1  'True
  68.          BackColor       =   &H80000005&
  69.          BackStyle       =   0  'Transparent
  70.          Caption         =   "已勾对"
  71.          ForeColor       =   &H00000000&
  72.          Height          =   180
  73.          Index           =   0
  74.          Left            =   9675
  75.          TabIndex        =   12
  76.          Top             =   247
  77.          Width           =   540
  78.       End
  79.       Begin VB.Label Label3 
  80.          AutoSize        =   -1  'True
  81.          BackStyle       =   0  'Transparent
  82.          Height          =   180
  83.          Left            =   1560
  84.          TabIndex        =   6
  85.          Top             =   750
  86.          Width           =   90
  87.       End
  88.       Begin VB.Label Label2 
  89.          Appearance      =   0  'Flat
  90.          AutoSize        =   -1  'True
  91.          BackColor       =   &H80000005&
  92.          BackStyle       =   0  'Transparent
  93.          Caption         =   "银行科目:"
  94.          ForeColor       =   &H80000008&
  95.          Height          =   180
  96.          Left            =   690
  97.          TabIndex        =   5
  98.          Top             =   750
  99.          Width           =   810
  100.       End
  101.       Begin VB.Label CxjgLabel 
  102.          AutoSize        =   -1  'True
  103.          BackStyle       =   0  'Transparent
  104.          ForeColor       =   &H00FF0000&
  105.          Height          =   379
  106.          Index           =   2
  107.          Left            =   3512
  108.          TabIndex        =   2
  109.          Top             =   1674
  110.          Width           =   166
  111.       End
  112.       Begin VB.Label tsLabel 
  113.          AutoSize        =   -1  'True
  114.          BackColor       =   &H80000018&
  115.          BackStyle       =   0  'Transparent
  116.          Caption         =   "银行自动对帐"
  117.          BeginProperty Font 
  118.             Name            =   "宋体"
  119.             Size            =   14.25
  120.             Charset         =   134
  121.             Weight          =   700
  122.             Underline       =   0   'False
  123.             Italic          =   0   'False
  124.             Strikethrough   =   0   'False
  125.          EndProperty
  126.          ForeColor       =   &H00000000&
  127.          Height          =   285
  128.          Index           =   4
  129.          Left            =   360
  130.          TabIndex        =   1
  131.          Top             =   180
  132.          Width           =   1800
  133.       End
  134.    End
  135.    Begin MSComctlLib.Toolbar SzToolbar 
  136.       Align           =   1  'Align Top
  137.       Height          =   555
  138.       Left            =   0
  139.       TabIndex        =   3
  140.       Top             =   0
  141.       Width           =   9570
  142.       _ExtentX        =   16880
  143.       _ExtentY        =   979
  144.       ButtonWidth     =   820
  145.       ButtonHeight    =   926
  146.       AllowCustomize  =   0   'False
  147.       Appearance      =   1
  148.       Style           =   1
  149.       ImageList       =   "ImageList1"
  150.       _Version        =   393216
  151.       BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628} 
  152.          NumButtons      =   13
  153.          BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  154.             Caption         =   "对帐"
  155.             Key             =   "dz"
  156.             ImageKey        =   "dz"
  157.          EndProperty
  158.          BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  159.             Caption         =   "取消"
  160.             Key             =   "qx"
  161.             ImageKey        =   "fq"
  162.          EndProperty
  163.          BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  164.             Style           =   3
  165.          EndProperty
  166.          BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  167.             Caption         =   "过滤"
  168.             Key             =   "gl"
  169.             ImageKey        =   "cx"
  170.          EndProperty
  171.          BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  172.             Caption         =   "对照"
  173.             Key             =   "dz1"
  174.             ImageKey        =   "pk"
  175.             Style           =   1
  176.          EndProperty
  177.          BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  178.             Style           =   3
  179.          EndProperty
  180.          BeginProperty Button7 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  181.             Caption         =   "检查"
  182.             Key             =   "jc"
  183.             ImageKey        =   "pd"
  184.          EndProperty
  185.          BeginProperty Button8 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  186.             Caption         =   "核销"
  187.             Key             =   "hx"
  188.             ImageKey        =   "exec"
  189.          EndProperty
  190.          BeginProperty Button9 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  191.             Style           =   3
  192.          EndProperty
  193.          BeginProperty Button10 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  194.             Caption         =   "选择"
  195.             Key             =   "sel"
  196.             ImageIndex      =   19
  197.          EndProperty
  198.          BeginProperty Button11 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  199.             Style           =   3
  200.          EndProperty
  201.          BeginProperty Button12 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  202.             Caption         =   "帮助"
  203.             Key             =   "bz"
  204.             ImageKey        =   "bz"
  205.          EndProperty
  206.          BeginProperty Button13 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  207.             Caption         =   "退出"
  208.             Key             =   "tc"
  209.             ImageKey        =   "tc"
  210.          EndProperty
  211.       EndProperty
  212.       BorderStyle     =   1
  213.       Begin MSComctlLib.ImageList ImageList1 
  214.          Left            =   4740
  215.          Top             =   0
  216.          _ExtentX        =   1005
  217.          _ExtentY        =   1005
  218.          BackColor       =   -2147483643
  219.          ImageWidth      =   16
  220.          ImageHeight     =   16
  221.          MaskColor       =   12632256
  222.          _Version        =   393216
  223.          BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628} 
  224.             NumListImages   =   34
  225.             BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  226.                Picture         =   "银行_自动对帐.frx":35106
  227.                Key             =   "sz"
  228.             EndProperty
  229.             BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  230.                Picture         =   "银行_自动对帐.frx":354A0
  231.                Key             =   "dy"
  232.             EndProperty
  233.             BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  234.                Picture         =   "银行_自动对帐.frx":3583A
  235.                Key             =   "yl"
  236.             EndProperty
  237.             BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  238.                Picture         =   "银行_自动对帐.frx":35BD4
  239.                Key             =   "xg"
  240.             EndProperty
  241.             BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  242.                Picture         =   "银行_自动对帐.frx":35F6E
  243.                Key             =   "zh"
  244.             EndProperty
  245.             BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  246.                Picture         =   "银行_自动对帐.frx":36308
  247.                Key             =   "sh"
  248.             EndProperty
  249.             BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  250.                Picture         =   "银行_自动对帐.frx":366A2
  251.                Key             =   "bc"
  252.             EndProperty
  253.             BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  254.                Picture         =   "银行_自动对帐.frx":36A3C
  255.                Key             =   "fq"
  256.             EndProperty
  257.             BeginProperty ListImage9 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  258.                Picture         =   "银行_自动对帐.frx":36DD6
  259.                Key             =   "bz"
  260.             EndProperty
  261.             BeginProperty ListImage10 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  262.                Picture         =   "银行_自动对帐.frx":37170
  263.                Key             =   "tc"
  264.             EndProperty
  265.             BeginProperty ListImage11 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  266.                Picture         =   "银行_自动对帐.frx":3750A
  267.                Key             =   "bcgs"
  268.             EndProperty
  269.             BeginProperty ListImage12 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  270.                Picture         =   "银行_自动对帐.frx":378A4
  271.                Key             =   "mrlk"
  272.             EndProperty
  273.             BeginProperty ListImage13 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  274.                Picture         =   "银行_自动对帐.frx":37C3E
  275.                Key             =   "xsxm"
  276.             EndProperty
  277.             BeginProperty ListImage14 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  278.                Picture         =   "银行_自动对帐.frx":37FD8
  279.                Key             =   "first"
  280.             EndProperty
  281.             BeginProperty ListImage15 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  282.                Picture         =   "银行_自动对帐.frx":38372
  283.                Key             =   "prev"
  284.             EndProperty
  285.             BeginProperty ListImage16 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  286.                Picture         =   "银行_自动对帐.frx":3870C
  287.                Key             =   "next"
  288.             EndProperty
  289.             BeginProperty ListImage17 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  290.                Picture         =   "银行_自动对帐.frx":38AA6
  291.                Key             =   "last"
  292.             EndProperty
  293.             BeginProperty ListImage18 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  294.                Picture         =   "银行_自动对帐.frx":38E40
  295.                Key             =   "xx"
  296.             EndProperty
  297.             BeginProperty ListImage19 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  298.                Picture         =   "银行_自动对帐.frx":391DA
  299.                Key             =   "define"
  300.             EndProperty
  301.             BeginProperty ListImage20 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  302.                Picture         =   "银行_自动对帐.frx":39574
  303.                Key             =   "exec"
  304.             EndProperty
  305.             BeginProperty ListImage21 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  306.                Picture         =   "银行_自动对帐.frx":3990E
  307.                Key             =   "xz"
  308.             EndProperty
  309.             BeginProperty ListImage22 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  310.                Picture         =   "银行_自动对帐.frx":39CA8
  311.                Key             =   "sc"
  312.             EndProperty
  313.             BeginProperty ListImage23 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  314.                Picture         =   "银行_自动对帐.frx":3A042
  315.                Key             =   "sx"
  316.             EndProperty
  317.             BeginProperty ListImage24 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  318.                Picture         =   "银行_自动对帐.frx":3A3DC
  319.                Key             =   "cx"
  320.             EndProperty
  321.             BeginProperty ListImage25 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  322.                Picture         =   "银行_自动对帐.frx":3A776
  323.                Key             =   "zd"
  324.             EndProperty
  325.             BeginProperty ListImage26 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  326.                Picture         =   "银行_自动对帐.frx":3AB10
  327.                Key             =   "dz"
  328.             EndProperty
  329.             BeginProperty ListImage27 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  330.                Picture         =   "银行_自动对帐.frx":3AEAA
  331.                Key             =   "ph"
  332.             EndProperty
  333.             BeginProperty ListImage28 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  334.                Picture         =   "银行_自动对帐.frx":3B244
  335.                Key             =   "fz"
  336.             EndProperty
  337.             BeginProperty ListImage29 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  338.                Picture         =   "银行_自动对帐.frx":3B5DE
  339.                Key             =   "dw"
  340.             EndProperty
  341.             BeginProperty ListImage30 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  342.                Picture         =   "银行_自动对帐.frx":3B978
  343.                Key             =   "hf"
  344.             EndProperty
  345.             BeginProperty ListImage31 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  346.                Picture         =   "银行_自动对帐.frx":3BD12
  347.                Key             =   "pz"
  348.             EndProperty
  349.             BeginProperty ListImage32 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  350.                Picture         =   "银行_自动对帐.frx":3C0AC
  351.                Key             =   "check"
  352.             EndProperty
  353.             BeginProperty ListImage33 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  354.                Picture         =   "银行_自动对帐.frx":3C446
  355.                Key             =   "pd"
  356.             EndProperty
  357.             BeginProperty ListImage34 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  358.                Picture         =   "银行_自动对帐.frx":3C7E0
  359.                Key             =   "pk"
  360.             EndProperty
  361.          EndProperty
  362.       End
  363.       Begin MSComctlLib.Toolbar N 
  364.          Height          =   540
  365.          Left            =   10185
  366.          TabIndex        =   4
  367.          Top             =   0
  368.          Width           =   1680
  369.          _ExtentX        =   2963
  370.          _ExtentY        =   953
  371.          ButtonWidth     =   1455
  372.          ButtonHeight    =   953
  373.          AllowCustomize  =   0   'False
  374.          Appearance      =   1
  375.          Style           =   1
  376.          ImageList       =   "ImageList1"
  377.          _Version        =   393216
  378.          BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628} 
  379.             NumButtons      =   2
  380.             BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  381.                Caption         =   "保存格式"
  382.                Key             =   "bcgs"
  383.                ImageKey        =   "bcgs"
  384.             EndProperty
  385.             BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  386.                Caption         =   "默认格式"
  387.                Key             =   "hfmrgs"
  388.                ImageKey        =   "mrlk"
  389.             EndProperty
  390.          EndProperty
  391.       End
  392.    End
  393.    Begin VB.Frame Frame2 
  394.       Height          =   5925
  395.       Left            =   30
  396.       TabIndex        =   7
  397.       Top             =   1620
  398.       Width           =   11895
  399.       Begin VB.Frame Frame3 
  400.          Height          =   5925
  401.          Left            =   6300
  402.          TabIndex        =   11
  403.          Top             =   0
  404.          Width           =   30
  405.       End
  406.       Begin VB.Frame Frame1 
  407.          Height          =   90
  408.          Left            =   0
  409.          TabIndex        =   10
  410.          Top             =   510
  411.          Width           =   11805
  412.       End
  413.       Begin VSFlex8Ctl.VSFlexGrid vsFlexGrid1 
  414.          Height          =   5235
  415.          Left            =   80
  416.          TabIndex        =   16
  417.          Top             =   630
  418.          Width           =   6195
  419.          _cx             =   5080
  420.          _cy             =   5080
  421.          Appearance      =   1
  422.          BorderStyle     =   1
  423.          Enabled         =   -1  'True
  424.          BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  425.             Name            =   "宋体"
  426.             Size            =   9
  427.             Charset         =   134
  428.             Weight          =   400
  429.             Underline       =   0   'False
  430.             Italic          =   0   'False
  431.             Strikethrough   =   0   'False
  432.          EndProperty
  433.          MousePointer    =   0
  434.          BackColor       =   16777215
  435.          ForeColor       =   -2147483640
  436.          BackColorFixed  =   -2147483638
  437.          ForeColorFixed  =   -2147483630
  438.          BackColorSel    =   16777215
  439.          ForeColorSel    =   -2147483640
  440.          BackColorBkg    =   -2147483636
  441.          BackColorAlternate=   16777215
  442.          GridColor       =   -2147483633
  443.          GridColorFixed  =   -2147483632
  444.          TreeColor       =   -2147483632
  445.          FloodColor      =   192
  446.          SheetBorder     =   -2147483642
  447.          FocusRect       =   1
  448.          HighLight       =   1
  449.          AllowSelection  =   0   'False
  450.          AllowBigSelection=   0   'False
  451.          AllowUserResizing=   0
  452.          SelectionMode   =   0
  453.          GridLines       =   1
  454.          GridLinesFixed  =   2
  455.          GridLineWidth   =   1
  456.          Rows            =   5000
  457.          Cols            =   20
  458.          FixedRows       =   1
  459.          FixedCols       =   0
  460.          RowHeightMin    =   0
  461.          RowHeightMax    =   0
  462.          ColWidthMin     =   0
  463.          ColWidthMax     =   0
  464.          ExtendLastCol   =   0   'False
  465.          FormatString    =   ""
  466.          ScrollTrack     =   0   'False
  467.          ScrollBars      =   3
  468.          ScrollTips      =   0   'False
  469.          MergeCells      =   0
  470.          MergeCompare    =   0
  471.          AutoResize      =   -1  'True
  472.          AutoSizeMode    =   0
  473.          AutoSearch      =   0
  474.          AutoSearchDelay =   2
  475.          MultiTotals     =   -1  'True
  476.          SubtotalPosition=   1
  477.          OutlineBar      =   0
  478.          OutlineCol      =   0
  479.          Ellipsis        =   0
  480.          ExplorerBar     =   0
  481.          PicturesOver    =   0   'False
  482.          FillStyle       =   0
  483.          RightToLeft     =   0   'False
  484.          PictureType     =   0
  485.          TabBehavior     =   0
  486.          OwnerDraw       =   0
  487.          Editable        =   0
  488.          ShowComboButton =   1
  489.          WordWrap        =   -1  'True
  490.          TextStyle       =   0
  491.          TextStyleFixed  =   0
  492.          OleDragMode     =   0
  493.          OleDropMode     =   0
  494.          DataMode        =   0
  495.          VirtualData     =   -1  'True
  496.          DataMember      =   ""
  497.          ComboSearch     =   3
  498.          AutoSizeMouse   =   -1  'True
  499.          FrozenRows      =   0
  500.          FrozenCols      =   0
  501.          AllowUserFreezing=   0
  502.          BackColorFrozen =   0
  503.          ForeColorFrozen =   0
  504.          WallPaperAlignment=   9
  505.          AccessibleName  =   ""
  506.          AccessibleDescription=   ""
  507.          AccessibleValue =   ""
  508.          AccessibleRole  =   24
  509.       End
  510.       Begin VSFlex8Ctl.VSFlexGrid CxbbGrid 
  511.          Height          =   5235
  512.          Left            =   6360
  513.          TabIndex        =   17
  514.          Top             =   630
  515.          Width           =   5475
  516.          _cx             =   5080
  517.          _cy             =   5080
  518.          Appearance      =   1
  519.          BorderStyle     =   1
  520.          Enabled         =   -1  'True
  521.          BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  522.             Name            =   "宋体"
  523.             Size            =   9
  524.             Charset         =   134
  525.             Weight          =   400
  526.             Underline       =   0   'False
  527.             Italic          =   0   'False
  528.             Strikethrough   =   0   'False
  529.          EndProperty
  530.          MousePointer    =   0
  531.          BackColor       =   -2147483643
  532.          ForeColor       =   -2147483640
  533.          BackColorFixed  =   12632256
  534.          ForeColorFixed  =   -2147483630
  535.          BackColorSel    =   16777215
  536.          ForeColorSel    =   -2147483640
  537.          BackColorBkg    =   -2147483636
  538.          BackColorAlternate=   -2147483643
  539.          GridColor       =   -2147483633
  540.          GridColorFixed  =   -2147483632
  541.          TreeColor       =   -2147483632
  542.          FloodColor      =   192
  543.          SheetBorder     =   -2147483642
  544.          FocusRect       =   1
  545.          HighLight       =   1
  546.          AllowSelection  =   0   'False
  547.          AllowBigSelection=   0   'False
  548.          AllowUserResizing=   0
  549.          SelectionMode   =   0
  550.          GridLines       =   1
  551.          GridLinesFixed  =   2
  552.          GridLineWidth   =   1
  553.          Rows            =   5000
  554.          Cols            =   20
  555.          FixedRows       =   1
  556.          FixedCols       =   0
  557.          RowHeightMin    =   0
  558.          RowHeightMax    =   0
  559.          ColWidthMin     =   0
  560.          ColWidthMax     =   0
  561.          ExtendLastCol   =   0   'False
  562.          FormatString    =   ""
  563.          ScrollTrack     =   0   'False
  564.          ScrollBars      =   3
  565.          ScrollTips      =   0   'False
  566.          MergeCells      =   0
  567.          MergeCompare    =   0
  568.          AutoResize      =   -1  'True
  569.          AutoSizeMode    =   0
  570.          AutoSearch      =   0
  571.          AutoSearchDelay =   2
  572.          MultiTotals     =   -1  'True
  573.          SubtotalPosition=   1
  574.          OutlineBar      =   0
  575.          OutlineCol      =   0
  576.          Ellipsis        =   0
  577.          ExplorerBar     =   0
  578.          PicturesOver    =   0   'False
  579.          FillStyle       =   0
  580.          RightToLeft     =   0   'False
  581.          PictureType     =   0
  582.          TabBehavior     =   0
  583.          OwnerDraw       =   0
  584.          Editable        =   0
  585.          ShowComboButton =   1
  586.          WordWrap        =   -1  'True
  587.          TextStyle       =   0
  588.          TextStyleFixed  =   0
  589.          OleDragMode     =   0
  590.          OleDropMode     =   0
  591.          DataMode        =   0
  592.          VirtualData     =   -1  'True
  593.          DataMember      =   ""
  594.          ComboSearch     =   3
  595.          AutoSizeMouse   =   -1  'True
  596.          FrozenRows      =   0
  597.          FrozenCols      =   0
  598.          AllowUserFreezing=   0
  599.          BackColorFrozen =   0
  600.          ForeColorFrozen =   0
  601.          WallPaperAlignment=   9
  602.          AccessibleName  =   ""
  603.          AccessibleDescription=   ""
  604.          AccessibleValue =   ""
  605.          AccessibleRole  =   24
  606.       End
  607.       Begin VB.Label Label5 
  608.          AutoSize        =   -1  'True
  609.          Caption         =   "银行对帐单"
  610.          BeginProperty Font 
  611.             Name            =   "宋体"
  612.             Size            =   12
  613.             Charset         =   134
  614.             Weight          =   700
  615.             Underline       =   0   'False
  616.             Italic          =   0   'False
  617.             Strikethrough   =   0   'False
  618.          EndProperty
  619.          Height          =   240
  620.          Left            =   8370
  621.          TabIndex        =   9
  622.          Top             =   180
  623.          Width           =   1275
  624.       End
  625.       Begin VB.Label Label4 
  626.          AutoSize        =   -1  'True
  627.          Caption         =   "单位日记帐"
  628.          BeginProperty Font 
  629.             Name            =   "宋体"
  630.             Size            =   12
  631.             Charset         =   134
  632.             Weight          =   700
  633.             Underline       =   0   'False
  634.             Italic          =   0   'False
  635.             Strikethrough   =   0   'False
  636.          EndProperty
  637.          Height          =   240
  638.          Index           =   1
  639.          Left            =   1950
  640.          TabIndex        =   8
  641.          Top             =   180
  642.          Width           =   1275
  643.       End
  644.    End
  645. End
  646. Attribute VB_Name = "YH_FrmZddz"
  647. Attribute VB_GlobalNameSpace = False
  648. Attribute VB_Creatable = False
  649. Attribute VB_PredeclaredId = True
  650. Attribute VB_Exposed = False
  651. '*************************************************************
  652. '*    模 块 名 称 :银行自动对帐
  653. '*    功 能 描 述 建立和管理银行自动对帐数据
  654. '*    程序员姓名  : xjl
  655. '*    最后修改人  : xjl
  656. '*    最后修改时间:2000/11/07
  657. '*    备        注:
  658. '*************************************************************
  660. '以下为固定使用变量(网格)
  661. Dim Dyymctbl As New DY_Dyymsz            '打印页面窗体变量
  662. Dim GridCode As String                   '显示网格网格代码
  663. Dim GridInf() As Variant                 '整个网格设置信息
  664. Dim Tsxx As String                       '系统提示信息
  665. Dim Qslz As Long                         '网格隐藏(非操作显示)列数
  666. Dim Sjhgd As Double                      '网格数据行高度
  667. Dim GridBoolean() As Boolean             '网格列信息(布尔型)
  668. Dim GridStr()  As String                 '网格列信息(字符型)
  669. Dim GridInt() As Integer                 '网格列信息(整型)
  670. Dim Szzls As Integer                     '数组总列数(网格列数-1)
  671. Dim Rowjsq As Integer
  672. Dim Str_RightEdit As String              '编辑权限索引
  674. '银行对帐单手工选中标志
  675. Private Sub CxbbGrid_DblClick()
  676.     Dim RecTemp As New ADODB.Recordset
  677.     '判断用户是否有此功能执行权限,如有则写上机日志(进入)
  678.     If Not Security_Log(Str_RightEdit, Xtczybm, 1, True, False) Then
  679.         Exit Sub
  680.     End If
  681.     
  682.     With CxbbGrid
  683.         If .Rows > 1 Then
  684.             If RecTemp.State = 1 Then RecTemp.Close
  685.             RecTemp.Open "Select * from cwzz_bankbill where BankBillID='" & .TextMatrix(.Row, 6) & "'", Cw_DataEnvi.DataConnect, adOpenDynamic, adLockOptimistic
  686.             If RecTemp.EOF = False Then
  687.                 If RecTemp.Fields("bcheckflag") = True Then
  688.                     RecTemp.Fields("bcheckflag") = 0
  689.                     RecTemp.Fields("handworkflag") = 0
  690.                     RecTemp.Update
  691.                 Else
  692.                     RecTemp.Fields("bcheckflag") = 1
  693.                     RecTemp.Fields("handworkflag") = 1
  694.                     RecTemp.Update
  695.                 End If
  696.                 If .TextMatrix(.Row, 5) = "" Then
  697.                     .TextMatrix(.Row, 5) = "√"
  698.                     .Cell(flexcpBackColor, .Row, 0, .Row, .Cols - 1) = Label4(0).BackColor
  699.                     CxbbGrid.BackColorSel = Label4(0).BackColor
  700.                 Else
  701.                     .TextMatrix(.Row, 5) = ""
  702.                     .Cell(flexcpBackColor, .Row, 0, .Row, .Cols - 1) = Label4(2).BackColor
  703.                     CxbbGrid.BackColorSel = Label4(2).BackColor
  704.                 End If
  705.             End If
  706.         End If
  707.     End With
  708. End Sub
  710. '控制网格颜色
  711. Private Sub CXBBGrid_EnterCell()
  712.     If CxbbGrid.Cell(flexcpBackColor, CxbbGrid.Row) = Label4(0).BackColor Then
  713.         CxbbGrid.BackColorSel = Label4(0).BackColor
  714.     Else
  715.         CxbbGrid.BackColorSel = Label4(2).BackColor
  716.     End If
  717. End Sub
  719. '窗体载入
  720. Sub Form_Load()
  721.     '定以网格列
  722.     Dim I As Integer
  723.     '隐藏选择对话框
  724.     YH_FrmXzkm.Hide
  725.     '调入打印页面设置窗体
  726.     Label3.Caption = YH_FrmXzkm.Combo1.Text
  727.     XtReportCode = "Cwzz_Zddz"
  728.     
  729.     '调入网格(银行)
  730.     GridCode = "Cwzz_yhzddz"
  731.     Call BzWgcsh(CxbbGrid, GridCode, GridInf(), GridBoolean(), GridInt(), GridStr())
  732.     Qslz = GridInf(1)
  733.     Sjhgd = GridInf(2)
  734.     Sfxshjwg = GridInf(7)
  735.     Szzls = CxbbGrid.Cols - 1
  736.     
  737.     '设置网格属性
  738.     With vsFlexGrid1
  739.         .Cols = 9
  740.         .FormatString = "凭证日期|票据日期|结算方式|票号|方向|金额|两清|凭证号数|摘要" '格式网格
  741.         For I = 0 To .Cols - 1
  742.             .Rows = 1
  743.             .FixedAlignment(I) = flexAlignCenterCenter
  744.             .ColWidth(I) = 1000
  745.             .RowHeight(0) = 450
  746.         Next I
  747.         .ColWidth(6) = 500
  748.         .ColWidth(7) = 800
  749.         .ColWidth(4) = 400
  750.         .ColWidth(3) = 500
  751.         .ColAlignment(5) = flexAlignRightCenter
  752.     End With
  753.     With CxbbGrid
  754.         .ColAlignment(4) = flexAlignRightCenter
  755.     End With
  756.     
  757.     '显示网格数据
  758.     Call Sub_ShowBill
  759.     Rowjsq = CxbbGrid.Rows
  760.     
  761.     '调整标题位置
  762.     SetTitlePos tsLabel(4)
  763.     
  764.     Str_RightEdit = "Cwzz_yhzddz_Edit"
  765.     
  766. End Sub
  768. Private Sub Form_Resize()
  769.     On Error Resume Next
  770.     '横线条
  771.     Frame1.Width = Me.Width - 160
  772.     Frame1.Height = 90
  773.     
  774.     '竖线条
  775.     Frame3.Left = Me.Width / 2 + 270
  776.     Frame3.Height = Me.Height - Frame2.Top - 400
  777.     Frame3.Width = 30
  778.     
  779.     'Frame窗体
  780.     With Frame2
  781.         .Width = Me.Width - 150
  782.         .Height = Me.Height - .Top - 400
  783.     End With
  784.     
  785.     'CxbbGrid网格
  786.     With CxbbGrid
  787.         CxbbGrid.Left = Me.Width / 2 + 350
  788.         .Width = Me.Width / 2 - 550
  789.         .Height = Me.Height - Frame2.Top - .Top - 440
  790.     End With
  791.     
  792.     'vsFlexGrid1网格
  793.     With vsFlexGrid1
  794.         .Width = Me.Width / 2 + 160
  795.         .Height = Me.Height - Frame2.Top - .Top - 440
  796.     End With
  797.     
  798.     '横幅
  799.     With Pic_Title
  800.         .Width = Me.Width - 160
  801.     End With
  802.     
  803.     '工具条
  804.     N.Left = Me.Width - N.Width - 160
  805. End Sub
  807. '退出
  808. Private Sub Form_Unload(Cancel As Integer)
  809.     Glo_Variable.Unload_TF = True
  810.     Unload YH_FrmXzkm
  811.     '卸载过滤条件
  812.     Unload YH_FrmGltj
  813. End Sub
  815. Private Sub N_ButtonClick(ByVal Button As MSComctlLib.Button)
  816.     Select Case Button.Key
  817.     Case "bcgs"                                          '保存表格格式
  818.         Call Bcwggs(CxbbGrid, GridCode, GridStr())
  819.     Case "hfmrgs"                                        '恢复默认格式
  820.         Call Hfmrgs(CxbbGrid, GridCode, GridStr())
  821.     Case "szxsxm"                                        '设置显示项目
  822.         Call Szxsxm(CxbbGrid, GridCode)
  823.     End Select
  824. End Sub
  826. Private Sub SzToolbar_ButtonClick(ByVal Button As MSComctlLib.Button)
  827.     Select Case Button.Key
  828.     Case "dz"                                      '对帐
  829.         
  830.         '判断用户是否有此功能执行权限,如有则写上机日志(进入)
  831.         If Not Security_Log(Str_RightEdit, Xtczybm, 1, True) Then
  832.             Exit Sub
  833.         End If
  834.         YH_FrmDztj.HelpContextID = "0115004"
  835.         YH_FrmDztj.Show 1
  836.         CxbbGrid.Clear 1
  837.         vsFlexGrid1.Clear 1
  838.         Call Sub_ShowBill
  839.     Case "qx"                                      '取消对帐
  840.         
  841.         '判断用户是否有此功能执行权限,如有则写上机日志(进入)
  842.         If Not Security_Log(Str_RightEdit, Xtczybm, 1, True) Then
  843.             Exit Sub
  844.         End If
  846.         Cw_DataEnvi.DataConnect.Execute ("update cwzz_bankbill set bcheckflag=0,HandWorkFlag=0 where bdelete=0")
  847.         Cw_DataEnvi.DataConnect.Execute ("update cwzz_accvouchmain set checkflag=0")
  848.         Cw_DataEnvi.DataConnect.Execute ("update cwzz_accvouchsub set bcheckflag=0,HandWorkFlag=0 where bdelete=0")
  849.         Cw_DataEnvi.DataConnect.Execute ("update cwzz_rjznotcheck set bcheckflag=0,HandWorkFlag=0 where bdelete=0")
  850.         CxbbGrid.Clear 1
  851.         vsFlexGrid1.Clear 1
  852.         Call Sub_ShowBill
  853.     Case "gl"                                      '过滤
  854.         YH_FrmGltj.Tag = "Z"
  855.         YH_FrmGltj.HelpContextID = "0115004"
  856.         YH_FrmGltj.Show 1
  857.     Case "jc"                                      '检查
  858.         YH_FrmDzjc.HelpContextID = "0115004"
  859.         YH_FrmDzjc.Show 1
  860.     Case "dz1"                                     '对照
  861.         If CxbbGrid.Rows = Rowjsq Then
  862.             CxbbGrid.Rows = 1
  863.         Else
  864.             CxbbGrid.Clear 1
  865.             vsFlexGrid1.Clear 1
  866.             Call Sub_ShowBill
  867.         End If
  868.     Case "bz"                                       '帮助
  869.         Call F1bz
  870.     Case "tc"                                       '退出
  871.         Unload Me
  872.     Case "sel"
  873.         Glo_Variable.Unload_TF = False
  874.         YH_FrmXzkm.HelpContextID = "0115004"
  875.         YH_FrmXzkm.Show 1
  876.     Case "hx"                                       '核销银行帐
  877.         '判断用户是否有此功能执行权限,如有则写上机日志(进入)
  878.         If Not Security_Log(Str_RightEdit, Xtczybm, 1, True) Then
  879.             Exit Sub
  880.         End If
  881.         Call HxYhz
  882.         Call Sub_ShowBill
  883.     End Select
  884. End Sub
  886. '显示所有未达帐项
  887. Private Sub Sub_ShowBill()
  888.     Dim RecTemp As New ADODB.Recordset
  889.     Dim Recfind As New ADODB.Recordset
  890.     Dim Rowjsq As Integer
  891.     CxbbGrid.Rows = 1
  892.     vsFlexGrid1.Rows = 1
  893.     '显示期初未达
  894.     '显示银行对帐单
  895.     Sqlstr = "select * from cwzz_bankbill where rectype=1 and bdelete=0 and ccode='" & Val(Label3.Caption) & "'order by billdate"
  896.     Set RecTemp = Cw_DataEnvi.DataConnect.Execute(Sqlstr)
  897.     Rowjsq = 1
  898.     Do While Not RecTemp.EOF
  899.         If RecTemp.Fields("bdelete") = True Then
  900.         End If
  901.         With CxbbGrid
  902.             .Cols = 7
  903.             If Rowjsq > .Rows - 1 Then
  904.                 .AddItem ""
  905.                 .RowHeight(.Rows - 1) = 350
  906.             End If
  907.             .TextMatrix(Rowjsq, 0) = RecTemp.Fields("billdate")
  908.             Sqlstr = "select * from Gy_settlement where sscode='" & RecTemp.Fields("sscode") & "'"
  909.             Set Recfind = Cw_DataEnvi.DataConnect.Execute(Sqlstr)
  910.             If Recfind.EOF = False Then
  911.                 .TextMatrix(Rowjsq, 1) = Recfind.Fields("ssname")
  912.             End If
  913.             .TextMatrix(Rowjsq, 2) = RecTemp.Fields("billno")
  914.             If Val(RecTemp.Fields("Dfje")) <> 0 Then
  915.                 .TextMatrix(Rowjsq, 3) = "借"
  916.                 .TextMatrix(Rowjsq, 4) = Format(RecTemp.Fields("Dfje"), "#,###.00")
  917.             Else
  918.                 .TextMatrix(Rowjsq, 3) = "贷"
  919.                 .TextMatrix(Rowjsq, 4) = Format(RecTemp.Fields("Jfje"), "#,###.00")
  920.             End If
  921.             .TextMatrix(Rowjsq, 6) = RecTemp.Fields("BankBillID")
  922.             .ColHidden(6) = True
  923.             If RecTemp.Fields("bcheckflag") = True Then
  924.                 If Trim(RecTemp.Fields("handworkflag")) = True Then
  925.                     .TextMatrix(Rowjsq, 5) = "√"
  926.                 Else
  927.                     .TextMatrix(Rowjsq, 5) = "○"
  928.                 End If
  929.                 .Cell(flexcpBackColor, Rowjsq, 0, Rowjsq, .Cols - 1) = Label4(0).BackColor
  930.             End If
  931.             Rowjsq = Rowjsq + 1
  932.         End With
  933.         RecTemp.MoveNext
  934.     Loop
  935.     
  936.     '显示银行对帐单
  937.     Sqlstr = "select * from cwzz_bankbill where rectype=2 and bdelete=0 and ccode='" & Val(Label3.Caption) & "'order by billdate"
  938.     Set RecTemp = Cw_DataEnvi.DataConnect.Execute(Sqlstr)
  939.     Do While Not RecTemp.EOF
  940.         If RecTemp.Fields("bdelete") = True Then
  941.         End If
  942.         With CxbbGrid
  943.             .Cols = 7
  944.             If Rowjsq > .Rows - 1 Then
  945.                 .AddItem ""
  946.                 .RowHeight(.Rows - 1) = 350
  947.             End If
  948.             .TextMatrix(Rowjsq, 0) = RecTemp.Fields("billdate")
  949.             Sqlstr = "select * from Gy_settlement where sscode='" & RecTemp.Fields("sscode") & "'"
  950.             Set Recfind = Cw_DataEnvi.DataConnect.Execute(Sqlstr)
  951.             If Recfind.EOF = False Then
  952.                 .TextMatrix(Rowjsq, 1) = Recfind.Fields("ssname")
  953.             End If
  954.             .TextMatrix(Rowjsq, 2) = RecTemp.Fields("billno")
  955.             If Val(RecTemp.Fields("jfje")) <> 0 Then
  956.                 .TextMatrix(Rowjsq, 3) = "借"
  957.                 .TextMatrix(Rowjsq, 4) = Format(RecTemp.Fields("jfje"), "#,###.00")
  958.             Else
  959.                 .TextMatrix(Rowjsq, 3) = "贷"
  960.                 .TextMatrix(Rowjsq, 4) = Format(RecTemp.Fields("dfje"), "#,###.00")
  961.             End If
  962.             .TextMatrix(Rowjsq, 6) = RecTemp.Fields("BankBillID")
  963.             .ColHidden(6) = True
  964.             If RecTemp.Fields("bcheckflag") = True Then
  965.                 If Trim(RecTemp.Fields("handworkflag")) = True Then
  966.                     .TextMatrix(Rowjsq, 5) = "√"
  967.                 Else
  968.                     .TextMatrix(Rowjsq, 5) = "○"
  969.                 End If
  970.                 .Cell(flexcpBackColor, Rowjsq, 0, Rowjsq, .Cols - 1) = Label4(0).BackColor
  971.             End If
  972.             Rowjsq = Rowjsq + 1
  973.         End With
  974.         RecTemp.MoveNext
  975.     Loop
  976.     
  977.     '显示单位日记帐
  978.     Sqlstr = "select * from cwzz_rjznotcheck where rectype=1 and bdelete=0 and ccode='" & Val(Label3.Caption) & "'order by ddate"
  979.     Set RecTemp = Cw_DataEnvi.DataConnect.Execute(Sqlstr)
  980.     Rowjsq = 1
  981.     Do While Not RecTemp.EOF()
  982.         With vsFlexGrid1
  983.             .Cols = 10
  984.             If Rowjsq > .Rows - 1 Then
  985.                 .AddItem ""
  986.                 .RowHeight(.Rows - 1) = 350
  987.             End If
  988.             .TextMatrix(Rowjsq, 0) = RecTemp.Fields("ddate")
  989.             If IsNull(RecTemp.Fields("billdate")) = False Then
  990.                 .TextMatrix(Rowjsq, 1) = RecTemp.Fields("billdate")
  991.             End If
  992.             .TextMatrix(Rowjsq, 3) = RecTemp.Fields("billno")
  993.             Sqlstr = "select * from gy_settlement where sscode='" & RecTemp.Fields("sscode") & "'"
  994.             Set Recfind = Cw_DataEnvi.DataConnect.Execute(Sqlstr)
  995.             If Recfind.EOF = False Then
  996.                 .TextMatrix(Rowjsq, 2) = Recfind.Fields("ssname")
  997.             End If
  998.             If Val(RecTemp.Fields("jfje")) <> 0 Then
  999.                 .TextMatrix(Rowjsq, 4) = "借"
  1000.                 .TextMatrix(Rowjsq, 5) = Format(RecTemp.Fields("jfje"), "#,####.00")
  1001.             Else
  1002.                 .TextMatrix(Rowjsq, 4) = "贷"
  1003.                 .TextMatrix(Rowjsq, 5) = Format(RecTemp.Fields("dfje"), "#,####.00")
  1004.             End If
  1005.             .TextMatrix(Rowjsq, 7) = Trim(RecTemp.Fields("vouchclasscode")) & "-" & Trim(RecTemp.Fields("vouchno"))
  1006.             If IsNull(RecTemp.Fields("digest")) = False Then
  1007.                 .TextMatrix(Rowjsq, 8) = RecTemp.Fields("digest")
  1008.             End If
  1009.             .TextMatrix(Rowjsq, 9) = RecTemp.Fields("RjzNotCheckID")
  1010.             .ColHidden(9) = True
  1011.             If RecTemp.Fields("bcheckflag") = True Then
  1012.                 If RecTemp.Fields("handworkflag") = True Then
  1013.                     .TextMatrix(Rowjsq, 6) = "√"
  1014.                 Else
  1015.                     .TextMatrix(Rowjsq, 6) = "○"
  1016.                 End If
  1017.                 .Cell(flexcpBackColor, Rowjsq, 0, Rowjsq, .Cols - 1) = Label4(0).BackColor
  1018.             End If
  1019.             Rowjsq = Rowjsq + 1
  1020.         End With
  1021.         RecTemp.MoveNext
  1022.     Loop
  1023.     
  1024.     '显示凭证日记帐
  1025.     Sqlstr = "select * from Cwzz_V_AccVouch where ccode='" & Val(Label3.Caption) & "'and bdelete=0  " _
  1026.     & "And convert(char(8),Ddate,112) >= " _
  1027.     & "(Select Convert(char(8),ddate,112) From cwzz_rjznotcheck Where rectype=0 And  " _
  1028.     & "Ccode='" & Val(Label3.Caption) & "') And Convert(Char(6),Ddate,112)<= " _
  1029.     & "(select Convert(Char(6),max(qsrq),112) from gy_kjrlb where cwzzjzbz='1')  Order By DDate"
  1030.     Set RecTemp = Cw_DataEnvi.DataConnect.Execute(Sqlstr)
  1031.     Do While Not RecTemp.EOF()
  1032.         With vsFlexGrid1
  1033.             .Cols = 10
  1034.             If Rowjsq > .Rows - 1 Then
  1035.                 .AddItem ""
  1036.                 .RowHeight(.Rows - 1) = 350
  1037.             End If
  1038.             .TextMatrix(Rowjsq, 0) = RecTemp.Fields("ddate")
  1039.             If IsNull(RecTemp.Fields("billdate")) = False Then
  1040.                 .TextMatrix(Rowjsq, 1) = RecTemp.Fields("billdate")
  1041.             End If
  1042.             .TextMatrix(Rowjsq, 3) = RecTemp.Fields("billno") & ""
  1043.             Sqlstr = "select * from gy_settlement where sscode='" & RecTemp.Fields("sscode") & "'"
  1044.             Set Recfind = Cw_DataEnvi.DataConnect.Execute(Sqlstr)
  1045.             If Recfind.EOF = False Then
  1046.                 .TextMatrix(Rowjsq, 2) = Recfind.Fields("ssname") & ""
  1047.             End If
  1048.             If Val(RecTemp.Fields("jfje")) <> 0 Then
  1049.                 .TextMatrix(Rowjsq, 4) = "借"
  1050.                 .TextMatrix(Rowjsq, 5) = Format(RecTemp.Fields("jfje"), "#,####.00")
  1051.             Else
  1052.                 .TextMatrix(Rowjsq, 4) = "贷"
  1053.                 .TextMatrix(Rowjsq, 5) = Format(RecTemp.Fields("dfje"), "#,####.00")
  1054.             End If
  1055.             .TextMatrix(Rowjsq, 7) = Trim(RecTemp.Fields("vouchclasscode")) & "-" & Trim(RecTemp.Fields("vouchno"))
  1056.             .TextMatrix(Rowjsq, 8) = RecTemp.Fields("digest") & ""
  1057.             .TextMatrix(Rowjsq, 9) = RecTemp.Fields("SerialID") & ""
  1058.             If RecTemp.Fields("bcheckflag") = True Then
  1059.                 If RecTemp.Fields("handworkflag") = True Then
  1060.                     .TextMatrix(Rowjsq, 6) = "√"
  1061.                 Else
  1062.                     .TextMatrix(Rowjsq, 6) = "○"
  1063.                 End If
  1064.                 .Cell(flexcpBackColor, Rowjsq, 0, Rowjsq, .Cols - 1) = Label4(0).BackColor
  1065.             End If
  1066.             Rowjsq = Rowjsq + 1
  1067.         End With
  1068.         RecTemp.MoveNext
  1069.     Loop
  1070. End Sub
  1072. '双击选择银行企业的手工对帐
  1073. Private Sub vsFlexGrid1_DblClick()
  1074.     Dim RecTemp As New ADODB.Recordset
  1075.     '判断用户是否有此功能执行权限,如有则写上机日志(进入)
  1076.     If Not Security_Log(Str_RightEdit, Xtczybm, 1, True, False) Then
  1077.         Exit Sub
  1078.     End If
  1079.     
  1080.     With vsFlexGrid1                                                        '添加银行对帐单手工对帐标志
  1081.         If .Rows > 1 Then
  1082.             If RecTemp.State = 1 Then RecTemp.Close
  1083.             If .TextMatrix(.Row, 4) = "借" Then
  1084.                 RecTemp.Open "select * from cwzz_rjznotcheck where RjzNotCheckID='" & .TextMatrix(.Row, 9) & "'and jfje=" & Val(Format(.TextMatrix(.Row, 5), "0.00")), Cw_DataEnvi.DataConnect, adOpenDynamic, adLockOptimistic
  1085.             Else
  1086.                 RecTemp.Open "select * from cwzz_rjznotcheck where RjzNotCheckID='" & .TextMatrix(.Row, 9) & "'and dfje=" & Val(Format(.TextMatrix(.Row, 5), "0.00")), Cw_DataEnvi.DataConnect, adOpenDynamic, adLockOptimistic
  1087.             End If
  1088.             If RecTemp.EOF = False Then
  1089.                 If RecTemp.Fields("bcheckflag") = True Then
  1090.                     RecTemp.Fields("bcheckflag") = 0
  1091.                     RecTemp.Fields("handworkflag") = 0
  1092.                     RecTemp.Update
  1093.                 Else
  1094.                     RecTemp.Fields("bcheckflag") = 1
  1095.                     RecTemp.Fields("handworkflag") = 1
  1096.                     RecTemp.Update
  1097.                 End If
  1098.             Else
  1099.                 If RecTemp.State = 1 Then RecTemp.Close                             '添加企业日记账手工对帐标志
  1100.                 If .TextMatrix(.Row, 4) = "借" Then
  1101.                     RecTemp.Open "select * from cwzz_accvouchsub where SerialID='" & .TextMatrix(.Row, 9) & "'and jfje=" & Val(Format(.TextMatrix(.Row, 5), "0.00")), Cw_DataEnvi.DataConnect, adOpenDynamic, adLockOptimistic
  1102.                 Else
  1103.                     RecTemp.Open "select * from cwzz_accvouchsub where SerialID='" & .TextMatrix(.Row, 9) & "'and dfje=" & Val(Format(.TextMatrix(.Row, 5), "0.00")), Cw_DataEnvi.DataConnect, adOpenDynamic, adLockOptimistic
  1104.                 End If
  1105.                 If RecTemp.EOF = False Then
  1106.                     If RecTemp.Fields("bcheckflag") = True Then
  1107.                         RecTemp.Fields("bcheckflag") = 0
  1108.                         RecTemp.Fields("handworkflag") = 0
  1109.                         RecTemp.Update
  1110.                     Else
  1111.                         RecTemp.Fields("bcheckflag") = 1
  1112.                         RecTemp.Fields("handworkflag") = 1
  1113.                         RecTemp.Update
  1114.                     End If
  1115.                 End If
  1116.             End If
  1117.             If .TextMatrix(.Row, 6) = "" Then                                         '添加颜色
  1118.                 .TextMatrix(.Row, 6) = "√"
  1119.                 .Cell(flexcpBackColor, .Row, 0, .Row, .Cols - 1) = Label4(0).BackColor
  1120.                 .BackColorSel = Label4(0).BackColor
  1121.             Else
  1122.                 .TextMatrix(.Row, 6) = ""
  1123.                 .Cell(flexcpBackColor, .Row, 0, .Row, .Cols - 1) = Label4(2).BackColor
  1124.                 .BackColorSel = Label4(2).BackColor
  1125.             End If
  1126.         End If
  1127.     End With
  1128. End Sub
  1130. '核销银行帐
  1131. Sub HxYhz()
  1132.     Dim Msg As String
  1133.     Dim DWYE, YHYE, DWJF, DWDF, YHJF, YHDF As Currency
  1134.     Dim RecTemp As New ADODB.Recordset
  1135.     Dim RecDir As New ADODB.Recordset
  1136.     Dim SQL_Str As String
  1137.     '是否是银行帐户
  1138.     SQL_Str = "Select * From CWZZ_ACCCODE Where Cproperty='银行' And EndFlag=1 and  Ccode='" & Val(Label3.Caption) & "'"
  1139.     Set RecTemp = Cw_DataEnvi.DataConnect.Execute(SQL_Str)
  1140.     If RecTemp.EOF Then
  1141.         MsgBox "科目编码输入有误!", vbOKOnly + 16, "百利/ERP5.0-财务总帐"
  1142.         Combo1.SetFocus
  1143.         Exit Sub
  1144.     End If
  1145.     
  1146.     '此帐户的余额是否平衡
  1147.     DWYE = 0
  1148.     YHYE = 0
  1149.     '单位帐面余额
  1150.     SQL_Str = "SELECT SUM(JFJE)-SUM(DFJE) From Cwzz_RjzNotCheck Where RecType=0 And Ccode='" & Val(Label3.Caption) & "'"
  1151.     Set RecTemp = Cw_DataEnvi.DataConnect.Execute(SQL_Str)
  1152.     If Not IsNull(RecTemp(0)) Then
  1153.         DWYE = RecTemp(0)
  1154.     End If
  1155.     
  1156.     SQL_Str = "Select SUM(JFJE)-SUM(DFJE) From Cwzz_V_AccVouch where Ccode='" & Val(Label3.Caption) & "' " _
  1157.     & "And Convert(Char(8),Ddate,112)>=(Select Convert(Char(8),Ddate,112) From " _
  1158.     & "Cwzz_RjzNotCheck Where RecType=0 And Ccode='" & Val(Label3.Caption) & "') " _
  1159.     & "And Convert(Char(6),Ddate,112)<=(select Convert(Char(6),max(qsrq),112) from gy_kjrlb where cwzzjzbz='1')"
  1160.     Set RecTemp = Cw_DataEnvi.DataConnect.Execute(SQL_Str)
  1161.     If Not IsNull(RecTemp(0)) Then
  1162.         DWYE = DWYE + RecTemp(0)
  1163.     End If
  1164.     
  1165.     '银行帐面余额
  1166.     SQL_Str = "SELECT SUM(DFJE)-SUM(JFJE) From Cwzz_BankBill Where (RecType=0) And Ccode='" & Val(Label3.Caption) & "'"
  1167.     Set RecTemp = Cw_DataEnvi.DataConnect.Execute(SQL_Str)
  1168.     If Not IsNull(RecTemp(0)) Then
  1169.         YHYE = RecTemp(0)
  1170.     End If
  1171.     
  1172.     SQL_Str = "SELECT SUM(DFJE)-SUM(JFJE) From Cwzz_BankBill Where (RecType=2) And Ccode='" & Val(Label3.Caption) & "'"
  1173.     Set RecTemp = Cw_DataEnvi.DataConnect.Execute(SQL_Str)
  1174.     If Not IsNull(RecTemp(0)) Then
  1175.         YHYE = YHYE + RecTemp(0)
  1176.     End If
  1177.     
  1178.     '银行调整后余额=银行帐面余额+（企业己收银行未收-企业己付银行未付）
  1179.     SQL_Str = "SELECT SUM(JFJE)-SUM(DFJE) From Cwzz_RjzNotCheck Where RecType=1 And BDelete=0 And Ccode='" & Val(Label3.Caption) & "'"
  1180.     Set RecTemp = Cw_DataEnvi.DataConnect.Execute(SQL_Str)
  1181.     If Not IsNull(RecTemp(0)) Then
  1182.         YHYE = YHYE + RecTemp(0)
  1183.     End If
  1184.     
  1185.     SQL_Str = "Select SUM(JFJE)-SUM(DFJE) From Cwzz_V_AccVouch where Ccode='" & Val(Label3.Caption) & "' " _
  1186.     & "And Convert(Char(8),Ddate,112)>=(Select Convert(Char(8),Ddate,112) From " _
  1187.     & "Cwzz_RjzNotCheck Where RecType=0 And Ccode='" & Val(Label3.Caption) & "') And BDelete=0 " _
  1188.     & "And Convert(Char(6),Ddate,112)<=(select Convert(Char(6),max(qsrq),112) from gy_kjrlb where cwzzjzbz='1')"
  1189.     Set RecTemp = Cw_DataEnvi.DataConnect.Execute(SQL_Str)
  1190.     If Not IsNull(RecTemp(0)) Then
  1191.         YHYE = YHYE + RecTemp(0)
  1192.     End If
  1193.     
  1194.     '单位调整后余额=银行帐面余额+（银行己收企业未收-银行己付企业未付）
  1195.     SQL_Str = "SELECT SUM(JFJE)-SUM(DFJE) From Cwzz_BankBill Where RecType=1 And BDelete=0 And Ccode='" & Val(Label3.Caption) & "'"
  1196.     Set RecTemp = Cw_DataEnvi.DataConnect.Execute(SQL_Str)
  1197.     If Not IsNull(RecTemp(0)) Then
  1198.         DWYE = DWYE + RecTemp(0)
  1199.     End If
  1200.     
  1201.     SQL_Str = "SELECT SUM(DFJE)-SUM(JFJE) From Cwzz_BankBill Where RecType=2 And BDelete=0 And Ccode='" & Val(Label3.Caption) & "'"
  1202.     Set RecTemp = Cw_DataEnvi.DataConnect.Execute(SQL_Str)
  1203.     If Not IsNull(RecTemp(0)) Then
  1204.         DWYE = DWYE + RecTemp(0)
  1205.     End If
  1206.     
  1207.     If DWYE <> YHYE Then
  1208.         MsgBox "《" + Label3.Caption + "》帐户调整余额不平，不能进行核销", 16, "百利/ERP5.0-财务总帐"
  1209.         Exit Sub
  1210.     End If
  1211.     '判断己勾对的帐是否平衡
  1212.     DWJF = 0
  1213.     DWDF = 0
  1214.     YHJF = 0
  1215.     YHDF = 0
  1216.     '银行对帐单
  1217.     SQL_Str = " Select sum(jfje),sum(dfje) From Cwzz_BankBill Where bcheckflag=1 And BDelete='0' And RecType='1' "
  1218.     Set RecTemp = Cw_DataEnvi.DataConnect.Execute(SQL_Str)
  1219.     If Not IsNull(RecTemp(0)) Then
  1220.         YHDF = RecTemp(0)
  1221.     End If
  1222.     If Not IsNull(RecTemp(1)) Then
  1223.         YHJF = RecTemp(1)
  1224.     End If
  1225.     
  1226.     SQL_Str = " Select sum(jfje),sum(dfje) From Cwzz_BankBill Where bcheckflag=1 And BDelete='0' And RecType='2'"
  1227.     Set RecTemp = Cw_DataEnvi.DataConnect.Execute(SQL_Str)
  1228.     If Not IsNull(RecTemp(0)) Then
  1229.         YHJF = YHJF + RecTemp(0)
  1230.     End If
  1231.     If Not IsNull(RecTemp(1)) Then
  1232.         YHDF = YHDF + RecTemp(1)
  1233.     End If
  1234.     
  1235.     '单位日记帐
  1236.     SQL_Str = " Select sum(jfje),sum(dfje) From cwzz_accvouchsub Where bcheckflag=1 And BDelete='0'"
  1237.     Set RecTemp = Cw_DataEnvi.DataConnect.Execute(SQL_Str)
  1238.     If Not IsNull(RecTemp(0)) Then
  1239.         DWJF = RecTemp(0)
  1240.     End If
  1241.     If Not IsNull(RecTemp(1)) Then
  1242.         DWDF = RecTemp(1)
  1243.     End If
  1244.     
  1245.     SQL_Str = " Select sum(jfje),sum(dfje) From Cwzz_RjzNotCheck Where bcheckflag=1 And BDelete='0'"
  1246.     Set RecTemp = Cw_DataEnvi.DataConnect.Execute(SQL_Str)
  1247.     If Not IsNull(RecTemp(0)) Then
  1248.         DWJF = DWJF + RecTemp(0)
  1249.     End If
  1250.     If Not IsNull(RecTemp(1)) Then
  1251.         DWDF = DWDF + RecTemp(1)
  1252.     End If
  1253.     
  1254.     If DWJF = YHDF And DWDF = YHJF Then
  1255.     Else
  1256.         If DWDF = DWJF Then
  1257.         Else
  1258.             MsgBox "银行自动对帐数据不平衡，不能进行核销。", 16, "百利/ERP5.0-财务总帐"
  1259.             Exit Sub
  1260.         End If
  1261.     End If
  1262.     
  1263.     '判断是否有可核销的数据
  1264.     Sqlstr = "Select Count(*) From Cwzz_BankBill Where BCheckFlag='1' And BDelete='0'"
  1265.     Set RecTemp = Cw_DataEnvi.DataConnect.Execute(Sqlstr)
  1266.     If RecTemp.Fields(0) <= 0 Then
  1267.         MsgBox "没有可核销的数据!", vbOKOnly + 64, "百利/ERP5.0-财务总帐"
  1268.         Exit Sub
  1269.     End If
  1270.     
  1271.     On Error GoTo Err:
  1272.     Cw_DataEnvi.DataConnect.BeginTrans
  1273.     Msg = MsgBox("你要核销银行已经对帐的数据吗?", vbYesNo)
  1274.     If Msg = vbYes Then
  1275.         '核销银行帐
  1276.         If RecTemp.State = 1 Then RecTemp.Close
  1277.         RecTemp.Open "select * from cwzz_bankbill where bcheckflag=1", Cw_DataEnvi.DataConnect, adOpenDynamic, adLockOptimistic
  1278.         Do While Not RecTemp.EOF()
  1279.             RecTemp.Fields("bdelete") = 1
  1280.             RecTemp.Update
  1281.             RecTemp.MoveNext
  1282.         Loop
  1283.         '核销日记帐
  1284.         If RecTemp.State = 1 Then RecTemp.Close
  1285.         RecTemp.Open "select * from cwzz_accvouchsub where bcheckflag=1", Cw_DataEnvi.DataConnect, adOpenDynamic, adLockOptimistic
  1286.         Do While Not RecTemp.EOF()
  1287.             RecTemp.Fields("bdelete") = 1
  1288.             RecTemp.Update
  1289.             RecTemp.MoveNext
  1290.         Loop
  1291.         '核销单位未达帐
  1292.         If RecTemp.State = 1 Then RecTemp.Close
  1293.         RecTemp.Open "select * from Cwzz_RjzNotCheck where bcheckflag=1", Cw_DataEnvi.DataConnect, adOpenDynamic, adLockOptimistic
  1294.         Do While Not RecTemp.EOF()
  1295.             RecTemp.Fields("bdelete") = 1
  1296.             RecTemp.Update
  1297.             RecTemp.MoveNext
  1298.         Loop
  1299.         '核销结算方式相同，票号相同，金额相反的数据
  1300.         Sqlstr = "Select * From CWZZ_V_BILL"
  1301.         Set RecDir = Cw_DataEnvi.DataConnect.Execute(Sqlstr)
  1302.         Do While Not RecDir.EOF()
  1303.             If RecTemp.State = 1 Then RecTemp.Close
  1304.             Sqlstr = "Select * From cwzz_accvouchsub Where SerialID=" + CStr(RecDir.Fields("SerialID")) + " Or SerialID=" + CStr(RecDir.Fields("B_Id")) + ""
  1305.             RecTemp.Open Sqlstr, Cw_DataEnvi.DataConnect, adOpenDynamic, adLockOptimistic
  1306.             Do While Not RecTemp.EOF
  1307.                 RecTemp.Fields("BCheckFlag") = 1
  1308.                 RecTemp.Fields("bdelete") = 1
  1309.                 RecTemp.Update
  1310.                 RecTemp.MoveNext
  1311.             Loop
  1312.             RecDir.MoveNext
  1313.         Loop
  1314.         MsgBox "核销完毕!", 64, "百利/ERP5.0-财务总帐"
  1315.     End If
  1316.     Cw_DataEnvi.DataConnect.CommitTrans
  1317. Err:
  1318.     Cw_DataEnvi.DataConnect.RollbackTrans
  1319. End Sub
  1321. '控制网格颜色
  1322. Private Sub vsFlexGrid1_RowColChange()
  1323.     If vsFlexGrid1.Cell(flexcpBackColor, vsFlexGrid1.Row) = Label4(0).BackColor Then
  1324.         vsFlexGrid1.BackColorSel = Label4(0).BackColor
  1325.     Else
  1326.         vsFlexGrid1.BackColorSel = Label4(2).BackColor
  1327.     End If
  1328. End Sub