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

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

企业管理

开发平台：

Visual Basic

：源码内容
  1. VERSION 5.00
  2. Object = "{BEEECC20-4D5F-4F8B-BFDC-5D9B6FBDE09D}#1.0#0"; "vsflex8.ocx"
  3. Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "mscomctl.ocx"
  4. Begin VB.Form Cask_AppertainInList 
  5.    Caption         =   "附属物入库单列表"
  6.    ClientHeight    =   8595
  7.    ClientLeft      =   315
  8.    ClientTop       =   390
  9.    ClientWidth     =   11820
  10.    HelpContextID   =   1714003
  11.    Icon            =   "包装物管理系统_单据列表_附属物入库单列表查询结果(单据式).frx":0000
  12.    KeyPreview      =   -1  'True
  13.    LinkTopic       =   "Form1"
  14.    MDIChild        =   -1  'True
  15.    ScaleHeight     =   8595
  16.    ScaleWidth      =   11820
  17.    WindowState     =   2  'Maximized
  18.    Begin MSComctlLib.Toolbar GsToolbar 
  19.       Height          =   525
  20.       Left            =   9330
  21.       TabIndex        =   3
  22.       Top             =   30
  23.       Width           =   2475
  24.       _ExtentX        =   4366
  25.       _ExtentY        =   926
  26.       ButtonWidth     =   1455
  27.       ButtonHeight    =   926
  28.       Appearance      =   1
  29.       Style           =   1
  30.       ImageList       =   "ImageList2"
  31.       _Version        =   393216
  32.       BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628} 
  33.          NumButtons      =   3
  34.          BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  35.             Caption         =   "保存格式"
  36.             Key             =   "bcgs"
  37.             ImageKey        =   "bcgs"
  38.          EndProperty
  39.          BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  40.             Caption         =   "默认列宽"
  41.             Key             =   "hfmrgs"
  42.             ImageKey        =   "mrlk"
  43.          EndProperty
  44.          BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  45.             Caption         =   "显示项目"
  46.             Key             =   "szxsxm"
  47.             ImageKey        =   "xsxm"
  48.          EndProperty
  49.       EndProperty
  50.    End
  51.    Begin VB.PictureBox Pic_Title 
  52.       BackColor       =   &H00FFFFFF&
  53.       Height          =   825
  54.       Left            =   0
  55.       Picture         =   "包装物管理系统_单据列表_附属物入库单列表查询结果(单据式).frx":08CA
  56.       ScaleHeight     =   765
  57.       ScaleWidth      =   11715
  58.       TabIndex        =   1
  59.       Top             =   570
  60.       Width           =   11775
  61.       Begin VB.Label Lab_Title 
  62.          AutoSize        =   -1  'True
  63.          BackColor       =   &H80000018&
  64.          BackStyle       =   0  'Transparent
  65.          Caption         =   "附属物入库单列表"
  66.          BeginProperty Font 
  67.             Name            =   "宋体"
  68.             Size            =   12
  69.             Charset         =   134
  70.             Weight          =   700
  71.             Underline       =   0   'False
  72.             Italic          =   0   'False
  73.             Strikethrough   =   0   'False
  74.          EndProperty
  75.          ForeColor       =   &H00000000&
  76.          Height          =   240
  77.          Index           =   4
  78.          Left            =   480
  79.          TabIndex        =   2
  80.          Top             =   210
  81.          Width           =   2040
  82.       End
  83.    End
  84.    Begin VB.Timer Timer1 
  85.       Enabled         =   0   'False
  86.       Interval        =   1
  87.       Left            =   7620
  88.       Top             =   90
  89.    End
  90.    Begin VSFlex8Ctl.VSFlexGrid CxbbGrid 
  91.       Height          =   7545
  92.       Left            =   30
  93.       TabIndex        =   0
  94.       Top             =   1470
  95.       Width           =   11775
  96.       _cx             =   5080
  97.       _cy             =   5080
  98.       Appearance      =   1
  99.       BorderStyle     =   1
  100.       Enabled         =   -1  'True
  101.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  102.          Name            =   "宋体"
  103.          Size            =   9
  104.          Charset         =   134
  105.          Weight          =   400
  106.          Underline       =   0   'False
  107.          Italic          =   0   'False
  108.          Strikethrough   =   0   'False
  109.       EndProperty
  110.       MousePointer    =   0
  111.       BackColor       =   16777215
  112.       ForeColor       =   -2147483640
  113.       BackColorFixed  =   13826538
  114.       ForeColorFixed  =   -2147483630
  115.       BackColorSel    =   -2147483635
  116.       ForeColorSel    =   -2147483634
  117.       BackColorBkg    =   -2147483636
  118.       BackColorAlternate=   16777215
  119.       GridColor       =   -2147483633
  120.       GridColorFixed  =   -2147483632
  121.       TreeColor       =   -2147483632
  122.       FloodColor      =   192
  123.       SheetBorder     =   -2147483642
  124.       FocusRect       =   1
  125.       HighLight       =   1
  126.       AllowSelection  =   -1  'True
  127.       AllowBigSelection=   -1  'True
  128.       AllowUserResizing=   0
  129.       SelectionMode   =   0
  130.       GridLines       =   1
  131.       GridLinesFixed  =   2
  132.       GridLineWidth   =   1
  133.       Rows            =   50
  134.       Cols            =   10
  135.       FixedRows       =   1
  136.       FixedCols       =   1
  137.       RowHeightMin    =   0
  138.       RowHeightMax    =   0
  139.       ColWidthMin     =   0
  140.       ColWidthMax     =   0
  141.       ExtendLastCol   =   0   'False
  142.       FormatString    =   ""
  143.       ScrollTrack     =   0   'False
  144.       ScrollBars      =   3
  145.       ScrollTips      =   0   'False
  146.       MergeCells      =   0
  147.       MergeCompare    =   0
  148.       AutoResize      =   -1  'True
  149.       AutoSizeMode    =   0
  150.       AutoSearch      =   0
  151.       AutoSearchDelay =   2
  152.       MultiTotals     =   -1  'True
  153.       SubtotalPosition=   1
  154.       OutlineBar      =   0
  155.       OutlineCol      =   0
  156.       Ellipsis        =   0
  157.       ExplorerBar     =   0
  158.       PicturesOver    =   0   'False
  159.       FillStyle       =   0
  160.       RightToLeft     =   0   'False
  161.       PictureType     =   0
  162.       TabBehavior     =   0
  163.       OwnerDraw       =   0
  164.       Editable        =   0
  165.       ShowComboButton =   1
  166.       WordWrap        =   0   'False
  167.       TextStyle       =   0
  168.       TextStyleFixed  =   0
  169.       OleDragMode     =   0
  170.       OleDropMode     =   0
  171.       DataMode        =   0
  172.       VirtualData     =   -1  'True
  173.       DataMember      =   ""
  174.       ComboSearch     =   3
  175.       AutoSizeMouse   =   -1  'True
  176.       FrozenRows      =   0
  177.       FrozenCols      =   0
  178.       AllowUserFreezing=   0
  179.       BackColorFrozen =   0
  180.       ForeColorFrozen =   0
  181.       WallPaperAlignment=   9
  182.       AccessibleName  =   ""
  183.       AccessibleDescription=   ""
  184.       AccessibleValue =   ""
  185.       AccessibleRole  =   24
  186.       Begin MSComctlLib.ImageList ImageList2 
  187.          Left            =   0
  188.          Top             =   0
  189.          _ExtentX        =   1005
  190.          _ExtentY        =   1005
  191.          BackColor       =   -2147483643
  192.          ImageWidth      =   16
  193.          ImageHeight     =   16
  194.          MaskColor       =   12632256
  195.          _Version        =   393216
  196.          BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628} 
  197.             NumListImages   =   40
  198.             BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  199.                Picture         =   "包装物管理系统_单据列表_附属物入库单列表查询结果(单据式).frx":1D80A
  200.                Key             =   "sz"
  201.             EndProperty
  202.             BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  203.                Picture         =   "包装物管理系统_单据列表_附属物入库单列表查询结果(单据式).frx":1DBA4
  204.                Key             =   "dy"
  205.             EndProperty
  206.             BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  207.                Picture         =   "包装物管理系统_单据列表_附属物入库单列表查询结果(单据式).frx":1DF3E
  208.                Key             =   "yl"
  209.             EndProperty
  210.             BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  211.                Picture         =   "包装物管理系统_单据列表_附属物入库单列表查询结果(单据式).frx":1E2D8
  212.                Key             =   "xg"
  213.             EndProperty
  214.             BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  215.                Picture         =   "包装物管理系统_单据列表_附属物入库单列表查询结果(单据式).frx":1E672
  216.                Key             =   "zh"
  217.             EndProperty
  218.             BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  219.                Picture         =   "包装物管理系统_单据列表_附属物入库单列表查询结果(单据式).frx":1EA0C
  220.                Key             =   "sh"
  221.             EndProperty
  222.             BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  223.                Picture         =   "包装物管理系统_单据列表_附属物入库单列表查询结果(单据式).frx":1EDA6
  224.                Key             =   "bc"
  225.             EndProperty
  226.             BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  227.                Picture         =   "包装物管理系统_单据列表_附属物入库单列表查询结果(单据式).frx":1F140
  228.                Key             =   "fq"
  229.             EndProperty
  230.             BeginProperty ListImage9 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  231.                Picture         =   "包装物管理系统_单据列表_附属物入库单列表查询结果(单据式).frx":1F4DA
  232.                Key             =   "bz"
  233.             EndProperty
  234.             BeginProperty ListImage10 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  235.                Picture         =   "包装物管理系统_单据列表_附属物入库单列表查询结果(单据式).frx":1F874
  236.                Key             =   "tc"
  237.             EndProperty
  238.             BeginProperty ListImage11 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  239.                Picture         =   "包装物管理系统_单据列表_附属物入库单列表查询结果(单据式).frx":1FC0E
  240.                Key             =   "bcgs"
  241.             EndProperty
  242.             BeginProperty ListImage12 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  243.                Picture         =   "包装物管理系统_单据列表_附属物入库单列表查询结果(单据式).frx":1FFA8
  244.                Key             =   "mrlk"
  245.             EndProperty
  246.             BeginProperty ListImage13 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  247.                Picture         =   "包装物管理系统_单据列表_附属物入库单列表查询结果(单据式).frx":20342
  248.                Key             =   "xsxm"
  249.             EndProperty
  250.             BeginProperty ListImage14 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  251.                Picture         =   "包装物管理系统_单据列表_附属物入库单列表查询结果(单据式).frx":206DC
  252.                Key             =   "first"
  253.             EndProperty
  254.             BeginProperty ListImage15 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  255.                Picture         =   "包装物管理系统_单据列表_附属物入库单列表查询结果(单据式).frx":20A76
  256.                Key             =   "prev"
  257.             EndProperty
  258.             BeginProperty ListImage16 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  259.                Picture         =   "包装物管理系统_单据列表_附属物入库单列表查询结果(单据式).frx":20E10
  260.                Key             =   "next"
  261.             EndProperty
  262.             BeginProperty ListImage17 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  263.                Picture         =   "包装物管理系统_单据列表_附属物入库单列表查询结果(单据式).frx":211AA
  264.                Key             =   "last"
  265.             EndProperty
  266.             BeginProperty ListImage18 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  267.                Picture         =   "包装物管理系统_单据列表_附属物入库单列表查询结果(单据式).frx":21544
  268.                Key             =   "xx"
  269.             EndProperty
  270.             BeginProperty ListImage19 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  271.                Picture         =   "包装物管理系统_单据列表_附属物入库单列表查询结果(单据式).frx":218DE
  272.                Key             =   "define"
  273.             EndProperty
  274.             BeginProperty ListImage20 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  275.                Picture         =   "包装物管理系统_单据列表_附属物入库单列表查询结果(单据式).frx":21C78
  276.                Key             =   "exec"
  277.             EndProperty
  278.             BeginProperty ListImage21 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  279.                Picture         =   "包装物管理系统_单据列表_附属物入库单列表查询结果(单据式).frx":22012
  280.                Key             =   "xz"
  281.             EndProperty
  282.             BeginProperty ListImage22 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  283.                Picture         =   "包装物管理系统_单据列表_附属物入库单列表查询结果(单据式).frx":223AC
  284.                Key             =   "sc"
  285.             EndProperty
  286.             BeginProperty ListImage23 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  287.                Picture         =   "包装物管理系统_单据列表_附属物入库单列表查询结果(单据式).frx":22746
  288.                Key             =   "sx"
  289.             EndProperty
  290.             BeginProperty ListImage24 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  291.                Picture         =   "包装物管理系统_单据列表_附属物入库单列表查询结果(单据式).frx":22AE0
  292.                Key             =   "cx"
  293.             EndProperty
  294.             BeginProperty ListImage25 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  295.                Picture         =   "包装物管理系统_单据列表_附属物入库单列表查询结果(单据式).frx":22E7A
  296.                Key             =   "zd"
  297.             EndProperty
  298.             BeginProperty ListImage26 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  299.                Picture         =   "包装物管理系统_单据列表_附属物入库单列表查询结果(单据式).frx":23214
  300.                Key             =   "dz"
  301.             EndProperty
  302.             BeginProperty ListImage27 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  303.                Picture         =   "包装物管理系统_单据列表_附属物入库单列表查询结果(单据式).frx":235AE
  304.                Key             =   "ph"
  305.             EndProperty
  306.             BeginProperty ListImage28 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  307.                Picture         =   "包装物管理系统_单据列表_附属物入库单列表查询结果(单据式).frx":23948
  308.                Key             =   "fz"
  309.             EndProperty
  310.             BeginProperty ListImage29 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  311.                Picture         =   "包装物管理系统_单据列表_附属物入库单列表查询结果(单据式).frx":23CE2
  312.                Key             =   "dw"
  313.             EndProperty
  314.             BeginProperty ListImage30 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  315.                Picture         =   "包装物管理系统_单据列表_附属物入库单列表查询结果(单据式).frx":2407C
  316.                Key             =   "hf"
  317.             EndProperty
  318.             BeginProperty ListImage31 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  319.                Picture         =   "包装物管理系统_单据列表_附属物入库单列表查询结果(单据式).frx":24416
  320.                Key             =   "pz"
  321.             EndProperty
  322.             BeginProperty ListImage32 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  323.                Picture         =   "包装物管理系统_单据列表_附属物入库单列表查询结果(单据式).frx":247B0
  324.                Key             =   "check"
  325.             EndProperty
  326.             BeginProperty ListImage33 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  327.                Picture         =   "包装物管理系统_单据列表_附属物入库单列表查询结果(单据式).frx":24B4A
  328.                Key             =   "qs"
  329.             EndProperty
  330.             BeginProperty ListImage34 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  331.                Picture         =   "包装物管理系统_单据列表_附属物入库单列表查询结果(单据式).frx":24EE4
  332.                Key             =   "fullcheck"
  333.             EndProperty
  334.             BeginProperty ListImage35 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  335.                Picture         =   "包装物管理系统_单据列表_附属物入库单列表查询结果(单据式).frx":2527E
  336.                Key             =   "qq"
  337.             EndProperty
  338.             BeginProperty ListImage36 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  339.                Picture         =   "包装物管理系统_单据列表_附属物入库单列表查询结果(单据式).frx":25618
  340.                Key             =   "bcw"
  341.             EndProperty
  342.             BeginProperty ListImage37 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  343.                Picture         =   "包装物管理系统_单据列表_附属物入库单列表查询结果(单据式).frx":259B2
  344.                Key             =   "ye"
  345.             EndProperty
  346.             BeginProperty ListImage38 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  347.                Picture         =   "包装物管理系统_单据列表_附属物入库单列表查询结果(单据式).frx":25D4C
  348.                Key             =   ""
  349.             EndProperty
  350.             BeginProperty ListImage39 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  351.                Picture         =   "包装物管理系统_单据列表_附属物入库单列表查询结果(单据式).frx":260E6
  352.                Key             =   "frist"
  353.             EndProperty
  354.             BeginProperty ListImage40 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  355.                Picture         =   "包装物管理系统_单据列表_附属物入库单列表查询结果(单据式).frx":26480
  356.                Key             =   "dj"
  357.             EndProperty
  358.          EndProperty
  359.       End
  360.    End
  361.    Begin MSComctlLib.Toolbar SzToolbar 
  362.       Align           =   1  'Align Top
  363.       Height          =   555
  364.       Left            =   0
  365.       TabIndex        =   4
  366.       Top             =   0
  367.       Width           =   11820
  368.       _ExtentX        =   20849
  369.       _ExtentY        =   979
  370.       ButtonWidth     =   820
  371.       ButtonHeight    =   926
  372.       AllowCustomize  =   0   'False
  373.       Appearance      =   1
  374.       Style           =   1
  375.       ImageList       =   "ImageList1"
  376.       _Version        =   393216
  377.       BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628} 
  378.          NumButtons      =   12
  379.          BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  380.             Caption         =   "设置"
  381.             Key             =   "ymsz"
  382.             ImageKey        =   "sz"
  383.          EndProperty
  384.          BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  385.             Caption         =   "打印"
  386.             Key             =   "dy"
  387.             ImageKey        =   "dy"
  388.          EndProperty
  389.          BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  390.             Caption         =   "预览"
  391.             Key             =   "yl"
  392.             ImageKey        =   "yl"
  393.          EndProperty
  394.          BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  395.             Style           =   3
  396.          EndProperty
  397.          BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  398.             Caption         =   "查询"
  399.             Key             =   "cx"
  400.             ImageKey        =   "cx"
  401.          EndProperty
  402.          BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  403.             Caption         =   "单据"
  404.             Key             =   "Bill"
  405.             ImageKey        =   "pz"
  406.          EndProperty
  407.          BeginProperty Button7 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  408.             Style           =   3
  409.          EndProperty
  410.          BeginProperty Button8 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  411.             Caption         =   "新增"
  412.             Key             =   "xz"
  413.             ImageKey        =   "xz"
  414.          EndProperty
  415.          BeginProperty Button9 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  416.             Caption         =   "删除"
  417.             Key             =   "sc"
  418.             ImageKey        =   "sc"
  419.          EndProperty
  420.          BeginProperty Button10 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  421.             Style           =   3
  422.          EndProperty
  423.          BeginProperty Button11 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  424.             Caption         =   "帮助"
  425.             Key             =   "bz"
  426.             ImageKey        =   "bz"
  427.          EndProperty
  428.          BeginProperty Button12 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  429.             Caption         =   "退出"
  430.             Key             =   "fh"
  431.             ImageKey        =   "tc"
  432.          EndProperty
  433.       EndProperty
  434.       BorderStyle     =   1
  435.       Begin MSComctlLib.ImageList ImageList1 
  436.          Left            =   6990
  437.          Top             =   30
  438.          _ExtentX        =   1005
  439.          _ExtentY        =   1005
  440.          BackColor       =   -2147483643
  441.          ImageWidth      =   16
  442.          ImageHeight     =   16
  443.          MaskColor       =   12632256
  444.          _Version        =   393216
  445.          BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628} 
  446.             NumListImages   =   32
  447.             BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  448.                Picture         =   "包装物管理系统_单据列表_附属物入库单列表查询结果(单据式).frx":2681A
  449.                Key             =   "sz"
  450.             EndProperty
  451.             BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  452.                Picture         =   "包装物管理系统_单据列表_附属物入库单列表查询结果(单据式).frx":26BB4
  453.                Key             =   "dy"
  454.             EndProperty
  455.             BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  456.                Picture         =   "包装物管理系统_单据列表_附属物入库单列表查询结果(单据式).frx":26F4E
  457.                Key             =   "yl"
  458.             EndProperty
  459.             BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  460.                Picture         =   "包装物管理系统_单据列表_附属物入库单列表查询结果(单据式).frx":272E8
  461.                Key             =   "xg"
  462.             EndProperty
  463.             BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  464.                Picture         =   "包装物管理系统_单据列表_附属物入库单列表查询结果(单据式).frx":27682
  465.                Key             =   "zh"
  466.             EndProperty
  467.             BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  468.                Picture         =   "包装物管理系统_单据列表_附属物入库单列表查询结果(单据式).frx":27A1C
  469.                Key             =   "sh"
  470.             EndProperty
  471.             BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  472.                Picture         =   "包装物管理系统_单据列表_附属物入库单列表查询结果(单据式).frx":27DB6
  473.                Key             =   "bc"
  474.             EndProperty
  475.             BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  476.                Picture         =   "包装物管理系统_单据列表_附属物入库单列表查询结果(单据式).frx":28150
  477.                Key             =   "fq"
  478.             EndProperty
  479.             BeginProperty ListImage9 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  480.                Picture         =   "包装物管理系统_单据列表_附属物入库单列表查询结果(单据式).frx":284EA
  481.                Key             =   "bz"
  482.             EndProperty
  483.             BeginProperty ListImage10 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  484.                Picture         =   "包装物管理系统_单据列表_附属物入库单列表查询结果(单据式).frx":28884
  485.                Key             =   "tc"
  486.             EndProperty
  487.             BeginProperty ListImage11 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  488.                Picture         =   "包装物管理系统_单据列表_附属物入库单列表查询结果(单据式).frx":28C1E
  489.                Key             =   "bcgs"
  490.             EndProperty
  491.             BeginProperty ListImage12 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  492.                Picture         =   "包装物管理系统_单据列表_附属物入库单列表查询结果(单据式).frx":28FB8
  493.                Key             =   "mrlk"
  494.             EndProperty
  495.             BeginProperty ListImage13 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  496.                Picture         =   "包装物管理系统_单据列表_附属物入库单列表查询结果(单据式).frx":29352
  497.                Key             =   "xsxm"
  498.             EndProperty
  499.             BeginProperty ListImage14 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  500.                Picture         =   "包装物管理系统_单据列表_附属物入库单列表查询结果(单据式).frx":296EC
  501.                Key             =   "first"
  502.             EndProperty
  503.             BeginProperty ListImage15 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  504.                Picture         =   "包装物管理系统_单据列表_附属物入库单列表查询结果(单据式).frx":29A86
  505.                Key             =   "prev"
  506.             EndProperty
  507.             BeginProperty ListImage16 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  508.                Picture         =   "包装物管理系统_单据列表_附属物入库单列表查询结果(单据式).frx":29E20
  509.                Key             =   "next"
  510.             EndProperty
  511.             BeginProperty ListImage17 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  512.                Picture         =   "包装物管理系统_单据列表_附属物入库单列表查询结果(单据式).frx":2A1BA
  513.                Key             =   "last"
  514.             EndProperty
  515.             BeginProperty ListImage18 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  516.                Picture         =   "包装物管理系统_单据列表_附属物入库单列表查询结果(单据式).frx":2A554
  517.                Key             =   "xx"
  518.             EndProperty
  519.             BeginProperty ListImage19 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  520.                Picture         =   "包装物管理系统_单据列表_附属物入库单列表查询结果(单据式).frx":2A8EE
  521.                Key             =   "define"
  522.             EndProperty
  523.             BeginProperty ListImage20 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  524.                Picture         =   "包装物管理系统_单据列表_附属物入库单列表查询结果(单据式).frx":2AC88
  525.                Key             =   "exec"
  526.             EndProperty
  527.             BeginProperty ListImage21 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  528.                Picture         =   "包装物管理系统_单据列表_附属物入库单列表查询结果(单据式).frx":2B022
  529.                Key             =   "xz"
  530.             EndProperty
  531.             BeginProperty ListImage22 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  532.                Picture         =   "包装物管理系统_单据列表_附属物入库单列表查询结果(单据式).frx":2B3BC
  533.                Key             =   "sc"
  534.             EndProperty
  535.             BeginProperty ListImage23 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  536.                Picture         =   "包装物管理系统_单据列表_附属物入库单列表查询结果(单据式).frx":2B756
  537.                Key             =   "sx"
  538.             EndProperty
  539.             BeginProperty ListImage24 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  540.                Picture         =   "包装物管理系统_单据列表_附属物入库单列表查询结果(单据式).frx":2BAF0
  541.                Key             =   "cx"
  542.             EndProperty
  543.             BeginProperty ListImage25 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  544.                Picture         =   "包装物管理系统_单据列表_附属物入库单列表查询结果(单据式).frx":2BE8A
  545.                Key             =   "zd"
  546.             EndProperty
  547.             BeginProperty ListImage26 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  548.                Picture         =   "包装物管理系统_单据列表_附属物入库单列表查询结果(单据式).frx":2C224
  549.                Key             =   "dz"
  550.             EndProperty
  551.             BeginProperty ListImage27 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  552.                Picture         =   "包装物管理系统_单据列表_附属物入库单列表查询结果(单据式).frx":2C5BE
  553.                Key             =   "ph"
  554.             EndProperty
  555.             BeginProperty ListImage28 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  556.                Picture         =   "包装物管理系统_单据列表_附属物入库单列表查询结果(单据式).frx":2C958
  557.                Key             =   "fz"
  558.             EndProperty
  559.             BeginProperty ListImage29 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  560.                Picture         =   "包装物管理系统_单据列表_附属物入库单列表查询结果(单据式).frx":2CCF2
  561.                Key             =   "dw"
  562.             EndProperty
  563.             BeginProperty ListImage30 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  564.                Picture         =   "包装物管理系统_单据列表_附属物入库单列表查询结果(单据式).frx":2D08C
  565.                Key             =   "hf"
  566.             EndProperty
  567.             BeginProperty ListImage31 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  568.                Picture         =   "包装物管理系统_单据列表_附属物入库单列表查询结果(单据式).frx":2D426
  569.                Key             =   "pz"
  570.             EndProperty
  571.             BeginProperty ListImage32 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  572.                Picture         =   "包装物管理系统_单据列表_附属物入库单列表查询结果(单据式).frx":2D7C0
  573.                Key             =   "check"
  574.             EndProperty
  575.          EndProperty
  576.       End
  577.    End
  578. End
  579. Attribute VB_Name = "Cask_AppertainInList"
  580. Attribute VB_GlobalNameSpace = False
  581. Attribute VB_Creatable = False
  582. Attribute VB_PredeclaredId = True
  583. Attribute VB_Exposed = False
  584. '**************************************************************************
  585. '*    模 块 名 称 :附属物入库单列表
  586. '*    功 能 描 述 :
  587. '*    程序员姓名  :邹力
  588. '*    最后修改人  :
  589. '*    最后修改时间:2001/12/17
  590. '*    备        注:程序中所有依实际情况自定义部分均用[>>  <<]括起
  591. '**************************************************************************
  592. Dim ReportTitle As String                '报表主标题
  593. Dim Str_QueryCondi As String             '用户录入查询条件
  594. Dim Rec_BillID As New ADODB.Recordset    '用户查询单据ID动态集
  596. '以下为固定使用变量
  597. Dim Dyymctbl As New DY_Dyymsz            '打印页面窗体变量
  598. Dim GridCode As String                   '显示网格网格代码
  599. Dim GridInf() As Variant                 '整个网格设置信息
  600. Dim Tsxx As String                       '系统提示信息
  601. Dim Qslz As Long                         '网格隐藏(非操作显示)列数
  602. Dim Sjhgd As Double                      '网格数据行高度
  603. Dim Sfxshjwg As Boolean                  '是否显示合计网格
  604. Dim GridBoolean() As Boolean             '网格列信息(布尔型)
  605. Dim GridStr()  As String                 '网格列信息(字符型)
  606. Dim GridInt() As Integer                 '网格列信息(整型)
  607. Dim Szzls As Integer                     '数组总列数(网格列数-1)
  609. Private Sub Form_Resize()                '根据窗体大小来调整网格,标题栏大小(Fixed)
  610.     On Error Resume Next
  611.     With CxbbGrid
  612.         .Width = Me.Width - 160
  613.         .Height = Me.Height - .Top - 400
  614.     End With
  615.     With Pic_Title
  616.         .Width = Me.Width - 160
  617.     End With
  618.     
  619.     GsToolbar.Left = Me.Width - GsToolbar.Width - 140
  621. End Sub
  623. Private Sub Form_Load()                                                   '窗体装入
  624.   
  625.     '调入打印页面设置窗体
  626.     ReportTitle = "附属物入库单列表"
  627.     XtReportCode = "Cask_AppertainInList"
  628.     Load Dyymctbl
  629.       
  630.     '调整标题栏及网格、格式工具条位置(Fixed)
  631.     Pic_Title.Left = 40
  632.     Pic_Title.Top = SzToolbar.Top + SzToolbar.Height - 10
  633.     CxbbGrid.Left = Pic_Title.Left
  634.     CxbbGrid.Top = Pic_Title.Top + Pic_Title.Height + 20
  635.      
  636.     '调 入 网 格(Fixed)
  637.     GridCode = "Cask_AppertainInList"
  638.     Call BzWgcsh(CxbbGrid, GridCode, GridInf(), GridBoolean(), GridInt(), GridStr())
  639.       
  640.     Qslz = GridInf(1)
  641.     Sjhgd = GridInf(2)
  642.     Sfxshjwg = GridInf(7)
  643.     Szzls = CxbbGrid.Cols - 1
  645. End Sub
  647. Private Sub Form_Unload(Cancel As Integer)                                  '窗体卸载
  649.     '卸载条件窗体
  650.     Cask_AppertainInListQuery.UnloadCheck.Value = 1
  651.     Unload Cask_AppertainInListQuery
  652.     
  653.     '卸载打印页面设置窗体
  654.     Unload Dyymctbl
  656. End Sub
  658. Private Sub CxbbGrid_BeforeMoveColumn(ByVal Col As Long, Position As Long)           '网格列发生移动时自动交换网格索引信息
  659.     Call FnBln_RefreshArray(Col, Position, GridStr(), GridInf())
  660. End Sub
  662. Private Sub GsToolbar_ButtonClick(ByVal Button As MSComctlLib.Button)                '网格格式调整(Fixed)
  663.   
  664.     Select Case Button.Key
  665.         Case "bcgs"                                          '保存表格格式
  666.             Call Bcwggs(CxbbGrid, GridCode, GridStr())
  667.         Case "hfmrgs"                                        '恢复默认格式
  668.             Call Hfmrgs(CxbbGrid, GridCode, GridStr())
  669.         Case "szxsxm"                                        '设置显示项目
  670.             Call Szxsxm(CxbbGrid, GridCode)
  671.     End Select
  673. End Sub
  675. Private Sub SzToolbar_ButtonClick(ByVal Button As MSComctlLib.Button)
  676.     
  677.     Select Case Button.Key
  678.         Case "ymsz"                                          '页面设置
  679.             Dyymctbl.Show 1
  680.         Case "yl"                                            '预 览
  681.             Call bbyl(True)
  682.         Case "dy"                                            '打 印
  683.             Call bbyl(False)
  684.         Case "cx"                                            '查 询
  685.             Cask_AppertainInListQuery.Show 1
  686.         Case "Bill"                                          '单 据
  687.             Call CxbbGrid_DblClick
  688.         Case "xz"                                            '新 增
  689.             '判断用户是否有此功能执行权限,如有则写上机日志(进入)
  690.             If Not Security_Log("Cask_AppertainInEdit", Xtczybm, 1, True) Then
  691.                 Exit Sub
  692.             End If
  693.             Call Sub_AddBill
  694.         Case "sc"                                            '删 除
  695.             '判断用户是否有此功能执行权限,如有则写上机日志(进入)
  696.             If Not Security_Log("Cask_AppertainInEdit", Xtczybm, 1, True) Then
  697.                 Exit Sub
  698.             End If
  699.             Call Sub_DeleteBill
  700.         Case "bz"                                            '帮 助
  701.             Call F1bz
  702.         Case "fh"                                            '退 出
  703.            Unload Me
  704.     End Select
  706. End Sub
  708. Private Sub Timer1_Timer()                                 '在窗体激活后调入查询程序
  709.     
  710.     Timer1.Enabled = False
  711.     Xt_Wait.Show
  712.     Xt_Wait.Refresh
  713.    
  714.     '加快显示速度
  715.     CxbbGrid.Redraw = False
  716.  
  717.     '生成查询结果
  718.     Call Sub_Query(0)
  719.    
  720.     CxbbGrid.Redraw = True
  721.     
  722.     Xt_Wait.Hide
  724. End Sub
  726. Private Sub Sub_Query(Int_QueryType As Integer)                                     '生成查询结果(Define)
  727.     
  728.     '过程参数:Int_QueryType 0-"点确定按钮"查询  1-"刷新"查询
  730.     Dim Rec_Query As New ADODB.Recordset        '查询结果动态集
  731.     Dim Coljsq As Long                          '网格列计数器
  732.     Dim Jsqte As Long                         '临时动态计数器
  734.     '以下为自定义部分[
  735.  
  736.     If Int_QueryType = 0 Then   '0-"点确定按钮"查询
  737.         With Cask_AppertainInListQuery
  738.          
  739.             '生成查询条件
  740.             Str_QueryCondi = " where BillType=1 "
  741.             For Jsqte = 0 To 17
  742.                 Select Case Jsqte
  743.                     Case 0              '开始日期--------结束日期
  744.                         If Trim(.LrText(0).Text) <> "" Then
  745.                             If Trim(.LrText(1).Text) <> "" Then
  746.                                 Str_QueryCondi = Str_QueryCondi & " and HIDate between '" & CDate(Trim(.LrText(0).Text)) & "' and '" & CDate(Trim(.LrText(1).Text)) & "'"
  747.                             Else
  748.                                 Str_QueryCondi = Str_QueryCondi & " and HIDate>='" & CDate(Trim(.LrText(0).Text)) & "'"
  749.                             End If
  750.                         Else
  751.                            If Trim(.LrText(1).Text) <> "" Then
  752.                               Str_QueryCondi = Str_QueryCondi & " and HIDate<='" & CDate(Trim(.LrText(1).Text)) & "'"
  753.                            Else
  754.                            End If
  755.                         End If
  756.                     Case 1  '单据号
  757.                         If Trim(.LrText(2).Text) <> "" Then
  758.                             Str_QueryCondi = Str_QueryCondi & " And BillNum= '" & Trim(.LrText(2).Text) & "'"
  759.                         End If
  760.                      Case 2  '包装物
  761.                         If Trim(.LrText(3).Text) <> "" Then
  762.                             Str_QueryCondi = Str_QueryCondi & " And WrappageCode='" & Trim(.LrText(3).Tag) & "'"
  763.                         End If
  764.                      Case 3  '仓库
  765.                         If Trim(.LrText(4).Text) <> "" Then
  766.                             Str_QueryCondi = Str_QueryCondi & " And WhCode='" & Trim(.LrText(4).Tag) & "'"
  767.                         End If
  768.                    Case 4  '业务类型
  769.                         If Trim(.LrText(5).Text) <> "" Then
  770.                             Str_QueryCondi = Str_QueryCondi & " And StyleTypeCode='" & Trim(.LrText(5).Tag) & "'"
  771.                         End If
  772.                     Case 5  '供应商
  773.                         If Trim(.LrText(6).Text) <> "" Then
  774.                             Str_QueryCondi = Str_QueryCondi & " and SupplierCode = '" & Trim(.LrText(6).Tag) & "'"
  775.                         End If
  776.                     Case 6  '部门
  777.                         If Trim(.LrText(7).Text) <> "" Then
  778.                             Str_QueryCondi = Str_QueryCondi & " and DeptCode= '" & Trim(.LrText(7).Tag) & "'"
  779.                         End If
  780.                     Case 7  '附属物
  781.                         If Trim(.LrText(8).Text) <> "" Then
  782.                             Str_QueryCondi = Str_QueryCondi & " and AppertainCode = '" & Trim(.LrText(8).Tag) & "'"
  783.                         End If
  784.                     Case 8  '状态
  785.                         If Trim(.LrText(9).Text) <> "" Then
  786.                             Str_QueryCondi = Str_QueryCondi & " and sStatusName= '" & Trim(.LrText(9).Text) & "'"
  787.                         End If
  788.                     Case 9  '运输方式
  789.                         If Trim(.LrText(10).Text) <> "" Then
  790.                             Str_QueryCondi = Str_QueryCondi & " and TransferWayCode= '" & Trim(.LrText(10).Tag) & "'"
  791.                         End If
  792.                     Case 10  '业务员
  793.                         If Trim(.LrText(11).Text) <> "" Then
  794.                             Str_QueryCondi = Str_QueryCondi & " and Drawer= '" & Trim(.LrText(11).Tag) & "'"
  795.                         End If
  796.                     Case 11  '验收人
  797.                         If Trim(.LrText(12).Text) <> "" Then
  798.                             Str_QueryCondi = Str_QueryCondi & " and CheckAndAccept= '" & Trim(.LrText(12).Tag) & "'"
  799.                         End If
  800.                     Case 12  '制单人
  801.                         If Trim(.LrText(13).Text) <> "" Then
  802.                             Str_QueryCondi = Str_QueryCondi & " and Maker= '" & Trim(.LrText(13).Text) & "'"
  803.                         End If
  804.                     Case 13  '包装物数量
  805.                         If Trim(.LrText(14).Text) <> "" Then
  806.                             Str_QueryCondi = Str_QueryCondi & " And QuantityIn>=" & Val(.LrText(14).Text)
  807.                         End If
  808.                     Case 14  '包装物数量
  809.                         If Trim(.LrText(15).Text) <> "" Then
  810.                             Str_QueryCondi = Str_QueryCondi & " And QuantityIn<=" & Val(.LrText(15).Text)
  811.                         End If
  812.                     Case 15  '附属物数量
  813.                         If Trim(.LrText(16).Text) <> "" Then
  814.                             Str_QueryCondi = Str_QueryCondi & " And sQuantity>=" & Val(.LrText(16).Text)
  815.                         End If
  816.                     Case 16 '附属物数量
  817.                         If Trim(.LrText(17).Text) <> "" Then
  818.                             Str_QueryCondi = Str_QueryCondi & " And sQuantity<=" & Val(.LrText(17).Text)
  819.                         End If
  820.                     Case 17 '审核状态
  821.                         If Not .Opt_Check(0).Value Then
  822.                             If .Opt_Check(1).Value Then
  823.                                 Str_QueryCondi = Str_QueryCondi & " and  Checker='' "
  824.                             Else
  825.                                 Str_QueryCondi = Str_QueryCondi & " and  Checker<>'' "
  826.                             End If
  827.                         End If
  828.                 End Select
  829.             Next Jsqte
  830.         End With
  831.     Else
  832.         '1-"刷新"查询
  833.         If Str_QueryCondi = "" Then
  834.             Str_QueryCondi = " where 1=2 "
  835.         End If
  836.     End If
  837.      
  838.     Sqlstr = "SELECT * FROM Cask_V_Appertain " & Str_QueryCondi & " Order By BillCode"
  840.     Set Rec_Query = Cw_DataEnvi.DataConnect.Execute(Sqlstr)
  841.     With Rec_Query
  842.         CxbbGrid.Rows = CxbbGrid.FixedRows
  843.         Jsqte = CxbbGrid.FixedRows
  844.         Do While Not .EOF
  845.             CxbbGrid.AddItem ""
  846.             '[>>自定义填充内容
  847.             CxbbGrid.TextMatrix(Jsqte, 0) = !BillCode                                                                 '单据ID
  848.             CxbbGrid.TextMatrix(Jsqte, Sydz("001", GridStr(), Szzls)) = Format(Trim(!HIDate & ""), "yyyy-mm-dd")      '入库日期
  849.             CxbbGrid.TextMatrix(Jsqte, Sydz("002", GridStr(), Szzls)) = Trim(!StyleTypeName & "")                     '业务类型
  850.             CxbbGrid.TextMatrix(Jsqte, Sydz("003", GridStr(), Szzls)) = Trim(!BillNum & "")                           '单据号
  851.             CxbbGrid.TextMatrix(Jsqte, Sydz("004", GridStr(), Szzls)) = Trim(!WrappageCode & "")                      '包装物编码
  852.             CxbbGrid.TextMatrix(Jsqte, Sydz("005", GridStr(), Szzls)) = Trim(!WrappageName & "")                      '包装物名称
  853.             CxbbGrid.TextMatrix(Jsqte, Sydz("006", GridStr(), Szzls)) = Trim(!WhName & "")                            '仓库
  854.             CxbbGrid.TextMatrix(Jsqte, Sydz("007", GridStr(), Szzls)) = Trim(!SupplierName & "")                      '供应商
  855.             CxbbGrid.TextMatrix(Jsqte, Sydz("008", GridStr(), Szzls)) = Trim(!DeptName & "")                          '部门
  856.             CxbbGrid.TextMatrix(Jsqte, Sydz("009", GridStr(), Szzls)) = IIf(Val(!QuantityIn) = 0, "", !QuantityIn)    '数量
  857.             CxbbGrid.TextMatrix(Jsqte, Sydz("010", GridStr(), Szzls)) = Trim(!TransferWayName & "")                   '运输方式
  858.             CxbbGrid.TextMatrix(Jsqte, Sydz("011", GridStr(), Szzls)) = Trim(!DrawerName & "")                        '业务员
  859.             CxbbGrid.TextMatrix(Jsqte, Sydz("012", GridStr(), Szzls)) = Trim(!CheckAndAcceptName & "")                '验收人
  860.             CxbbGrid.TextMatrix(Jsqte, Sydz("013", GridStr(), Szzls)) = Trim(!Checker & "")                           '审核人
  861.             CxbbGrid.TextMatrix(Jsqte, Sydz("014", GridStr(), Szzls)) = Trim(!Maker & "")                             '制单人
  862.             CxbbGrid.TextMatrix(Jsqte, Sydz("015", GridStr(), Szzls)) = Trim(!AppertainCode & "")                     '附属物编码
  863.             CxbbGrid.TextMatrix(Jsqte, Sydz("016", GridStr(), Szzls)) = Trim(!AppertainName & "")                     '附属物名称
  864.             CxbbGrid.TextMatrix(Jsqte, Sydz("017", GridStr(), Szzls)) = Trim(!UnitName & "")                          '计量单位
  865.             CxbbGrid.TextMatrix(Jsqte, Sydz("018", GridStr(), Szzls)) = IIf(Val(!sUnitPrice) = 0, "", !sUnitPrice)    '单价
  866.             CxbbGrid.TextMatrix(Jsqte, Sydz("019", GridStr(), Szzls)) = IIf(Val(!sQuantity) = 0, "", !sQuantity)      '数量
  867.             CxbbGrid.TextMatrix(Jsqte, Sydz("020", GridStr(), Szzls)) = IIf(Val(!sHISMoney) = 0, "", !sHISMoney)      '金额
  868.             CxbbGrid.TextMatrix(Jsqte, Sydz("021", GridStr(), Szzls)) = Trim(!sStatusName & "")                       '状态
  870.             '<<]
  871.             '设置数据行高度(Fixed)
  872.             CxbbGrid.RowHeight(Jsqte) = Sjhgd
  873.      
  874.             '动态集指针加1,同时将计数器加1(Fixed)
  875.             .MoveNext
  876.             Jsqte = Jsqte + 1
  877.         Loop
  878.     End With
  880.     ']以上为用户自定义部分
  882. End Sub
  884. Private Sub CxbbGrid_DblClick()                                              '用户双击网格调入相应单据
  885.     
  886.     Dim RecTemp As New ADODB.Recordset               '临时使用动态集
  887.     
  888.     '当第一次查询结果为空时,判断总记录行是否与固定行数相同,如相同则出现错误(双表头出现此情况)
  889.     If CxbbGrid.Rows = CxbbGrid.FixedRows Then
  890.         Exit Sub
  891.     End If
  892.     
  893.     '非数据行退出
  894.     If CxbbGrid.Row < CxbbGrid.FixedRows Or Val(CxbbGrid.TextMatrix(CxbbGrid.Row, 0)) = 0 Then
  895.         Exit Sub
  896.     End If
  898.     Sqlstr = "SELECT BillNum From Cask_AppertainMain Where BillCode=" & Val(CxbbGrid.TextMatrix(CxbbGrid.Row, 0))
  899.     Set RecTemp = Cw_DataEnvi.DataConnect.Execute(Sqlstr)
  900.     With RecTemp
  901.         If .EOF Then
  902.             Tsxx = "此附属物入库单已被其他用户删除!"
  903.             Call Xtxxts(Tsxx, 0, 4)
  904.             Exit Sub
  905.         Else
  906.             '调入单据处理窗体
  907.             With Cask_AppertainIn
  908.                 
  909.                 '填充查询单据标识
  910.                 Cask_BillID = CxbbGrid.TextMatrix(CxbbGrid.Row, 0)
  911.                 Xtcdcsfz = Str_QueryCondi
  912.                 
  913.                 '设置单据处理为列表查询(修改)状态
  914.                 Xtcdcs = "2"
  915.                 .Show 1
  916.             End With
  917.             If Xtfhcs = "1" Then
  918.                 Tsxx = "附属物入库单发生变化,是否刷新入库单列表?"
  919.                 yhAnswer = Xtxxts(Tsxx, 2, 2)
  920.                 If yhAnswer = 1 Then
  921.                     Xt_Wait.Show
  922.                     Xt_Wait.Refresh
  923.    
  924.                     '加快显示速度
  925.                     CxbbGrid.Redraw = False
  926.  
  927.                     '生成查询结果
  928.                     Call Sub_Query(1)
  929.    
  930.                     CxbbGrid.Redraw = True
  931.                     Xt_Wait.Hide
  932.                 End If
  933.             End If
  934.         End If
  935.     End With
  937. End Sub
  939. Private Sub Sub_AddBill()                                              '新增单据
  940.    
  941.     With Cask_AppertainIn
  942.    
  943.         '设置单据处理为填制单据状态
  944.         Xtcdcs = "1"
  945.          
  946.         .Show 1
  947.     End With
  948.        
  949.     If Xtfhcs = "1" Then
  950.         Tsxx = "附属物入库单发生变化,是否刷新入库单列表?"
  951.         yhAnswer = Xtxxts(Tsxx, 2, 2)
  952.         If yhAnswer = 1 Then
  953.             Xt_Wait.Show
  954.             Xt_Wait.Refresh
  955.    
  956.             '加快显示速度
  957.             CxbbGrid.Redraw = False
  958.  
  959.             '生成查询结果
  960.             Call Sub_Query(1)
  961.    
  962.             CxbbGrid.Redraw = True
  963.             Xt_Wait.Hide
  964.         End If
  965.     End If
  966.    
  967. End Sub
  969. Private Sub Sub_DeleteBill()                                            '删除选中当前入库单
  970.     
  971.     Dim YAnswer As Integer
  972.     Dim Lng_BillID As String            '单据标识
  973.   
  974.     '非数据行退出
  975.     If CxbbGrid.Row < CxbbGrid.FixedRows Or Val(CxbbGrid.TextMatrix(CxbbGrid.Row, 0)) = 0 Then
  976.         Exit Sub
  977.     End If
  978.   
  979.     Tsxx = "请确认是否删除当前入库单?"
  980.     yhAnswer = Xtxxts(Tsxx, 2, 2)
  981.   
  982.     If yhAnswer = 1 Then
  983.         '1.判断当前销售订单是否允许删除
  984.         If Not Fun_AllowDelete Then
  985.             Exit Sub
  986.         End If
  987.   
  988.         '2.删除单据所有内容
  989.         Lng_BillID = Val(CxbbGrid.TextMatrix(CxbbGrid.Row, 0))
  990.         On Error GoTo Swcwcl
  991.         Cw_DataEnvi.DataConnect.BeginTrans
  992.         Cw_DataEnvi.DataConnect.Execute ("Delete  Cask_AppertainSub Where BillCode=" & Lng_BillID)
  993.         Cw_DataEnvi.DataConnect.Execute ("Delete  Cask_AppertainMain Where BillCode=" & Lng_BillID)
  994.         
  995.         Cw_DataEnvi.DataConnect.Execute ("Delete  Cask_HarvestIssueSub Where BillCode=" & Lng_BillID)
  996.         Cw_DataEnvi.DataConnect.Execute ("Delete  Cask_HarvestIssueMain Where BillCode=" & Lng_BillID)
  997.         Cw_DataEnvi.DataConnect.CommitTrans
  998.       
  999.         '删除网格中单据数据
  1000.         Jsqte = CxbbGrid.FixedRows
  1001.         Do While Jsqte <= CxbbGrid.Rows - 1
  1002.             If Val(CxbbGrid.TextMatrix(Jsqte, 0)) = Lng_BillID Then
  1003.                 CxbbGrid.RemoveItem (Jsqte)
  1004.             Else
  1005.                 Jsqte = Jsqte + 1
  1006.             End If
  1007.         Loop
  1008.     Else
  1009.         Exit Sub
  1010.     End If
  1011.     Exit Sub
  1012. Swcwcl:
  1013.     Cw_DataEnvi.DataConnect.RollbackTrans
  1014.     Tsxx = "删除入库单过程中出现未知错误,程序自动恢复删除前状态!"
  1015.     Call Xtxxts(Tsxx, 0, 1)
  1016.     Exit Sub
  1017.   
  1018. End Sub
  1020. Private Function Fun_AllowDelete() As Boolean                                        '判断当前单据是否允许删除
  1021.   
  1022.     Dim RecTemp As New ADODB.Recordset     '临时使用动态集
  1023.     Dim Sqlstr As String                   '查询字符串
  1024.     Dim Lng_BillID As String                 '单据ID
  1025.   
  1026.     Lng_BillID = Val(CxbbGrid.TextMatrix(CxbbGrid.Row, 0))
  1027.     Sqlstr = "Select Checker From  Cask_AppertainMain Where BillCode=" & Lng_BillID
  1028.     Set RecTemp = Cw_DataEnvi.DataConnect.Execute(Sqlstr)
  1029.     With RecTemp
  1030.         If Not .EOF Then
  1031.             If Trim(.Fields("Checker") & "") <> "" Then
  1032.                 Tsxx = "该附属物入库单已审核,不能删除!"
  1033.                 Call Xtxxts(Tsxx, 0, 4)
  1034.                 Exit Function
  1035.             End If
  1036.             End If
  1037.     End With
  1038.     Fun_AllowDelete = True
  1039.   
  1040. End Function
  1042. Private Sub bbyl(bbylte As Boolean)                    '报表打印预览
  1043.     
  1044.     Dim Bbzbt$, Bbxbt() As String, bbxbtzzxs() As Integer, Bbxbtgs As Integer
  1045.     Dim Bbbwh() As String, Bbbwhzzxs() As Integer, Bbbwhgs As Integer
  1046.     Bbxbtgs = 1                                          '报 表 小 标 题 行 数
  1047.     Bbbwhgs = 0                                          '报 表 表 尾 行 数
  1048.     ReDim Bbxbt(1 To Bbxbtgs)
  1049.     ReDim bbxbtzzxs(1 To Bbxbtgs)
  1050.     If Bbbwhgs <> 0 Then
  1051.         ReDim Bbbwh(1 To Bbbwhgs)
  1052.         ReDim Bbbwhzzxs(1 To Bbbwhgs)
  1053.     End If
  1054.     Bbzbt = ReportTitle
  1055.     Bbxbt(1) = ""
  1056.     bbxbtzzxs(1) = 0                                     '报表行组织形式(0-居左 1-居中 2-居右)
  1057.     Call Scyxsjb(CxbbGrid)                               '生成报表数据
  1058.     Call Scdybb(Dyymctbl, Bbzbt, Bbxbt(), bbxbtzzxs(), Bbxbtgs, Bbbwh(), Bbbwhzzxs(), Bbbwhgs, bbylte)
  1059.     If Not bbylte Then
  1060.         Unload DY_Tybbyldy
  1061.     End If
  1063. End Sub