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

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

企业管理

开发平台：

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 Tjfx_Diff 
  5.    Caption         =   "差异分摊表"
  6.    ClientHeight    =   7035
  7.    ClientLeft      =   60
  8.    ClientTop       =   345
  9.    ClientWidth     =   11565
  10.    HelpContextID   =   130605
  11.    Icon            =   "统计分析_差异分摊.frx":0000
  12.    KeyPreview      =   -1  'True
  13.    LinkTopic       =   "Form2"
  14.    MDIChild        =   -1  'True
  15.    ScaleHeight     =   7035
  16.    ScaleWidth      =   11565
  17.    WindowState     =   2  'Maximized
  18.    Begin VB.Timer Timer1 
  19.       Enabled         =   0   'False
  20.       Interval        =   1
  21.       Left            =   7620
  22.       Top             =   90
  23.    End
  24.    Begin MSComctlLib.Toolbar GsToolbar 
  25.       Height          =   525
  26.       Left            =   9330
  27.       TabIndex        =   0
  28.       Top             =   30
  29.       Width           =   2475
  30.       _ExtentX        =   4366
  31.       _ExtentY        =   926
  32.       ButtonWidth     =   1455
  33.       ButtonHeight    =   926
  34.       Appearance      =   1
  35.       Style           =   1
  36.       ImageList       =   "ImageList2"
  37.       _Version        =   393216
  38.       BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628} 
  39.          NumButtons      =   3
  40.          BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  41.             Caption         =   "保存格式"
  42.             Key             =   "bcgs"
  43.             ImageKey        =   "bcgs"
  44.          EndProperty
  45.          BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  46.             Caption         =   "默认列宽"
  47.             Key             =   "hfmrgs"
  48.             ImageKey        =   "mrlk"
  49.          EndProperty
  50.          BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  51.             Caption         =   "显示项目"
  52.             Key             =   "szxsxm"
  53.             ImageKey        =   "xsxm"
  54.          EndProperty
  55.       EndProperty
  56.    End
  57.    Begin VSFlex8Ctl.VSFlexGrid CxbbGrid 
  58.       Height          =   7155
  59.       Left            =   0
  60.       TabIndex        =   1
  61.       Top             =   1860
  62.       Width           =   11775
  63.       _cx             =   5080
  64.       _cy             =   5080
  65.       Appearance      =   1
  66.       BorderStyle     =   1
  67.       Enabled         =   -1  'True
  68.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  69.          Name            =   "宋体"
  70.          Size            =   9
  71.          Charset         =   134
  72.          Weight          =   400
  73.          Underline       =   0   'False
  74.          Italic          =   0   'False
  75.          Strikethrough   =   0   'False
  76.       EndProperty
  77.       MousePointer    =   0
  78.       BackColor       =   16777215
  79.       ForeColor       =   -2147483640
  80.       BackColorFixed  =   13826538
  81.       ForeColorFixed  =   -2147483630
  82.       BackColorSel    =   -2147483635
  83.       ForeColorSel    =   -2147483634
  84.       BackColorBkg    =   -2147483636
  85.       BackColorAlternate=   16777215
  86.       GridColor       =   -2147483633
  87.       GridColorFixed  =   -2147483632
  88.       TreeColor       =   -2147483632
  89.       FloodColor      =   192
  90.       SheetBorder     =   -2147483642
  91.       FocusRect       =   1
  92.       HighLight       =   1
  93.       AllowSelection  =   -1  'True
  94.       AllowBigSelection=   -1  'True
  95.       AllowUserResizing=   0
  96.       SelectionMode   =   0
  97.       GridLines       =   1
  98.       GridLinesFixed  =   2
  99.       GridLineWidth   =   1
  100.       Rows            =   50
  101.       Cols            =   10
  102.       FixedRows       =   1
  103.       FixedCols       =   1
  104.       RowHeightMin    =   0
  105.       RowHeightMax    =   0
  106.       ColWidthMin     =   0
  107.       ColWidthMax     =   0
  108.       ExtendLastCol   =   0   'False
  109.       FormatString    =   ""
  110.       ScrollTrack     =   0   'False
  111.       ScrollBars      =   3
  112.       ScrollTips      =   0   'False
  113.       MergeCells      =   0
  114.       MergeCompare    =   0
  115.       AutoResize      =   -1  'True
  116.       AutoSizeMode    =   0
  117.       AutoSearch      =   0
  118.       AutoSearchDelay =   2
  119.       MultiTotals     =   -1  'True
  120.       SubtotalPosition=   1
  121.       OutlineBar      =   0
  122.       OutlineCol      =   0
  123.       Ellipsis        =   0
  124.       ExplorerBar     =   0
  125.       PicturesOver    =   0   'False
  126.       FillStyle       =   0
  127.       RightToLeft     =   0   'False
  128.       PictureType     =   0
  129.       TabBehavior     =   0
  130.       OwnerDraw       =   0
  131.       Editable        =   0
  132.       ShowComboButton =   1
  133.       WordWrap        =   0   'False
  134.       TextStyle       =   0
  135.       TextStyleFixed  =   0
  136.       OleDragMode     =   0
  137.       OleDropMode     =   0
  138.       DataMode        =   0
  139.       VirtualData     =   -1  'True
  140.       DataMember      =   ""
  141.       ComboSearch     =   3
  142.       AutoSizeMouse   =   -1  'True
  143.       FrozenRows      =   0
  144.       FrozenCols      =   0
  145.       AllowUserFreezing=   0
  146.       BackColorFrozen =   0
  147.       ForeColorFrozen =   0
  148.       WallPaperAlignment=   9
  149.       AccessibleName  =   ""
  150.       AccessibleDescription=   ""
  151.       AccessibleValue =   ""
  152.       AccessibleRole  =   24
  153.       Begin MSComctlLib.ImageList ImageList2 
  154.          Left            =   0
  155.          Top             =   0
  156.          _ExtentX        =   1005
  157.          _ExtentY        =   1005
  158.          BackColor       =   -2147483643
  159.          ImageWidth      =   16
  160.          ImageHeight     =   16
  161.          MaskColor       =   12632256
  162.          _Version        =   393216
  163.          BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628} 
  164.             NumListImages   =   40
  165.             BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  166.                Picture         =   "统计分析_差异分摊.frx":1042
  167.                Key             =   "sz"
  168.             EndProperty
  169.             BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  170.                Picture         =   "统计分析_差异分摊.frx":13DC
  171.                Key             =   "dy"
  172.             EndProperty
  173.             BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  174.                Picture         =   "统计分析_差异分摊.frx":1776
  175.                Key             =   "yl"
  176.             EndProperty
  177.             BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  178.                Picture         =   "统计分析_差异分摊.frx":1B10
  179.                Key             =   "xg"
  180.             EndProperty
  181.             BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  182.                Picture         =   "统计分析_差异分摊.frx":1EAA
  183.                Key             =   "zh"
  184.             EndProperty
  185.             BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  186.                Picture         =   "统计分析_差异分摊.frx":2244
  187.                Key             =   "sh"
  188.             EndProperty
  189.             BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  190.                Picture         =   "统计分析_差异分摊.frx":25DE
  191.                Key             =   "bc"
  192.             EndProperty
  193.             BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  194.                Picture         =   "统计分析_差异分摊.frx":2978
  195.                Key             =   "fq"
  196.             EndProperty
  197.             BeginProperty ListImage9 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  198.                Picture         =   "统计分析_差异分摊.frx":2D12
  199.                Key             =   "bz"
  200.             EndProperty
  201.             BeginProperty ListImage10 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  202.                Picture         =   "统计分析_差异分摊.frx":30AC
  203.                Key             =   "tc"
  204.             EndProperty
  205.             BeginProperty ListImage11 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  206.                Picture         =   "统计分析_差异分摊.frx":3446
  207.                Key             =   "bcgs"
  208.             EndProperty
  209.             BeginProperty ListImage12 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  210.                Picture         =   "统计分析_差异分摊.frx":37E0
  211.                Key             =   "mrlk"
  212.             EndProperty
  213.             BeginProperty ListImage13 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  214.                Picture         =   "统计分析_差异分摊.frx":3B7A
  215.                Key             =   "xsxm"
  216.             EndProperty
  217.             BeginProperty ListImage14 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  218.                Picture         =   "统计分析_差异分摊.frx":3F14
  219.                Key             =   "first"
  220.             EndProperty
  221.             BeginProperty ListImage15 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  222.                Picture         =   "统计分析_差异分摊.frx":42AE
  223.                Key             =   "prev"
  224.             EndProperty
  225.             BeginProperty ListImage16 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  226.                Picture         =   "统计分析_差异分摊.frx":4648
  227.                Key             =   "next"
  228.             EndProperty
  229.             BeginProperty ListImage17 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  230.                Picture         =   "统计分析_差异分摊.frx":49E2
  231.                Key             =   "last"
  232.             EndProperty
  233.             BeginProperty ListImage18 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  234.                Picture         =   "统计分析_差异分摊.frx":4D7C
  235.                Key             =   "xx"
  236.             EndProperty
  237.             BeginProperty ListImage19 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  238.                Picture         =   "统计分析_差异分摊.frx":5116
  239.                Key             =   "define"
  240.             EndProperty
  241.             BeginProperty ListImage20 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  242.                Picture         =   "统计分析_差异分摊.frx":54B0
  243.                Key             =   "exec"
  244.             EndProperty
  245.             BeginProperty ListImage21 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  246.                Picture         =   "统计分析_差异分摊.frx":584A
  247.                Key             =   "xz"
  248.             EndProperty
  249.             BeginProperty ListImage22 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  250.                Picture         =   "统计分析_差异分摊.frx":5BE4
  251.                Key             =   "sc"
  252.             EndProperty
  253.             BeginProperty ListImage23 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  254.                Picture         =   "统计分析_差异分摊.frx":5F7E
  255.                Key             =   "sx"
  256.             EndProperty
  257.             BeginProperty ListImage24 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  258.                Picture         =   "统计分析_差异分摊.frx":6318
  259.                Key             =   "cx"
  260.             EndProperty
  261.             BeginProperty ListImage25 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  262.                Picture         =   "统计分析_差异分摊.frx":66B2
  263.                Key             =   "zd"
  264.             EndProperty
  265.             BeginProperty ListImage26 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  266.                Picture         =   "统计分析_差异分摊.frx":6A4C
  267.                Key             =   "dz"
  268.             EndProperty
  269.             BeginProperty ListImage27 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  270.                Picture         =   "统计分析_差异分摊.frx":6DE6
  271.                Key             =   "ph"
  272.             EndProperty
  273.             BeginProperty ListImage28 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  274.                Picture         =   "统计分析_差异分摊.frx":7180
  275.                Key             =   "fz"
  276.             EndProperty
  277.             BeginProperty ListImage29 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  278.                Picture         =   "统计分析_差异分摊.frx":751A
  279.                Key             =   "dw"
  280.             EndProperty
  281.             BeginProperty ListImage30 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  282.                Picture         =   "统计分析_差异分摊.frx":78B4
  283.                Key             =   "hf"
  284.             EndProperty
  285.             BeginProperty ListImage31 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  286.                Picture         =   "统计分析_差异分摊.frx":7C4E
  287.                Key             =   "pz"
  288.             EndProperty
  289.             BeginProperty ListImage32 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  290.                Picture         =   "统计分析_差异分摊.frx":7FE8
  291.                Key             =   "check"
  292.             EndProperty
  293.             BeginProperty ListImage33 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  294.                Picture         =   "统计分析_差异分摊.frx":8382
  295.                Key             =   "qs"
  296.             EndProperty
  297.             BeginProperty ListImage34 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  298.                Picture         =   "统计分析_差异分摊.frx":871C
  299.                Key             =   "fullcheck"
  300.             EndProperty
  301.             BeginProperty ListImage35 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  302.                Picture         =   "统计分析_差异分摊.frx":8AB6
  303.                Key             =   "qq"
  304.             EndProperty
  305.             BeginProperty ListImage36 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  306.                Picture         =   "统计分析_差异分摊.frx":8E50
  307.                Key             =   "bcw"
  308.             EndProperty
  309.             BeginProperty ListImage37 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  310.                Picture         =   "统计分析_差异分摊.frx":91EA
  311.                Key             =   "ye"
  312.             EndProperty
  313.             BeginProperty ListImage38 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  314.                Picture         =   "统计分析_差异分摊.frx":9584
  315.                Key             =   ""
  316.             EndProperty
  317.             BeginProperty ListImage39 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  318.                Picture         =   "统计分析_差异分摊.frx":991E
  319.                Key             =   "frist"
  320.             EndProperty
  321.             BeginProperty ListImage40 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  322.                Picture         =   "统计分析_差异分摊.frx":9CB8
  323.                Key             =   "dj"
  324.             EndProperty
  325.          EndProperty
  326.       End
  327.    End
  328.    Begin MSComctlLib.Toolbar SzToolbar 
  329.       Align           =   1  'Align Top
  330.       Height          =   555
  331.       Left            =   0
  332.       TabIndex        =   2
  333.       Top             =   0
  334.       Width           =   11565
  335.       _ExtentX        =   20399
  336.       _ExtentY        =   979
  337.       ButtonWidth     =   820
  338.       ButtonHeight    =   926
  339.       AllowCustomize  =   0   'False
  340.       Appearance      =   1
  341.       Style           =   1
  342.       ImageList       =   "ImageList1"
  343.       _Version        =   393216
  344.       BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628} 
  345.          NumButtons      =   8
  346.          BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  347.             Caption         =   "设置"
  348.             Key             =   "ymsz"
  349.             ImageKey        =   "sz"
  350.          EndProperty
  351.          BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  352.             Caption         =   "打印"
  353.             Key             =   "dy"
  354.             ImageKey        =   "dy"
  355.          EndProperty
  356.          BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  357.             Caption         =   "预览"
  358.             Key             =   "yl"
  359.             ImageKey        =   "yl"
  360.          EndProperty
  361.          BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  362.             Style           =   3
  363.          EndProperty
  364.          BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  365.             Caption         =   "查询"
  366.             Key             =   "cx"
  367.             ImageKey        =   "cx"
  368.          EndProperty
  369.          BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  370.             Style           =   3
  371.          EndProperty
  372.          BeginProperty Button7 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  373.             Caption         =   "帮助"
  374.             Key             =   "bz"
  375.             ImageKey        =   "bz"
  376.          EndProperty
  377.          BeginProperty Button8 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  378.             Caption         =   "退出"
  379.             Key             =   "fh"
  380.             ImageKey        =   "tc"
  381.          EndProperty
  382.       EndProperty
  383.       BorderStyle     =   1
  384.       Begin MSComctlLib.ImageList ImageList1 
  385.          Left            =   6990
  386.          Top             =   30
  387.          _ExtentX        =   1005
  388.          _ExtentY        =   1005
  389.          BackColor       =   -2147483643
  390.          ImageWidth      =   16
  391.          ImageHeight     =   16
  392.          MaskColor       =   12632256
  393.          _Version        =   393216
  394.          BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628} 
  395.             NumListImages   =   38
  396.             BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  397.                Picture         =   "统计分析_差异分摊.frx":A052
  398.                Key             =   "sz"
  399.             EndProperty
  400.             BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  401.                Picture         =   "统计分析_差异分摊.frx":A3EC
  402.                Key             =   "dy"
  403.             EndProperty
  404.             BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  405.                Picture         =   "统计分析_差异分摊.frx":A786
  406.                Key             =   "yl"
  407.             EndProperty
  408.             BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  409.                Picture         =   "统计分析_差异分摊.frx":AB20
  410.                Key             =   "xg"
  411.             EndProperty
  412.             BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  413.                Picture         =   "统计分析_差异分摊.frx":AEBA
  414.                Key             =   "zh"
  415.             EndProperty
  416.             BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  417.                Picture         =   "统计分析_差异分摊.frx":B254
  418.                Key             =   "sh"
  419.             EndProperty
  420.             BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  421.                Picture         =   "统计分析_差异分摊.frx":B5EE
  422.                Key             =   "bc"
  423.             EndProperty
  424.             BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  425.                Picture         =   "统计分析_差异分摊.frx":B988
  426.                Key             =   "fq"
  427.             EndProperty
  428.             BeginProperty ListImage9 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  429.                Picture         =   "统计分析_差异分摊.frx":BD22
  430.                Key             =   "bz"
  431.             EndProperty
  432.             BeginProperty ListImage10 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  433.                Picture         =   "统计分析_差异分摊.frx":C0BC
  434.                Key             =   "tc"
  435.             EndProperty
  436.             BeginProperty ListImage11 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  437.                Picture         =   "统计分析_差异分摊.frx":C456
  438.                Key             =   "bcgs"
  439.             EndProperty
  440.             BeginProperty ListImage12 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  441.                Picture         =   "统计分析_差异分摊.frx":C7F0
  442.                Key             =   "mrlk"
  443.             EndProperty
  444.             BeginProperty ListImage13 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  445.                Picture         =   "统计分析_差异分摊.frx":CB8A
  446.                Key             =   "xsxm"
  447.             EndProperty
  448.             BeginProperty ListImage14 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  449.                Picture         =   "统计分析_差异分摊.frx":CF24
  450.                Key             =   "first"
  451.             EndProperty
  452.             BeginProperty ListImage15 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  453.                Picture         =   "统计分析_差异分摊.frx":D2BE
  454.                Key             =   "prev"
  455.             EndProperty
  456.             BeginProperty ListImage16 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  457.                Picture         =   "统计分析_差异分摊.frx":D658
  458.                Key             =   "next"
  459.             EndProperty
  460.             BeginProperty ListImage17 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  461.                Picture         =   "统计分析_差异分摊.frx":D9F2
  462.                Key             =   "last"
  463.             EndProperty
  464.             BeginProperty ListImage18 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  465.                Picture         =   "统计分析_差异分摊.frx":DD8C
  466.                Key             =   "xx"
  467.             EndProperty
  468.             BeginProperty ListImage19 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  469.                Picture         =   "统计分析_差异分摊.frx":E126
  470.                Key             =   "define"
  471.             EndProperty
  472.             BeginProperty ListImage20 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  473.                Picture         =   "统计分析_差异分摊.frx":E4C0
  474.                Key             =   "exec"
  475.             EndProperty
  476.             BeginProperty ListImage21 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  477.                Picture         =   "统计分析_差异分摊.frx":E85A
  478.                Key             =   "xz"
  479.             EndProperty
  480.             BeginProperty ListImage22 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  481.                Picture         =   "统计分析_差异分摊.frx":EBF4
  482.                Key             =   "sc"
  483.             EndProperty
  484.             BeginProperty ListImage23 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  485.                Picture         =   "统计分析_差异分摊.frx":EF8E
  486.                Key             =   "sx"
  487.             EndProperty
  488.             BeginProperty ListImage24 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  489.                Picture         =   "统计分析_差异分摊.frx":F328
  490.                Key             =   "cx"
  491.             EndProperty
  492.             BeginProperty ListImage25 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  493.                Picture         =   "统计分析_差异分摊.frx":F6C2
  494.                Key             =   "zd"
  495.             EndProperty
  496.             BeginProperty ListImage26 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  497.                Picture         =   "统计分析_差异分摊.frx":FA5C
  498.                Key             =   "dz"
  499.             EndProperty
  500.             BeginProperty ListImage27 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  501.                Picture         =   "统计分析_差异分摊.frx":FDF6
  502.                Key             =   "ph"
  503.             EndProperty
  504.             BeginProperty ListImage28 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  505.                Picture         =   "统计分析_差异分摊.frx":10190
  506.                Key             =   "fz"
  507.             EndProperty
  508.             BeginProperty ListImage29 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  509.                Picture         =   "统计分析_差异分摊.frx":1052A
  510.                Key             =   "dw"
  511.             EndProperty
  512.             BeginProperty ListImage30 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  513.                Picture         =   "统计分析_差异分摊.frx":108C4
  514.                Key             =   "hf"
  515.             EndProperty
  516.             BeginProperty ListImage31 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  517.                Picture         =   "统计分析_差异分摊.frx":10C5E
  518.                Key             =   "pz"
  519.             EndProperty
  520.             BeginProperty ListImage32 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  521.                Picture         =   "统计分析_差异分摊.frx":10FF8
  522.                Key             =   "check"
  523.             EndProperty
  524.             BeginProperty ListImage33 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  525.                Picture         =   "统计分析_差异分摊.frx":11392
  526.                Key             =   "mx"
  527.             EndProperty
  528.             BeginProperty ListImage34 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  529.                Picture         =   "统计分析_差异分摊.frx":1172C
  530.                Key             =   "jz"
  531.             EndProperty
  532.             BeginProperty ListImage35 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  533.                Picture         =   "统计分析_差异分摊.frx":11AC6
  534.                Key             =   "hz"
  535.             EndProperty
  536.             BeginProperty ListImage36 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  537.                Picture         =   "统计分析_差异分摊.frx":11E60
  538.                Key             =   "dj"
  539.             EndProperty
  540.             BeginProperty ListImage37 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  541.                Picture         =   "统计分析_差异分摊.frx":121FA
  542.                Key             =   "cy"
  543.             EndProperty
  544.             BeginProperty ListImage38 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  545.                Picture         =   "统计分析_差异分摊.frx":12594
  546.                Key             =   "zhh"
  547.             EndProperty
  548.          EndProperty
  549.       End
  550.    End
  551.    Begin VB.PictureBox Pic_Title 
  552.       BackColor       =   &H00FFFFFF&
  553.       Height          =   1245
  554.       Left            =   0
  555.       Picture         =   "统计分析_差异分摊.frx":1292E
  556.       ScaleHeight     =   1185
  557.       ScaleWidth      =   11715
  558.       TabIndex        =   3
  559.       Top             =   570
  560.       Width           =   11775
  561.       Begin VB.Label Lab_Title 
  562.          AutoSize        =   -1  'True
  563.          BackColor       =   &H80000018&
  564.          BackStyle       =   0  'Transparent
  565.          Caption         =   "差异分摊表"
  566.          BeginProperty Font 
  567.             Name            =   "宋体"
  568.             Size            =   12
  569.             Charset         =   134
  570.             Weight          =   700
  571.             Underline       =   0   'False
  572.             Italic          =   0   'False
  573.             Strikethrough   =   0   'False
  574.          EndProperty
  575.          ForeColor       =   &H00000000&
  576.          Height          =   240
  577.          Index           =   0
  578.          Left            =   480
  579.          TabIndex        =   7
  580.          Top             =   210
  581.          Width           =   1275
  582.       End
  583.       Begin VB.Label Lbl_TitleMess 
  584.          AutoSize        =   -1  'True
  585.          BackStyle       =   0  'Transparent
  586.          Caption         =   "月份:"
  587.          Height          =   195
  588.          Index           =   1
  589.          Left            =   450
  590.          TabIndex        =   6
  591.          Top             =   900
  592.          Width           =   405
  593.       End
  594.       Begin VB.Label Lbl_TitleMess 
  595.          AutoSize        =   -1  'True
  596.          BackStyle       =   0  'Transparent
  597.          Caption         =   "分摊条件"
  598.          Height          =   195
  599.          Index           =   0
  600.          Left            =   9570
  601.          TabIndex        =   5
  602.          Top             =   900
  603.          Width           =   720
  604.       End
  605.       Begin VB.Label Lbl_TitleText 
  606.          AutoSize        =   -1  'True
  607.          BackStyle       =   0  'Transparent
  608.          Caption         =   "仓库"
  609.          ForeColor       =   &H00000000&
  610.          Height          =   195
  611.          Index           =   0
  612.          Left            =   930
  613.          TabIndex        =   4
  614.          Top             =   900
  615.          Width           =   360
  616.       End
  617.    End
  618. End
  619. Attribute VB_Name = "Tjfx_Diff"
  620. Attribute VB_GlobalNameSpace = False
  621. Attribute VB_Creatable = False
  622. Attribute VB_PredeclaredId = True
  623. Attribute VB_Exposed = False
  624. '**************************************************************************
  625. '*    模 块 名 称 :差异分摊
  626. '*    功 能 描 述 :
  627. '*    程序员姓名  :白凤英
  628. '*    最后修改人  :白凤英
  629. '*    最后修改时间:2001/12/18
  630. '*    备        注:程序中所有依实际情况自定义部分均用[>>  <<]括起
  631. '**************************************************************************
  633. Dim ReportTitle As String                '报表主标题
  634. Dim Str_QueryCondi As String             '用户录入查询条件
  635. Dim Rec_BillID As New ADODB.Recordset    '用户查询单据ID动态集
  637. '以下为固定使用变量
  638. Dim Dyymctbl As New DY_Dyymsz            '打印页面窗体变量
  639. Dim GridCode As String                   '显示网格网格代码
  640. Dim GridInf() As Variant                 '整个网格设置信息
  641. Dim Tsxx As String                       '系统提示信息
  642. Dim Qslz As Long                         '网格隐藏(非操作显示)列数
  643. Dim Sjhgd As Double                      '网格数据行高度
  644. Dim Sfxshjwg As Boolean                  '是否显示合计网格
  645. Dim GridBoolean() As Boolean             '网格列信息(布尔型)
  646. Dim GridStr()  As String                 '网格列信息(字符型)
  647. Dim GridInt() As Integer                 '网格列信息(整型)
  648. Dim Szzls As Integer                     '数组总列数(网格列数-1)
  651. Private Sub Form_Resize()                '根据窗体大小来调整网格,标题栏大小(Fixed)
  652.     On Error Resume Next
  653.     With CxbbGrid
  654.         .Width = Me.Width - 160
  655.         .Height = Me.Height - .Top - 400
  656.     End With
  657.     With Pic_Title
  658.         .Width = Me.Width - 160
  659.     End With
  660.     
  661.     GsToolbar.Left = Me.Width - GsToolbar.Width - 140
  663. End Sub
  665. Private Sub Form_Load()                                                   '窗体装入
  666.   
  667.     '调入打印页面设置窗体
  668.     ReportTitle = "差异分摊表"
  669.     XtReportCode = "Chhs_Diff"
  670.     Load Dyymctbl
  671.       
  672.     '调整标题栏及网格、格式工具条位置(Fixed)
  673.     Pic_Title.Left = 40
  674.     Pic_Title.Top = SzToolbar.Top + SzToolbar.Height - 10
  675.     CxbbGrid.Left = Pic_Title.Left
  676.     CxbbGrid.Top = Pic_Title.Top + Pic_Title.Height + 20
  677.      
  678.     '调 入 网 格(Fixed)
  679.     GridCode = "Chhs_Diff"
  680.     Call BzWgcsh(CxbbGrid, GridCode, GridInf(), GridBoolean(), GridInt(), GridStr())
  681.       
  682.     Qslz = GridInf(1)
  683.     Sjhgd = GridInf(2)
  684.     Sfxshjwg = GridInf(7)
  685.     Szzls = CxbbGrid.Cols - 1
  686.         
  687.     '清除表头内容
  688.     Lbl_TitleMess(0) = ""
  689.     Lbl_TitleText(0) = ""
  691. End Sub
  693. Private Sub Form_Unload(Cancel As Integer)                                  '窗体卸载
  695.     '卸载条件窗体
  696.     Tjfx_DiffCond.UnloadCheck.Value = 1
  697.     Unload Tjfx_DiffCond
  698.     
  699.     '卸载打印页面设置窗体
  700.     Unload Dyymctbl
  702. End Sub
  704. Private Sub CxbbGrid_BeforeMoveColumn(ByVal Col As Long, Position As Long)           '网格列发生移动时自动交换网格索引信息
  705.     Call FnBln_RefreshArray(Col, Position, GridStr(), GridInf())
  706. End Sub
  708. Private Sub GsToolbar_ButtonClick(ByVal Button As MSComctlLib.Button)                '网格格式调整(Fixed)
  709.   
  710.     Select Case Button.Key
  711.         Case "bcgs"                                          '保存表格格式
  712.             Call Bcwggs(CxbbGrid, GridCode, GridStr())
  713.         Case "hfmrgs"                                        '恢复默认格式
  714.             Call Hfmrgs(CxbbGrid, GridCode, GridStr())
  715.         Case "szxsxm"                                        '设置显示项目
  716.             Call Szxsxm(CxbbGrid, GridCode)
  717.     End Select
  719. End Sub
  722. Private Sub SzToolbar_ButtonClick(ByVal Button As MSComctlLib.Button)
  723.     
  724.     Select Case Button.Key
  725.         Case "ymsz"                                          '页面设置
  726.             Dyymctbl.Show 1
  727.         Case "yl"                                            '预 览
  728.             Call bbyl(True)
  729.         Case "dy"                                            '打 印
  730.             Call bbyl(False)
  731.         Case "cx"                                            '查 询
  732.             Tjfx_DiffCond.Show 1
  733.         Case "bz"                                            '帮 助
  734.             Call F1bz
  735.         Case "fh"                                            '退 出
  736.            Unload Me
  737.     End Select
  739. End Sub
  741. Private Sub Timer1_Timer()                                 '在窗体激活后调入查询程序
  742.     
  743.     Timer1.Enabled = False
  744.     Xt_Wait.Show
  745.     Xt_Wait.Refresh
  746.    
  747.     '加快显示速度
  748.     CxbbGrid.Redraw = False
  750.     '生成查询结果
  751.     Call Sub_Query
  752.    
  753.     CxbbGrid.Redraw = True
  754.     
  755.     Xt_Wait.Hide
  757. End Sub
  759. Private Sub Sub_Query()                              '生成查询结果(Define)
  760.     
  761.     Dim Rec_Query As Recordset                  '查询结果动态集
  762.     Dim Coljsq As Long                          '网格列计数器
  763.     Dim Jsqte As Long                        '临时动态计数器
  764.     Dim Str1 As String
  765.     
  766.     '以下为自定义部分[
  767.  
  768.     With Tjfx_DiffCond
  769.      
  770.         '生成查询条件
  771.         Str_QueryCondi = " where " & .WhCode & " and  kjyear= " & Xtyear
  772.         For Jsqte = 0 To 3
  773.             Select Case Jsqte
  774.                 Case 0  '月份
  775.                     Str_QueryCondi = Str_QueryCondi & " And a.period= '" & .Com_Mon.ItemData(.Com_Mon.ListIndex) & "'"
  776.                 Case 1  '存货分类(Like)
  777.                     If Trim(.LrText(0).Text) <> "" Then
  778.                         Str_QueryCondi = Str_QueryCondi & " And a.invsortcode like '" & Trim(.LrText(0).Tag) & "%'"
  779.                     End If
  780.                 Case 2  '查询存货范围(起始)
  781.                     If Trim(.LrText(1).Text) <> "" Then
  782.                         Str_QueryCondi = Str_QueryCondi & " And a.mnumber>='" & Trim(.LrText(1).Text) & "'"
  783.                     End If
  784.                 Case 3  '查询存货范围(终止)
  785.                     If Trim(.LrText(2).Text) <> "" Then
  786.                         Str_QueryCondi = Str_QueryCondi & " And a.mnumber<= '" & Trim(.LrText(2).Text) & "'"
  787.                     End If
  788.             End Select
  789.         Next Jsqte
  790.     End With
  791.      
  792.     '分摊类型
  793.     Select Case Tjfx_DiffCond.Com_FtCond.ListIndex
  794.         Case 0  '按仓库分摊
  795.             SqlStr = "SELECT WhCode, WhName, SUM(OutQuan) AS SumQuan,  " & _
  796.                     " SUM(OutMoney) AS SumMoney,SUM(mDiffMoney) AS SumDiff  " & _
  797.                     " From Chhs_V_Diff a " & Trim(Str_QueryCondi) & _
  798.                       "GROUP BY WhCode, WhName  Order By a.Whcode"
  799.             CxbbGrid.TextMatrix(CxbbGrid.FixedRows - 1, Sydz("001", GridStr(), Szzls)) = "仓库编码 "
  800.             CxbbGrid.TextMatrix(CxbbGrid.FixedRows - 1, Sydz("002", GridStr(), Szzls)) = "仓库名称 "
  801.         Case 1  '按存货分摊
  802.             SqlStr = "SELECT Mnumber, MName, SUM(OutQuan) AS SumQuan,  " & _
  803.                     " SUM(OutMoney) AS SumMoney,SUM(mDiffMoney) AS SumDiff  " & _
  804.                     " From Chhs_V_Diff a " & Trim(Str_QueryCondi) & _
  805.                       "GROUP BY Mnumber, MName  Order By a.Mnumber"
  806.             CxbbGrid.TextMatrix(CxbbGrid.FixedRows - 1, Sydz("001", GridStr(), Szzls)) = "存货编码 "
  807.             CxbbGrid.TextMatrix(CxbbGrid.FixedRows - 1, Sydz("002", GridStr(), Szzls)) = "存货名称 "
  808.         Case 2  '按部门分摊
  809.             SqlStr = "SELECT DeptCode, DeptName, SUM(OutQuan) AS SumQuan,  " & _
  810.                     " SUM(OutMoney) AS SumMoney,SUM(mDiffMoney) AS SumDiff  " & _
  811.                     " From Chhs_V_Diff a " & Trim(Str_QueryCondi) & _
  812.                       "GROUP BY DeptCode, DeptName Order By a.DeptCode"
  813.             CxbbGrid.TextMatrix(CxbbGrid.FixedRows - 1, Sydz("001", GridStr(), Szzls)) = "部门编码 "
  814.             CxbbGrid.TextMatrix(CxbbGrid.FixedRows - 1, Sydz("002", GridStr(), Szzls)) = "部门名称 "
  815.         Case 3  '按出库类别分摊
  816.             SqlStr = "SELECT InOutClassCode, InOutClassName, SUM(OutQuan) AS SumQuan,  " & _
  817.                     " SUM(OutMoney) AS SumMoney,SUM(mDiffMoney) AS SumDiff  " & _
  818.                     " From Chhs_V_Diff a " & Trim(Str_QueryCondi) & _
  819.                       "GROUP BY InOutClassCode, InOutClassName Order By a.InOutClassCode"
  820.             CxbbGrid.TextMatrix(CxbbGrid.FixedRows - 1, Sydz("001", GridStr(), Szzls)) = "出库类别编码 "
  821.             CxbbGrid.TextMatrix(CxbbGrid.FixedRows - 1, Sydz("002", GridStr(), Szzls)) = "出库类别"
  822.     End Select
  823.     
  824.     CxbbGrid.Rows = CxbbGrid.FixedRows
  825.     
  826.     Set Rec_Query = Cw_DataEnvi.DataConnect.Execute(SqlStr)
  827.     With Rec_Query
  828.         
  829.         Do While Not .EOF
  830.     
  831.             CxbbGrid.AddItem ""
  832.             Jsqte = CxbbGrid.Rows - 1
  833.             '[>>自定义填充内容
  834.             CxbbGrid.TextMatrix(Jsqte, Sydz("001", GridStr(), Szzls)) = Trim(.Fields(0) & "")
  835.             CxbbGrid.TextMatrix(Jsqte, Sydz("002", GridStr(), Szzls)) = Trim(.Fields(1) & "")
  836.             If .Fields("sumquan") <> 0 Then                                                                           '数量
  837.                 CxbbGrid.TextMatrix(Jsqte, Sydz("003", GridStr(), Szzls)) = .Fields("sumquan") + 0
  838.             End If
  839.             If .Fields("summoney") <> 0 Then                                                                      '计划单价
  840.                 CxbbGrid.TextMatrix(Jsqte, Sydz("004", GridStr(), Szzls)) = .Fields("summoney") + 0
  841.             End If
  842.             If .Fields("sumdiff") <> 0 Then                                                                      '计划金额
  843.                 CxbbGrid.TextMatrix(Jsqte, Sydz("005", GridStr(), Szzls)) = .Fields("sumdiff") + 0
  844.             End If
  845.             
  846.             '<<]
  847.             '设置数据行高度(Fixed)
  848.             CxbbGrid.RowHeight(Jsqte) = Sjhgd
  849.      
  850.             '动态集指针加1,同时将计数器加1(Fixed)
  851.             .MoveNext
  852.             Jsqte = Jsqte + 1
  853.         Loop
  854.     End With
  855.     
  856.     
  857.     '输入合计
  858.     With CxbbGrid
  859.         If .Rows = .FixedRows Then Exit Sub
  860.         
  861.         .SubtotalPosition = flexSTBelow
  862.         For Jsqte = Qslz To .Cols - 1
  863.              If GridBoolean(Jsqte, 4) Then
  864.                   .Subtotal flexSTSum, -1, Jsqte, , &HF7F3EC, , , , , True
  865.              End If
  866.         Next
  867.         Jsqte = .Rows - 1
  868.         .RowHeight(Jsqte) = Sjhgd
  869.         .TextMatrix(Jsqte, Sydz("001", GridStr(), Szzls)) = ""
  870.         .TextMatrix(Jsqte, Sydz("002", GridStr(), Szzls)) = "合计 "
  871.            
  872.         For Coljsq = Qslz To .Cols - 1
  873.             If Val(.TextMatrix(Jsqte, Coljsq)) = 0 And GridBoolean(Coljsq, 4) Then
  874.                 .TextMatrix(Jsqte, Coljsq) = ""
  875.             End If
  876.         Next
  877.     End With
  878.     
  879.     ']以上为用户自定义部分
  880.     
  881.     Set Rec_Query = Nothing
  883. End Sub
  885. Private Sub bbyl(bbylte As Boolean)                    '报表打印预览
  886.     
  887.     Dim Bbzbt$, Bbxbt() As String, bbxbtzzxs() As Integer, Bbxbtgs As Integer
  888.     Dim Bbbwh() As String, Bbbwhzzxs() As Integer, Bbbwhgs As Integer
  889.     Bbxbtgs = 1                                          '报 表 小 标 题 行 数
  890.     Bbbwhgs = 0                                          '报 表 表 尾 行 数
  891.     ReDim Bbxbt(1 To Bbxbtgs)
  892.     ReDim bbxbtzzxs(1 To Bbxbtgs)
  893.     If Bbbwhgs <> 0 Then
  894.         ReDim Bbbwh(1 To Bbbwhgs)
  895.         ReDim Bbbwhzzxs(1 To Bbbwhgs)
  896.     End If
  897.     Bbzbt = Lab_Title(0)
  898.     Bbxbt(1) = Fun_FormatOutPut("月份:" + Trim(Lbl_TitleText(0)), 50)
  899.     Bbxbt(1) = Bbxbt(1) + Fun_FormatOutPut(Trim(Lbl_TitleMess(0)), 30)
  900.     bbxbtzzxs(1) = 0                                     '报表行组织形式(0-居左 1-居中 2-居右)
  901.     Call Scyxsjb(CxbbGrid)                               '生成报表数据
  902.     Call Scdybb(Dyymctbl, Bbzbt, Bbxbt(), bbxbtzzxs(), Bbxbtgs, Bbbwh(), Bbbwhzzxs(), Bbbwhgs, bbylte)
  903.     If Not bbylte Then
  904.         Unload DY_Tybbyldy
  905.     End If
  907. End Sub