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

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

企业管理

开发平台：

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 CL_Discrepancy 
  5.    Caption         =   "差异率列表"
  6.    ClientHeight    =   8595
  7.    ClientLeft      =   60
  8.    ClientTop       =   345
  9.    ClientWidth     =   11820
  10.    HelpContextID   =   130402
  11.    Icon            =   "处理_差异率计算.frx":0000
  12.    LinkTopic       =   "Form1"
  13.    MDIChild        =   -1  'True
  14.    ScaleHeight     =   8595
  15.    ScaleWidth      =   11820
  16.    Begin MSComctlLib.ImageList ImageList1 
  17.       Left            =   3900
  18.       Top             =   780
  19.       _ExtentX        =   1005
  20.       _ExtentY        =   1005
  21.       BackColor       =   -2147483643
  22.       ImageWidth      =   16
  23.       ImageHeight     =   16
  24.       MaskColor       =   12632256
  25.       _Version        =   393216
  26.       BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628} 
  27.          NumListImages   =   32
  28.          BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  29.             Picture         =   "处理_差异率计算.frx":1042
  30.             Key             =   "sz"
  31.          EndProperty
  32.          BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  33.             Picture         =   "处理_差异率计算.frx":13DC
  34.             Key             =   "dy"
  35.          EndProperty
  36.          BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  37.             Picture         =   "处理_差异率计算.frx":1776
  38.             Key             =   "yl"
  39.          EndProperty
  40.          BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  41.             Picture         =   "处理_差异率计算.frx":1B10
  42.             Key             =   "xg"
  43.          EndProperty
  44.          BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  45.             Picture         =   "处理_差异率计算.frx":1EAA
  46.             Key             =   "zh"
  47.          EndProperty
  48.          BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  49.             Picture         =   "处理_差异率计算.frx":2244
  50.             Key             =   "sh"
  51.          EndProperty
  52.          BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  53.             Picture         =   "处理_差异率计算.frx":25DE
  54.             Key             =   "bc"
  55.          EndProperty
  56.          BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  57.             Picture         =   "处理_差异率计算.frx":2978
  58.             Key             =   "fq"
  59.          EndProperty
  60.          BeginProperty ListImage9 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  61.             Picture         =   "处理_差异率计算.frx":2D12
  62.             Key             =   "bz"
  63.          EndProperty
  64.          BeginProperty ListImage10 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  65.             Picture         =   "处理_差异率计算.frx":30AC
  66.             Key             =   "tc"
  67.          EndProperty
  68.          BeginProperty ListImage11 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  69.             Picture         =   "处理_差异率计算.frx":3446
  70.             Key             =   "bcgs"
  71.          EndProperty
  72.          BeginProperty ListImage12 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  73.             Picture         =   "处理_差异率计算.frx":37E0
  74.             Key             =   "mrlk"
  75.          EndProperty
  76.          BeginProperty ListImage13 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  77.             Picture         =   "处理_差异率计算.frx":3B7A
  78.             Key             =   "xsxm"
  79.          EndProperty
  80.          BeginProperty ListImage14 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  81.             Picture         =   "处理_差异率计算.frx":3F14
  82.             Key             =   "first"
  83.          EndProperty
  84.          BeginProperty ListImage15 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  85.             Picture         =   "处理_差异率计算.frx":42AE
  86.             Key             =   "prev"
  87.          EndProperty
  88.          BeginProperty ListImage16 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  89.             Picture         =   "处理_差异率计算.frx":4648
  90.             Key             =   "next"
  91.          EndProperty
  92.          BeginProperty ListImage17 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  93.             Picture         =   "处理_差异率计算.frx":49E2
  94.             Key             =   "last"
  95.          EndProperty
  96.          BeginProperty ListImage18 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  97.             Picture         =   "处理_差异率计算.frx":4D7C
  98.             Key             =   "xx"
  99.          EndProperty
  100.          BeginProperty ListImage19 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  101.             Picture         =   "处理_差异率计算.frx":5116
  102.             Key             =   "define"
  103.          EndProperty
  104.          BeginProperty ListImage20 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  105.             Picture         =   "处理_差异率计算.frx":54B0
  106.             Key             =   "exec"
  107.          EndProperty
  108.          BeginProperty ListImage21 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  109.             Picture         =   "处理_差异率计算.frx":584A
  110.             Key             =   "xz"
  111.          EndProperty
  112.          BeginProperty ListImage22 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  113.             Picture         =   "处理_差异率计算.frx":5BE4
  114.             Key             =   "sc"
  115.          EndProperty
  116.          BeginProperty ListImage23 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  117.             Picture         =   "处理_差异率计算.frx":5F7E
  118.             Key             =   "sx"
  119.          EndProperty
  120.          BeginProperty ListImage24 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  121.             Picture         =   "处理_差异率计算.frx":6318
  122.             Key             =   "cx"
  123.          EndProperty
  124.          BeginProperty ListImage25 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  125.             Picture         =   "处理_差异率计算.frx":66B2
  126.             Key             =   "zd"
  127.          EndProperty
  128.          BeginProperty ListImage26 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  129.             Picture         =   "处理_差异率计算.frx":6A4C
  130.             Key             =   "dz"
  131.          EndProperty
  132.          BeginProperty ListImage27 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  133.             Picture         =   "处理_差异率计算.frx":6DE6
  134.             Key             =   "ph"
  135.          EndProperty
  136.          BeginProperty ListImage28 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  137.             Picture         =   "处理_差异率计算.frx":7180
  138.             Key             =   "fz"
  139.          EndProperty
  140.          BeginProperty ListImage29 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  141.             Picture         =   "处理_差异率计算.frx":751A
  142.             Key             =   "dw"
  143.          EndProperty
  144.          BeginProperty ListImage30 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  145.             Picture         =   "处理_差异率计算.frx":78B4
  146.             Key             =   "hf"
  147.          EndProperty
  148.          BeginProperty ListImage31 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  149.             Picture         =   "处理_差异率计算.frx":7C4E
  150.             Key             =   "pz"
  151.          EndProperty
  152.          BeginProperty ListImage32 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  153.             Picture         =   "处理_差异率计算.frx":7FE8
  154.             Key             =   "check"
  155.          EndProperty
  156.       EndProperty
  157.    End
  158.    Begin VB.Timer Timer1 
  159.       Enabled         =   0   'False
  160.       Interval        =   1
  161.       Left            =   7620
  162.       Top             =   90
  163.    End
  164.    Begin VB.PictureBox Pic_Title 
  165.       BackColor       =   &H00FFFFFF&
  166.       Height          =   1095
  167.       Left            =   0
  168.       Picture         =   "处理_差异率计算.frx":8382
  169.       ScaleHeight     =   1035
  170.       ScaleWidth      =   11715
  171.       TabIndex        =   1
  172.       Top             =   570
  173.       Width           =   11775
  174.       Begin VB.Label lbl_GridCode 
  175.          Height          =   255
  176.          Left            =   1890
  177.          TabIndex        =   9
  178.          Top             =   210
  179.          Visible         =   0   'False
  180.          Width           =   975
  181.       End
  182.       Begin VB.Label lbl_TitleText 
  183.          BackStyle       =   0  'Transparent
  184.          Caption         =   "Label4"
  185.          Height          =   225
  186.          Index           =   1
  187.          Left            =   3120
  188.          TabIndex        =   8
  189.          Top             =   750
  190.          Width           =   4395
  191.       End
  192.       Begin VB.Label lbl_TitleMess 
  193.          BackStyle       =   0  'Transparent
  194.          Caption         =   "仓库:"
  195.          Height          =   225
  196.          Index           =   1
  197.          Left            =   2610
  198.          TabIndex        =   7
  199.          Top             =   750
  200.          Width           =   465
  201.       End
  202.       Begin VB.Label lbl_TitleText 
  203.          BackStyle       =   0  'Transparent
  204.          Caption         =   "Label2"
  205.          Height          =   225
  206.          Index           =   0
  207.          Left            =   990
  208.          TabIndex        =   6
  209.          Top             =   750
  210.          Width           =   1305
  211.       End
  212.       Begin VB.Label lbl_TitleMess 
  213.          BackStyle       =   0  'Transparent
  214.          Caption         =   "月份:"
  215.          Height          =   225
  216.          Index           =   0
  217.          Left            =   480
  218.          TabIndex        =   5
  219.          Top             =   750
  220.          Width           =   465
  221.       End
  222.       Begin VB.Label Lab_Title 
  223.          BackColor       =   &H80000018&
  224.          BackStyle       =   0  'Transparent
  225.          Caption         =   "差异率列表"
  226.          BeginProperty Font 
  227.             Name            =   "宋体"
  228.             Size            =   12
  229.             Charset         =   134
  230.             Weight          =   700
  231.             Underline       =   0   'False
  232.             Italic          =   0   'False
  233.             Strikethrough   =   0   'False
  234.          EndProperty
  235.          ForeColor       =   &H00000000&
  236.          Height          =   300
  237.          Index           =   4
  238.          Left            =   480
  239.          TabIndex        =   2
  240.          Top             =   210
  241.          Width           =   1575
  242.       End
  243.    End
  244.    Begin MSComctlLib.Toolbar GsToolbar 
  245.       Height          =   525
  246.       Left            =   9360
  247.       TabIndex        =   0
  248.       Top             =   30
  249.       Width           =   2475
  250.       _ExtentX        =   4366
  251.       _ExtentY        =   926
  252.       ButtonWidth     =   1455
  253.       ButtonHeight    =   926
  254.       Appearance      =   1
  255.       Style           =   1
  256.       ImageList       =   "ImageList1"
  257.       _Version        =   393216
  258.       BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628} 
  259.          NumButtons      =   3
  260.          BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  261.             Caption         =   "保存格式"
  262.             Key             =   "bcgs"
  263.             ImageKey        =   "bcgs"
  264.          EndProperty
  265.          BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  266.             Caption         =   "默认列宽"
  267.             Key             =   "hfmrgs"
  268.             ImageKey        =   "mrlk"
  269.          EndProperty
  270.          BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  271.             Caption         =   "显示项目"
  272.             Key             =   "szxsxm"
  273.             ImageKey        =   "xsxm"
  274.          EndProperty
  275.       EndProperty
  276.    End
  277.    Begin VSFlex8Ctl.VSFlexGrid CxbbGrid 
  278.       Height          =   7305
  279.       Left            =   0
  280.       TabIndex        =   3
  281.       Top             =   1710
  282.       Width           =   11775
  283.       _cx             =   5080
  284.       _cy             =   5080
  285.       Appearance      =   1
  286.       BorderStyle     =   1
  287.       Enabled         =   -1  'True
  288.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  289.          Name            =   "宋体"
  290.          Size            =   9
  291.          Charset         =   134
  292.          Weight          =   400
  293.          Underline       =   0   'False
  294.          Italic          =   0   'False
  295.          Strikethrough   =   0   'False
  296.       EndProperty
  297.       MousePointer    =   0
  298.       BackColor       =   16777215
  299.       ForeColor       =   -2147483640
  300.       BackColorFixed  =   13826538
  301.       ForeColorFixed  =   -2147483630
  302.       BackColorSel    =   -2147483635
  303.       ForeColorSel    =   -2147483634
  304.       BackColorBkg    =   -2147483636
  305.       BackColorAlternate=   16777215
  306.       GridColor       =   -2147483633
  307.       GridColorFixed  =   -2147483632
  308.       TreeColor       =   -2147483632
  309.       FloodColor      =   192
  310.       SheetBorder     =   -2147483642
  311.       FocusRect       =   1
  312.       HighLight       =   1
  313.       AllowSelection  =   -1  'True
  314.       AllowBigSelection=   -1  'True
  315.       AllowUserResizing=   0
  316.       SelectionMode   =   0
  317.       GridLines       =   1
  318.       GridLinesFixed  =   2
  319.       GridLineWidth   =   1
  320.       Rows            =   50
  321.       Cols            =   10
  322.       FixedRows       =   1
  323.       FixedCols       =   1
  324.       RowHeightMin    =   0
  325.       RowHeightMax    =   0
  326.       ColWidthMin     =   0
  327.       ColWidthMax     =   0
  328.       ExtendLastCol   =   0   'False
  329.       FormatString    =   ""
  330.       ScrollTrack     =   0   'False
  331.       ScrollBars      =   3
  332.       ScrollTips      =   0   'False
  333.       MergeCells      =   0
  334.       MergeCompare    =   0
  335.       AutoResize      =   -1  'True
  336.       AutoSizeMode    =   0
  337.       AutoSearch      =   0
  338.       AutoSearchDelay =   2
  339.       MultiTotals     =   -1  'True
  340.       SubtotalPosition=   0
  341.       OutlineBar      =   0
  342.       OutlineCol      =   0
  343.       Ellipsis        =   0
  344.       ExplorerBar     =   0
  345.       PicturesOver    =   0   'False
  346.       FillStyle       =   0
  347.       RightToLeft     =   0   'False
  348.       PictureType     =   0
  349.       TabBehavior     =   0
  350.       OwnerDraw       =   0
  351.       Editable        =   0
  352.       ShowComboButton =   1
  353.       WordWrap        =   0   'False
  354.       TextStyle       =   0
  355.       TextStyleFixed  =   0
  356.       OleDragMode     =   0
  357.       OleDropMode     =   0
  358.       DataMode        =   0
  359.       VirtualData     =   -1  'True
  360.       DataMember      =   ""
  361.       ComboSearch     =   3
  362.       AutoSizeMouse   =   -1  'True
  363.       FrozenRows      =   0
  364.       FrozenCols      =   0
  365.       AllowUserFreezing=   0
  366.       BackColorFrozen =   0
  367.       ForeColorFrozen =   0
  368.       WallPaperAlignment=   9
  369.       AccessibleName  =   ""
  370.       AccessibleDescription=   ""
  371.       AccessibleValue =   ""
  372.       AccessibleRole  =   24
  373.       Begin MSComctlLib.ImageList ImageList2 
  374.          Left            =   0
  375.          Top             =   0
  376.          _ExtentX        =   1005
  377.          _ExtentY        =   1005
  378.          BackColor       =   -2147483643
  379.          ImageWidth      =   16
  380.          ImageHeight     =   16
  381.          MaskColor       =   12632256
  382.          _Version        =   393216
  383.          BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628} 
  384.             NumListImages   =   40
  385.             BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  386.                Picture         =   "处理_差异率计算.frx":3C446
  387.                Key             =   "sz"
  388.             EndProperty
  389.             BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  390.                Picture         =   "处理_差异率计算.frx":3C4A4
  391.                Key             =   "dy"
  392.             EndProperty
  393.             BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  394.                Picture         =   "处理_差异率计算.frx":3C502
  395.                Key             =   "yl"
  396.             EndProperty
  397.             BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  398.                Picture         =   "处理_差异率计算.frx":3C560
  399.                Key             =   "xg"
  400.             EndProperty
  401.             BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  402.                Picture         =   "处理_差异率计算.frx":3C5BE
  403.                Key             =   "zh"
  404.             EndProperty
  405.             BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  406.                Picture         =   "处理_差异率计算.frx":3C61C
  407.                Key             =   "sh"
  408.             EndProperty
  409.             BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  410.                Picture         =   "处理_差异率计算.frx":3C67A
  411.                Key             =   "bc"
  412.             EndProperty
  413.             BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  414.                Picture         =   "处理_差异率计算.frx":3C6D8
  415.                Key             =   "fq"
  416.             EndProperty
  417.             BeginProperty ListImage9 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  418.                Picture         =   "处理_差异率计算.frx":3C736
  419.                Key             =   "bz"
  420.             EndProperty
  421.             BeginProperty ListImage10 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  422.                Picture         =   "处理_差异率计算.frx":3C794
  423.                Key             =   "tc"
  424.             EndProperty
  425.             BeginProperty ListImage11 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  426.                Picture         =   "处理_差异率计算.frx":3C7F2
  427.                Key             =   "bcgs"
  428.             EndProperty
  429.             BeginProperty ListImage12 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  430.                Picture         =   "处理_差异率计算.frx":3C850
  431.                Key             =   "mrlk"
  432.             EndProperty
  433.             BeginProperty ListImage13 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  434.                Picture         =   "处理_差异率计算.frx":3C8AE
  435.                Key             =   "xsxm"
  436.             EndProperty
  437.             BeginProperty ListImage14 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  438.                Picture         =   "处理_差异率计算.frx":3C90C
  439.                Key             =   "first"
  440.             EndProperty
  441.             BeginProperty ListImage15 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  442.                Picture         =   "处理_差异率计算.frx":3C96A
  443.                Key             =   "prev"
  444.             EndProperty
  445.             BeginProperty ListImage16 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  446.                Picture         =   "处理_差异率计算.frx":3C9C8
  447.                Key             =   "next"
  448.             EndProperty
  449.             BeginProperty ListImage17 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  450.                Picture         =   "处理_差异率计算.frx":3CA26
  451.                Key             =   "last"
  452.             EndProperty
  453.             BeginProperty ListImage18 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  454.                Picture         =   "处理_差异率计算.frx":3CA84
  455.                Key             =   "xx"
  456.             EndProperty
  457.             BeginProperty ListImage19 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  458.                Picture         =   "处理_差异率计算.frx":3CAE2
  459.                Key             =   "define"
  460.             EndProperty
  461.             BeginProperty ListImage20 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  462.                Picture         =   "处理_差异率计算.frx":3CB40
  463.                Key             =   "exec"
  464.             EndProperty
  465.             BeginProperty ListImage21 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  466.                Picture         =   "处理_差异率计算.frx":3CB9E
  467.                Key             =   "xz"
  468.             EndProperty
  469.             BeginProperty ListImage22 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  470.                Picture         =   "处理_差异率计算.frx":3CBFC
  471.                Key             =   "sc"
  472.             EndProperty
  473.             BeginProperty ListImage23 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  474.                Picture         =   "处理_差异率计算.frx":3CC5A
  475.                Key             =   "sx"
  476.             EndProperty
  477.             BeginProperty ListImage24 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  478.                Picture         =   "处理_差异率计算.frx":3CCB8
  479.                Key             =   "cx"
  480.             EndProperty
  481.             BeginProperty ListImage25 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  482.                Picture         =   "处理_差异率计算.frx":3CD16
  483.                Key             =   "zd"
  484.             EndProperty
  485.             BeginProperty ListImage26 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  486.                Picture         =   "处理_差异率计算.frx":3CD74
  487.                Key             =   "dz"
  488.             EndProperty
  489.             BeginProperty ListImage27 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  490.                Picture         =   "处理_差异率计算.frx":3CDD2
  491.                Key             =   "ph"
  492.             EndProperty
  493.             BeginProperty ListImage28 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  494.                Picture         =   "处理_差异率计算.frx":3CE30
  495.                Key             =   "fz"
  496.             EndProperty
  497.             BeginProperty ListImage29 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  498.                Picture         =   "处理_差异率计算.frx":3CE8E
  499.                Key             =   "dw"
  500.             EndProperty
  501.             BeginProperty ListImage30 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  502.                Picture         =   "处理_差异率计算.frx":3CEEC
  503.                Key             =   "hf"
  504.             EndProperty
  505.             BeginProperty ListImage31 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  506.                Picture         =   "处理_差异率计算.frx":3CF4A
  507.                Key             =   "pz"
  508.             EndProperty
  509.             BeginProperty ListImage32 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  510.                Picture         =   "处理_差异率计算.frx":3CFA8
  511.                Key             =   "check"
  512.             EndProperty
  513.             BeginProperty ListImage33 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  514.                Picture         =   "处理_差异率计算.frx":3D006
  515.                Key             =   "qs"
  516.             EndProperty
  517.             BeginProperty ListImage34 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  518.                Picture         =   "处理_差异率计算.frx":3D064
  519.                Key             =   "fullcheck"
  520.             EndProperty
  521.             BeginProperty ListImage35 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  522.                Picture         =   "处理_差异率计算.frx":3D0C2
  523.                Key             =   "qq"
  524.             EndProperty
  525.             BeginProperty ListImage36 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  526.                Picture         =   "处理_差异率计算.frx":3D120
  527.                Key             =   "bcw"
  528.             EndProperty
  529.             BeginProperty ListImage37 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  530.                Picture         =   "处理_差异率计算.frx":3D17E
  531.                Key             =   "ye"
  532.             EndProperty
  533.             BeginProperty ListImage38 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  534.                Picture         =   "处理_差异率计算.frx":3D1DC
  535.                Key             =   ""
  536.             EndProperty
  537.             BeginProperty ListImage39 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  538.                Picture         =   "处理_差异率计算.frx":3D23A
  539.                Key             =   "frist"
  540.             EndProperty
  541.             BeginProperty ListImage40 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  542.                Picture         =   "处理_差异率计算.frx":3D298
  543.                Key             =   "dj"
  544.             EndProperty
  545.          EndProperty
  546.       End
  547.    End
  548.    Begin MSComctlLib.Toolbar SzToolbar 
  549.       Align           =   1  'Align Top
  550.       Height          =   555
  551.       Left            =   0
  552.       TabIndex        =   4
  553.       Top             =   0
  554.       Width           =   11820
  555.       _ExtentX        =   20849
  556.       _ExtentY        =   979
  557.       ButtonWidth     =   820
  558.       ButtonHeight    =   926
  559.       AllowCustomize  =   0   'False
  560.       Appearance      =   1
  561.       Style           =   1
  562.       ImageList       =   "ImageList1"
  563.       _Version        =   393216
  564.       BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628} 
  565.          NumButtons      =   10
  566.          BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  567.             Caption         =   "设置"
  568.             Key             =   "ymsz"
  569.             ImageKey        =   "sz"
  570.          EndProperty
  571.          BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  572.             Caption         =   "打印"
  573.             Key             =   "dy"
  574.             ImageKey        =   "dy"
  575.          EndProperty
  576.          BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  577.             Caption         =   "预览"
  578.             Key             =   "yl"
  579.             ImageKey        =   "yl"
  580.          EndProperty
  581.          BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  582.             Style           =   3
  583.          EndProperty
  584.          BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  585.             Caption         =   "查询"
  586.             Key             =   "cx"
  587.             ImageKey        =   "cx"
  588.          EndProperty
  589.          BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  590.             Style           =   4
  591.          EndProperty
  592.          BeginProperty Button7 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  593.             Caption         =   "单据"
  594.             Key             =   "Bill"
  595.             ImageKey        =   "pz"
  596.          EndProperty
  597.          BeginProperty Button8 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  598.             Style           =   3
  599.          EndProperty
  600.          BeginProperty Button9 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  601.             Caption         =   "帮助"
  602.             Key             =   "bz"
  603.             ImageKey        =   "bz"
  604.          EndProperty
  605.          BeginProperty Button10 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  606.             Caption         =   "退出"
  607.             Key             =   "fh"
  608.             ImageKey        =   "tc"
  609.          EndProperty
  610.       EndProperty
  611.       BorderStyle     =   1
  612.    End
  613. End
  614. Attribute VB_Name = "CL_Discrepancy"
  615. Attribute VB_GlobalNameSpace = False
  616. Attribute VB_Creatable = False
  617. Attribute VB_PredeclaredId = True
  618. Attribute VB_Exposed = False
  619. '**************************************************************************
  620. '*    模 块 名 称 :差异率列表
  621. '*    功 能 描 述 :
  622. '*    程序员姓名  :杨波
  623. '*    最后修改人  :杨波
  624. '*    最后修改时间:2001/12/5
  625. '*    备        注:程序中所有依实际情况自定义部分均用[>>  <<]括起
  626. '**************************************************************************
  627. Dim ReportTitle As String                '报表主标题
  628. Dim Str_QueryCondi As String             '用户录入查询条件
  629. Dim Rec_BillID As New ADODB.Recordset    '用户查询单据ID动态集
  631. '以下为固定使用变量
  632. Dim Dyymctbl As New DY_Dyymsz            '打印页面窗体变量
  633. Dim GridCode As String                   '显示网格网格代码
  634. Dim GridInf() As Variant                 '整个网格设置信息
  635. Dim Tsxx As String                       '系统提示信息
  636. Dim Qslz As Long                         '网格隐藏(非操作显示)列数
  637. Dim Sjhgd As Double                      '网格数据行高度
  638. Dim Sfxshjwg As Boolean                  '是否显示合计网格
  639. Dim GridBoolean() As Boolean             '网格列信息(布尔型)
  640. Dim GridStr()  As String                 '网格列信息(字符型)
  641. Dim GridInt() As Integer                 '网格列信息(整型)
  642. Dim Szzls As Integer                     '数组总列数(网格列数-1)
  645. Private Sub Form_Resize()                '根据窗体大小来调整网格,标题栏大小(Fixed)
  646.     On Error Resume Next
  647.     With CxbbGrid
  648.         .Width = Me.Width - 160
  649.         .Height = Me.Height - .Top - 400
  650.     End With
  651.     With Pic_Title
  652.         .Width = Me.Width - 160
  653.     End With
  654.     
  655.     GsToolbar.Left = Me.Width - GsToolbar.Width - 140
  657. End Sub
  659. Private Sub Form_Load()                                                   '窗体装入
  660.   
  661.     '调入打印页面设置窗体
  662.     ReportTitle = "差异率列表"
  663.     XtReportCode = "Chhs_Discrepancy"
  664.     Load Dyymctbl
  665.       
  666.     '调整标题栏及网格、格式工具条位置(Fixed)
  667.     Pic_Title.Left = 40
  668.     Pic_Title.Top = SzToolbar.Top + SzToolbar.Height - 10
  669.     CxbbGrid.Left = Pic_Title.Left
  670.     CxbbGrid.Top = Pic_Title.Top + Pic_Title.Height + 20
  671.      
  672.     '调 入 网 格(Fixed)
  673.     GridCode = "Chhs_Discrepancy2"
  674.     lbl_GridCode = GridCode
  675.     Call BzWgcsh(CxbbGrid, GridCode, GridInf(), GridBoolean(), GridInt(), GridStr())
  676.       
  677.     Qslz = GridInf(1)
  678.     Sjhgd = GridInf(2)
  679.     Sfxshjwg = GridInf(7)
  680.     Szzls = CxbbGrid.Cols - 1
  681.     
  682.     Lbl_TitleText(0) = ""
  683.     Lbl_TitleText(1) = ""
  685. End Sub
  687. Private Sub Form_Unload(Cancel As Integer)                                  '窗体卸载
  689.     '卸载条件窗体
  690.     CL_DiscrepancyFind.UnloadCheck.Value = 1
  691.     Unload CL_DiscrepancyFind
  692.     
  693.     '卸载打印页面设置窗体
  694.     Unload Dyymctbl
  696. End Sub
  698. Private Sub CxbbGrid_BeforeMoveColumn(ByVal Col As Long, Position As Long)           '网格列发生移动时自动交换网格索引信息
  699.     Call FnBln_RefreshArray(Col, Position, GridStr(), GridInf())
  700. End Sub
  702. Private Sub GsToolbar_ButtonClick(ByVal Button As MSComctlLib.Button)                '网格格式调整(Fixed)
  703.   
  704.     Select Case Button.Key
  705.         Case "bcgs"                                          '保存表格格式
  706.             Call Bcwggs(CxbbGrid, GridCode, GridStr())
  707.         Case "hfmrgs"                                        '恢复默认格式
  708.             Call Hfmrgs(CxbbGrid, GridCode, GridStr())
  709.         Case "szxsxm"                                        '设置显示项目
  710.             Call Szxsxm(CxbbGrid, GridCode)
  711.     End Select
  713. End Sub
  715. Private Sub SzToolbar_ButtonClick(ByVal Button As MSComctlLib.Button)
  716.     
  717.     Select Case Button.Key
  718.         Case "ymsz"                                          '页面设置
  719.             Dyymctbl.Show 1
  720.         Case "yl"                                            '预 览
  721.             Call bbyl(True)
  722.         Case "dy"                                            '打 印
  723.             Call bbyl(False)
  724.         Case "cx"                                            '查 询
  725.             CL_DiscrepancyFind.Show 1
  726.         Case "Bill"                                          '单 据
  727.             Call CxbbGrid_DblClick
  728.         Case "bz"                                            '帮 助
  729.             Call F1bz
  730.         Case "fh"                                            '退 出
  731.            Unload Me
  732.     End Select
  734. End Sub
  736. Private Sub Timer1_Timer()                                 '在窗体激活后调入查询程序
  737.     
  738.     Timer1.Enabled = False
  739.     Xt_Wait.Show
  740.     Xt_Wait.Refresh
  741.     
  742.     If lbl_GridCode = "Chhs_Discrepancy2" Then
  743.         SzToolbar.Buttons("Bill").Enabled = False
  744.     Else
  745.         SzToolbar.Buttons("Bill").Enabled = True
  746.     End If
  747.     
  748.     '调 入 网 格
  749.     If Not GridCode = lbl_GridCode Then
  750.         GridCode = lbl_GridCode
  751.         Call BzWgcsh(CxbbGrid, GridCode, GridInf(), GridBoolean(), GridInt(), GridStr())
  752.           
  753.         Qslz = GridInf(1)
  754.         Sjhgd = GridInf(2)
  755.         Sfxshjwg = GridInf(7)
  756.         Szzls = CxbbGrid.Cols - 1
  757.     End If
  758.     
  759.     '加快显示速度
  760.     CxbbGrid.Redraw = False
  761.  
  762.     '生成查询结果
  763.     Call Sub_Query
  764.    
  765.     CxbbGrid.Redraw = True
  766.     
  767.     Xt_Wait.Hide
  769. End Sub
  771. Private Sub Sub_Query()                                     '生成查询结果(Define)
  772.     
  773.     Dim Rec_Query As New ADODB.Recordset        '查询结果动态集
  774.     Dim Coljsq As Long                          '网格列计数器
  775.     Dim Jsqte As Integer                        '临时动态计数器
  776.     
  777.     Dim Rec_Queryfz As New ADODB.Recordset
  778.     Dim SumDiff As Double                             '合计差异
  779.     Dim SumPlanMonery As Double                       '合计计划金额
  780.     Dim DiffLv As Double                              '差异率
  781.     Dim SqlStr As String
  782.     Dim FindRow As Long
  783.     
  784.     '以下为自定义部分[
  785.     
  786.     With CL_DiscrepancyFind
  787.      
  788.         '生成查询条件
  789.         Str_QueryCondi = " WHERE KjYear='" & Xtyear & "' and Period='" & .Com_Month.ItemData(.Com_Month.ListIndex) & "' "
  790.         
  791.         For Jsqte = 1 To 3
  792.             Select Case Jsqte
  793.                 Case 1  '仓库
  794.                     If Not Trim(.LrText(0)) = "" Then
  795.                         Str_QueryCondi = Str_QueryCondi + " and a.WhCode='" & Trim(.LrText(0).Tag) & "'"
  796.                     End If
  797.                 Case 2  '存货名称
  798.                     If Trim(.LrText(1).Text) <> "" Then
  799.                         Str_QueryCondi = Str_QueryCondi + " and a.MNumber >= '" & Trim(.LrText(1).Text) & "'"
  800.                     End If
  801.                 Case 3  '存货名称
  802.                     If Trim(.LrText(2).Text) <> "" Then
  803.                         Str_QueryCondi = Str_QueryCondi + " and a.MNumber <= '" & Trim(.LrText(2).Text) & "'"
  804.                     End If
  805.             End Select
  806.         Next Jsqte
  807.         
  808.     End With
  810.     
  811.     With CxbbGrid
  812.         SumPlanMonery = 0
  813.         SumDiff = 0
  814.         DiffLv = 0
  815.         
  816.         .Rows = .FixedRows
  817.         
  818.         If lbl_GridCode = "Chhs_Discrepancy2" Then
  819.             SqlStr = "select MNumber,MName,Model,StartDiff,StartMoney from Chhs_V_Mate a " & Str_QueryCondi & " order by a.MNumber"
  820.             Set Rec_Query = Cw_DataEnvi.DataConnect.Execute(SqlStr)
  822.             Do While Not Rec_Query.EOF
  823.             
  824.                 .AddItem ""
  825.                 Jsqte = .Rows - 1
  826.                 '设置数据行高度(Fixed)
  827.                 CxbbGrid.RowHeight(Jsqte) = Sjhgd
  828.                 
  829.                 .TextMatrix(Jsqte, Sydz("001", GridStr(), Szzls)) = Trim(Rec_Query.Fields("MNumber") & "")    '存货编码
  830.                 .TextMatrix(Jsqte, Sydz("002", GridStr(), Szzls)) = Trim(Rec_Query.Fields("MName") & "")      '存货名称
  831.                 .TextMatrix(Jsqte, Sydz("003", GridStr(), Szzls)) = Trim(Rec_Query.Fields("Model") & "")      '规格型号
  832.                 If Not Rec_Query.Fields("StartDiff") = 0 Then
  833.                     .TextMatrix(Jsqte, Sydz("004", GridStr(), Szzls)) = Rec_Query.Fields("StartDiff")         '期初差异
  834.                 End If
  835.                 If Not Rec_Query.Fields("StartMoney") = 0 Then
  836.                     .TextMatrix(Jsqte, Sydz("005", GridStr(), Szzls)) = Rec_Query.Fields("StartMoney")        '期初金额
  837.                 End If
  838.                 
  839.                 Rec_Query.MoveNext
  840.             Loop
  841.             
  842.             '收发记录表
  843.             SqlStr = "SELECT MNumber, MName, Model, (SUM(EMoney)- SUM(PlanMoney)) AS SumDiff,  " & _
  844.                      "SUM(PlanMoney) AS SumPlanMonery From Chhs_V_InOut a " & Str_QueryCondi & _
  845.                      " and InOutFlag=1 GROUP BY  MNumber, MName, Model"
  846.             Set Rec_Query = Cw_DataEnvi.DataConnect.Execute(SqlStr)
  848.             Do While Not Rec_Query.EOF
  849.             
  850.                 '查询相同的物料
  851.                 FindRow = .FindRow(Trim(Rec_Query.Fields("MNumber")), .FixedRows, 0)
  852.               
  853.                 If FindRow > 0 Then
  854.                     Jsqte = FindRow
  855.                 Else
  856.                     .AddItem ""
  857.                     Jsqte = .Rows - 1
  858.                     '设置数据行高度(Fixed)
  859.                     CxbbGrid.RowHeight(Jsqte) = Sjhgd
  860.                     
  861.                     '在视图中直接取值
  862.                     .TextMatrix(Jsqte, Sydz("001", GridStr(), Szzls)) = Trim(Rec_Query.Fields("MNumber") & "")     '存货编码
  863.                     .TextMatrix(Jsqte, Sydz("002", GridStr(), Szzls)) = Trim(Rec_Query.Fields("MName") & "")       '存货名称
  864.                     .TextMatrix(Jsqte, Sydz("003", GridStr(), Szzls)) = Trim(Rec_Query.Fields("Model") & "")       '规格型号
  865.                 End If
  866.                 If Not Val(Rec_Query.Fields("Sumdiff")) = 0 Then
  867.                     .TextMatrix(Jsqte, Sydz("006", GridStr(), Szzls)) = Rec_Query.Fields("Sumdiff")                '入库差异
  868.                 End If
  869.                 If Not Val(Rec_Query.Fields("SumPlanMonery")) = 0 Then
  870.                     .TextMatrix(Jsqte, Sydz("007", GridStr(), Szzls)) = Rec_Query.Fields("SumPlanMonery")          '入库计划金额
  871.                 End If
  872.               
  873.                 Rec_Query.MoveNext
  874.                 
  875.             Loop
  876.            
  877.             '计算差异率
  878.             SumPlanMonery = 0
  879.             SumDiff = 0
  880.             DiffLv = 0
  881.             
  882.             For Jsqte = .FixedRows To .Rows - 1
  883.             
  884.                 '差异率计算包括出入库调整单、计划价调整单，实发金额自填不处理
  885.                 SqlStr = "SELECT BillCode,InMoney,OutMoney,JfDiff,DfDiff FROM Chhs_List a " & Str_QueryCondi & " and a.MNumber='" & Trim(.TextMatrix(Jsqte, Sydz("001", GridStr(), Szzls))) & "' " & _
  886.                          "and BillCode in ('1301','1302','1303') "
  887.                 Set Rec_Queryfz = Cw_DataEnvi.DataConnect.Execute(SqlStr)
  888.                 
  889.                 Do While Not Rec_Queryfz.EOF
  890.                     If Trim(Rec_Queryfz.Fields("BillCode")) = "1302" Then
  891.                         .TextMatrix(Jsqte, Sydz("008", GridStr(), Szzls)) = Val(.TextMatrix(Jsqte, Sydz("008", GridStr(), Szzls))) + Val(Rec_Queryfz.Fields("DfDiff"))                                                    '出库调整差异
  892.                     Else
  893.                         .TextMatrix(Jsqte, Sydz("006", GridStr(), Szzls)) = Val(.TextMatrix(Jsqte, Sydz("006", GridStr(), Szzls))) + Val(Rec_Queryfz.Fields("JfDiff")) - Val(Rec_Queryfz.Fields("DfDiff"))                '入库差异
  894.                         .TextMatrix(Jsqte, Sydz("007", GridStr(), Szzls)) = Val(.TextMatrix(Jsqte, Sydz("007", GridStr(), Szzls))) + Val(Rec_Queryfz.Fields("InMoney")) - Val(Rec_Queryfz.Fields("OutMoney"))             '入库金额
  895.                     End If
  896.                     Rec_Queryfz.MoveNext
  897.                 Loop
  898.     
  899.                 '差异率计算是否包括本期暂估
  900.                 If Cylzg Then
  901.         
  902.                     '暂估单为收入单据
  903.                     SqlStr = "SELECT BillCode,JfDiff,DfDiff,InMoney FROM Chhs_List a " & Str_QueryCondi & _
  904.                              " and MNumber='" & Trim(.TextMatrix(Jsqte, Sydz("001", GridStr(), Szzls))) & "' " & _
  905.                              " and BillCode in('1304','1305','1306') "
  906.                     Set Rec_Queryfz = Cw_DataEnvi.DataConnect.Execute(SqlStr)
  907.                     
  908.                     Do While Not Rec_Queryfz.EOF
  909.                         .TextMatrix(Jsqte, Sydz("006", GridStr(), Szzls)) = Val(.TextMatrix(Jsqte, Sydz("006", GridStr(), Szzls))) + Val(Rec_Queryfz.Fields("JfDiff")) - Val(Rec_Queryfz.Fields("DfDiff"))                 '入库差异
  910.                         .TextMatrix(Jsqte, Sydz("007", GridStr(), Szzls)) = Val(.TextMatrix(Jsqte, Sydz("007", GridStr(), Szzls))) + Val(Rec_Queryfz.Fields("InMoney"))                                                    '入库金额
  911.                         Rec_Queryfz.MoveNext
  912.                     Loop
  913.                 
  914.                 End If
  915.                 
  916.                 If Val(.TextMatrix(Jsqte, Sydz("008", GridStr(), Szzls))) = 0 Then
  917.                     .TextMatrix(Jsqte, Sydz("008", GridStr(), Szzls)) = ""
  918.                 End If
  919.                 If Val(.TextMatrix(Jsqte, Sydz("009", GridStr(), Szzls))) = 0 Then
  920.                     .TextMatrix(Jsqte, Sydz("009", GridStr(), Szzls)) = ""
  921.                 End If
  922.                 
  923.                 '计算差异率
  924.                 SumDiff = Val(.TextMatrix(Jsqte, Sydz("004", GridStr(), Szzls))) + Val(.TextMatrix(Jsqte, Sydz("006", GridStr(), Szzls))) - Val(.TextMatrix(Jsqte, Sydz("008", GridStr(), Szzls)))
  925.                 SumPlanMonery = Val(.TextMatrix(Jsqte, Sydz("005", GridStr(), Szzls))) + Val(.TextMatrix(Jsqte, Sydz("007", GridStr(), Szzls))) - Val(.TextMatrix(Jsqte, Sydz("009", GridStr(), Szzls)))
  926.                 
  927.                 If Not SumPlanMonery = 0 Then
  928.                     DiffLv = Format(SumDiff / SumPlanMonery, "#########0.######")
  929.                 End If
  930.              
  931.                 '显示差异率
  932.                 If Not DiffLv = 0 Then
  933.                     .TextMatrix(Jsqte, Sydz("010", GridStr(), Szzls)) = DiffLv
  934.                     DiffLv = 0
  935.                 End If
  936.              
  937.             Next Jsqte
  938.             
  939.         Else  '以前月份和期末处理完毕
  940.             
  941.             SqlStr = "SELECT * From Chhs_V_Mate a " & Str_QueryCondi & " order by a.MNumber"
  942.             Set Rec_Query = Cw_DataEnvi.DataConnect.Execute(SqlStr)
  944.             Do While Not Rec_Query.EOF
  945.             
  946.                  If Not Val(Rec_Query.Fields("StartDiff")) + Val(Rec_Query.Fields("JfDiff")) - Val(Rec_Query.Fields("DfDiff")) = 0 Then
  947.                     .AddItem ""
  948.                     Jsqte = .Rows - 1
  949.                     .RowHeight(Jsqte) = Sjhgd
  950.                     
  951.                     .TextMatrix(Jsqte, Sydz("001", GridStr(), Szzls)) = Trim(Rec_Query.Fields("MNumber") & "")
  952.                     .TextMatrix(Jsqte, Sydz("002", GridStr(), Szzls)) = Trim(Rec_Query.Fields("MName") & "")
  953.                     .TextMatrix(Jsqte, Sydz("003", GridStr(), Szzls)) = Val(Rec_Query.Fields("StartDiff")) + Val(Rec_Query.Fields("JfDiff")) - Val(Rec_Query.Fields("DfDiff"))
  954.                     If Val(.TextMatrix(Jsqte, Sydz("003", GridStr(), Szzls))) = 0 Then
  955.                         .TextMatrix(Jsqte, Sydz("003", GridStr(), Szzls)) = ""
  956.                     End If
  957.                     .TextMatrix(Jsqte, Sydz("005", GridStr(), Szzls)) = Val(Rec_Query.Fields("StartMoney")) + Val(Rec_Query.Fields("InMoney")) - Val(Rec_Query.Fields("OutMoney"))
  958.                     If Val(.TextMatrix(Jsqte, Sydz("005", GridStr(), Szzls))) = 0 Then
  959.                         .TextMatrix(Jsqte, Sydz("005", GridStr(), Szzls)) = ""
  960.                     End If
  961.                     SqlStr = "SELECT * FROM chhs_DiffBill a " & Str_QueryCondi & " and a.MNumber='" & Trim(Rec_Query.Fields("MNumber")) & "'"
  962.                     Set Rec_Queryfz = Cw_DataEnvi.DataConnect.Execute(SqlStr)
  963.                     
  964.                     If Not Rec_Queryfz.EOF Then
  965.                         .TextMatrix(Jsqte, Sydz("004", GridStr(), Szzls)) = Trim(Rec_Queryfz.Fields("DiffLv"))
  966.                     End If
  967.                 End If
  968.                 Rec_Query.MoveNext
  969.             Loop
  970.         End If
  971.     End With
  972.     
  973.     Set Rec_Query = Nothing
  974.     Set Rec_Queryfz = Nothing
  975.     ']以上为用户自定义部分
  977. End Sub
  979. Private Sub CxbbGrid_DblClick()                                              '用户双击网格调入相应单据
  980.     
  981.     Dim Rectemp As New ADODB.Recordset               '临时使用动态集
  982.     Dim Yesno As Integer
  983.     
  984.     '非数据行退出
  985.     If CxbbGrid.Rows = CxbbGrid.FixedRows Then
  986.         Exit Sub
  987.     End If
  988.     
  989.     If Val(CxbbGrid.TextMatrix(CxbbGrid.Row, 0)) = 0 Then
  990.         Exit Sub
  991.     End If
  992.     
  993.     '当前月份未记帐不显示单据
  994.     If SzToolbar.Buttons("Bill").Enabled = False Then
  995.         Exit Sub
  996.     End If
  997.     
  998.     CL_DiscrepancyChange.lbl_Tstext(0) = Lbl_TitleText(0)
  999.     CL_DiscrepancyChange.lbl_Tstext(0).Tag = Lbl_TitleText(0).Tag
  1000.     
  1001.     CL_DiscrepancyChange.Query_Cond = " Chhs_V_DiffBill.WhCode='" & Lbl_TitleText(1).Tag & "'"
  1002.     CL_DiscrepancyChange.Show 1
  1004. End Sub
  1006. Private Sub bbyl(bbylte As Boolean)                    '报表打印预览
  1007.     
  1008.     Dim Bbzbt$, Bbxbt() As String, bbxbtzzxs() As Integer, Bbxbtgs As Integer
  1009.     Dim Bbbwh() As String, Bbbwhzzxs() As Integer, Bbbwhgs As Integer
  1010.     Bbxbtgs = 1                                          '报 表 小 标 题 行 数
  1011.     Bbbwhgs = 0                                          '报 表 表 尾 行 数
  1012.     ReDim Bbxbt(1 To Bbxbtgs)
  1013.     ReDim bbxbtzzxs(1 To Bbxbtgs)
  1014.     If Bbbwhgs <> 0 Then
  1015.         ReDim Bbbwh(1 To Bbbwhgs)
  1016.         ReDim Bbbwhzzxs(1 To Bbbwhgs)
  1017.     End If
  1018.     Bbzbt = ReportTitle
  1019.     Bbxbt(1) = Fun_FormatOutPut("月份:" + Lbl_TitleText(0), 30)
  1020.     Bbxbt(1) = Bbxbt(1) + Fun_FormatOutPut("仓库:" + Lbl_TitleText(1), 30)
  1021.     bbxbtzzxs(1) = 0                                     '报表行组织形式(0-居左 1-居中 2-居右)
  1022.     Call Scyxsjb(CxbbGrid)                               '生成报表数据
  1023.     Call Scdybb(Dyymctbl, Bbzbt, Bbxbt(), bbxbtzzxs(), Bbxbtgs, Bbbwh(), Bbbwhzzxs(), Bbbwhgs, bbylte)
  1024.     If Not bbylte Then
  1025.         Unload DY_Tybbyldy
  1026.     End If
  1028. End Sub