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

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

企业管理

开发平台：

Visual Basic

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