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

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

企业管理

开发平台：

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