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

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

企业管理

开发平台：

Visual Basic

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