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

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

企业管理

开发平台：

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