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

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

企业管理

开发平台：

Visual Basic

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