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

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