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

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

企业管理

开发平台：

Visual Basic

b：源码内容
  1. VERSION 5.00
  2. Object = "{65A39231-6133-11D1-BAA2-444553540000}#1.0#0"; "VSLIGHT6.OCX"
  3. Object = "{D76D7128-4A96-11D3-BD95-D296DC2DD072}#1.0#0"; "VSOCX7.OCX"
  4. Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
  5. Begin VB.Form FrmJljy_SDemotionListCg 
  6.    Caption         =   "采购降等使用报告单列表"
  7.    ClientHeight    =   8595
  8.    ClientLeft      =   315
  9.    ClientTop       =   390
  10.    ClientWidth     =   8880
  11.    HelpContextID   =   5001
  12.    Icon            =   "b进料检验管理_降等使用报告Cg.frx":0000
  13.    KeyPreview      =   -1  'True
  14.    LinkTopic       =   "Form1"
  15.    MDIChild        =   -1  'True
  16.    Picture         =   "b进料检验管理_降等使用报告Cg.frx":1042
  17.    ScaleHeight     =   8595
  18.    ScaleWidth      =   8880
  19.    WindowState     =   2  'Maximized
  20.    Begin MSComctlLib.Toolbar GsToolbar 
  21.       Height          =   540
  22.       Left            =   9330
  23.       TabIndex        =   3
  24.       Top             =   30
  25.       Width           =   2475
  26.       _ExtentX        =   4366
  27.       _ExtentY        =   953
  28.       ButtonWidth     =   1455
  29.       ButtonHeight    =   953
  30.       Appearance      =   1
  31.       Style           =   1
  32.       ImageList       =   "ImageList2"
  33.       _Version        =   393216
  34.       BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628} 
  35.          NumButtons      =   3
  36.          BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  37.             Caption         =   "保存格式"
  38.             Key             =   "bcgs"
  39.             ImageKey        =   "bcgs"
  40.          EndProperty
  41.          BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  42.             Caption         =   "默认列宽"
  43.             Key             =   "hfmrgs"
  44.             ImageKey        =   "mrlk"
  45.          EndProperty
  46.          BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  47.             Caption         =   "显示项目"
  48.             Key             =   "szxsxm"
  49.             ImageKey        =   "xsxm"
  50.          EndProperty
  51.       EndProperty
  52.    End
  53.    Begin VB.PictureBox Pic_Title 
  54.       BackColor       =   &H00FFFFFF&
  55.       Height          =   825
  56.       Left            =   0
  57.       Picture         =   "b进料检验管理_降等使用报告Cg.frx":2084
  58.       ScaleHeight     =   765
  59.       ScaleWidth      =   11715
  60.       TabIndex        =   1
  61.       Top             =   570
  62.       Width           =   11775
  63.       Begin VB.Label Lab_Title 
  64.          AutoSize        =   -1  'True
  65.          BackColor       =   &H80000018&
  66.          BackStyle       =   0  'Transparent
  67.          Caption         =   "采购降等使用报告单列表"
  68.          BeginProperty Font 
  69.             Name            =   "宋体"
  70.             Size            =   12
  71.             Charset         =   134
  72.             Weight          =   700
  73.             Underline       =   0   'False
  74.             Italic          =   0   'False
  75.             Strikethrough   =   0   'False
  76.          EndProperty
  77.          ForeColor       =   &H00000000&
  78.          Height          =   240
  79.          Index           =   4
  80.          Left            =   480
  81.          TabIndex        =   2
  82.          Top             =   210
  83.          Width           =   2805
  84.       End
  85.    End
  86.    Begin VB.Timer Timer1 
  87.       Enabled         =   0   'False
  88.       Interval        =   1
  89.       Left            =   7620
  90.       Top             =   90
  91.    End
  92.    Begin VSFlex8Ctl.VSFlexGrid CxbbGrid 
  93.       Height          =   7545
  94.       Left            =   0
  95.       TabIndex        =   0
  96.       Top             =   1470
  97.       Width           =   11775
  98.       _ExtentX        =   20770
  99.       _ExtentY        =   13309
  100.       Appearance      =   1
  101.       BorderStyle     =   1
  102.       Enabled         =   -1  'True
  103.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  104.          Name            =   "宋体"
  105.          Size            =   9
  106.          Charset         =   134
  107.          Weight          =   400
  108.          Underline       =   0   'False
  109.          Italic          =   0   'False
  110.          Strikethrough   =   0   'False
  111.       EndProperty
  112.       MousePointer    =   0
  113.       BackColor       =   16777215
  114.       ForeColor       =   -2147483640
  115.       BackColorFixed  =   13826538
  116.       ForeColorFixed  =   -2147483630
  117.       BackColorSel    =   -2147483635
  118.       ForeColorSel    =   -2147483634
  119.       BackColorBkg    =   -2147483636
  120.       BackColorAlternate=   16777215
  121.       GridColor       =   -2147483633
  122.       GridColorFixed  =   -2147483632
  123.       TreeColor       =   -2147483632
  124.       FloodColor      =   192
  125.       SheetBorder     =   -2147483642
  126.       FocusRect       =   1
  127.       HighLight       =   1
  128.       AllowSelection  =   -1  'True
  129.       AllowBigSelection=   -1  'True
  130.       AllowUserResizing=   0
  131.       SelectionMode   =   0
  132.       GridLines       =   1
  133.       GridLinesFixed  =   2
  134.       GridLineWidth   =   1
  135.       Rows            =   50
  136.       Cols            =   10
  137.       FixedRows       =   1
  138.       FixedCols       =   1
  139.       RowHeightMin    =   0
  140.       RowHeightMax    =   0
  141.       ColWidthMin     =   0
  142.       ColWidthMax     =   0
  143.       ExtendLastCol   =   0   'False
  144.       FormatString    =   ""
  145.       ScrollTrack     =   0   'False
  146.       ScrollBars      =   3
  147.       ScrollTips      =   0   'False
  148.       MergeCells      =   0
  149.       MergeCompare    =   0
  150.       AutoResize      =   -1  'True
  151.       AutoSizeMode    =   0
  152.       AutoSearch      =   0
  153.       MultiTotals     =   -1  'True
  154.       SubtotalPosition=   1
  155.       OutlineBar      =   0
  156.       OutlineCol      =   0
  157.       Ellipsis        =   0
  158.       ExplorerBar     =   0
  159.       PicturesOver    =   0   'False
  160.       FillStyle       =   0
  161.       RightToLeft     =   0   'False
  162.       PictureType     =   0
  163.       TabBehavior     =   0
  164.       OwnerDraw       =   0
  165.       Editable        =   0   'False
  166.       ShowComboButton =   -1  'True
  167.       WordWrap        =   0   'False
  168.       TextStyle       =   0
  169.       TextStyleFixed  =   0
  170.       OleDragMode     =   0
  171.       OleDropMode     =   0
  172.       DataMode        =   0
  173.       VirtualData     =   -1  'True
  174.       Begin MSComctlLib.ImageList ImageList2 
  175.          Left            =   0
  176.          Top             =   0
  177.          _ExtentX        =   1005
  178.          _ExtentY        =   1005
  179.          BackColor       =   -2147483643
  180.          ImageWidth      =   16
  181.          ImageHeight     =   16
  182.          MaskColor       =   12632256
  183.          _Version        =   393216
  184.          BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628} 
  185.             NumListImages   =   40
  186.             BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  187.                Picture         =   "b进料检验管理_降等使用报告Cg.frx":1EFC4
  188.                Key             =   "sz"
  189.             EndProperty
  190.             BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  191.                Picture         =   "b进料检验管理_降等使用报告Cg.frx":1F35E
  192.                Key             =   "dy"
  193.             EndProperty
  194.             BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  195.                Picture         =   "b进料检验管理_降等使用报告Cg.frx":1F6F8
  196.                Key             =   "yl"
  197.             EndProperty
  198.             BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  199.                Picture         =   "b进料检验管理_降等使用报告Cg.frx":1FA92
  200.                Key             =   "xg"
  201.             EndProperty
  202.             BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  203.                Picture         =   "b进料检验管理_降等使用报告Cg.frx":1FE2C
  204.                Key             =   "zh"
  205.             EndProperty
  206.             BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  207.                Picture         =   "b进料检验管理_降等使用报告Cg.frx":201C6
  208.                Key             =   "sh"
  209.             EndProperty
  210.             BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  211.                Picture         =   "b进料检验管理_降等使用报告Cg.frx":20560
  212.                Key             =   "bc"
  213.             EndProperty
  214.             BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  215.                Picture         =   "b进料检验管理_降等使用报告Cg.frx":208FA
  216.                Key             =   "fq"
  217.             EndProperty
  218.             BeginProperty ListImage9 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  219.                Picture         =   "b进料检验管理_降等使用报告Cg.frx":20C94
  220.                Key             =   "bz"
  221.             EndProperty
  222.             BeginProperty ListImage10 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  223.                Picture         =   "b进料检验管理_降等使用报告Cg.frx":2102E
  224.                Key             =   "tc"
  225.             EndProperty
  226.             BeginProperty ListImage11 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  227.                Picture         =   "b进料检验管理_降等使用报告Cg.frx":213C8
  228.                Key             =   "bcgs"
  229.             EndProperty
  230.             BeginProperty ListImage12 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  231.                Picture         =   "b进料检验管理_降等使用报告Cg.frx":21762
  232.                Key             =   "mrlk"
  233.             EndProperty
  234.             BeginProperty ListImage13 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  235.                Picture         =   "b进料检验管理_降等使用报告Cg.frx":21AFC
  236.                Key             =   "xsxm"
  237.             EndProperty
  238.             BeginProperty ListImage14 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  239.                Picture         =   "b进料检验管理_降等使用报告Cg.frx":21E96
  240.                Key             =   "first"
  241.             EndProperty
  242.             BeginProperty ListImage15 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  243.                Picture         =   "b进料检验管理_降等使用报告Cg.frx":22230
  244.                Key             =   "prev"
  245.             EndProperty
  246.             BeginProperty ListImage16 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  247.                Picture         =   "b进料检验管理_降等使用报告Cg.frx":225CA
  248.                Key             =   "next"
  249.             EndProperty
  250.             BeginProperty ListImage17 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  251.                Picture         =   "b进料检验管理_降等使用报告Cg.frx":22964
  252.                Key             =   "last"
  253.             EndProperty
  254.             BeginProperty ListImage18 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  255.                Picture         =   "b进料检验管理_降等使用报告Cg.frx":22CFE
  256.                Key             =   "xx"
  257.             EndProperty
  258.             BeginProperty ListImage19 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  259.                Picture         =   "b进料检验管理_降等使用报告Cg.frx":23098
  260.                Key             =   "define"
  261.             EndProperty
  262.             BeginProperty ListImage20 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  263.                Picture         =   "b进料检验管理_降等使用报告Cg.frx":23432
  264.                Key             =   "exec"
  265.             EndProperty
  266.             BeginProperty ListImage21 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  267.                Picture         =   "b进料检验管理_降等使用报告Cg.frx":237CC
  268.                Key             =   "xz"
  269.             EndProperty
  270.             BeginProperty ListImage22 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  271.                Picture         =   "b进料检验管理_降等使用报告Cg.frx":23B66
  272.                Key             =   "sc"
  273.             EndProperty
  274.             BeginProperty ListImage23 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  275.                Picture         =   "b进料检验管理_降等使用报告Cg.frx":23F00
  276.                Key             =   "sx"
  277.             EndProperty
  278.             BeginProperty ListImage24 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  279.                Picture         =   "b进料检验管理_降等使用报告Cg.frx":2429A
  280.                Key             =   "cx"
  281.             EndProperty
  282.             BeginProperty ListImage25 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  283.                Picture         =   "b进料检验管理_降等使用报告Cg.frx":24634
  284.                Key             =   "zd"
  285.             EndProperty
  286.             BeginProperty ListImage26 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  287.                Picture         =   "b进料检验管理_降等使用报告Cg.frx":249CE
  288.                Key             =   "dz"
  289.             EndProperty
  290.             BeginProperty ListImage27 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  291.                Picture         =   "b进料检验管理_降等使用报告Cg.frx":24D68
  292.                Key             =   "ph"
  293.             EndProperty
  294.             BeginProperty ListImage28 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  295.                Picture         =   "b进料检验管理_降等使用报告Cg.frx":25102
  296.                Key             =   "fz"
  297.             EndProperty
  298.             BeginProperty ListImage29 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  299.                Picture         =   "b进料检验管理_降等使用报告Cg.frx":2549C
  300.                Key             =   "dw"
  301.             EndProperty
  302.             BeginProperty ListImage30 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  303.                Picture         =   "b进料检验管理_降等使用报告Cg.frx":25836
  304.                Key             =   "hf"
  305.             EndProperty
  306.             BeginProperty ListImage31 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  307.                Picture         =   "b进料检验管理_降等使用报告Cg.frx":25BD0
  308.                Key             =   "pz"
  309.             EndProperty
  310.             BeginProperty ListImage32 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  311.                Picture         =   "b进料检验管理_降等使用报告Cg.frx":25F6A
  312.                Key             =   "check"
  313.             EndProperty
  314.             BeginProperty ListImage33 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  315.                Picture         =   "b进料检验管理_降等使用报告Cg.frx":26304
  316.                Key             =   "qs"
  317.             EndProperty
  318.             BeginProperty ListImage34 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  319.                Picture         =   "b进料检验管理_降等使用报告Cg.frx":2669E
  320.                Key             =   "fullcheck"
  321.             EndProperty
  322.             BeginProperty ListImage35 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  323.                Picture         =   "b进料检验管理_降等使用报告Cg.frx":26A38
  324.                Key             =   "qq"
  325.             EndProperty
  326.             BeginProperty ListImage36 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  327.                Picture         =   "b进料检验管理_降等使用报告Cg.frx":26DD2
  328.                Key             =   "bcw"
  329.             EndProperty
  330.             BeginProperty ListImage37 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  331.                Picture         =   "b进料检验管理_降等使用报告Cg.frx":2716C
  332.                Key             =   "ye"
  333.             EndProperty
  334.             BeginProperty ListImage38 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  335.                Picture         =   "b进料检验管理_降等使用报告Cg.frx":27506
  336.                Key             =   ""
  337.             EndProperty
  338.             BeginProperty ListImage39 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  339.                Picture         =   "b进料检验管理_降等使用报告Cg.frx":278A0
  340.                Key             =   "frist"
  341.             EndProperty
  342.             BeginProperty ListImage40 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  343.                Picture         =   "b进料检验管理_降等使用报告Cg.frx":27C3A
  344.                Key             =   "dj"
  345.             EndProperty
  346.          EndProperty
  347.       End
  348.    End
  349.    Begin MSComctlLib.Toolbar SzToolbar 
  350.       Align           =   1  'Align Top
  351.       Height          =   570
  352.       Left            =   0
  353.       TabIndex        =   4
  354.       Top             =   0
  355.       Width           =   8880
  356.       _ExtentX        =   15663
  357.       _ExtentY        =   1005
  358.       ButtonWidth     =   820
  359.       ButtonHeight    =   953
  360.       AllowCustomize  =   0   'False
  361.       Appearance      =   1
  362.       Style           =   1
  363.       ImageList       =   "ImageList1"
  364.       _Version        =   393216
  365.       BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628} 
  366.          NumButtons      =   12
  367.          BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  368.             Caption         =   "设置"
  369.             Key             =   "ymsz"
  370.             ImageKey        =   "sz"
  371.          EndProperty
  372.          BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  373.             Caption         =   "打印"
  374.             Key             =   "dy"
  375.             ImageKey        =   "dy"
  376.          EndProperty
  377.          BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  378.             Caption         =   "预览"
  379.             Key             =   "yl"
  380.             ImageKey        =   "yl"
  381.          EndProperty
  382.          BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  383.             Style           =   3
  384.          EndProperty
  385.          BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  386.             Object.Visible         =   0   'False
  387.             Caption         =   "查询"
  388.             Key             =   "cx"
  389.             ImageKey        =   "cx"
  390.          EndProperty
  391.          BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  392.             Object.Visible         =   0   'False
  393.             Caption         =   "单据"
  394.             Key             =   "Bill"
  395.             ImageKey        =   "pz"
  396.          EndProperty
  397.          BeginProperty Button7 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  398.             Object.Visible         =   0   'False
  399.             Style           =   3
  400.          EndProperty
  401.          BeginProperty Button8 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  402.             Caption         =   "新增"
  403.             Key             =   "xz"
  404.             ImageKey        =   "xz"
  405.          EndProperty
  406.          BeginProperty Button9 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  407.             Object.Visible         =   0   'False
  408.             Caption         =   "删除"
  409.             Key             =   "sc"
  410.             ImageKey        =   "sc"
  411.          EndProperty
  412.          BeginProperty Button10 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  413.             Style           =   3
  414.          EndProperty
  415.          BeginProperty Button11 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  416.             Caption         =   "帮助"
  417.             Key             =   "bz"
  418.             ImageKey        =   "bz"
  419.          EndProperty
  420.          BeginProperty Button12 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  421.             Caption         =   "退出"
  422.             Key             =   "fh"
  423.             ImageKey        =   "tc"
  424.          EndProperty
  425.       EndProperty
  426.       BorderStyle     =   1
  427.       Begin MSComctlLib.ImageList ImageList1 
  428.          Left            =   6990
  429.          Top             =   30
  430.          _ExtentX        =   1005
  431.          _ExtentY        =   1005
  432.          BackColor       =   -2147483643
  433.          ImageWidth      =   16
  434.          ImageHeight     =   16
  435.          MaskColor       =   12632256
  436.          _Version        =   393216
  437.          BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628} 
  438.             NumListImages   =   32
  439.             BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  440.                Picture         =   "b进料检验管理_降等使用报告Cg.frx":27FD4
  441.                Key             =   "sz"
  442.             EndProperty
  443.             BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  444.                Picture         =   "b进料检验管理_降等使用报告Cg.frx":2836E
  445.                Key             =   "dy"
  446.             EndProperty
  447.             BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  448.                Picture         =   "b进料检验管理_降等使用报告Cg.frx":28708
  449.                Key             =   "yl"
  450.             EndProperty
  451.             BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  452.                Picture         =   "b进料检验管理_降等使用报告Cg.frx":28AA2
  453.                Key             =   "xg"
  454.             EndProperty
  455.             BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  456.                Picture         =   "b进料检验管理_降等使用报告Cg.frx":28E3C
  457.                Key             =   "zh"
  458.             EndProperty
  459.             BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  460.                Picture         =   "b进料检验管理_降等使用报告Cg.frx":291D6
  461.                Key             =   "sh"
  462.             EndProperty
  463.             BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  464.                Picture         =   "b进料检验管理_降等使用报告Cg.frx":29570
  465.                Key             =   "bc"
  466.             EndProperty
  467.             BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  468.                Picture         =   "b进料检验管理_降等使用报告Cg.frx":2990A
  469.                Key             =   "fq"
  470.             EndProperty
  471.             BeginProperty ListImage9 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  472.                Picture         =   "b进料检验管理_降等使用报告Cg.frx":29CA4
  473.                Key             =   "bz"
  474.             EndProperty
  475.             BeginProperty ListImage10 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  476.                Picture         =   "b进料检验管理_降等使用报告Cg.frx":2A03E
  477.                Key             =   "tc"
  478.             EndProperty
  479.             BeginProperty ListImage11 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  480.                Picture         =   "b进料检验管理_降等使用报告Cg.frx":2A3D8
  481.                Key             =   "bcgs"
  482.             EndProperty
  483.             BeginProperty ListImage12 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  484.                Picture         =   "b进料检验管理_降等使用报告Cg.frx":2A772
  485.                Key             =   "mrlk"
  486.             EndProperty
  487.             BeginProperty ListImage13 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  488.                Picture         =   "b进料检验管理_降等使用报告Cg.frx":2AB0C
  489.                Key             =   "xsxm"
  490.             EndProperty
  491.             BeginProperty ListImage14 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  492.                Picture         =   "b进料检验管理_降等使用报告Cg.frx":2AEA6
  493.                Key             =   "first"
  494.             EndProperty
  495.             BeginProperty ListImage15 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  496.                Picture         =   "b进料检验管理_降等使用报告Cg.frx":2B240
  497.                Key             =   "prev"
  498.             EndProperty
  499.             BeginProperty ListImage16 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  500.                Picture         =   "b进料检验管理_降等使用报告Cg.frx":2B5DA
  501.                Key             =   "next"
  502.             EndProperty
  503.             BeginProperty ListImage17 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  504.                Picture         =   "b进料检验管理_降等使用报告Cg.frx":2B974
  505.                Key             =   "last"
  506.             EndProperty
  507.             BeginProperty ListImage18 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  508.                Picture         =   "b进料检验管理_降等使用报告Cg.frx":2BD0E
  509.                Key             =   "xx"
  510.             EndProperty
  511.             BeginProperty ListImage19 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  512.                Picture         =   "b进料检验管理_降等使用报告Cg.frx":2C0A8
  513.                Key             =   "define"
  514.             EndProperty
  515.             BeginProperty ListImage20 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  516.                Picture         =   "b进料检验管理_降等使用报告Cg.frx":2C442
  517.                Key             =   "exec"
  518.             EndProperty
  519.             BeginProperty ListImage21 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  520.                Picture         =   "b进料检验管理_降等使用报告Cg.frx":2C7DC
  521.                Key             =   "xz"
  522.             EndProperty
  523.             BeginProperty ListImage22 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  524.                Picture         =   "b进料检验管理_降等使用报告Cg.frx":2CB76
  525.                Key             =   "sc"
  526.             EndProperty
  527.             BeginProperty ListImage23 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  528.                Picture         =   "b进料检验管理_降等使用报告Cg.frx":2CF10
  529.                Key             =   "sx"
  530.             EndProperty
  531.             BeginProperty ListImage24 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  532.                Picture         =   "b进料检验管理_降等使用报告Cg.frx":2D2AA
  533.                Key             =   "cx"
  534.             EndProperty
  535.             BeginProperty ListImage25 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  536.                Picture         =   "b进料检验管理_降等使用报告Cg.frx":2D644
  537.                Key             =   "zd"
  538.             EndProperty
  539.             BeginProperty ListImage26 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  540.                Picture         =   "b进料检验管理_降等使用报告Cg.frx":2D9DE
  541.                Key             =   "dz"
  542.             EndProperty
  543.             BeginProperty ListImage27 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  544.                Picture         =   "b进料检验管理_降等使用报告Cg.frx":2DD78
  545.                Key             =   "ph"
  546.             EndProperty
  547.             BeginProperty ListImage28 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  548.                Picture         =   "b进料检验管理_降等使用报告Cg.frx":2E112
  549.                Key             =   "fz"
  550.             EndProperty
  551.             BeginProperty ListImage29 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  552.                Picture         =   "b进料检验管理_降等使用报告Cg.frx":2E4AC
  553.                Key             =   "dw"
  554.             EndProperty
  555.             BeginProperty ListImage30 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  556.                Picture         =   "b进料检验管理_降等使用报告Cg.frx":2E846
  557.                Key             =   "hf"
  558.             EndProperty
  559.             BeginProperty ListImage31 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  560.                Picture         =   "b进料检验管理_降等使用报告Cg.frx":2EBE0
  561.                Key             =   "pz"
  562.             EndProperty
  563.             BeginProperty ListImage32 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  564.                Picture         =   "b进料检验管理_降等使用报告Cg.frx":2EF7A
  565.                Key             =   "check"
  566.             EndProperty
  567.          EndProperty
  568.       End
  569.    End
  570. End
  571. Attribute VB_Name = "FrmJljy_SDemotionListCg"
  572. Attribute VB_GlobalNameSpace = False
  573. Attribute VB_Creatable = False
  574. Attribute VB_PredeclaredId = True
  575. Attribute VB_Exposed = False
  576. '****************************************************************************
  577. '*    模 块 名 称 :降等使用报告单列表(与采购接口)
  578. '*    功 能 描 述 :这里列出的是审核过的需要填写降等使用报告单的进料检验分析单，
  579. '*                 填写过降等使用报告单的进料检验分析单自动清除。
  580. '*    程序员姓名  :张晶石
  581. '*    最后修改人  :
  582. '*    最后修改时间:2001/12/28
  583. '*    备        注:程序成品所有依实际情况自定义部分均用[>>  <<]括起
  584. '****************************************************************************
  585. Dim ReportTitle As String                '报表主标题
  586. Dim Str_QueryCondi As String             '用户录入查询条件
  587. Dim Rec_BillID As New ADODB.Recordset    '用户查询单据ID动态集
  589. '以下为固定使用变量
  590. Dim Dyymctbl As New DY_Dyymsz            '打印页面窗体变量
  591. Dim GridCode As String                   '显示网格网格代码
  592. Dim GridInf() As Variant                 '整个网格设置信息
  593. Dim Tsxx As String                       '系统提示信息
  594. Dim Qslz As Long                         '网格隐藏(非操作显示)列数
  595. Dim Sjhgd As Double                      '网格数据行高度
  596. Dim Sfxshjwg As Boolean                  '是否显示合计网格
  597. Dim GridBoolean() As Boolean             '网格列信息(布尔型)
  598. Dim GridStr()  As String                 '网格列信息(字符型)
  599. Dim GridInt() As Integer                 '网格列信息(整型)
  600. Dim Szzls As Integer                     '数组总列数(网格列数-1)
  602. Private Sub Form_Resize()                '根据窗体大小来调整网格,标题栏大小(Fixed)
  603.     On Error Resume Next
  604.     With CxbbGrid
  605.         .Width = Me.Width - 160
  606.         .Height = Me.Height - .Top - 400
  607.     End With
  608.     With Pic_Title
  609.         .Width = Me.Width - 160
  610.     End With
  611.     
  612.     GsToolbar.Left = Me.Width - GsToolbar.Width - 140
  614. End Sub
  616. Private Sub Form_Load()                                                   '窗体装入
  617.   
  618.     '调入打印页面设置窗体
  619.     ReportTitle = "采购降等使用报告列表"
  620.     XtReportCode = "Qc_SDemotionListCg"
  621.     Load Dyymctbl
  622.       
  623.     '调整标题栏及网格、格式工具条位置(Fixed)
  624.     Pic_Title.Left = 40
  625.     Pic_Title.Top = SzToolbar.Top + SzToolbar.Height - 10
  626.     CxbbGrid.Left = Pic_Title.Left
  627.     CxbbGrid.Top = Pic_Title.Top + Pic_Title.Height + 20
  628.      
  629.     '调 入 网 格(Fixed)
  630.     GridCode = "Qc_SDemotionListCg"
  631.     Call BzWgcsh(CxbbGrid, GridCode, GridInf(), GridBoolean(), GridInt(), GridStr())
  632.       
  633.     Qslz = GridInf(1)
  634.     Sjhgd = GridInf(2)
  635.     Sfxshjwg = GridInf(7)
  636.     Szzls = CxbbGrid.Cols - 1
  637.     
  638.     Call Sub_Query(1)
  639. End Sub
  641. Private Sub Form_Unload(Cancel As Integer)                                  '窗体卸载
  643.     '卸载打印页面设置窗体
  644.     Unload Dyymctbl
  646. End Sub
  648. Private Sub CxbbGrid_BeforeMoveColumn(ByVal Col As Long, Position As Long)           '网格列发生移动时自动交换网格索引信息
  649.     Call FnBln_RefreshArray(Col, Position, GridStr(), GridInf())
  650. End Sub
  652. Private Sub GsToolbar_ButtonClick(ByVal Button As MSComctlLib.Button)                '网格格式调整(Fixed)
  653.   
  654.     Select Case Button.Key
  655.         Case "bcgs"                                          '保存表格格式
  656.             Call Bcwggs(CxbbGrid, GridCode, GridStr())
  657.         Case "hfmrgs"                                        '恢复默认格式
  658.             Call Hfmrgs(CxbbGrid, GridCode, GridStr())
  659.         Case "szxsxm"                                        '设置显示项目
  660.             Call Szxsxm(CxbbGrid, GridCode)
  661.     End Select
  663. End Sub
  665. Private Sub SzToolbar_ButtonClick(ByVal Button As MSComctlLib.Button)
  666.     
  667.     Select Case Button.Key
  668.         Case "ymsz"                                          '页面设置
  669.             Dyymctbl.Show 1
  670.         Case "yl"                                            '预 览
  671.             Call bbyl(True)
  672.         Case "dy"                                            '打 印
  673.             Call bbyl(False)
  674.         Case "xz"                                            '新 增
  675.             '判断用户是否有此功能执行权限,如有则写上机日志(进入)
  676.             If Not Security_Log("QC_StockCheck_Edit", Xtczybm, 1, True) Then
  677.                 Exit Sub
  678.             End If
  679.             Call CxbbGrid_DblClick
  680.         Case "bz"                                            '帮 助
  681.             Call F1bz
  682.         Case "fh"                                            '退 出
  683.            Unload Me
  684.     End Select
  686. End Sub
  688. Private Sub Timer1_Timer()                                 '在窗体激活后调入查询程序
  689.     
  690.     Timer1.Enabled = False
  691.     Xt_Wait.Show
  692.     Xt_Wait.Refresh
  693.    
  694.     '加快显示速度
  695.     CxbbGrid.Redraw = False
  696.  
  697.     '生成查询结果
  698.     Call Sub_Query(0)
  699.    
  700.     CxbbGrid.Redraw = True
  701.     
  702.     Xt_Wait.Hide
  704. End Sub
  706. Private Sub Sub_Query(Int_QueryType As Integer)                                     '生成查询结果(Define)
  707.     
  708.     '过程参数:Int_QueryType 0-"点确定按钮"查询  1-"刷新"查询
  710.     Dim Rec_Query As New ADODB.Recordset        '查询结果动态集
  711.     Dim Coljsq As Long                          '网格列计数器
  712.     Dim Jsqte As Long                           '临时动态计数器
  714.     '以下为自定义部分[
  715.  
  716.         '1-"刷新"查询
  717.             Str_QueryCondi = " where 1=1 "
  718.      
  719.     Sqlstr = "SELECT purreciptnum,StockCheckMainChecker,StockCheckMainID,MNumber,MName,Model,PurUnitName,PurReciptDate,suppliername,areaname," & _
  720.             "Quantity,StoCheckDate,GradeName,CheckMaker,StockCheckNum,MakeDate,Checker FROM QC_V_StockDemotion where StockCheckMainChecker<>'' and StoDemotionID is NULL and PurReciptNum is not null"
  722.     Set Rec_Query = Cw_DataEnvi.DataConnect.Execute(Sqlstr)
  723.     With Rec_Query
  724.         CxbbGrid.Rows = CxbbGrid.FixedRows
  725.         Jsqte = CxbbGrid.FixedRows
  726.         Do While Not .EOF
  727.             CxbbGrid.AddItem ""
  728.             '[>>自定义填充内容
  729.             CxbbGrid.TextMatrix(Jsqte, 0) = .Fields("StockCheckMainID")                                                           '进料检验分析单ID(主要用来查询定位用)
  730.             CxbbGrid.TextMatrix(Jsqte, Sydz("001", GridStr(), Szzls)) = Trim(.Fields("purreciptnum") & "")                        '收料通知单号
  731.             CxbbGrid.TextMatrix(Jsqte, Sydz("002", GridStr(), Szzls)) = Trim(.Fields("MNumber") & "")                             '物料编码
  732.             CxbbGrid.TextMatrix(Jsqte, Sydz("003", GridStr(), Szzls)) = Trim(.Fields("MName") & "")                               '物料名称
  733.             CxbbGrid.TextMatrix(Jsqte, Sydz("004", GridStr(), Szzls)) = Trim(.Fields("Model") & "")                               '规格型号
  734.             CxbbGrid.TextMatrix(Jsqte, Sydz("005", GridStr(), Szzls)) = Trim(.Fields("PurUnitName") & "")                         '采购计量单位
  735.             CxbbGrid.TextMatrix(Jsqte, Sydz("006", GridStr(), Szzls)) = Trim(.Fields("suppliername") & "")                        '供应商名称
  736.             CxbbGrid.TextMatrix(Jsqte, Sydz("007", GridStr(), Szzls)) = Trim(.Fields("quantity") & "")                            '数量
  737.             CxbbGrid.TextMatrix(Jsqte, Sydz("008", GridStr(), Szzls)) = Format(Trim(.Fields("PurReciptDate") & ""), "yyyy-mm-dd") '进料日期
  738.             CxbbGrid.TextMatrix(Jsqte, Sydz("009", GridStr(), Szzls)) = Trim(.Fields("areaname") & "")                            '物料产地
  739.             CxbbGrid.TextMatrix(Jsqte, Sydz("010", GridStr(), Szzls)) = Format(Trim(.Fields("StoCheckDate") & ""), "yyyy=mm-dd")  '检验日期
  740.             CxbbGrid.TextMatrix(Jsqte, Sydz("011", GridStr(), Szzls)) = Trim(.Fields("GradeName") & "")                           '质量等级
  741.             CxbbGrid.TextMatrix(Jsqte, Sydz("012", GridStr(), Szzls)) = Trim(.Fields("CheckMaker") & "")                          '进料检验分析单的制单人
  742.             CxbbGrid.TextMatrix(Jsqte, Sydz("013", GridStr(), Szzls)) = Format(Trim(.Fields("MakeDate") & ""), "yyyy-mm-dd")      '进料检验分析单的制单日期
  743.             CxbbGrid.TextMatrix(Jsqte, Sydz("014", GridStr(), Szzls)) = Trim(.Fields("StockCheckMainChecker") & "")                             '审核人
  744.             CxbbGrid.TextMatrix(Jsqte, Sydz("015", GridStr(), Szzls)) = Trim(.Fields("StockCheckNum") & "")                         '单据号
  745.             '<<]
  746.             '设置数据行高度(Fixed)
  747.             CxbbGrid.RowHeight(Jsqte) = Sjhgd
  748.      
  749.             '动态集指针加1,同时将计数器加1(Fixed)
  750.             .MoveNext
  751.             Jsqte = Jsqte + 1
  752.         Loop
  753.     End With
  755.     ']以上为用户自定义部分
  757. End Sub
  759. Private Sub CxbbGrid_DblClick()                                              '用户双击网格调入相应单据
  760.     
  761.     Dim RecTemp As New ADODB.Recordset               '临时使用动态集
  763.     '非数据行退出
  764.     If CxbbGrid.Row < CxbbGrid.FixedRows Or Val(CxbbGrid.TextMatrix(CxbbGrid.Row, 0)) = 0 Then
  765.         Exit Sub
  766.     End If
  768.     Sqlstr = "SELECT StockCheckMainID From Qc_StockCheckMain Where StockCheckMainID=" & Val(CxbbGrid.TextMatrix(CxbbGrid.Row, 0))
  769.     Set RecTemp = Cw_DataEnvi.DataConnect.Execute(Sqlstr)
  770.     With RecTemp
  771.         If .EOF Then
  772.             Tsxx = "此降等使用报告单已被其他用户删除!"
  773.             Call Xtxxts(Tsxx, 0, 4)
  774.             Exit Sub
  775.         Else
  776.             '填充查询单据标识
  777.             XT_BillID = CxbbGrid.TextMatrix(CxbbGrid.Row, 0)
  778.             Xtcdcsfz = Str_QueryCondi
  779.                 
  780.             '设置单据处理为列表查询(修改)状态
  781.             Xtcdcs = "1"
  782.             '调入单据处理窗体
  783.             FrmJljy_StoDemotionCg.HelpContextID = 150300301
  784.             FrmJljy_StoDemotionCg.Show 1
  785.             
  786. '                    '加快显示速度
  787.                     CxbbGrid.Redraw = False
  788.  
  789.                     '生成查询结果
  790.                     Call Sub_Query(1)
  791.    
  792.                     CxbbGrid.Redraw = True
  793.                     Xt_Wait.Hide
  794.         End If
  795.     End With
  797. End Sub
  799. Private Sub bbyl(bbylte As Boolean)                    '报表打印预览
  800.     
  801.     Dim Bbzbt$, Bbxbt() As String, bbxbtzzxs() As Integer, Bbxbtgs As Integer
  802.     Dim Bbbwh() As String, Bbbwhzzxs() As Integer, Bbbwhgs As Integer
  803.     Bbxbtgs = 1                                          '报 表 小 标 题 行 数
  804.     Bbbwhgs = 0                                          '报 表 表 尾 行 数
  805.     ReDim Bbxbt(1 To Bbxbtgs)
  806.     ReDim bbxbtzzxs(1 To Bbxbtgs)
  807.     If Bbbwhgs <> 0 Then
  808.         ReDim Bbbwh(1 To Bbbwhgs)
  809.         ReDim Bbbwhzzxs(1 To Bbbwhgs)
  810.     End If
  811.     Bbzbt = ReportTitle
  812.     Bbxbt(1) = ""
  813.     bbxbtzzxs(1) = 0                                     '报表行组织形式(0-居左 1-居成品 2-居右)
  814.     Call Scyxsjb(CxbbGrid)                               '生成报表数据
  815.     Call Scdybb(Dyymctbl, Bbzbt, Bbxbt(), bbxbtzzxs(), Bbxbtgs, Bbbwh(), Bbbwhzzxs(), Bbbwhgs, bbylte)
  816.     If Not bbylte Then
  817.         Unload DY_Tybbyldy
  818.     End If
  820. End Sub