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

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

企业管理

开发平台：

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 Kf_IssueList 
  5.    Caption         =   "领料申请单列表"
  6.    ClientHeight    =   8595
  7.    ClientLeft      =   60
  8.    ClientTop       =   345
  9.    ClientWidth     =   11760
  10.    Icon            =   "库房管理_领料单列表.frx":0000
  11.    LinkTopic       =   "Form1"
  12.    MDIChild        =   -1  'True
  13.    ScaleHeight     =   8595
  14.    ScaleWidth      =   11760
  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             =   630
  30.       Width           =   11775
  31.       Begin VB.Label Lab_Title 
  32.          BackColor       =   &H80000018&
  33.          BackStyle       =   0  'Transparent
  34.          Caption         =   "领料申请单列表"
  35.          BeginProperty Font 
  36.             Name            =   "宋体"
  37.             Size            =   12
  38.             Charset         =   134
  39.             Weight          =   700
  40.             Underline       =   0   'False
  41.             Italic          =   0   'False
  42.             Strikethrough   =   0   'False
  43.          EndProperty
  44.          ForeColor       =   &H00000000&
  45.          Height          =   300
  46.          Index           =   10
  47.          Left            =   480
  48.          TabIndex        =   1
  49.          Top             =   240
  50.          Width           =   2595
  51.       End
  52.    End
  53.    Begin VSFlex8Ctl.VSFlexGrid CxbbGrid 
  54.       Height          =   7545
  55.       Left            =   0
  56.       TabIndex        =   2
  57.       Top             =   1440
  58.       Width           =   11775
  59.       _ExtentX        =   20770
  60.       _ExtentY        =   13309
  61.       Appearance      =   1
  62.       BorderStyle     =   1
  63.       Enabled         =   -1  'True
  64.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  65.          Name            =   "宋体"
  66.          Size            =   9
  67.          Charset         =   134
  68.          Weight          =   400
  69.          Underline       =   0   'False
  70.          Italic          =   0   'False
  71.          Strikethrough   =   0   'False
  72.       EndProperty
  73.       MousePointer    =   0
  74.       BackColor       =   16777215
  75.       ForeColor       =   -2147483640
  76.       BackColorFixed  =   13826538
  77.       ForeColorFixed  =   -2147483630
  78.       BackColorSel    =   -2147483635
  79.       ForeColorSel    =   -2147483634
  80.       BackColorBkg    =   -2147483636
  81.       BackColorAlternate=   16777215
  82.       GridColor       =   -2147483633
  83.       GridColorFixed  =   -2147483632
  84.       TreeColor       =   -2147483632
  85.       FloodColor      =   192
  86.       SheetBorder     =   -2147483642
  87.       FocusRect       =   1
  88.       HighLight       =   1
  89.       AllowSelection  =   -1  'True
  90.       AllowBigSelection=   -1  'True
  91.       AllowUserResizing=   0
  92.       SelectionMode   =   0
  93.       GridLines       =   1
  94.       GridLinesFixed  =   2
  95.       GridLineWidth   =   1
  96.       Rows            =   50
  97.       Cols            =   10
  98.       FixedRows       =   1
  99.       FixedCols       =   1
  100.       RowHeightMin    =   0
  101.       RowHeightMax    =   0
  102.       ColWidthMin     =   0
  103.       ColWidthMax     =   0
  104.       ExtendLastCol   =   0   'False
  105.       FormatString    =   ""
  106.       ScrollTrack     =   0   'False
  107.       ScrollBars      =   3
  108.       ScrollTips      =   0   'False
  109.       MergeCells      =   0
  110.       MergeCompare    =   0
  111.       AutoResize      =   -1  'True
  112.       AutoSizeMode    =   0
  113.       AutoSearch      =   0
  114.       MultiTotals     =   -1  'True
  115.       SubtotalPosition=   1
  116.       OutlineBar      =   0
  117.       OutlineCol      =   0
  118.       Ellipsis        =   0
  119.       ExplorerBar     =   0
  120.       PicturesOver    =   0   'False
  121.       FillStyle       =   0
  122.       RightToLeft     =   0   'False
  123.       PictureType     =   0
  124.       TabBehavior     =   0
  125.       OwnerDraw       =   0
  126.       Editable        =   0   'False
  127.       ShowComboButton =   -1  'True
  128.       WordWrap        =   0   'False
  129.       TextStyle       =   0
  130.       TextStyleFixed  =   0
  131.       OleDragMode     =   0
  132.       OleDropMode     =   0
  133.       DataMode        =   0
  134.       VirtualData     =   -1  'True
  135.       Begin MSComctlLib.ImageList ImageList2 
  136.          Left            =   0
  137.          Top             =   0
  138.          _ExtentX        =   1005
  139.          _ExtentY        =   1005
  140.          BackColor       =   -2147483643
  141.          ImageWidth      =   16
  142.          ImageHeight     =   16
  143.          MaskColor       =   12632256
  144.          _Version        =   393216
  145.          BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628} 
  146.             NumListImages   =   40
  147.             BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  148.                Picture         =   "库房管理_领料单列表.frx":1DF82
  149.                Key             =   "sz"
  150.             EndProperty
  151.             BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  152.                Picture         =   "库房管理_领料单列表.frx":1E31C
  153.                Key             =   "dy"
  154.             EndProperty
  155.             BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  156.                Picture         =   "库房管理_领料单列表.frx":1E6B6
  157.                Key             =   "yl"
  158.             EndProperty
  159.             BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  160.                Picture         =   "库房管理_领料单列表.frx":1EA50
  161.                Key             =   "xg"
  162.             EndProperty
  163.             BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  164.                Picture         =   "库房管理_领料单列表.frx":1EDEA
  165.                Key             =   "zh"
  166.             EndProperty
  167.             BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  168.                Picture         =   "库房管理_领料单列表.frx":1F184
  169.                Key             =   "sh"
  170.             EndProperty
  171.             BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  172.                Picture         =   "库房管理_领料单列表.frx":1F51E
  173.                Key             =   "bc"
  174.             EndProperty
  175.             BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  176.                Picture         =   "库房管理_领料单列表.frx":1F8B8
  177.                Key             =   "fq"
  178.             EndProperty
  179.             BeginProperty ListImage9 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  180.                Picture         =   "库房管理_领料单列表.frx":1FC52
  181.                Key             =   "bz"
  182.             EndProperty
  183.             BeginProperty ListImage10 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  184.                Picture         =   "库房管理_领料单列表.frx":1FFEC
  185.                Key             =   "tc"
  186.             EndProperty
  187.             BeginProperty ListImage11 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  188.                Picture         =   "库房管理_领料单列表.frx":20386
  189.                Key             =   "bcgs"
  190.             EndProperty
  191.             BeginProperty ListImage12 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  192.                Picture         =   "库房管理_领料单列表.frx":20720
  193.                Key             =   "mrlk"
  194.             EndProperty
  195.             BeginProperty ListImage13 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  196.                Picture         =   "库房管理_领料单列表.frx":20ABA
  197.                Key             =   "xsxm"
  198.             EndProperty
  199.             BeginProperty ListImage14 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  200.                Picture         =   "库房管理_领料单列表.frx":20E54
  201.                Key             =   "first"
  202.             EndProperty
  203.             BeginProperty ListImage15 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  204.                Picture         =   "库房管理_领料单列表.frx":211EE
  205.                Key             =   "prev"
  206.             EndProperty
  207.             BeginProperty ListImage16 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  208.                Picture         =   "库房管理_领料单列表.frx":21588
  209.                Key             =   "next"
  210.             EndProperty
  211.             BeginProperty ListImage17 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  212.                Picture         =   "库房管理_领料单列表.frx":21922
  213.                Key             =   "last"
  214.             EndProperty
  215.             BeginProperty ListImage18 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  216.                Picture         =   "库房管理_领料单列表.frx":21CBC
  217.                Key             =   "xx"
  218.             EndProperty
  219.             BeginProperty ListImage19 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  220.                Picture         =   "库房管理_领料单列表.frx":22056
  221.                Key             =   "define"
  222.             EndProperty
  223.             BeginProperty ListImage20 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  224.                Picture         =   "库房管理_领料单列表.frx":223F0
  225.                Key             =   "exec"
  226.             EndProperty
  227.             BeginProperty ListImage21 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  228.                Picture         =   "库房管理_领料单列表.frx":2278A
  229.                Key             =   "xz"
  230.             EndProperty
  231.             BeginProperty ListImage22 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  232.                Picture         =   "库房管理_领料单列表.frx":22B24
  233.                Key             =   "sc"
  234.             EndProperty
  235.             BeginProperty ListImage23 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  236.                Picture         =   "库房管理_领料单列表.frx":22EBE
  237.                Key             =   "sx"
  238.             EndProperty
  239.             BeginProperty ListImage24 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  240.                Picture         =   "库房管理_领料单列表.frx":23258
  241.                Key             =   "cx"
  242.             EndProperty
  243.             BeginProperty ListImage25 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  244.                Picture         =   "库房管理_领料单列表.frx":235F2
  245.                Key             =   "zd"
  246.             EndProperty
  247.             BeginProperty ListImage26 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  248.                Picture         =   "库房管理_领料单列表.frx":2398C
  249.                Key             =   "dz"
  250.             EndProperty
  251.             BeginProperty ListImage27 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  252.                Picture         =   "库房管理_领料单列表.frx":23D26
  253.                Key             =   "ph"
  254.             EndProperty
  255.             BeginProperty ListImage28 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  256.                Picture         =   "库房管理_领料单列表.frx":240C0
  257.                Key             =   "fz"
  258.             EndProperty
  259.             BeginProperty ListImage29 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  260.                Picture         =   "库房管理_领料单列表.frx":2445A
  261.                Key             =   "dw"
  262.             EndProperty
  263.             BeginProperty ListImage30 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  264.                Picture         =   "库房管理_领料单列表.frx":247F4
  265.                Key             =   "hf"
  266.             EndProperty
  267.             BeginProperty ListImage31 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  268.                Picture         =   "库房管理_领料单列表.frx":24B8E
  269.                Key             =   "pz"
  270.             EndProperty
  271.             BeginProperty ListImage32 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  272.                Picture         =   "库房管理_领料单列表.frx":24F28
  273.                Key             =   "check"
  274.             EndProperty
  275.             BeginProperty ListImage33 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  276.                Picture         =   "库房管理_领料单列表.frx":252C2
  277.                Key             =   "qs"
  278.             EndProperty
  279.             BeginProperty ListImage34 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  280.                Picture         =   "库房管理_领料单列表.frx":2565C
  281.                Key             =   "fullcheck"
  282.             EndProperty
  283.             BeginProperty ListImage35 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  284.                Picture         =   "库房管理_领料单列表.frx":259F6
  285.                Key             =   "qq"
  286.             EndProperty
  287.             BeginProperty ListImage36 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  288.                Picture         =   "库房管理_领料单列表.frx":25D90
  289.                Key             =   "bcw"
  290.             EndProperty
  291.             BeginProperty ListImage37 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  292.                Picture         =   "库房管理_领料单列表.frx":2612A
  293.                Key             =   "ye"
  294.             EndProperty
  295.             BeginProperty ListImage38 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  296.                Picture         =   "库房管理_领料单列表.frx":264C4
  297.                Key             =   ""
  298.             EndProperty
  299.             BeginProperty ListImage39 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  300.                Picture         =   "库房管理_领料单列表.frx":2685E
  301.                Key             =   "frist"
  302.             EndProperty
  303.             BeginProperty ListImage40 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  304.                Picture         =   "库房管理_领料单列表.frx":26BF8
  305.                Key             =   "dj"
  306.             EndProperty
  307.          EndProperty
  308.       End
  309.    End
  310.    Begin MSComctlLib.Toolbar SzToolbar 
  311.       Align           =   1  'Align Top
  312.       Height          =   555
  313.       Left            =   0
  314.       TabIndex        =   3
  315.       Top             =   0
  316.       Width           =   11760
  317.       _ExtentX        =   20743
  318.       _ExtentY        =   979
  319.       ButtonWidth     =   820
  320.       ButtonHeight    =   926
  321.       AllowCustomize  =   0   'False
  322.       Appearance      =   1
  323.       Style           =   1
  324.       ImageList       =   "ImageList1"
  325.       _Version        =   393216
  326.       BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628} 
  327.          NumButtons      =   14
  328.          BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  329.             Caption         =   "设置"
  330.             Key             =   "ymsz"
  331.             ImageKey        =   "sz"
  332.          EndProperty
  333.          BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  334.             Caption         =   "打印"
  335.             Key             =   "dy"
  336.             ImageKey        =   "dy"
  337.          EndProperty
  338.          BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  339.             Caption         =   "预览"
  340.             Key             =   "yl"
  341.             ImageKey        =   "yl"
  342.          EndProperty
  343.          BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  344.             Style           =   3
  345.          EndProperty
  346.          BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  347.             Caption         =   "查询"
  348.             Key             =   "cx"
  349.             ImageKey        =   "cx"
  350.          EndProperty
  351.          BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  352.             Style           =   3
  353.          EndProperty
  354.          BeginProperty Button7 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  355.             Enabled         =   0   'False
  356.             Object.Visible         =   0   'False
  357.             Caption         =   "新增"
  358.             Key             =   "xz"
  359.             ImageKey        =   "xz"
  360.          EndProperty
  361.          BeginProperty Button8 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  362.             Caption         =   "单据"
  363.             Key             =   "Bill"
  364.             ImageKey        =   "pz"
  365.          EndProperty
  366.          BeginProperty Button9 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  367.             Enabled         =   0   'False
  368.             Object.Visible         =   0   'False
  369.             Caption         =   "删除"
  370.             Key             =   "sc"
  371.             ImageKey        =   "sc"
  372.          EndProperty
  373.          BeginProperty Button10 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  374.             Style           =   3
  375.          EndProperty
  376.          BeginProperty Button11 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  377.             Enabled         =   0   'False
  378.             Object.Visible         =   0   'False
  379.             Caption         =   "审核"
  380.             Key             =   "shhe"
  381.             ImageKey        =   "check"
  382.          EndProperty
  383.          BeginProperty Button12 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  384.             Enabled         =   0   'False
  385.             Object.Visible         =   0   'False
  386.             Style           =   3
  387.          EndProperty
  388.          BeginProperty Button13 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  389.             Caption         =   "帮助"
  390.             Key             =   "bz"
  391.             ImageKey        =   "bz"
  392.          EndProperty
  393.          BeginProperty Button14 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  394.             Caption         =   "退出"
  395.             Key             =   "fh"
  396.             ImageKey        =   "tc"
  397.          EndProperty
  398.       EndProperty
  399.       BorderStyle     =   1
  400.       Begin MSComctlLib.Toolbar GsToolbar 
  401.          Height          =   525
  402.          Left            =   9240
  403.          TabIndex        =   4
  404.          Top             =   0
  405.          Width           =   2475
  406.          _ExtentX        =   4366
  407.          _ExtentY        =   926
  408.          ButtonWidth     =   1455
  409.          ButtonHeight    =   926
  410.          AllowCustomize  =   0   'False
  411.          Appearance      =   1
  412.          Style           =   1
  413.          ImageList       =   "ImageList1"
  414.          _Version        =   393216
  415.          BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628} 
  416.             NumButtons      =   3
  417.             BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  418.                Caption         =   "保存格式"
  419.                Key             =   "bcgs"
  420.                ImageKey        =   "bcgs"
  421.             EndProperty
  422.             BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  423.                Caption         =   "默认列宽"
  424.                Key             =   "hfmrgs"
  425.                ImageKey        =   "mrlk"
  426.             EndProperty
  427.             BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  428.                Caption         =   "显示项目"
  429.                Key             =   "szxsxm"
  430.                ImageKey        =   "xsxm"
  431.             EndProperty
  432.          EndProperty
  433.       End
  434.       Begin MSComctlLib.ImageList ImageList1 
  435.          Left            =   6990
  436.          Top             =   30
  437.          _ExtentX        =   1005
  438.          _ExtentY        =   1005
  439.          BackColor       =   -2147483643
  440.          ImageWidth      =   16
  441.          ImageHeight     =   16
  442.          MaskColor       =   12632256
  443.          _Version        =   393216
  444.          BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628} 
  445.             NumListImages   =   32
  446.             BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  447.                Picture         =   "库房管理_领料单列表.frx":26F92
  448.                Key             =   "sz"
  449.             EndProperty
  450.             BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  451.                Picture         =   "库房管理_领料单列表.frx":2732C
  452.                Key             =   "dy"
  453.             EndProperty
  454.             BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  455.                Picture         =   "库房管理_领料单列表.frx":276C6
  456.                Key             =   "yl"
  457.             EndProperty
  458.             BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  459.                Picture         =   "库房管理_领料单列表.frx":27A60
  460.                Key             =   "xg"
  461.             EndProperty
  462.             BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  463.                Picture         =   "库房管理_领料单列表.frx":27DFA
  464.                Key             =   "zh"
  465.             EndProperty
  466.             BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  467.                Picture         =   "库房管理_领料单列表.frx":28194
  468.                Key             =   "sh"
  469.             EndProperty
  470.             BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  471.                Picture         =   "库房管理_领料单列表.frx":2852E
  472.                Key             =   "bc"
  473.             EndProperty
  474.             BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  475.                Picture         =   "库房管理_领料单列表.frx":288C8
  476.                Key             =   "fq"
  477.             EndProperty
  478.             BeginProperty ListImage9 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  479.                Picture         =   "库房管理_领料单列表.frx":28C62
  480.                Key             =   "bz"
  481.             EndProperty
  482.             BeginProperty ListImage10 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  483.                Picture         =   "库房管理_领料单列表.frx":28FFC
  484.                Key             =   "tc"
  485.             EndProperty
  486.             BeginProperty ListImage11 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  487.                Picture         =   "库房管理_领料单列表.frx":29396
  488.                Key             =   "bcgs"
  489.             EndProperty
  490.             BeginProperty ListImage12 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  491.                Picture         =   "库房管理_领料单列表.frx":29730
  492.                Key             =   "mrlk"
  493.             EndProperty
  494.             BeginProperty ListImage13 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  495.                Picture         =   "库房管理_领料单列表.frx":29ACA
  496.                Key             =   "xsxm"
  497.             EndProperty
  498.             BeginProperty ListImage14 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  499.                Picture         =   "库房管理_领料单列表.frx":29E64
  500.                Key             =   "first"
  501.             EndProperty
  502.             BeginProperty ListImage15 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  503.                Picture         =   "库房管理_领料单列表.frx":2A1FE
  504.                Key             =   "prev"
  505.             EndProperty
  506.             BeginProperty ListImage16 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  507.                Picture         =   "库房管理_领料单列表.frx":2A598
  508.                Key             =   "next"
  509.             EndProperty
  510.             BeginProperty ListImage17 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  511.                Picture         =   "库房管理_领料单列表.frx":2A932
  512.                Key             =   "last"
  513.             EndProperty
  514.             BeginProperty ListImage18 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  515.                Picture         =   "库房管理_领料单列表.frx":2ACCC
  516.                Key             =   "xx"
  517.             EndProperty
  518.             BeginProperty ListImage19 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  519.                Picture         =   "库房管理_领料单列表.frx":2B066
  520.                Key             =   "define"
  521.             EndProperty
  522.             BeginProperty ListImage20 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  523.                Picture         =   "库房管理_领料单列表.frx":2B400
  524.                Key             =   "exec"
  525.             EndProperty
  526.             BeginProperty ListImage21 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  527.                Picture         =   "库房管理_领料单列表.frx":2B79A
  528.                Key             =   "xz"
  529.             EndProperty
  530.             BeginProperty ListImage22 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  531.                Picture         =   "库房管理_领料单列表.frx":2BB34
  532.                Key             =   "sc"
  533.             EndProperty
  534.             BeginProperty ListImage23 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  535.                Picture         =   "库房管理_领料单列表.frx":2BECE
  536.                Key             =   "sx"
  537.             EndProperty
  538.             BeginProperty ListImage24 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  539.                Picture         =   "库房管理_领料单列表.frx":2C268
  540.                Key             =   "cx"
  541.             EndProperty
  542.             BeginProperty ListImage25 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  543.                Picture         =   "库房管理_领料单列表.frx":2C602
  544.                Key             =   "zd"
  545.             EndProperty
  546.             BeginProperty ListImage26 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  547.                Picture         =   "库房管理_领料单列表.frx":2C99C
  548.                Key             =   "dz"
  549.             EndProperty
  550.             BeginProperty ListImage27 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  551.                Picture         =   "库房管理_领料单列表.frx":2CD36
  552.                Key             =   "ph"
  553.             EndProperty
  554.             BeginProperty ListImage28 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  555.                Picture         =   "库房管理_领料单列表.frx":2D0D0
  556.                Key             =   "fz"
  557.             EndProperty
  558.             BeginProperty ListImage29 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  559.                Picture         =   "库房管理_领料单列表.frx":2D46A
  560.                Key             =   "dw"
  561.             EndProperty
  562.             BeginProperty ListImage30 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  563.                Picture         =   "库房管理_领料单列表.frx":2D804
  564.                Key             =   "hf"
  565.             EndProperty
  566.             BeginProperty ListImage31 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  567.                Picture         =   "库房管理_领料单列表.frx":2DB9E
  568.                Key             =   "pz"
  569.             EndProperty
  570.             BeginProperty ListImage32 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  571.                Picture         =   "库房管理_领料单列表.frx":2DF38
  572.                Key             =   "check"
  573.             EndProperty
  574.          EndProperty
  575.       End
  576.    End
  577. End
  578. Attribute VB_Name = "Kf_IssueList"
  579. Attribute VB_GlobalNameSpace = False
  580. Attribute VB_Creatable = False
  581. Attribute VB_PredeclaredId = True
  582. Attribute VB_Exposed = False
  583. '**************************************************************************
  584. '*    模 块 名 称 :库房管理--领料申请单列表
  585. '*    功 能 描 述 :领料申请单列表
  586. '*    程序员姓名  :乔进
  587. '*    最后修改人  :乔进
  588. '*    最后修改时间:2001/12/24
  589. '*    备        注:程序中所有依实际情况自定义部分均用[>>  <<]括起
  590. '**************************************************************************
  591. Dim ReportTitle As String                '报表主标题
  592. Dim Str_QueryCondi As String             '用户录入查询条件
  593. Dim Rec_BillID As New ADODB.Recordset    '用户查询单据ID动态集
  595. '以下为固定使用变量
  596. Dim Dyymctbl As New DY_Dyymsz            '打印页面窗体变量
  597. Dim GridCode As String                   '显示网格网格代码
  598. Dim GridInf() As Variant                 '整个网格设置信息
  599. Dim Tsxx As String                       '系统提示信息
  600. Dim Qslz As Long                         '网格隐藏(非操作显示)列数
  601. Dim Sjhgd As Double                      '网格数据行高度
  602. Dim Sfxshjwg As Boolean                  '是否显示合计网格
  603. Dim GridBoolean() As Boolean             '网格列信息(布尔型)
  604. Dim GridStr()  As String                 '网格列信息(字符型)
  605. Dim GridInt() As Integer                 '网格列信息(整型)
  606. Dim Szzls As Integer                     '数组总列数(网格列数-1)
  608. Private Sub Form_Resize()                '根据窗体大小来调整网格,标题栏大小(Fixed)
  609.     On Error Resume Next
  610.     With CxbbGrid
  611.         .Width = Me.Width - 160
  612.         .Height = Me.Height - .Top - 400
  613.     End With
  614.     With Pic_Title
  615.         .Width = Me.Width - 160
  616.     End With
  617.     
  618.     GsToolbar.Left = Me.Width - GsToolbar.Width - 140
  620. End Sub
  622. Private Sub Form_Load()                                                   '窗体装入
  623.   
  624.     '调入打印页面设置窗体
  625.     ReportTitle = "领料申请单列表"
  626.     XtReportCode = "MRP_KfIssueApplyList"
  627.     Load Dyymctbl
  628.       
  629.     '调整标题栏及网格、格式工具条位置(Fixed)
  630.     Pic_Title.Left = 40
  631.     Pic_Title.Top = SzToolbar.Top + SzToolbar.Height - 10
  632.     CxbbGrid.Left = Pic_Title.Left
  633.     CxbbGrid.Top = Pic_Title.Top + Pic_Title.Height + 20
  634.      
  635.     '调 入 网 格(Fixed)
  636.     GridCode = "MRP_KfIssueApplyList"
  637.     Call BzWgcsh(CxbbGrid, GridCode, GridInf(), GridBoolean(), GridInt(), GridStr())
  638.       
  639.     Qslz = GridInf(1)
  640.     Sjhgd = GridInf(2)
  641.     Sfxshjwg = GridInf(7)
  642.     Szzls = CxbbGrid.Cols - 1
  645.     
  646. End Sub
  648. Private Sub Form_Unload(Cancel As Integer)                                  '窗体卸载
  650.     '卸载条件窗体
  651.     Kf_IssueQuery.UnloadCheck.Value = 1
  652.     Unload Kf_IssueQuery
  653.     
  654.     '卸载打印页面设置窗体
  655.     Unload Dyymctbl
  656.     Security_Log "MRP_KfIssueList", Xtczybm, 2, False  '用户退出时写上机日志
  657. End Sub
  659. Private Sub CxbbGrid_BeforeMoveColumn(ByVal Col As Long, Position As Long)           '网格列发生移动时自动交换网格索引信息
  660.     Call FnBln_RefreshArray(Col, Position, GridStr(), GridInf())
  661. End Sub
  663. Private Sub GsToolbar_ButtonClick(ByVal Button As MSComctlLib.Button)                '网格格式调整(Fixed)
  664.   
  665.     Select Case Button.Key
  666.         Case "bcgs"                                          '保存表格格式
  667.             Call Bcwggs(CxbbGrid, GridCode, GridStr())
  668.         Case "hfmrgs"                                        '恢复默认格式
  669.             Call Hfmrgs(CxbbGrid, GridCode, GridStr())
  670.         Case "szxsxm"                                        '设置显示项目
  671.             Call Szxsxm(CxbbGrid, GridCode)
  672.     End Select
  674. End Sub
  676. Private Sub SzToolbar_ButtonClick(ByVal Button As MSComctlLib.Button)
  677.     
  678.     Select Case Button.Key
  679.         Case "ymsz"                                          '页面设置
  680.             Dyymctbl.Show 1
  681.         Case "yl"                                            '预 览
  682.             Call bbyl(True)
  683.         Case "dy"                                            '打 印
  684.             Call bbyl(False)
  685.         Case "cx"                                            '查 询
  686.             Kf_IssueQuery.Show 1
  687.         Case "Bill"                                          '单 据
  688.             Call CxbbGrid_DblClick
  689.         Case "bz"                                            '帮 助
  690.             Call F1bz
  691.         Case "fh"                                            '退 出
  692.            Unload Me
  694.     End Select
  696. End Sub
  698. Private Sub Timer1_Timer()                                 '在窗体激活后调入查询程序
  699.     
  700.     Timer1.Enabled = False
  701.     Xt_Wait.Show
  702.     Xt_Wait.Refresh
  703.    
  704.     '加快显示速度
  705.     CxbbGrid.Redraw = False
  706.  
  707.     '生成查询结果
  708.     Call Sub_Query(0)
  709.    
  710.     CxbbGrid.Redraw = True
  711.     
  712.     Xt_Wait.Hide
  714. End Sub
  716. Private Sub Sub_Query(Int_QueryType As Integer)                                     '生成查询结果(Define)
  717.     
  718.     '过程参数:Int_QueryType 0-"点确定按钮"查询  1-"刷新"查询
  720.     Dim Rec_Query As New ADODB.Recordset        '查询结果动态集
  721.     Dim Coljsq As Long                          '网格列计数器
  722.     Dim jsqte As Long                        '临时动态计数器
  723.     Dim iYear As Integer, iMonth As Integer
  724.     '以下为自定义部分[
  725.  
  726.     If Int_QueryType = 0 Then   '0-"点确定按钮"查询
  727.         With Kf_IssueQuery
  728.          
  729.             '生成查询条件
  730.             Str_QueryCondi = " where MRPFlag=1 "
  731.             For jsqte = 1 To 8
  732.                 Select Case jsqte
  733.                     Case 1  '起始周期
  734.                         If Trim(.Combo_Con(0)) <> "" Then
  735.                             Call Sub_DivMonth(Trim(.Combo_Con(0).Text), iYear, iMonth)
  736.                             Str_QueryCondi = Str_QueryCondi & " And a.kjYear>=" & iYear & " And a.Period>=" & iMonth
  737.                         End If
  738.                     Case 2 '截止周期
  739.                         If Trim(.Combo_Con(1)) <> "" Then
  740.                             Call Sub_DivMonth(Trim(.Combo_Con(1).Text), iYear, iMonth)
  741.                             Str_QueryCondi = Str_QueryCondi & " And a.kjYear<=" & iYear & " And a.Period<=" & iMonth
  742.                         End If
  743.                     Case "3" '起始日期
  744.                         If Trim(.LrText(0)) <> "" Then
  745.                             Str_QueryCondi = Str_QueryCondi + " And a.Billdate >='" & Format(Trim(.LrText(0)), "yyyy-mm-dd") & "' "
  746.                         End If
  747.                     Case "5" '截止日期
  748.                         If Trim(.LrText(1)) <> "" Then
  749.                             Str_QueryCondi = Str_QueryCondi + " And a.Billdate <='" & Format(Trim(.LrText(1)), "yyyy-mm-dd") & "' "
  750.                         End If
  751.                     Case "5" '制单
  752.                         If Trim(.LrText(2)) <> "" Then
  753.                             Str_QueryCondi = Str_QueryCondi + " And  a.Maker='" & Trim(.LrText(2).Tag) & "' "
  754.                         End If
  755.                     Case "6" '物料分类
  756.                         If Trim(.LrText(3)) <> "" Then
  757.                             Str_QueryCondi = Str_QueryCondi + " And a.InvSortCode Like'" & .LrText(3).Tag & "' "
  758.                         End If
  759.                     Case "7" '物料编码
  760.                         If Trim(.LrText(4)) <> "" Then
  761.                             Str_QueryCondi = Str_QueryCondi + " And a.MNumber ='" & .LrText(4).Text & "' "
  762.                         End If
  763.                     Case "8" '领料部门
  764.                         If Trim(.LrText(5)) <> "" Then
  765.                             Str_QueryCondi = Str_QueryCondi + " And a.DeptCode ='" & .LrText(5).Tag & "' "
  766.                         End If
  767.  
  768.                 End Select
  769.             Next jsqte
  770.         End With
  771.     Else
  772.         '1-"刷新"查询
  773.         If Str_QueryCondi = "" Then
  774.             Str_QueryCondi = " where 1=1 "
  775.         End If
  776.     End If
  777.     
  778.     Sqlstr = "Select * From MRP_V_IssueApply a " & Str_QueryCondi & ""
  779.     Sqlstr = Sqlstr + "  Order by kjYear , Period ,IssueMainId , IssueSubId "
  780.     Set Rec_Query = Cw_DataEnvi.DataConnect.Execute(Sqlstr)
  781.     With Rec_Query
  782.         CxbbGrid.Rows = CxbbGrid.FixedRows
  783.         jsqte = CxbbGrid.FixedRows
  784.         Do While Not .EOF
  785.             CxbbGrid.AddItem ""
  786.             '[>>自定义填充内容
  787.             CxbbGrid.TextMatrix(jsqte, 0) = Val(.Fields("IssueMainId"))                                                                 '领料申请单ID(主要用来查询定位用)
  788.             CxbbGrid.TextMatrix(jsqte, Sydz("016", GridStr(), Szzls)) = Trim(.Fields("kjYear") & "") & "." & Trim(.Fields("Period"))    '计划周期
  789.             CxbbGrid.TextMatrix(jsqte, Sydz("001", GridStr(), Szzls)) = Format(.Fields("BillDate"), "yyyy-mm-dd")                       '订单日期
  790.             CxbbGrid.TextMatrix(jsqte, Sydz("002", GridStr(), Szzls)) = Trim(.Fields("WhName") & "")                                    '仓库名称
  791.             CxbbGrid.TextMatrix(jsqte, Sydz("003", GridStr(), Szzls)) = Trim(.Fields("BillNum") & "")                                   '单据编码
  792.             CxbbGrid.TextMatrix(jsqte, Sydz("004", GridStr(), Szzls)) = Trim(.Fields("IssueUseName") & "")                              '领料用途
  793.             CxbbGrid.TextMatrix(jsqte, Sydz("005", GridStr(), Szzls)) = Trim(.Fields("DeptName") & "")                                  '部门编码
  794.             CxbbGrid.TextMatrix(jsqte, Sydz("006", GridStr(), Szzls)) = Trim(.Fields("MNumber") & "")                                   '物料编码
  795.             CxbbGrid.TextMatrix(jsqte, Sydz("007", GridStr(), Szzls)) = Trim(.Fields("MName") & "")                                     '物料名称
  796.             CxbbGrid.TextMatrix(jsqte, Sydz("008", GridStr(), Szzls)) = Trim(.Fields("Model") & "")                                     '规格型号
  798.             If .Fields("issuequan") <> 0 Then                                                                                           '数量
  799.                 CxbbGrid.TextMatrix(jsqte, Sydz("010", GridStr(), Szzls)) = .Fields("issuequan")
  800.             End If
  801.             If .Fields("price") <> 0 Then                                                                                               '单价
  802.                 CxbbGrid.TextMatrix(jsqte, Sydz("011", GridStr(), Szzls)) = .Fields("price")
  803.             End If
  804.             If .Fields("issuemoney") <> 0 Then                                                                                          '金额
  805.                 CxbbGrid.TextMatrix(jsqte, Sydz("012", GridStr(), Szzls)) = .Fields("issuemoney")
  806.             End If
  808.             CxbbGrid.TextMatrix(jsqte, Sydz("013", GridStr(), Szzls)) = Trim(.Fields("maker") & "")                                     '制单人
  809.             CxbbGrid.TextMatrix(jsqte, Sydz("014", GridStr(), Szzls)) = Trim(.Fields("Checker") & "")                                   '审核人
  810.             CxbbGrid.TextMatrix(jsqte, Sydz("015", GridStr(), Szzls)) = Trim(.Fields("ChalkItupMan") & "")                              '记账人
  811.             
  812.             
  813.             
  814.             '<<]
  815.             '设置数据行高度(Fixed)
  816.             CxbbGrid.RowHeight(jsqte) = Sjhgd
  817.      
  818.             '动态集指针加1,同时将计数器加1(Fixed)
  819.             .MoveNext
  820.             jsqte = jsqte + 1
  821.         Loop
  822.     End With
  823.     ']以上为用户自定义部分
  824. End Sub
  826. Private Sub CxbbGrid_DblClick()                                              '用户双击网格调入相应单据
  827.     
  828.     Dim RecTemp As New ADODB.Recordset               '临时使用动态集
  830.     '非数据行退出
  831.     If CxbbGrid.Row < CxbbGrid.FixedRows Or Val(CxbbGrid.TextMatrix(CxbbGrid.Row, 0)) = 0 Then
  832.         Exit Sub
  833.     End If
  835.     Sqlstr = "SELECT IssueMainID From KF_IssueMain Where IssueMainID=" & Val(CxbbGrid.TextMatrix(CxbbGrid.Row, 0))
  836.     Set RecTemp = Cw_DataEnvi.DataConnect.Execute(Sqlstr)
  837.     With RecTemp
  838.         If .EOF Then
  839.             Tsxx = "没有找到当前单据, 可能已被其他用户删除!"
  840.             Call Xtxxts(Tsxx, 0, 4)
  841.             Exit Sub
  842.         Else
  843.             '调入单据处理窗体
  844.             With Kf_IssueDetail
  845.                 
  846.                 '填充查询单据标识
  847.                 XT_BillID = CxbbGrid.TextMatrix(CxbbGrid.Row, 0)
  848.                 Xtcdcsfz = Str_QueryCondi
  849.                 
  850.                 '设置单据处理为列表查询(修改)状态
  851.                 Xtcdcs = "2"
  852.                 .Show 1
  853.             End With
  854.             If Xtfhcs = "1" Then
  855.                 Tsxx = "领料申请单发生变化,是否刷新领料申请单列表?"
  856.                 yhAnswer = Xtxxts(Tsxx, 2, 2)
  857.                 If yhAnswer = 1 Then
  858.                     Xt_Wait.Show
  859.                     Xt_Wait.Refresh
  860.    
  861.                     '加快显示速度
  862.                     CxbbGrid.Redraw = False
  863.  
  864.                     '生成查询结果
  865.                     Call Sub_Query(1)
  866.    
  867.                     CxbbGrid.Redraw = True
  868.                     Xt_Wait.Hide
  869.                 End If
  870.             End If
  871.         End If
  872.     End With
  874. End Sub
  877.  
  878.  
  879. Private Sub bbyl(bbylte As Boolean)                    '报表打印预览
  880.     
  881.     Dim Bbzbt$, Bbxbt() As String, bbxbtzzxs() As Integer, Bbxbtgs As Integer
  882.     Dim Bbbwh() As String, Bbbwhzzxs() As Integer, Bbbwhgs As Integer
  883.     Bbxbtgs = 1                                          '报 表 小 标 题 行 数
  884.     Bbbwhgs = 0                                          '报 表 表 尾 行 数
  885.     ReDim Bbxbt(1 To Bbxbtgs)
  886.     ReDim bbxbtzzxs(1 To Bbxbtgs)
  887.     If Bbbwhgs <> 0 Then
  888.         ReDim Bbbwh(1 To Bbbwhgs)
  889.         ReDim Bbbwhzzxs(1 To Bbbwhgs)
  890.     End If
  891.     Bbzbt = ReportTitle
  892.     Bbxbt(1) = ""
  893.     bbxbtzzxs(1) = 0                                     '报表行组织形式(0-居左 1-居中 2-居右)
  894.     Call Scyxsjb(CxbbGrid)                               '生成报表数据
  895.     Call Scdybb(Dyymctbl, Bbzbt, Bbxbt(), bbxbtzzxs(), Bbxbtgs, Bbbwh(), Bbbwhzzxs(), Bbbwhgs, bbylte)
  896.     If Not bbylte Then
  897.         Unload DY_Tybbyldy
  898.     End If
  900. End Sub
  902.  
  903. Private Sub Sub_DivMonth(InPara As String, Out1 As Integer, Out2 As Integer)
  904.     Dim Pos1 As Integer
  905.     Pos1 = InStr(1, InPara, ".")
  906.     Out1 = Val(Left(InPara, Pos1 - 1))
  907.     Out2 = Right(InPara, Len(InPara) - Pos1)
  908. End Sub
  909. 'Return Bill State
  910. Private Function Fn_GetBillState(Rect As Recordset) As Integer
  911.     Dim State As Integer
  912.     
  913.     State = 0
  914.     If Not Rect.EOF Then
  915.         For jsqte = 1 To 3
  916.             Select Case jsqte
  917.                 Case 1
  918.                     If Rect!Checker <> "" Then
  919.                         State = 1
  920.                     Else
  921.                         Exit For
  922.                     End If
  923.                 Case 2
  924.                     If Rect!IfBuildDemand = True Then
  925.                         State = 2
  926.                     Else
  927.                         Exit For
  928.                     End If
  929.                 Case 3
  930.                     If Rect!IfComplete = True Then
  931.                         State = 3
  932.                     Else
  933.                         Exit For
  934.                     End If
  935.             End Select
  936.         Next jsqte
  937.     End If
  938.     Fn_GetBillState = State
  940. End Function