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

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

企业管理

开发平台：

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 Tr_WorkReport 
  6.    Caption         =   "铁路运输工作统计表"
  7.    ClientHeight    =   8595
  8.    ClientLeft      =   315
  9.    ClientTop       =   390
  10.    ClientWidth     =   11820
  11.    HelpContextID   =   5001
  12.    Icon            =   "铁运统计_运输工作统计表.frx":0000
  13.    KeyPreview      =   -1  'True
  14.    LinkTopic       =   "Form1"
  15.    MDIChild        =   -1  'True
  16.    ScaleHeight     =   8595
  17.    ScaleWidth      =   11820
  18.    WindowState     =   2  'Maximized
  19.    Begin MSComctlLib.Toolbar GsToolbar 
  20.       Height          =   540
  21.       Left            =   9330
  22.       TabIndex        =   3
  23.       Top             =   30
  24.       Width           =   2475
  25.       _ExtentX        =   4366
  26.       _ExtentY        =   953
  27.       ButtonWidth     =   1455
  28.       ButtonHeight    =   953
  29.       Appearance      =   1
  30.       Style           =   1
  31.       ImageList       =   "ImageList2"
  32.       _Version        =   393216
  33.       BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628} 
  34.          NumButtons      =   3
  35.          BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  36.             Caption         =   "保存格式"
  37.             Key             =   "bcgs"
  38.             ImageKey        =   "bcgs"
  39.          EndProperty
  40.          BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  41.             Caption         =   "默认列宽"
  42.             Key             =   "hfmrgs"
  43.             ImageKey        =   "mrlk"
  44.          EndProperty
  45.          BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  46.             Caption         =   "显示项目"
  47.             Key             =   "szxsxm"
  48.             ImageKey        =   "xsxm"
  49.          EndProperty
  50.       EndProperty
  51.    End
  52.    Begin VB.PictureBox Pic_Title 
  53.       BackColor       =   &H00FFFFFF&
  54.       Height          =   1050
  55.       Left            =   0
  56.       Picture         =   "铁运统计_运输工作统计表.frx":1042
  57.       ScaleHeight     =   990
  58.       ScaleWidth      =   11715
  59.       TabIndex        =   1
  60.       Top             =   570
  61.       Width           =   11775
  62.       Begin VB.Label lblMonth 
  63.          BackStyle       =   0  'Transparent
  64.          Height          =   255
  65.          Left            =   1125
  66.          TabIndex        =   6
  67.          Top             =   720
  68.          Width           =   3765
  69.       End
  70.       Begin VB.Label Label1 
  71.          BackStyle       =   0  'Transparent
  72.          Caption         =   "月份:"
  73.          Height          =   255
  74.          Left            =   585
  75.          TabIndex        =   5
  76.          Top             =   720
  77.          Width           =   615
  78.       End
  79.       Begin VB.Label Lab_Title 
  80.          BackColor       =   &H80000018&
  81.          BackStyle       =   0  'Transparent
  82.          Caption         =   "铁路运输工作统计表"
  83.          BeginProperty Font 
  84.             Name            =   "宋体"
  85.             Size            =   12
  86.             Charset         =   134
  87.             Weight          =   700
  88.             Underline       =   0   'False
  89.             Italic          =   0   'False
  90.             Strikethrough   =   0   'False
  91.          EndProperty
  92.          ForeColor       =   &H00000000&
  93.          Height          =   300
  94.          Index           =   4
  95.          Left            =   480
  96.          TabIndex        =   2
  97.          Top             =   210
  98.          Width           =   2715
  99.       End
  100.    End
  101.    Begin VB.Timer Timer1 
  102.       Enabled         =   0   'False
  103.       Interval        =   1
  104.       Left            =   7620
  105.       Top             =   90
  106.    End
  107.    Begin VSFlex8Ctl.VSFlexGrid CxbbGrid 
  108.       Height          =   7365
  109.       Left            =   0
  110.       TabIndex        =   0
  111.       Top             =   1650
  112.       Width           =   11775
  113.       _ExtentX        =   20770
  114.       _ExtentY        =   12991
  115.       Appearance      =   1
  116.       BorderStyle     =   1
  117.       Enabled         =   -1  'True
  118.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  119.          Name            =   "宋体"
  120.          Size            =   9
  121.          Charset         =   134
  122.          Weight          =   400
  123.          Underline       =   0   'False
  124.          Italic          =   0   'False
  125.          Strikethrough   =   0   'False
  126.       EndProperty
  127.       MousePointer    =   0
  128.       BackColor       =   16777215
  129.       ForeColor       =   -2147483640
  130.       BackColorFixed  =   13826538
  131.       ForeColorFixed  =   -2147483630
  132.       BackColorSel    =   -2147483635
  133.       ForeColorSel    =   -2147483634
  134.       BackColorBkg    =   -2147483636
  135.       BackColorAlternate=   16777215
  136.       GridColor       =   -2147483633
  137.       GridColorFixed  =   -2147483632
  138.       TreeColor       =   -2147483632
  139.       FloodColor      =   192
  140.       SheetBorder     =   -2147483642
  141.       FocusRect       =   1
  142.       HighLight       =   1
  143.       AllowSelection  =   -1  'True
  144.       AllowBigSelection=   -1  'True
  145.       AllowUserResizing=   0
  146.       SelectionMode   =   0
  147.       GridLines       =   1
  148.       GridLinesFixed  =   2
  149.       GridLineWidth   =   1
  150.       Rows            =   50
  151.       Cols            =   10
  152.       FixedRows       =   1
  153.       FixedCols       =   1
  154.       RowHeightMin    =   0
  155.       RowHeightMax    =   0
  156.       ColWidthMin     =   0
  157.       ColWidthMax     =   0
  158.       ExtendLastCol   =   0   'False
  159.       FormatString    =   ""
  160.       ScrollTrack     =   0   'False
  161.       ScrollBars      =   3
  162.       ScrollTips      =   0   'False
  163.       MergeCells      =   0
  164.       MergeCompare    =   0
  165.       AutoResize      =   -1  'True
  166.       AutoSizeMode    =   0
  167.       AutoSearch      =   0
  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   'False
  181.       ShowComboButton =   -1  'True
  182.       WordWrap        =   0   'False
  183.       TextStyle       =   0
  184.       TextStyleFixed  =   0
  185.       OleDragMode     =   0
  186.       OleDropMode     =   0
  187.       DataMode        =   0
  188.       VirtualData     =   -1  'True
  189.       Begin MSComctlLib.ImageList ImageList2 
  190.          Left            =   0
  191.          Top             =   0
  192.          _ExtentX        =   1005
  193.          _ExtentY        =   1005
  194.          BackColor       =   -2147483643
  195.          ImageWidth      =   16
  196.          ImageHeight     =   16
  197.          MaskColor       =   12632256
  198.          _Version        =   393216
  199.          BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628} 
  200.             NumListImages   =   40
  201.             BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  202.                Picture         =   "铁运统计_运输工作统计表.frx":35106
  203.                Key             =   "sz"
  204.             EndProperty
  205.             BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  206.                Picture         =   "铁运统计_运输工作统计表.frx":354A0
  207.                Key             =   "dy"
  208.             EndProperty
  209.             BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  210.                Picture         =   "铁运统计_运输工作统计表.frx":3583A
  211.                Key             =   "yl"
  212.             EndProperty
  213.             BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  214.                Picture         =   "铁运统计_运输工作统计表.frx":35BD4
  215.                Key             =   "xg"
  216.             EndProperty
  217.             BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  218.                Picture         =   "铁运统计_运输工作统计表.frx":35F6E
  219.                Key             =   "zh"
  220.             EndProperty
  221.             BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  222.                Picture         =   "铁运统计_运输工作统计表.frx":36308
  223.                Key             =   "sh"
  224.             EndProperty
  225.             BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  226.                Picture         =   "铁运统计_运输工作统计表.frx":366A2
  227.                Key             =   "bc"
  228.             EndProperty
  229.             BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  230.                Picture         =   "铁运统计_运输工作统计表.frx":36A3C
  231.                Key             =   "fq"
  232.             EndProperty
  233.             BeginProperty ListImage9 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  234.                Picture         =   "铁运统计_运输工作统计表.frx":36DD6
  235.                Key             =   "bz"
  236.             EndProperty
  237.             BeginProperty ListImage10 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  238.                Picture         =   "铁运统计_运输工作统计表.frx":37170
  239.                Key             =   "tc"
  240.             EndProperty
  241.             BeginProperty ListImage11 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  242.                Picture         =   "铁运统计_运输工作统计表.frx":3750A
  243.                Key             =   "bcgs"
  244.             EndProperty
  245.             BeginProperty ListImage12 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  246.                Picture         =   "铁运统计_运输工作统计表.frx":378A4
  247.                Key             =   "mrlk"
  248.             EndProperty
  249.             BeginProperty ListImage13 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  250.                Picture         =   "铁运统计_运输工作统计表.frx":37C3E
  251.                Key             =   "xsxm"
  252.             EndProperty
  253.             BeginProperty ListImage14 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  254.                Picture         =   "铁运统计_运输工作统计表.frx":37FD8
  255.                Key             =   "first"
  256.             EndProperty
  257.             BeginProperty ListImage15 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  258.                Picture         =   "铁运统计_运输工作统计表.frx":38372
  259.                Key             =   "prev"
  260.             EndProperty
  261.             BeginProperty ListImage16 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  262.                Picture         =   "铁运统计_运输工作统计表.frx":3870C
  263.                Key             =   "next"
  264.             EndProperty
  265.             BeginProperty ListImage17 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  266.                Picture         =   "铁运统计_运输工作统计表.frx":38AA6
  267.                Key             =   "last"
  268.             EndProperty
  269.             BeginProperty ListImage18 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  270.                Picture         =   "铁运统计_运输工作统计表.frx":38E40
  271.                Key             =   "xx"
  272.             EndProperty
  273.             BeginProperty ListImage19 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  274.                Picture         =   "铁运统计_运输工作统计表.frx":391DA
  275.                Key             =   "define"
  276.             EndProperty
  277.             BeginProperty ListImage20 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  278.                Picture         =   "铁运统计_运输工作统计表.frx":39574
  279.                Key             =   "exec"
  280.             EndProperty
  281.             BeginProperty ListImage21 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  282.                Picture         =   "铁运统计_运输工作统计表.frx":3990E
  283.                Key             =   "xz"
  284.             EndProperty
  285.             BeginProperty ListImage22 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  286.                Picture         =   "铁运统计_运输工作统计表.frx":39CA8
  287.                Key             =   "sc"
  288.             EndProperty
  289.             BeginProperty ListImage23 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  290.                Picture         =   "铁运统计_运输工作统计表.frx":3A042
  291.                Key             =   "sx"
  292.             EndProperty
  293.             BeginProperty ListImage24 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  294.                Picture         =   "铁运统计_运输工作统计表.frx":3A3DC
  295.                Key             =   "cx"
  296.             EndProperty
  297.             BeginProperty ListImage25 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  298.                Picture         =   "铁运统计_运输工作统计表.frx":3A776
  299.                Key             =   "zd"
  300.             EndProperty
  301.             BeginProperty ListImage26 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  302.                Picture         =   "铁运统计_运输工作统计表.frx":3AB10
  303.                Key             =   "dz"
  304.             EndProperty
  305.             BeginProperty ListImage27 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  306.                Picture         =   "铁运统计_运输工作统计表.frx":3AEAA
  307.                Key             =   "ph"
  308.             EndProperty
  309.             BeginProperty ListImage28 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  310.                Picture         =   "铁运统计_运输工作统计表.frx":3B244
  311.                Key             =   "fz"
  312.             EndProperty
  313.             BeginProperty ListImage29 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  314.                Picture         =   "铁运统计_运输工作统计表.frx":3B5DE
  315.                Key             =   "dw"
  316.             EndProperty
  317.             BeginProperty ListImage30 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  318.                Picture         =   "铁运统计_运输工作统计表.frx":3B978
  319.                Key             =   "hf"
  320.             EndProperty
  321.             BeginProperty ListImage31 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  322.                Picture         =   "铁运统计_运输工作统计表.frx":3BD12
  323.                Key             =   "pz"
  324.             EndProperty
  325.             BeginProperty ListImage32 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  326.                Picture         =   "铁运统计_运输工作统计表.frx":3C0AC
  327.                Key             =   "check"
  328.             EndProperty
  329.             BeginProperty ListImage33 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  330.                Picture         =   "铁运统计_运输工作统计表.frx":3C446
  331.                Key             =   "qs"
  332.             EndProperty
  333.             BeginProperty ListImage34 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  334.                Picture         =   "铁运统计_运输工作统计表.frx":3C7E0
  335.                Key             =   "fullcheck"
  336.             EndProperty
  337.             BeginProperty ListImage35 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  338.                Picture         =   "铁运统计_运输工作统计表.frx":3CB7A
  339.                Key             =   "qq"
  340.             EndProperty
  341.             BeginProperty ListImage36 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  342.                Picture         =   "铁运统计_运输工作统计表.frx":3CF14
  343.                Key             =   "bcw"
  344.             EndProperty
  345.             BeginProperty ListImage37 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  346.                Picture         =   "铁运统计_运输工作统计表.frx":3D2AE
  347.                Key             =   "ye"
  348.             EndProperty
  349.             BeginProperty ListImage38 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  350.                Picture         =   "铁运统计_运输工作统计表.frx":3D648
  351.                Key             =   ""
  352.             EndProperty
  353.             BeginProperty ListImage39 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  354.                Picture         =   "铁运统计_运输工作统计表.frx":3D9E2
  355.                Key             =   "frist"
  356.             EndProperty
  357.             BeginProperty ListImage40 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  358.                Picture         =   "铁运统计_运输工作统计表.frx":3DD7C
  359.                Key             =   "dj"
  360.             EndProperty
  361.          EndProperty
  362.       End
  363.    End
  364.    Begin MSComctlLib.Toolbar SzToolbar 
  365.       Align           =   1  'Align Top
  366.       Height          =   570
  367.       Left            =   0
  368.       TabIndex        =   4
  369.       Top             =   0
  370.       Width           =   11820
  371.       _ExtentX        =   20849
  372.       _ExtentY        =   1005
  373.       ButtonWidth     =   820
  374.       ButtonHeight    =   953
  375.       AllowCustomize  =   0   'False
  376.       Appearance      =   1
  377.       Style           =   1
  378.       ImageList       =   "ImageList1"
  379.       _Version        =   393216
  380.       BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628} 
  381.          NumButtons      =   8
  382.          BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  383.             Caption         =   "设置"
  384.             Key             =   "ymsz"
  385.             ImageKey        =   "sz"
  386.          EndProperty
  387.          BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  388.             Caption         =   "打印"
  389.             Key             =   "dy"
  390.             ImageKey        =   "dy"
  391.          EndProperty
  392.          BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  393.             Caption         =   "预览"
  394.             Key             =   "yl"
  395.             ImageKey        =   "yl"
  396.          EndProperty
  397.          BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  398.             Style           =   3
  399.          EndProperty
  400.          BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  401.             Caption         =   "查询"
  402.             Key             =   "cx"
  403.             ImageKey        =   "cx"
  404.          EndProperty
  405.          BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  406.             Style           =   3
  407.          EndProperty
  408.          BeginProperty Button7 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  409.             Caption         =   "帮助"
  410.             Key             =   "bz"
  411.             ImageKey        =   "bz"
  412.          EndProperty
  413.          BeginProperty Button8 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  414.             Caption         =   "退出"
  415.             Key             =   "fh"
  416.             ImageKey        =   "tc"
  417.          EndProperty
  418.       EndProperty
  419.       BorderStyle     =   1
  420.       Begin MSComctlLib.ImageList ImageList1 
  421.          Left            =   6990
  422.          Top             =   30
  423.          _ExtentX        =   1005
  424.          _ExtentY        =   1005
  425.          BackColor       =   -2147483643
  426.          ImageWidth      =   16
  427.          ImageHeight     =   16
  428.          MaskColor       =   12632256
  429.          _Version        =   393216
  430.          BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628} 
  431.             NumListImages   =   32
  432.             BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  433.                Picture         =   "铁运统计_运输工作统计表.frx":3E116
  434.                Key             =   "sz"
  435.             EndProperty
  436.             BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  437.                Picture         =   "铁运统计_运输工作统计表.frx":3E4B0
  438.                Key             =   "dy"
  439.             EndProperty
  440.             BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  441.                Picture         =   "铁运统计_运输工作统计表.frx":3E84A
  442.                Key             =   "yl"
  443.             EndProperty
  444.             BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  445.                Picture         =   "铁运统计_运输工作统计表.frx":3EBE4
  446.                Key             =   "xg"
  447.             EndProperty
  448.             BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  449.                Picture         =   "铁运统计_运输工作统计表.frx":3EF7E
  450.                Key             =   "zh"
  451.             EndProperty
  452.             BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  453.                Picture         =   "铁运统计_运输工作统计表.frx":3F318
  454.                Key             =   "sh"
  455.             EndProperty
  456.             BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  457.                Picture         =   "铁运统计_运输工作统计表.frx":3F6B2
  458.                Key             =   "bc"
  459.             EndProperty
  460.             BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  461.                Picture         =   "铁运统计_运输工作统计表.frx":3FA4C
  462.                Key             =   "fq"
  463.             EndProperty
  464.             BeginProperty ListImage9 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  465.                Picture         =   "铁运统计_运输工作统计表.frx":3FDE6
  466.                Key             =   "bz"
  467.             EndProperty
  468.             BeginProperty ListImage10 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  469.                Picture         =   "铁运统计_运输工作统计表.frx":40180
  470.                Key             =   "tc"
  471.             EndProperty
  472.             BeginProperty ListImage11 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  473.                Picture         =   "铁运统计_运输工作统计表.frx":4051A
  474.                Key             =   "bcgs"
  475.             EndProperty
  476.             BeginProperty ListImage12 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  477.                Picture         =   "铁运统计_运输工作统计表.frx":408B4
  478.                Key             =   "mrlk"
  479.             EndProperty
  480.             BeginProperty ListImage13 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  481.                Picture         =   "铁运统计_运输工作统计表.frx":40C4E
  482.                Key             =   "xsxm"
  483.             EndProperty
  484.             BeginProperty ListImage14 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  485.                Picture         =   "铁运统计_运输工作统计表.frx":40FE8
  486.                Key             =   "first"
  487.             EndProperty
  488.             BeginProperty ListImage15 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  489.                Picture         =   "铁运统计_运输工作统计表.frx":41382
  490.                Key             =   "prev"
  491.             EndProperty
  492.             BeginProperty ListImage16 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  493.                Picture         =   "铁运统计_运输工作统计表.frx":4171C
  494.                Key             =   "next"
  495.             EndProperty
  496.             BeginProperty ListImage17 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  497.                Picture         =   "铁运统计_运输工作统计表.frx":41AB6
  498.                Key             =   "last"
  499.             EndProperty
  500.             BeginProperty ListImage18 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  501.                Picture         =   "铁运统计_运输工作统计表.frx":41E50
  502.                Key             =   "xx"
  503.             EndProperty
  504.             BeginProperty ListImage19 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  505.                Picture         =   "铁运统计_运输工作统计表.frx":421EA
  506.                Key             =   "define"
  507.             EndProperty
  508.             BeginProperty ListImage20 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  509.                Picture         =   "铁运统计_运输工作统计表.frx":42584
  510.                Key             =   "exec"
  511.             EndProperty
  512.             BeginProperty ListImage21 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  513.                Picture         =   "铁运统计_运输工作统计表.frx":4291E
  514.                Key             =   "xz"
  515.             EndProperty
  516.             BeginProperty ListImage22 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  517.                Picture         =   "铁运统计_运输工作统计表.frx":42CB8
  518.                Key             =   "sc"
  519.             EndProperty
  520.             BeginProperty ListImage23 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  521.                Picture         =   "铁运统计_运输工作统计表.frx":43052
  522.                Key             =   "sx"
  523.             EndProperty
  524.             BeginProperty ListImage24 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  525.                Picture         =   "铁运统计_运输工作统计表.frx":433EC
  526.                Key             =   "cx"
  527.             EndProperty
  528.             BeginProperty ListImage25 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  529.                Picture         =   "铁运统计_运输工作统计表.frx":43786
  530.                Key             =   "zd"
  531.             EndProperty
  532.             BeginProperty ListImage26 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  533.                Picture         =   "铁运统计_运输工作统计表.frx":43B20
  534.                Key             =   "dz"
  535.             EndProperty
  536.             BeginProperty ListImage27 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  537.                Picture         =   "铁运统计_运输工作统计表.frx":43EBA
  538.                Key             =   "ph"
  539.             EndProperty
  540.             BeginProperty ListImage28 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  541.                Picture         =   "铁运统计_运输工作统计表.frx":44254
  542.                Key             =   "fz"
  543.             EndProperty
  544.             BeginProperty ListImage29 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  545.                Picture         =   "铁运统计_运输工作统计表.frx":445EE
  546.                Key             =   "dw"
  547.             EndProperty
  548.             BeginProperty ListImage30 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  549.                Picture         =   "铁运统计_运输工作统计表.frx":44988
  550.                Key             =   "hf"
  551.             EndProperty
  552.             BeginProperty ListImage31 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  553.                Picture         =   "铁运统计_运输工作统计表.frx":44D22
  554.                Key             =   "pz"
  555.             EndProperty
  556.             BeginProperty ListImage32 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  557.                Picture         =   "铁运统计_运输工作统计表.frx":450BC
  558.                Key             =   "check"
  559.             EndProperty
  560.          EndProperty
  561.       End
  562.    End
  563. End
  564. Attribute VB_Name = "Tr_WorkReport"
  565. Attribute VB_GlobalNameSpace = False
  566. Attribute VB_Creatable = False
  567. Attribute VB_PredeclaredId = True
  568. Attribute VB_Exposed = False
  569. '**************************************************************************
  570. '*    模 块 名 称 :运输工作统计表
  571. '*    功 能 描 述 :
  572. '*    程序员姓名  :徐强
  573. '*    最后修改人  :徐强
  574. '*    最后修改时间:2001/12/10
  575. '*    备        注:程序中所有依实际情况自定义部分均用[>>  <<]括起
  576. '**************************************************************************
  577. Dim ReportTitle As String                '报表主标题
  578. Dim Str_QueryCondi As String             '用户录入查询条件
  579. Dim Rec_BillID As New ADODB.Recordset    '用户查询单据ID动态集
  581. '以下为固定使用变量
  582. Dim Dyymctbl As New DY_Dyymsz            '打印页面窗体变量
  583. Dim GridCode As String                   '显示网格网格代码
  584. Dim GridInf() As Variant                 '整个网格设置信息
  585. Dim Tsxx As String                       '系统提示信息
  586. Dim Qslz As Long                         '网格隐藏(非操作显示)列数
  587. Dim Sjhgd As Double                      '网格数据行高度
  588. Dim Sfxshjwg As Boolean                  '是否显示合计网格
  589. Dim GridBoolean() As Boolean             '网格列信息(布尔型)
  590. Dim GridStr()  As String                 '网格列信息(字符型)
  591. Dim GridInt() As Integer                 '网格列信息(整型)
  592. Dim szzls As Integer                     '数组总列数(网格列数-1)
  594. Private Sub Form_Resize()                '根据窗体大小来调整网格,标题栏大小(Fixed)
  595.     On Error Resume Next
  596.     With CxbbGrid
  597.         .Width = Me.Width - 160
  598.         .Height = Me.Height - .Top - 400
  599.     End With
  600.     With Pic_Title
  601.         .Width = Me.Width - 160
  602.     End With
  603.     
  604.     GsToolbar.Left = Me.Width - GsToolbar.Width - 140
  606. End Sub
  608. Private Sub Form_Load()                                                   '窗体装入
  609.   
  610.     '调入打印页面设置窗体
  611.     ReportTitle = "铁路运输工作统计表"
  612.     XtReportCode = "tr_workreport"
  613.     Load Dyymctbl
  614.       
  615.     '调整标题栏及网格、格式工具条位置(Fixed)
  616.     Pic_Title.Left = 40
  617.     Pic_Title.Top = SzToolbar.Top + SzToolbar.Height - 10
  618.     CxbbGrid.Left = Pic_Title.Left
  619.     CxbbGrid.Top = Pic_Title.Top + Pic_Title.Height + 20
  620.      
  621.     '调 入 网 格(Fixed)
  622.     GridCode = "tr_workreport"
  623.     Call BzWgcsh(CxbbGrid, GridCode, GridInf(), GridBoolean(), GridInt(), GridStr())
  624.       
  625.     Qslz = GridInf(1)
  626.     Sjhgd = GridInf(2)
  627.     Sfxshjwg = GridInf(7)
  628.     szzls = CxbbGrid.Cols - 1
  630. End Sub
  632. Private Sub Form_Unload(Cancel As Integer)                                  '窗体卸载
  634.     '卸载条件窗体
  635.     Tr_WorkReportcxtj.UnloadCheck.Value = 1
  636.     Unload Tr_WorkReportcxtj
  637.     
  638.     '卸载打印页面设置窗体
  639.     Unload Dyymctbl
  641. End Sub
  643. Private Sub CxbbGrid_BeforeMoveColumn(ByVal Col As Long, Position As Long)           '网格列发生移动时自动交换网格索引信息
  644.     Call FnBln_RefreshArray(Col, Position, GridStr(), GridInf())
  645. End Sub
  647. Private Sub GsToolbar_ButtonClick(ByVal Button As MSComctlLib.Button)                '网格格式调整(Fixed)
  648.   
  649.     Select Case Button.Key
  650.         Case "bcgs"                                          '保存表格格式
  651.             Call Bcwggs(CxbbGrid, GridCode, GridStr())
  652.         Case "hfmrgs"                                        '恢复默认格式
  653.             Call Hfmrgs(CxbbGrid, GridCode, GridStr())
  654.         Case "szxsxm"                                        '设置显示项目
  655.             Call Szxsxm(CxbbGrid, GridCode)
  656.     End Select
  658. End Sub
  660. Private Sub SzToolbar_ButtonClick(ByVal Button As MSComctlLib.Button)
  661.     
  662.     Select Case Button.Key
  663.         Case "ymsz"                                          '页面设置
  664.             Dyymctbl.Show 1
  665.         Case "yl"                                            '预 览
  666.             Call bbyl(True)
  667.         Case "dy"                                            '打 印
  668.             Call bbyl(False)
  669.         Case "cx"                                            '查 询
  670.             Tr_WorkReportcxtj.Show 1
  672.         Case "bz"                                            '帮 助
  673.             Call F1bz
  674.         Case "fh"                                            '退 出
  675.            Unload Me
  676.     End Select
  678. End Sub
  680. Private Sub Timer1_Timer()                                 '在窗体激活后调入查询程序
  681.     
  682.     Timer1.Enabled = False
  683.     Xt_Wait.Show
  684.     Xt_Wait.Refresh
  685.    
  686.     '加快显示速度
  687.     CxbbGrid.Redraw = False
  688.  
  689.     '生成查询结果
  690.     Call Sub_Query
  691.    
  692.     CxbbGrid.Redraw = True
  693.     
  694.     Xt_Wait.Hide
  696. End Sub
  699. Private Sub Sub_Query()                                    '生成查询结果
  700.     Dim Rec_Query As New ADODB.Recordset        '查询结果动态集
  701.     Dim Str_QueryCondi As String                '用户录入查询条件
  702.     Dim Sqlstr As String                        '查询字符串
  703.     Dim Coljsq As Long                          '网格列计数器
  704.     Dim jsqte As Integer                       '临时动态计数器
  705.     Dim i As Long
  707.     '以下为用户自定义部分[
  708.     With Tr_WorkReportcxtj
  709.     
  710.         If .jitext(0) <> "____-__" Then
  711.             Str_QueryCondi = Str_QueryCondi & " and beginmonth like '" & Format(.jitext(0), "yyyymm") & "%' "
  712.             lblMonth.Caption = Format(.jitext(0), "yyyy-mm")
  713.         Else
  714.             lblMonth.Caption = ""
  715.         End If
  716.     
  717.         If .Opt_Check(1).Value Then
  718.             Str_QueryCondi = Str_QueryCondi & " and nowstatus='已到达' "
  719.         ElseIf .Opt_Check(2).Value Then
  720.             Str_QueryCondi = Str_QueryCondi & " and nowstatus='已发车' "
  721.         End If
  722.     End With
  723.  
  724.      Str_QueryCondi = "select * from tr_v_workreport where 1=1 " & Str_QueryCondi & " order by beginmonth"
  725.     
  726.      Set Rec_Query = Cw_DataEnvi.DataConnect.Execute(Str_QueryCondi)
  727.      With Rec_Query
  728.       CxbbGrid.Rows = CxbbGrid.FixedRows
  729.       CxbbGrid.Rows = CxbbGrid.FixedRows + .RecordCount
  730.       CxbbGrid.Redraw = False
  731.       jsqte = CxbbGrid.FixedRows
  732.       CxbbGrid.ExplorerBar = flexExMove
  733.       Do While Not .EOF
  734.          If jsqte >= CxbbGrid.Rows Then
  735.             CxbbGrid.AddItem ""
  736.          End If
  737.      
  738.          CxbbGrid.TextMatrix(jsqte, Sydz("001", GridStr(), szzls)) = Mid(("" & .Fields("beginmonth")), 1, 4) & "-" & Mid(("" & .Fields("beginmonth")), 5, 2) & "-" & Mid(("" & .Fields("beginmonth")), 7, 2)
  739.          CxbbGrid.TextMatrix(jsqte, Sydz("002", GridStr(), szzls)) = Trim(.Fields("mname") & "")
  740.          CxbbGrid.TextMatrix(jsqte, Sydz("003", GridStr(), szzls)) = Trim(.Fields("model") & "")
  741.          CxbbGrid.TextMatrix(jsqte, Sydz("004", GridStr(), szzls)) = Trim(.Fields("nowstatus") & "")
  742.          CxbbGrid.TextMatrix(jsqte, Sydz("005", GridStr(), szzls)) = Trim(.Fields("vehiclecount") & "")
  743.          CxbbGrid.TextMatrix(jsqte, Sydz("006", GridStr(), szzls)) = Trim(.Fields("totalcount") & "")
  744.          jsqte = jsqte + 1
  745.          .MoveNext
  746.        Loop
  747.     End With
  749.     ']以上为用户自定义部分
  750.    
  751. End Sub
  753. Private Sub bbyl(bbylte As Boolean)                    '报表打印预览
  754.     
  755.     Dim Bbzbt$, Bbxbt() As String, bbxbtzzxs() As Integer, Bbxbtgs As Integer
  756.     Dim Bbbwh() As String, Bbbwhzzxs() As Integer, Bbbwhgs As Integer
  757.     Bbxbtgs = 1                                          '报 表 小 标 题 行 数
  758.     Bbbwhgs = 0                                          '报 表 表 尾 行 数
  759.     ReDim Bbxbt(1 To Bbxbtgs)
  760.     ReDim bbxbtzzxs(1 To Bbxbtgs)
  761.     If Bbbwhgs <> 0 Then
  762.         ReDim Bbbwh(1 To Bbbwhgs)
  763.         ReDim Bbbwhzzxs(1 To Bbbwhgs)
  764.     End If
  765.     Bbzbt = ReportTitle
  766.     Bbxbt(1) = ""
  767.     bbxbtzzxs(1) = 0                                     '报表行组织形式(0-居左 1-居中 2-居右)
  768.     Call Scyxsjb(CxbbGrid)                               '生成报表数据
  769.     Call Scdybb(Dyymctbl, Bbzbt, Bbxbt(), bbxbtzzxs(), Bbxbtgs, Bbbwh(), Bbbwhzzxs(), Bbbwhgs, bbylte)
  770.     If Not bbylte Then
  771.         Unload DY_Tybbyldy
  772.     End If
  774. End Sub