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

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

企业管理

开发平台：

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