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

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

企业管理

开发平台：

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 Report_PlanExecList 
  5.    Caption         =   "计划执行统计"
  6.    ClientHeight    =   8595
  7.    ClientLeft      =   60
  8.    ClientTop       =   345
  9.    ClientWidth     =   11775
  10.    Icon            =   "报表_计划执行情况.frx":0000
  11.    LinkTopic       =   "Form1"
  12.    MDIChild        =   -1  'True
  13.    ScaleHeight     =   8595
  14.    ScaleWidth      =   11775
  15.    Begin VB.PictureBox Pic_Title 
  16.       BackColor       =   &H00FFFFFF&
  17.       Height          =   825
  18.       Left            =   -60
  19.       OLEDropMode     =   1  'Manual
  20.       Picture         =   "报表_计划执行情况.frx":1042
  21.       ScaleHeight     =   765
  22.       ScaleWidth      =   11715
  23.       TabIndex        =   0
  24.       Top             =   570
  25.       Width           =   11775
  26.       Begin VB.Label Lab_Title 
  27.          BackColor       =   &H80000018&
  28.          BackStyle       =   0  'Transparent
  29.          Caption         =   "计划执行统计"
  30.          BeginProperty Font 
  31.             Name            =   "宋体"
  32.             Size            =   12
  33.             Charset         =   134
  34.             Weight          =   700
  35.             Underline       =   0   'False
  36.             Italic          =   0   'False
  37.             Strikethrough   =   0   'False
  38.          EndProperty
  39.          ForeColor       =   &H00000000&
  40.          Height          =   300
  41.          Index           =   10
  42.          Left            =   480
  43.          TabIndex        =   3
  44.          Top             =   240
  45.          Width           =   2595
  46.       End
  47.       Begin VB.Label Lab_Content 
  48.          BackStyle       =   0  'Transparent
  49.          Height          =   255
  50.          Index           =   0
  51.          Left            =   4080
  52.          TabIndex        =   2
  53.          Top             =   300
  54.          Width           =   1215
  55.       End
  56.       Begin VB.Label Lab_Title 
  57.          BackStyle       =   0  'Transparent
  58.          Caption         =   "计划周期:"
  59.          Height          =   255
  60.          Index           =   0
  61.          Left            =   3120
  62.          TabIndex        =   1
  63.          Top             =   330
  64.          Width           =   855
  65.       End
  66.    End
  67.    Begin VB.Timer Timer1 
  68.       Enabled         =   0   'False
  69.       Interval        =   1
  70.       Left            =   2880
  71.       Top             =   3240
  72.    End
  73.    Begin VSFlex8Ctl.VSFlexGrid CxbbGrid 
  74.       Height          =   7545
  75.       Left            =   0
  76.       TabIndex        =   4
  77.       Top             =   1440
  78.       Width           =   11775
  79.       _cx             =   5080
  80.       _cy             =   5080
  81.       Appearance      =   1
  82.       BorderStyle     =   1
  83.       Enabled         =   -1  'True
  84.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  85.          Name            =   "宋体"
  86.          Size            =   9
  87.          Charset         =   134
  88.          Weight          =   400
  89.          Underline       =   0   'False
  90.          Italic          =   0   'False
  91.          Strikethrough   =   0   'False
  92.       EndProperty
  93.       MousePointer    =   0
  94.       BackColor       =   16777215
  95.       ForeColor       =   -2147483640
  96.       BackColorFixed  =   13826538
  97.       ForeColorFixed  =   -2147483630
  98.       BackColorSel    =   -2147483635
  99.       ForeColorSel    =   -2147483634
  100.       BackColorBkg    =   -2147483636
  101.       BackColorAlternate=   16777215
  102.       GridColor       =   -2147483633
  103.       GridColorFixed  =   -2147483632
  104.       TreeColor       =   -2147483632
  105.       FloodColor      =   192
  106.       SheetBorder     =   -2147483642
  107.       FocusRect       =   1
  108.       HighLight       =   1
  109.       AllowSelection  =   -1  'True
  110.       AllowBigSelection=   -1  'True
  111.       AllowUserResizing=   0
  112.       SelectionMode   =   0
  113.       GridLines       =   1
  114.       GridLinesFixed  =   2
  115.       GridLineWidth   =   1
  116.       Rows            =   50
  117.       Cols            =   10
  118.       FixedRows       =   1
  119.       FixedCols       =   1
  120.       RowHeightMin    =   0
  121.       RowHeightMax    =   0
  122.       ColWidthMin     =   0
  123.       ColWidthMax     =   0
  124.       ExtendLastCol   =   0   'False
  125.       FormatString    =   ""
  126.       ScrollTrack     =   0   'False
  127.       ScrollBars      =   3
  128.       ScrollTips      =   0   'False
  129.       MergeCells      =   0
  130.       MergeCompare    =   0
  131.       AutoResize      =   -1  'True
  132.       AutoSizeMode    =   0
  133.       AutoSearch      =   0
  134.       AutoSearchDelay =   2
  135.       MultiTotals     =   -1  'True
  136.       SubtotalPosition=   1
  137.       OutlineBar      =   0
  138.       OutlineCol      =   0
  139.       Ellipsis        =   0
  140.       ExplorerBar     =   0
  141.       PicturesOver    =   0   'False
  142.       FillStyle       =   0
  143.       RightToLeft     =   0   'False
  144.       PictureType     =   0
  145.       TabBehavior     =   0
  146.       OwnerDraw       =   0
  147.       Editable        =   0
  148.       ShowComboButton =   1
  149.       WordWrap        =   0   'False
  150.       TextStyle       =   0
  151.       TextStyleFixed  =   0
  152.       OleDragMode     =   0
  153.       OleDropMode     =   0
  154.       DataMode        =   0
  155.       VirtualData     =   -1  'True
  156.       DataMember      =   ""
  157.       ComboSearch     =   3
  158.       AutoSizeMouse   =   -1  'True
  159.       FrozenRows      =   0
  160.       FrozenCols      =   0
  161.       AllowUserFreezing=   0
  162.       BackColorFrozen =   0
  163.       ForeColorFrozen =   0
  164.       WallPaperAlignment=   9
  165.       AccessibleName  =   ""
  166.       AccessibleDescription=   ""
  167.       AccessibleValue =   ""
  168.       AccessibleRole  =   24
  169.       Begin MSComctlLib.ImageList ImageList2 
  170.          Left            =   0
  171.          Top             =   0
  172.          _ExtentX        =   1005
  173.          _ExtentY        =   1005
  174.          BackColor       =   -2147483643
  175.          ImageWidth      =   16
  176.          ImageHeight     =   16
  177.          MaskColor       =   12632256
  178.          _Version        =   393216
  179.          BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628} 
  180.             NumListImages   =   40
  181.             BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  182.                Picture         =   "报表_计划执行情况.frx":1FAC4
  183.                Key             =   "sz"
  184.             EndProperty
  185.             BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  186.                Picture         =   "报表_计划执行情况.frx":1FE5E
  187.                Key             =   "dy"
  188.             EndProperty
  189.             BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  190.                Picture         =   "报表_计划执行情况.frx":201F8
  191.                Key             =   "yl"
  192.             EndProperty
  193.             BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  194.                Picture         =   "报表_计划执行情况.frx":20592
  195.                Key             =   "xg"
  196.             EndProperty
  197.             BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  198.                Picture         =   "报表_计划执行情况.frx":2092C
  199.                Key             =   "zh"
  200.             EndProperty
  201.             BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  202.                Picture         =   "报表_计划执行情况.frx":20CC6
  203.                Key             =   "sh"
  204.             EndProperty
  205.             BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  206.                Picture         =   "报表_计划执行情况.frx":21060
  207.                Key             =   "bc"
  208.             EndProperty
  209.             BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  210.                Picture         =   "报表_计划执行情况.frx":213FA
  211.                Key             =   "fq"
  212.             EndProperty
  213.             BeginProperty ListImage9 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  214.                Picture         =   "报表_计划执行情况.frx":21794
  215.                Key             =   "bz"
  216.             EndProperty
  217.             BeginProperty ListImage10 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  218.                Picture         =   "报表_计划执行情况.frx":21B2E
  219.                Key             =   "tc"
  220.             EndProperty
  221.             BeginProperty ListImage11 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  222.                Picture         =   "报表_计划执行情况.frx":21EC8
  223.                Key             =   "bcgs"
  224.             EndProperty
  225.             BeginProperty ListImage12 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  226.                Picture         =   "报表_计划执行情况.frx":22262
  227.                Key             =   "mrlk"
  228.             EndProperty
  229.             BeginProperty ListImage13 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  230.                Picture         =   "报表_计划执行情况.frx":225FC
  231.                Key             =   "xsxm"
  232.             EndProperty
  233.             BeginProperty ListImage14 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  234.                Picture         =   "报表_计划执行情况.frx":22996
  235.                Key             =   "first"
  236.             EndProperty
  237.             BeginProperty ListImage15 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  238.                Picture         =   "报表_计划执行情况.frx":22D30
  239.                Key             =   "prev"
  240.             EndProperty
  241.             BeginProperty ListImage16 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  242.                Picture         =   "报表_计划执行情况.frx":230CA
  243.                Key             =   "next"
  244.             EndProperty
  245.             BeginProperty ListImage17 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  246.                Picture         =   "报表_计划执行情况.frx":23464
  247.                Key             =   "last"
  248.             EndProperty
  249.             BeginProperty ListImage18 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  250.                Picture         =   "报表_计划执行情况.frx":237FE
  251.                Key             =   "xx"
  252.             EndProperty
  253.             BeginProperty ListImage19 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  254.                Picture         =   "报表_计划执行情况.frx":23B98
  255.                Key             =   "define"
  256.             EndProperty
  257.             BeginProperty ListImage20 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  258.                Picture         =   "报表_计划执行情况.frx":23F32
  259.                Key             =   "exec"
  260.             EndProperty
  261.             BeginProperty ListImage21 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  262.                Picture         =   "报表_计划执行情况.frx":242CC
  263.                Key             =   "xz"
  264.             EndProperty
  265.             BeginProperty ListImage22 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  266.                Picture         =   "报表_计划执行情况.frx":24666
  267.                Key             =   "sc"
  268.             EndProperty
  269.             BeginProperty ListImage23 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  270.                Picture         =   "报表_计划执行情况.frx":24A00
  271.                Key             =   "sx"
  272.             EndProperty
  273.             BeginProperty ListImage24 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  274.                Picture         =   "报表_计划执行情况.frx":24D9A
  275.                Key             =   "cx"
  276.             EndProperty
  277.             BeginProperty ListImage25 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  278.                Picture         =   "报表_计划执行情况.frx":25134
  279.                Key             =   "zd"
  280.             EndProperty
  281.             BeginProperty ListImage26 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  282.                Picture         =   "报表_计划执行情况.frx":254CE
  283.                Key             =   "dz"
  284.             EndProperty
  285.             BeginProperty ListImage27 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  286.                Picture         =   "报表_计划执行情况.frx":25868
  287.                Key             =   "ph"
  288.             EndProperty
  289.             BeginProperty ListImage28 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  290.                Picture         =   "报表_计划执行情况.frx":25C02
  291.                Key             =   "fz"
  292.             EndProperty
  293.             BeginProperty ListImage29 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  294.                Picture         =   "报表_计划执行情况.frx":25F9C
  295.                Key             =   "dw"
  296.             EndProperty
  297.             BeginProperty ListImage30 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  298.                Picture         =   "报表_计划执行情况.frx":26336
  299.                Key             =   "hf"
  300.             EndProperty
  301.             BeginProperty ListImage31 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  302.                Picture         =   "报表_计划执行情况.frx":266D0
  303.                Key             =   "pz"
  304.             EndProperty
  305.             BeginProperty ListImage32 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  306.                Picture         =   "报表_计划执行情况.frx":26A6A
  307.                Key             =   "check"
  308.             EndProperty
  309.             BeginProperty ListImage33 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  310.                Picture         =   "报表_计划执行情况.frx":26E04
  311.                Key             =   "qs"
  312.             EndProperty
  313.             BeginProperty ListImage34 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  314.                Picture         =   "报表_计划执行情况.frx":2719E
  315.                Key             =   "fullcheck"
  316.             EndProperty
  317.             BeginProperty ListImage35 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  318.                Picture         =   "报表_计划执行情况.frx":27538
  319.                Key             =   "qq"
  320.             EndProperty
  321.             BeginProperty ListImage36 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  322.                Picture         =   "报表_计划执行情况.frx":278D2
  323.                Key             =   "bcw"
  324.             EndProperty
  325.             BeginProperty ListImage37 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  326.                Picture         =   "报表_计划执行情况.frx":27C6C
  327.                Key             =   "ye"
  328.             EndProperty
  329.             BeginProperty ListImage38 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  330.                Picture         =   "报表_计划执行情况.frx":28006
  331.                Key             =   ""
  332.             EndProperty
  333.             BeginProperty ListImage39 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  334.                Picture         =   "报表_计划执行情况.frx":283A0
  335.                Key             =   "frist"
  336.             EndProperty
  337.             BeginProperty ListImage40 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  338.                Picture         =   "报表_计划执行情况.frx":2873A
  339.                Key             =   "dj"
  340.             EndProperty
  341.          EndProperty
  342.       End
  343.    End
  344.    Begin MSComctlLib.Toolbar SzToolbar 
  345.       Align           =   1  'Align Top
  346.       Height          =   555
  347.       Left            =   0
  348.       TabIndex        =   5
  349.       Top             =   0
  350.       Width           =   11775
  351.       _ExtentX        =   20770
  352.       _ExtentY        =   979
  353.       ButtonWidth     =   820
  354.       ButtonHeight    =   926
  355.       AllowCustomize  =   0   'False
  356.       Appearance      =   1
  357.       Style           =   1
  358.       ImageList       =   "ImageList1"
  359.       _Version        =   393216
  360.       BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628} 
  361.          NumButtons      =   14
  362.          BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  363.             Caption         =   "设置"
  364.             Key             =   "ymsz"
  365.             ImageKey        =   "sz"
  366.          EndProperty
  367.          BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  368.             Caption         =   "打印"
  369.             Key             =   "dy"
  370.             ImageKey        =   "dy"
  371.          EndProperty
  372.          BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  373.             Caption         =   "预览"
  374.             Key             =   "yl"
  375.             ImageKey        =   "yl"
  376.          EndProperty
  377.          BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  378.             Style           =   3
  379.          EndProperty
  380.          BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  381.             Caption         =   "查询"
  382.             Key             =   "cx"
  383.             ImageKey        =   "cx"
  384.          EndProperty
  385.          BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  386.             Style           =   3
  387.          EndProperty
  388.          BeginProperty Button7 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  389.             Enabled         =   0   'False
  390.             Object.Visible         =   0   'False
  391.             Caption         =   "新增"
  392.             Key             =   "xz"
  393.             ImageKey        =   "xz"
  394.          EndProperty
  395.          BeginProperty Button8 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  396.             Enabled         =   0   'False
  397.             Object.Visible         =   0   'False
  398.             Caption         =   "单据"
  399.             Key             =   "Bill"
  400.             ImageKey        =   "pz"
  401.          EndProperty
  402.          BeginProperty Button9 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  403.             Enabled         =   0   'False
  404.             Object.Visible         =   0   'False
  405.             Caption         =   "删除"
  406.             Key             =   "sc"
  407.             ImageKey        =   "sc"
  408.          EndProperty
  409.          BeginProperty Button10 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  410.             Enabled         =   0   'False
  411.             Object.Visible         =   0   'False
  412.             Style           =   3
  413.          EndProperty
  414.          BeginProperty Button11 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  415.             Enabled         =   0   'False
  416.             Object.Visible         =   0   'False
  417.             Caption         =   "审核"
  418.             Key             =   "shhe"
  419.             ImageKey        =   "check"
  420.          EndProperty
  421.          BeginProperty Button12 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  422.             Enabled         =   0   'False
  423.             Object.Visible         =   0   'False
  424.             Style           =   3
  425.          EndProperty
  426.          BeginProperty Button13 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  427.             Caption         =   "帮助"
  428.             Key             =   "bz"
  429.             ImageKey        =   "bz"
  430.          EndProperty
  431.          BeginProperty Button14 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  432.             Caption         =   "退出"
  433.             Key             =   "fh"
  434.             ImageKey        =   "tc"
  435.          EndProperty
  436.       EndProperty
  437.       BorderStyle     =   1
  438.       Begin MSComctlLib.ImageList ImageList1 
  439.          Left            =   6990
  440.          Top             =   30
  441.          _ExtentX        =   1005
  442.          _ExtentY        =   1005
  443.          BackColor       =   -2147483643
  444.          ImageWidth      =   16
  445.          ImageHeight     =   16
  446.          MaskColor       =   12632256
  447.          _Version        =   393216
  448.          BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628} 
  449.             NumListImages   =   32
  450.             BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  451.                Picture         =   "报表_计划执行情况.frx":28AD4
  452.                Key             =   "sz"
  453.             EndProperty
  454.             BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  455.                Picture         =   "报表_计划执行情况.frx":28E6E
  456.                Key             =   "dy"
  457.             EndProperty
  458.             BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  459.                Picture         =   "报表_计划执行情况.frx":29208
  460.                Key             =   "yl"
  461.             EndProperty
  462.             BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  463.                Picture         =   "报表_计划执行情况.frx":295A2
  464.                Key             =   "xg"
  465.             EndProperty
  466.             BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  467.                Picture         =   "报表_计划执行情况.frx":2993C
  468.                Key             =   "zh"
  469.             EndProperty
  470.             BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  471.                Picture         =   "报表_计划执行情况.frx":29CD6
  472.                Key             =   "sh"
  473.             EndProperty
  474.             BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  475.                Picture         =   "报表_计划执行情况.frx":2A070
  476.                Key             =   "bc"
  477.             EndProperty
  478.             BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  479.                Picture         =   "报表_计划执行情况.frx":2A40A
  480.                Key             =   "fq"
  481.             EndProperty
  482.             BeginProperty ListImage9 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  483.                Picture         =   "报表_计划执行情况.frx":2A7A4
  484.                Key             =   "bz"
  485.             EndProperty
  486.             BeginProperty ListImage10 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  487.                Picture         =   "报表_计划执行情况.frx":2AB3E
  488.                Key             =   "tc"
  489.             EndProperty
  490.             BeginProperty ListImage11 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  491.                Picture         =   "报表_计划执行情况.frx":2AED8
  492.                Key             =   "bcgs"
  493.             EndProperty
  494.             BeginProperty ListImage12 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  495.                Picture         =   "报表_计划执行情况.frx":2B272
  496.                Key             =   "mrlk"
  497.             EndProperty
  498.             BeginProperty ListImage13 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  499.                Picture         =   "报表_计划执行情况.frx":2B60C
  500.                Key             =   "xsxm"
  501.             EndProperty
  502.             BeginProperty ListImage14 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  503.                Picture         =   "报表_计划执行情况.frx":2B9A6
  504.                Key             =   "first"
  505.             EndProperty
  506.             BeginProperty ListImage15 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  507.                Picture         =   "报表_计划执行情况.frx":2BD40
  508.                Key             =   "prev"
  509.             EndProperty
  510.             BeginProperty ListImage16 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  511.                Picture         =   "报表_计划执行情况.frx":2C0DA
  512.                Key             =   "next"
  513.             EndProperty
  514.             BeginProperty ListImage17 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  515.                Picture         =   "报表_计划执行情况.frx":2C474
  516.                Key             =   "last"
  517.             EndProperty
  518.             BeginProperty ListImage18 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  519.                Picture         =   "报表_计划执行情况.frx":2C80E
  520.                Key             =   "xx"
  521.             EndProperty
  522.             BeginProperty ListImage19 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  523.                Picture         =   "报表_计划执行情况.frx":2CBA8
  524.                Key             =   "define"
  525.             EndProperty
  526.             BeginProperty ListImage20 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  527.                Picture         =   "报表_计划执行情况.frx":2CF42
  528.                Key             =   "exec"
  529.             EndProperty
  530.             BeginProperty ListImage21 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  531.                Picture         =   "报表_计划执行情况.frx":2D2DC
  532.                Key             =   "xz"
  533.             EndProperty
  534.             BeginProperty ListImage22 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  535.                Picture         =   "报表_计划执行情况.frx":2D676
  536.                Key             =   "sc"
  537.             EndProperty
  538.             BeginProperty ListImage23 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  539.                Picture         =   "报表_计划执行情况.frx":2DA10
  540.                Key             =   "sx"
  541.             EndProperty
  542.             BeginProperty ListImage24 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  543.                Picture         =   "报表_计划执行情况.frx":2DDAA
  544.                Key             =   "cx"
  545.             EndProperty
  546.             BeginProperty ListImage25 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  547.                Picture         =   "报表_计划执行情况.frx":2E144
  548.                Key             =   "zd"
  549.             EndProperty
  550.             BeginProperty ListImage26 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  551.                Picture         =   "报表_计划执行情况.frx":2E4DE
  552.                Key             =   "dz"
  553.             EndProperty
  554.             BeginProperty ListImage27 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  555.                Picture         =   "报表_计划执行情况.frx":2E878
  556.                Key             =   "ph"
  557.             EndProperty
  558.             BeginProperty ListImage28 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  559.                Picture         =   "报表_计划执行情况.frx":2EC12
  560.                Key             =   "fz"
  561.             EndProperty
  562.             BeginProperty ListImage29 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  563.                Picture         =   "报表_计划执行情况.frx":2EFAC
  564.                Key             =   "dw"
  565.             EndProperty
  566.             BeginProperty ListImage30 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  567.                Picture         =   "报表_计划执行情况.frx":2F346
  568.                Key             =   "hf"
  569.             EndProperty
  570.             BeginProperty ListImage31 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  571.                Picture         =   "报表_计划执行情况.frx":2F6E0
  572.                Key             =   "pz"
  573.             EndProperty
  574.             BeginProperty ListImage32 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  575.                Picture         =   "报表_计划执行情况.frx":2FA7A
  576.                Key             =   "check"
  577.             EndProperty
  578.          EndProperty
  579.       End
  580.       Begin MSComctlLib.Toolbar GsToolbar 
  581.          Height          =   525
  582.          Left            =   8760
  583.          TabIndex        =   6
  584.          Top             =   0
  585.          Width           =   2475
  586.          _ExtentX        =   4366
  587.          _ExtentY        =   926
  588.          ButtonWidth     =   1455
  589.          ButtonHeight    =   926
  590.          AllowCustomize  =   0   'False
  591.          Appearance      =   1
  592.          Style           =   1
  593.          ImageList       =   "ImageList1"
  594.          _Version        =   393216
  595.          BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628} 
  596.             NumButtons      =   3
  597.             BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  598.                Caption         =   "保存格式"
  599.                Key             =   "bcgs"
  600.                ImageKey        =   "bcgs"
  601.             EndProperty
  602.             BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  603.                Caption         =   "默认列宽"
  604.                Key             =   "hfmrgs"
  605.                ImageKey        =   "mrlk"
  606.             EndProperty
  607.             BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  608.                Caption         =   "显示项目"
  609.                Key             =   "szxsxm"
  610.                ImageKey        =   "xsxm"
  611.             EndProperty
  612.          EndProperty
  613.       End
  614.    End
  615. End
  616. Attribute VB_Name = "Report_PlanExecList"
  617. Attribute VB_GlobalNameSpace = False
  618. Attribute VB_Creatable = False
  619. Attribute VB_PredeclaredId = True
  620. Attribute VB_Exposed = False
  621. '******************************************************************
  622. '*    模 块 名 称 :报表__计划执行情况
  623. '*    功 能 描 述 :计划执行情况
  624. '*    程序员姓名  :乔进
  625. '*    最后修改人  :乔进
  626. '*    最后修改时间:2001/12/17
  627. '*    备        注:程序中所有依实际情况自定义部分均用[>>  <<]括起
  628. '******************************************************************
  629. Dim ReportTitle As String                '报表主标题
  630. Dim Str_QueryCondi As String             '用户录入查询条件
  631. Dim Rec_BillID As New ADODB.Recordset    '用户查询单据ID动态集
  633. '以下为固定使用变量
  634. Dim Dyymctbl As New DY_Dyymsz            '打印页面窗体变量
  635. Dim GridCode As String                   '显示网格网格代码
  636. Dim GridInf() As Variant                 '整个网格设置信息
  637. Dim Tsxx As String                       '系统提示信息
  638. Dim Qslz As Long                         '网格隐藏(非操作显示)列数
  639. Dim Sjhgd As Double                      '网格数据行高度
  640. Dim Sfxshjwg As Boolean                  '是否显示合计网格
  641. Dim GridBoolean() As Boolean             '网格列信息(布尔型)
  642. Dim GridStr()  As String                 '网格列信息(字符型)
  643. Dim GridInt() As Integer                 '网格列信息(整型)
  644. Dim Szzls As Integer                     '数组总列数(网格列数-1)
  646. Private Sub Form_Resize()                '根据窗体大小来调整网格,标题栏大小(Fixed)
  647.     On Error Resume Next
  648.     With CxbbGrid
  649.         .Width = Me.Width - 160
  650.         .Height = Me.Height - .Top - 400
  651.     End With
  652.     With Pic_Title
  653.         .Width = Me.Width - 160
  654.     End With
  655.     
  656.     GsToolbar.Left = Me.Width - GsToolbar.Width - 140
  658. End Sub
  660. Private Sub Form_Load()                                                   '窗体装入
  661.   
  662.     '调入打印页面设置窗体
  663.     ReportTitle = "计划执行统计"
  664.     XtReportCode = "MRP_PlanExec"
  665.     Load Dyymctbl
  666.       
  667.     '调整标题栏及网格、格式工具条位置(Fixed)
  668.     Pic_Title.Left = 40
  669.     Pic_Title.Top = SzToolbar.Top + SzToolbar.Height - 10
  670.     CxbbGrid.Left = Pic_Title.Left
  671.     CxbbGrid.Top = Pic_Title.Top + Pic_Title.Height + 20
  672.      
  673.     '调 入 网 格(Fixed)
  674.     GridCode = "MRP_PlanExec"
  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.     Report_PlanExecList.HelpContextID = 2417001
  683. End Sub
  685. Private Sub Form_Unload(Cancel As Integer)                                  '窗体卸载
  687.     '卸载条件窗体
  688.     Report_PlanExecQuery.UnloadCheck.Value = 1
  689.     Unload Report_PlanExecQuery
  690.     
  691.     '卸载打印页面设置窗体
  692.     Unload Dyymctbl
  693.     Security_Log "MRP_PlanStatReport", Xtczybm, 2, False  '用户退出时写上机日志
  694. End Sub
  696. Private Sub CxbbGrid_BeforeMoveColumn(ByVal Col As Long, Position As Long)           '网格列发生移动时自动交换网格索引信息
  697.     Call FnBln_RefreshArray(Col, Position, GridStr(), GridInf())
  698. End Sub
  700. Private Sub GsToolbar_ButtonClick(ByVal Button As MSComctlLib.Button)                '网格格式调整(Fixed)
  701.   
  702.     Select Case Button.Key
  703.         Case "bcgs"                                          '保存表格格式
  704.             Call Bcwggs(CxbbGrid, GridCode, GridStr())
  705.         Case "hfmrgs"                                        '恢复默认格式
  706.             Call Hfmrgs(CxbbGrid, GridCode, GridStr())
  707.         Case "szxsxm"                                        '设置显示项目
  708.             Call Szxsxm(CxbbGrid, GridCode)
  709.     End Select
  711. End Sub
  713. Private Sub SzToolbar_ButtonClick(ByVal Button As MSComctlLib.Button)
  714.     
  715.     Select Case Button.Key
  716.         Case "ymsz"                                          '页面设置
  717.             Dyymctbl.Show 1
  718.         Case "yl"                                            '预 览
  719.             Call bbyl(True)
  720.         Case "dy"                                            '打 印
  721.             Call bbyl(False)
  722.         Case "cx"                                            '查 询
  723.             Report_PlanExecQuery.Show 1
  724.             
  725.  
  726.         Case "bz"                                            '帮 助
  727.             Call F1bz
  728.         Case "fh"                                            '退 出
  729.            Unload Me
  731.     End Select
  733. End Sub
  735. Private Sub Timer1_Timer()                                 '在窗体激活后调入查询程序
  736.     
  737.     Timer1.Enabled = False
  738.     Xt_Wait.Show
  739.     Xt_Wait.Refresh
  740.    
  741.     '加快显示速度
  742.     CxbbGrid.Redraw = False
  743.  
  744.     '生成查询结果
  745.     Call Sub_Query(0)
  746.    
  747.     CxbbGrid.Redraw = True
  748.     
  749.     Xt_Wait.Hide
  751. End Sub
  753. Private Sub Sub_Query(Int_QueryType As Integer)                                     '生成查询结果(Define)
  754.     
  755.     '过程参数:Int_QueryType 0-"点确定按钮"查询  1-"刷新"查询
  757.     Dim Rec_Query As New ADODB.Recordset        '查询结果动态集
  758.     Dim Coljsq As Long                          '网格列计数器
  759.     Dim jsqte As Long                        '临时动态计数器
  760.     Dim iYear As Integer, iMonth As Integer, MonthBeginDate As String, MonthEndDate As String, YearBeginDate As String
  761.     '以下为自定义部分[
  762.     On Error Resume Next
  763.  
  764.     If Int_QueryType = 0 Then   '0-"点确定按钮"查询
  765.         With Report_PlanExecQuery
  766.          
  767.             '生成查询条件
  768.             Str_QueryCondi = " where 1=1 "
  769.             For jsqte = 1 To 3
  770.                 Select Case jsqte
  771.                     Case 1  '起始日期
  772.                         If Trim(.Combo_Con(0)) <> "" Then
  773.                             Sub_DivMonth Trim(.Combo_Con(0)), iYear, iMonth
  774.                             Str_QueryCondi = Str_QueryCondi & "  And  a.kjYear= '" & iYear & "' And a.Period='" & iMonth & "' "
  775.                             MonthBeginDate = Fn_GetMonthBeginDate(iYear, iMonth)
  776.                             MonthEndDate = Fn_GetMonthEndDate(iYear, iMonth)
  777.                             YearBeginDate = Fn_GetYearBeginDate(iYear)
  778.                             Lab_Content(0) = Trim(Str(iYear)) + "." + Trim(Str(iMonth))
  779.                         End If
  781.                     Case 2  '生产部门
  782.                         If Trim(.LrText(0).Text) <> "" Then
  783.                             Str_QueryCondi = Str_QueryCondi & " And a.DeptCode = '" & Trim(.LrText(0).Tag) & "'"
  784.                         End If
  785.                     Case 3  '产品编码
  786.                         If Trim(.LrText(1).Text) <> "" Then
  787.                             Str_QueryCondi = Str_QueryCondi & " And a.MNumber = '" & Trim(.LrText(1).Text) & "'"
  788.                         End If
  789.                     
  790.                 End Select
  791.             Next jsqte
  792.         End With
  793.     Else
  794.         '1-"刷新"查询
  795.         If Str_QueryCondi = "" Then
  796.             Str_QueryCondi = " where 1=1 "
  797.         End If
  798.     End If
  799.     
  800.     Sqlstr = "Select  *  From  MRP_Fn_PlanExec (" & iYear & " , " & iMonth & " ,'" & MonthBeginDate & "' ,'" & MonthEndDate & "' ,'" & YearBeginDate & "' )  a  " & Str_QueryCondi & ""
  801.     Sqlstr = Sqlstr + "  Order by DeptCode , MNumber "
  802.     Set Rec_Query = Cw_DataEnvi.DataConnect.Execute(Sqlstr)
  803.     With Rec_Query
  804.         CxbbGrid.Rows = CxbbGrid.FixedRows
  805.         jsqte = CxbbGrid.FixedRows
  806.         Do While Not .EOF
  807.             CxbbGrid.AddItem ""
  808.             '[>>自定义填充内容
  809.             CxbbGrid.TextMatrix(jsqte, Sydz("001", GridStr(), Szzls)) = Trim(Rec_Query!DeptName & "")                                                   '部门名称
  810.             CxbbGrid.TextMatrix(jsqte, Sydz("002", GridStr(), Szzls)) = Trim(Rec_Query!MNumber & "")                                                    '物料编码
  811.             CxbbGrid.TextMatrix(jsqte, Sydz("003", GridStr(), Szzls)) = Trim(Rec_Query!Mname & "")                                                      '物料名称
  812.             CxbbGrid.TextMatrix(jsqte, Sydz("004", GridStr(), Szzls)) = Trim(Rec_Query!Model & "")                                                      '规格型号
  813.             CxbbGrid.TextMatrix(jsqte, Sydz("005", GridStr(), Szzls)) = Trim(Rec_Query!PrimaryUnitName & "")                                            '单位
  814.             CxbbGrid.TextMatrix(jsqte, Sydz("006", GridStr(), Szzls)) = (Trim(Rec_Query!PlanOutput & ""))                                               '计划数量
  815.             CxbbGrid.TextMatrix(jsqte, Sydz("007", GridStr(), Szzls)) = (Trim(Rec_Query!FactOutput & ""))                                               '实际生产量
  816.             CxbbGrid.TextMatrix(jsqte, Sydz("008", GridStr(), Szzls)) = (Trim(Rec_Query!FactWhIn & ""))                                                 '实际入库量
  817.             CxbbGrid.TextMatrix(jsqte, Sydz("009", GridStr(), Szzls)) = (Val(Rec_Query!FactOutput & "") / Val(Rec_Query!PlanOutput & "") * 100)         '产出比
  818.             CxbbGrid.TextMatrix(jsqte, Sydz("010", GridStr(), Szzls)) = (Trim(Rec_Query!TotalOutput & ""))                                              '年累计产量
  819.             CxbbGrid.TextMatrix(jsqte, Sydz("011", GridStr(), Szzls)) = (Trim(Rec_Query!TotalWhIn & ""))                                                '年累计入库
  820.              '<<]
  821.             '设置数据行高度(Fixed)
  822.             CxbbGrid.RowHeight(jsqte) = Sjhgd
  823.      
  824.             '动态集指针加1,同时将计数器加1(Fixed)
  825.             .MoveNext
  826.             jsqte = jsqte + 1
  827.         Loop
  828.     End With
  830.     ']以上为用户自定义部分
  831. End Sub
  832.  
  833. Private Sub bbyl(bbylte As Boolean)                    '报表打印预览
  834.     
  835.     Dim Bbzbt$, Bbxbt() As String, bbxbtzzxs() As Integer, Bbxbtgs As Integer
  836.     Dim Bbbwh() As String, Bbbwhzzxs() As Integer, Bbbwhgs As Integer
  837.     Bbxbtgs = 1                                          '报 表 小 标 题 行 数
  838.     Bbbwhgs = 0                                          '报 表 表 尾 行 数
  839.     ReDim Bbxbt(1 To Bbxbtgs)
  840.     ReDim bbxbtzzxs(1 To Bbxbtgs)
  841.     If Bbbwhgs <> 0 Then
  842.         ReDim Bbbwh(1 To Bbbwhgs)
  843.         ReDim Bbbwhzzxs(1 To Bbbwhgs)
  844.     End If
  845.     Bbzbt = ReportTitle
  846.     Bbxbt(1) = Space(10) + Fun_FormatOutPut("计划周期:   " + Trim(Me.Lab_Content(0)), 30)
  847.     bbxbtzzxs(1) = 0                                     '报表行组织形式(0-居左 1-居中 2-居右)
  848.     Call Scyxsjb(CxbbGrid)                               '生成报表数据
  849.     Call Scdybb(Dyymctbl, Bbzbt, Bbxbt(), bbxbtzzxs(), Bbxbtgs, Bbbwh(), Bbbwhzzxs(), Bbbwhgs, bbylte)
  850.     If Not bbylte Then
  851.         Unload DY_Tybbyldy
  852.     End If
  854. End Sub
  856. Private Sub Sub_DivMonth(InPara As String, Out1 As Integer, Out2 As Integer)
  857.     Dim Pos1 As Integer
  858.     Pos1 = InStr(1, InPara, ".")
  859.     Out1 = Val(Left(InPara, Pos1 - 1))
  860.     Out2 = Right(InPara, Len(InPara) - Pos1)
  861. End Sub