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

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

企业管理

开发平台：

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 Xs_Q_QuotationList 
  5.    Caption         =   "报价单列表"
  6.    ClientHeight    =   8595
  7.    ClientLeft      =   315
  8.    ClientTop       =   390
  9.    ClientWidth     =   11820
  10.    HelpContextID   =   5001
  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            =   -15
  55.       Picture         =   "报价单列表查询结果.frx":1042
  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           =   1275
  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            =   0
  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":1DF82
  200.                Key             =   "sz"
  201.             EndProperty
  202.             BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  203.                Picture         =   "报价单列表查询结果.frx":1E31C
  204.                Key             =   "dy"
  205.             EndProperty
  206.             BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  207.                Picture         =   "报价单列表查询结果.frx":1E6B6
  208.                Key             =   "yl"
  209.             EndProperty
  210.             BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  211.                Picture         =   "报价单列表查询结果.frx":1EA50
  212.                Key             =   "xg"
  213.             EndProperty
  214.             BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  215.                Picture         =   "报价单列表查询结果.frx":1EDEA
  216.                Key             =   "zh"
  217.             EndProperty
  218.             BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  219.                Picture         =   "报价单列表查询结果.frx":1F184
  220.                Key             =   "sh"
  221.             EndProperty
  222.             BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  223.                Picture         =   "报价单列表查询结果.frx":1F51E
  224.                Key             =   "bc"
  225.             EndProperty
  226.             BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  227.                Picture         =   "报价单列表查询结果.frx":1F8B8
  228.                Key             =   "fq"
  229.             EndProperty
  230.             BeginProperty ListImage9 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  231.                Picture         =   "报价单列表查询结果.frx":1FC52
  232.                Key             =   "bz"
  233.             EndProperty
  234.             BeginProperty ListImage10 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  235.                Picture         =   "报价单列表查询结果.frx":1FFEC
  236.                Key             =   "tc"
  237.             EndProperty
  238.             BeginProperty ListImage11 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  239.                Picture         =   "报价单列表查询结果.frx":20386
  240.                Key             =   "bcgs"
  241.             EndProperty
  242.             BeginProperty ListImage12 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  243.                Picture         =   "报价单列表查询结果.frx":20720
  244.                Key             =   "mrlk"
  245.             EndProperty
  246.             BeginProperty ListImage13 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  247.                Picture         =   "报价单列表查询结果.frx":20ABA
  248.                Key             =   "xsxm"
  249.             EndProperty
  250.             BeginProperty ListImage14 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  251.                Picture         =   "报价单列表查询结果.frx":20E54
  252.                Key             =   "first"
  253.             EndProperty
  254.             BeginProperty ListImage15 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  255.                Picture         =   "报价单列表查询结果.frx":211EE
  256.                Key             =   "prev"
  257.             EndProperty
  258.             BeginProperty ListImage16 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  259.                Picture         =   "报价单列表查询结果.frx":21588
  260.                Key             =   "next"
  261.             EndProperty
  262.             BeginProperty ListImage17 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  263.                Picture         =   "报价单列表查询结果.frx":21922
  264.                Key             =   "last"
  265.             EndProperty
  266.             BeginProperty ListImage18 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  267.                Picture         =   "报价单列表查询结果.frx":21CBC
  268.                Key             =   "xx"
  269.             EndProperty
  270.             BeginProperty ListImage19 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  271.                Picture         =   "报价单列表查询结果.frx":22056
  272.                Key             =   "define"
  273.             EndProperty
  274.             BeginProperty ListImage20 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  275.                Picture         =   "报价单列表查询结果.frx":223F0
  276.                Key             =   "exec"
  277.             EndProperty
  278.             BeginProperty ListImage21 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  279.                Picture         =   "报价单列表查询结果.frx":2278A
  280.                Key             =   "xz"
  281.             EndProperty
  282.             BeginProperty ListImage22 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  283.                Picture         =   "报价单列表查询结果.frx":22B24
  284.                Key             =   "sc"
  285.             EndProperty
  286.             BeginProperty ListImage23 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  287.                Picture         =   "报价单列表查询结果.frx":22EBE
  288.                Key             =   "sx"
  289.             EndProperty
  290.             BeginProperty ListImage24 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  291.                Picture         =   "报价单列表查询结果.frx":23258
  292.                Key             =   "cx"
  293.             EndProperty
  294.             BeginProperty ListImage25 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  295.                Picture         =   "报价单列表查询结果.frx":235F2
  296.                Key             =   "zd"
  297.             EndProperty
  298.             BeginProperty ListImage26 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  299.                Picture         =   "报价单列表查询结果.frx":2398C
  300.                Key             =   "dz"
  301.             EndProperty
  302.             BeginProperty ListImage27 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  303.                Picture         =   "报价单列表查询结果.frx":23D26
  304.                Key             =   "ph"
  305.             EndProperty
  306.             BeginProperty ListImage28 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  307.                Picture         =   "报价单列表查询结果.frx":240C0
  308.                Key             =   "fz"
  309.             EndProperty
  310.             BeginProperty ListImage29 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  311.                Picture         =   "报价单列表查询结果.frx":2445A
  312.                Key             =   "dw"
  313.             EndProperty
  314.             BeginProperty ListImage30 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  315.                Picture         =   "报价单列表查询结果.frx":247F4
  316.                Key             =   "hf"
  317.             EndProperty
  318.             BeginProperty ListImage31 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  319.                Picture         =   "报价单列表查询结果.frx":24B8E
  320.                Key             =   "pz"
  321.             EndProperty
  322.             BeginProperty ListImage32 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  323.                Picture         =   "报价单列表查询结果.frx":24F28
  324.                Key             =   "check"
  325.             EndProperty
  326.             BeginProperty ListImage33 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  327.                Picture         =   "报价单列表查询结果.frx":252C2
  328.                Key             =   "qs"
  329.             EndProperty
  330.             BeginProperty ListImage34 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  331.                Picture         =   "报价单列表查询结果.frx":2565C
  332.                Key             =   "fullcheck"
  333.             EndProperty
  334.             BeginProperty ListImage35 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  335.                Picture         =   "报价单列表查询结果.frx":259F6
  336.                Key             =   "qq"
  337.             EndProperty
  338.             BeginProperty ListImage36 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  339.                Picture         =   "报价单列表查询结果.frx":25D90
  340.                Key             =   "bcw"
  341.             EndProperty
  342.             BeginProperty ListImage37 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  343.                Picture         =   "报价单列表查询结果.frx":2612A
  344.                Key             =   "ye"
  345.             EndProperty
  346.             BeginProperty ListImage38 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  347.                Picture         =   "报价单列表查询结果.frx":264C4
  348.                Key             =   ""
  349.             EndProperty
  350.             BeginProperty ListImage39 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  351.                Picture         =   "报价单列表查询结果.frx":2685E
  352.                Key             =   "frist"
  353.             EndProperty
  354.             BeginProperty ListImage40 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  355.                Picture         =   "报价单列表查询结果.frx":26BF8
  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":26F92
  449.                Key             =   "sz"
  450.             EndProperty
  451.             BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  452.                Picture         =   "报价单列表查询结果.frx":2732C
  453.                Key             =   "dy"
  454.             EndProperty
  455.             BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  456.                Picture         =   "报价单列表查询结果.frx":276C6
  457.                Key             =   "yl"
  458.             EndProperty
  459.             BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  460.                Picture         =   "报价单列表查询结果.frx":27A60
  461.                Key             =   "xg"
  462.             EndProperty
  463.             BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  464.                Picture         =   "报价单列表查询结果.frx":27DFA
  465.                Key             =   "zh"
  466.             EndProperty
  467.             BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  468.                Picture         =   "报价单列表查询结果.frx":28194
  469.                Key             =   "sh"
  470.             EndProperty
  471.             BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  472.                Picture         =   "报价单列表查询结果.frx":2852E
  473.                Key             =   "bc"
  474.             EndProperty
  475.             BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  476.                Picture         =   "报价单列表查询结果.frx":288C8
  477.                Key             =   "fq"
  478.             EndProperty
  479.             BeginProperty ListImage9 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  480.                Picture         =   "报价单列表查询结果.frx":28C62
  481.                Key             =   "bz"
  482.             EndProperty
  483.             BeginProperty ListImage10 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  484.                Picture         =   "报价单列表查询结果.frx":28FFC
  485.                Key             =   "tc"
  486.             EndProperty
  487.             BeginProperty ListImage11 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  488.                Picture         =   "报价单列表查询结果.frx":29396
  489.                Key             =   "bcgs"
  490.             EndProperty
  491.             BeginProperty ListImage12 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  492.                Picture         =   "报价单列表查询结果.frx":29730
  493.                Key             =   "mrlk"
  494.             EndProperty
  495.             BeginProperty ListImage13 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  496.                Picture         =   "报价单列表查询结果.frx":29ACA
  497.                Key             =   "xsxm"
  498.             EndProperty
  499.             BeginProperty ListImage14 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  500.                Picture         =   "报价单列表查询结果.frx":29E64
  501.                Key             =   "first"
  502.             EndProperty
  503.             BeginProperty ListImage15 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  504.                Picture         =   "报价单列表查询结果.frx":2A1FE
  505.                Key             =   "prev"
  506.             EndProperty
  507.             BeginProperty ListImage16 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  508.                Picture         =   "报价单列表查询结果.frx":2A598
  509.                Key             =   "next"
  510.             EndProperty
  511.             BeginProperty ListImage17 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  512.                Picture         =   "报价单列表查询结果.frx":2A932
  513.                Key             =   "last"
  514.             EndProperty
  515.             BeginProperty ListImage18 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  516.                Picture         =   "报价单列表查询结果.frx":2ACCC
  517.                Key             =   "xx"
  518.             EndProperty
  519.             BeginProperty ListImage19 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  520.                Picture         =   "报价单列表查询结果.frx":2B066
  521.                Key             =   "define"
  522.             EndProperty
  523.             BeginProperty ListImage20 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  524.                Picture         =   "报价单列表查询结果.frx":2B400
  525.                Key             =   "exec"
  526.             EndProperty
  527.             BeginProperty ListImage21 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  528.                Picture         =   "报价单列表查询结果.frx":2B79A
  529.                Key             =   "xz"
  530.             EndProperty
  531.             BeginProperty ListImage22 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  532.                Picture         =   "报价单列表查询结果.frx":2BB34
  533.                Key             =   "sc"
  534.             EndProperty
  535.             BeginProperty ListImage23 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  536.                Picture         =   "报价单列表查询结果.frx":2BECE
  537.                Key             =   "sx"
  538.             EndProperty
  539.             BeginProperty ListImage24 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  540.                Picture         =   "报价单列表查询结果.frx":2C268
  541.                Key             =   "cx"
  542.             EndProperty
  543.             BeginProperty ListImage25 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  544.                Picture         =   "报价单列表查询结果.frx":2C602
  545.                Key             =   "zd"
  546.             EndProperty
  547.             BeginProperty ListImage26 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  548.                Picture         =   "报价单列表查询结果.frx":2C99C
  549.                Key             =   "dz"
  550.             EndProperty
  551.             BeginProperty ListImage27 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  552.                Picture         =   "报价单列表查询结果.frx":2CD36
  553.                Key             =   "ph"
  554.             EndProperty
  555.             BeginProperty ListImage28 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  556.                Picture         =   "报价单列表查询结果.frx":2D0D0
  557.                Key             =   "fz"
  558.             EndProperty
  559.             BeginProperty ListImage29 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  560.                Picture         =   "报价单列表查询结果.frx":2D46A
  561.                Key             =   "dw"
  562.             EndProperty
  563.             BeginProperty ListImage30 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  564.                Picture         =   "报价单列表查询结果.frx":2D804
  565.                Key             =   "hf"
  566.             EndProperty
  567.             BeginProperty ListImage31 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  568.                Picture         =   "报价单列表查询结果.frx":2DB9E
  569.                Key             =   "pz"
  570.             EndProperty
  571.             BeginProperty ListImage32 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  572.                Picture         =   "报价单列表查询结果.frx":2DF38
  573.                Key             =   "check"
  574.             EndProperty
  575.          EndProperty
  576.       End
  577.    End
  578. End
  579. Attribute VB_Name = "Xs_Q_QuotationList"
  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/10/06
  590. '*    备        注:程序中所有依实际情况自定义部分均用[>>  <<]括起
  591. '**************************************************************************
  592. Dim ReportTitle As String                '报表主标题
  593. Dim Str_QueryCondi As String             '用户录入查询条件
  594. Dim Rec_BillID As New ADODB.Recordset    '用户查询单据ID动态集
  595. Dim Str_RightEdit As String                     '单据编辑(新增、修改、删除)权限索引
  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.     Str_RightEdit = "Xs_Q_QuotationListEdit"
  626.     '调入打印页面设置窗体
  627.     ReportTitle = "报价单列表"
  628.     XtReportCode = "Xs_Q_QuotationList"
  629.     Load Dyymctbl
  630.       
  631.     '调整标题栏及网格、格式工具条位置(Fixed)
  632.     Pic_Title.Left = 40
  633.     Pic_Title.Top = SzToolbar.Top + SzToolbar.Height - 10
  634.     CxbbGrid.Left = Pic_Title.Left
  635.     CxbbGrid.Top = Pic_Title.Top + Pic_Title.Height + 20
  636.      
  637.     '调 入 网 格(Fixed)
  638.     GridCode = "Xs_Q_QuotationList"
  639.     Call BzWgcsh(CxbbGrid, GridCode, GridInf(), GridBoolean(), GridInt(), GridStr())
  640.       
  641.     Qslz = GridInf(1)
  642.     Sjhgd = GridInf(2)
  643.     Sfxshjwg = GridInf(7)
  644.     Szzls = CxbbGrid.Cols - 1
  646. End Sub
  648. Private Sub Form_Unload(Cancel As Integer)                                  '窗体卸载
  650.     '卸载条件窗体
  651.     Xs_Q_QuotationQuery.UnloadCheck.Value = 1
  652.     Unload Xs_Q_QuotationQuery
  653.     
  654.     '卸载打印页面设置窗体
  655.     Unload Dyymctbl
  657. End Sub
  659. Private Sub CxbbGrid_BeforeMoveColumn(ByVal Col As Long, Position As Long)           '网格列发生移动时自动交换网格索引信息
  660.     Call FnBln_RefreshArray(Col, Position, GridStr(), GridInf())
  661. End Sub
  663. Private Sub GsToolbar_ButtonClick(ByVal Button As MSComctlLib.Button)                '网格格式调整(Fixed)
  664.   
  665.     Select Case Button.Key
  666.         Case "bcgs"                                          '保存表格格式
  667.             Call Bcwggs(CxbbGrid, GridCode, GridStr())
  668.         Case "hfmrgs"                                        '恢复默认格式
  669.             Call Hfmrgs(CxbbGrid, GridCode, GridStr())
  670.         Case "szxsxm"                                        '设置显示项目
  671.             Call Szxsxm(CxbbGrid, GridCode)
  672.     End Select
  674. End Sub
  676. Private Sub SzToolbar_ButtonClick(ByVal Button As MSComctlLib.Button)
  677.     
  678.     Select Case Button.Key
  679.         Case "ymsz"                                          '页面设置
  680.             Dyymctbl.Show 1
  681.         Case "yl"                                            '预 览
  682.             Call bbyl(True)
  683.         Case "dy"                                            '打 印
  684.             Call bbyl(False)
  685.         Case "cx"                                            '查 询
  686.             Xs_Q_QuotationQuery.Show 1
  687.         Case "Bill"                                          '单 据
  688.             Call CxbbGrid_DblClick
  689.         Case "xz"                                            '新 增
  690.             Call Sub_AddBill
  691.         Case "sc"                                            '删 除
  692.             Call Sub_DeleteBill
  693.         Case "bz"                                            '帮 助
  694.             Call F1bz
  695.         Case "fh"                                            '退 出
  696.            Unload Me
  697.     End Select
  699. End Sub
  701. Private Sub Timer1_Timer()                                 '在窗体激活后调入查询程序
  702.     
  703.     Timer1.Enabled = False
  704.     Xt_Wait.Show
  705.     Xt_Wait.Refresh
  706.    
  707.     '加快显示速度
  708.     CxbbGrid.Redraw = False
  709.  
  710.     '生成查询结果
  711.     Call Sub_Query(0)
  712.    
  713.     CxbbGrid.Redraw = True
  714.     
  715.     Xt_Wait.Hide
  717. End Sub
  719. Private Sub Sub_Query(Int_QueryType As Integer)                                     '生成查询结果(Define)
  720.     
  721.     '过程参数:Int_QueryType 0-"点确定按钮"查询  1-"刷新"查询
  723.     Dim Rec_Query As New ADODB.Recordset        '查询结果动态集
  724.     Dim Coljsq As Long                          '网格列计数器
  725.     Dim Jsqte As Integer                        '临时动态计数器
  727.     '以下为自定义部分[
  728.  
  729.     If Int_QueryType = 0 Then   '0-"点确定按钮"查询
  730.         With Xs_Q_QuotationQuery
  731.          
  732.             '生成查询条件
  733.             Str_QueryCondi = " where 1=1 "
  734.             For Jsqte = 1 To 11
  735.                 Select Case Jsqte
  736.                     Case 1  '查询日期范围(起始)
  737.                         If Trim(.LrText(0).Text) <> "" Then
  738.                             Str_QueryCondi = Str_QueryCondi & " And QuotationDate>=' " & Trim(.LrText(0).Text) & "'"
  739.                         End If
  740.                     Case 2  '查询日期范围(终止)
  741.                         If Trim(.LrText(1).Text) <> "" Then
  742.                             Str_QueryCondi = Str_QueryCondi & " And QuotationDate<= ' " & Trim(.LrText(1).Text) & "'"
  743.                         End If
  744.                     Case 3  '客户
  745.                         If Trim(.LrText(3).Text) <> "" Then
  746.                             Str_QueryCondi = Str_QueryCondi & " and CusCode = '" & Trim(.LrText(3).Tag) & "'"
  747.                         End If
  748.                     Case 4  '报价单号(Like)
  749.                         If Trim(.LrText(2).Text) <> "" Then
  750.                             Str_QueryCondi = Str_QueryCondi & " And QuotationCode like '" & Trim(.LrText(2).Text) & "%'"
  751.                         End If
  752.                     Case 5  '存货编码
  753.                         If Trim(.LrText(4).Text) <> "" Then
  754.                             Str_QueryCondi = Str_QueryCondi & " and WareCode = '" & Trim(.LrText(4).Text) & "'"
  755.                         End If
  756.                     Case 6  '部门名称
  757.                         If Trim(.LrText(5).Text) <> "" Then
  758.                             Str_QueryCondi = Str_QueryCondi & " and DeptCode = '" & Trim(.LrText(5).Tag) & "'"
  759.                         End If
  760.                     Case 7  '销售员
  761.                         If Trim(.LrText(6).Text) <> "" Then
  762.                             Str_QueryCondi = Str_QueryCondi & " and PersonCode = '" & Trim(.LrText(6).Tag) & "'"
  763.                         End If
  764.                     Case 8  '销售类型
  765.                         If Trim(.LrText(7).Text) <> "" Then
  766.                             Str_QueryCondi = Str_QueryCondi & " and SellTypeCode = '" & Trim(.LrText(7).Tag) & "'"
  767.                         End If
  768.                     Case 9   '审核状态
  769.                         If Not .Opt_Check(0).Value Then
  770.                             If .Opt_Check(1).Value Then
  771.                                 Str_QueryCondi = Str_QueryCondi & " and  Checker='' "
  772.                             ElseIf .Opt_Check(2).Value Then
  773.                                 Str_QueryCondi = Str_QueryCondi & " and  Checker<>'' "
  774.                             End If
  775.                         End If
  776.                     Case 10   '关闭状态
  777.                         If Not .Opt_Check(3).Value Then
  778.                             If .Opt_Check(4).Value Then
  779.                                 Str_QueryCondi = Str_QueryCondi & " and  CloseCause='" & Trim(.Opt_Check(4).Caption) & "' "
  780.                             ElseIf .Opt_Check(5).Value Then
  781.                                 Str_QueryCondi = Str_QueryCondi & " and  CloseCause='" & Trim(.Opt_Check(5).Caption) & "' "
  782.                             ElseIf .Opt_Check(6).Value Then
  783.                                 Str_QueryCondi = Str_QueryCondi & " and  CloseCause='" & Trim(.Opt_Check(6).Caption) & "' "
  784.                             ElseIf .Opt_Check(7).Value Then
  785.                                 Str_QueryCondi = Str_QueryCondi & " and  (CloseCause='" & Trim(.Opt_Check(4).Caption) & "' or CloseCause='" & Trim(.Opt_Check(5).Caption) & "')"
  786.                             End If
  787.                         End If
  788.                 End Select
  789.             Next Jsqte
  790.         End With
  791.     Else
  792.         '1-"刷新"查询
  793.         If Str_QueryCondi = "" Then
  794.             Str_QueryCondi = " where 1=2 "
  795.         End If
  796.     End If
  797.      
  798.     Sqlstr = "SELECT * from Xs_V_Quotation " & _
  799.              Str_QueryCondi & " Order By QuotationDate,QuotationCode,QuotationSubId"
  800.     Set Rec_Query = Cw_DataEnvi.DataConnect.Execute(Sqlstr)
  801.     With Rec_Query
  802.         CxbbGrid.Rows = CxbbGrid.FixedRows
  803.         Jsqte = CxbbGrid.FixedRows
  804.         Do While Not .EOF
  805.             CxbbGrid.AddItem ""
  806.             '[>>自定义填充内容
  807.             CxbbGrid.TextMatrix(Jsqte, 0) = .Fields("QuotationMainId")                                                  '销售报价单ID(主要用来查询定位用)
  808.             CxbbGrid.TextMatrix(Jsqte, Sydz("001", GridStr(), Szzls)) = Format(.Fields("QuotationDate"), "yyyy-mm-dd")  '报价单日期
  809.             CxbbGrid.TextMatrix(Jsqte, Sydz("002", GridStr(), Szzls)) = Trim(.Fields("QuotationCode") & "")             '报价单号
  810.             CxbbGrid.TextMatrix(Jsqte, Sydz("003", GridStr(), Szzls)) = Trim(.Fields("CusName") & "")                   '客户
  811.             CxbbGrid.TextMatrix(Jsqte, Sydz("004", GridStr(), Szzls)) = Trim(.Fields("DeptName") & "")                  '部门名称
  812.             CxbbGrid.TextMatrix(Jsqte, Sydz("005", GridStr(), Szzls)) = Trim(.Fields("PersonName") & "")                '销售员
  813.             CxbbGrid.TextMatrix(Jsqte, Sydz("006", GridStr(), Szzls)) = Trim(.Fields("SellTypeName") & "")              '销售类型
  814.             CxbbGrid.TextMatrix(Jsqte, Sydz("007", GridStr(), Szzls)) = Trim(.Fields("MName") & "")                     '存货名称
  815.             CxbbGrid.TextMatrix(Jsqte, Sydz("008", GridStr(), Szzls)) = Trim(.Fields("Quantity") & "")                  '数量
  816.             CxbbGrid.TextMatrix(Jsqte, Sydz("009", GridStr(), Szzls)) = Trim(.Fields("ConsultCost") & "")               '成本价
  817.             CxbbGrid.TextMatrix(Jsqte, Sydz("010", GridStr(), Szzls)) = Trim(.Fields("CapitalTaxUnitPrice") & "")       '含税单价
  818.             CxbbGrid.TextMatrix(Jsqte, Sydz("011", GridStr(), Szzls)) = Trim(.Fields("CapitalWholeMoney") & "")         '总金额
  819.             CxbbGrid.TextMatrix(Jsqte, Sydz("012", GridStr(), Szzls)) = Trim(.Fields("CapitalTax") & "")                '税额
  820.             If Year(Trim(.Fields("PrePareDate") & "")) <> "1900" Then
  821.                 CxbbGrid.TextMatrix(Jsqte, Sydz("013", GridStr(), Szzls)) = Format(.Fields("PrePareDate"), "yyyy-mm-dd") '预发货日期
  822.             Else
  823.                 CxbbGrid.TextMatrix(Jsqte, Sydz("013", GridStr(), Szzls)) = ""                                          '预发货日期
  824.             End If
  825.             CxbbGrid.TextMatrix(Jsqte, Sydz("014", GridStr(), Szzls)) = Trim(.Fields("ContactPerson") & "")             '联系人
  826.             CxbbGrid.TextMatrix(Jsqte, Sydz("015", GridStr(), Szzls)) = Trim(.Fields("ContactType") & "")               '联系方法
  827.             CxbbGrid.TextMatrix(Jsqte, Sydz("016", GridStr(), Szzls)) = Trim(.Fields("Closer") & "")                    '关闭人
  828.             CxbbGrid.TextMatrix(Jsqte, Sydz("017", GridStr(), Szzls)) = Trim(.Fields("CloseCause") & "")                '关闭原因
  829.             CxbbGrid.TextMatrix(Jsqte, Sydz("018", GridStr(), Szzls)) = Trim(.Fields("Checker") & "")                   '审核人
  830.             '<<]
  831.             '设置数据行高度(Fixed)
  832.             CxbbGrid.RowHeight(Jsqte) = Sjhgd
  833.      
  834.             '动态集指针加1,同时将计数器加1(Fixed)
  835.             .MoveNext
  836.             Jsqte = Jsqte + 1
  837.         Loop
  838.     End With
  840.     ']以上为用户自定义部分
  842. End Sub
  844. Private Sub CxbbGrid_DblClick()                                              '用户双击网格调入相应单据
  845.     
  846.     Dim RecTemp As New ADODB.Recordset               '临时使用动态集
  848.     '非数据行退出
  849.     If CxbbGrid.Row < CxbbGrid.FixedRows Or Val(CxbbGrid.TextMatrix(CxbbGrid.Row, 0)) = 0 Then
  850.         Exit Sub
  851.     End If
  853.     Sqlstr = "SELECT QuotationMainId From XS_QuotationMain Where QuotationMainId=" & Val(CxbbGrid.TextMatrix(CxbbGrid.Row, 0))
  854.     Set RecTemp = Cw_DataEnvi.DataConnect.Execute(Sqlstr)
  855.     With RecTemp
  856.         If .EOF Then
  857.             Tsxx = "此销售报价单已被其他用户删除!"
  858.             Call Xtxxts(Tsxx, 0, 4)
  859.             Exit Sub
  860.         Else
  861.             '调入单据处理窗体
  862.             With Xs_Q_Quotation
  863.                 
  864.                 '填充查询单据标识
  865.                 XT_BillID = CxbbGrid.TextMatrix(CxbbGrid.Row, 0)
  866.                 Xtcdcsfz = Str_QueryCondi
  867.                 
  868.                 '设置单据处理为列表查询(修改)状态
  869.                 Xtcdcs = "2"
  870.                 .Show 1
  871.             End With
  872.             If Xtfhcs = "1" Then
  873.                 Tsxx = "销售报价单发生变化,是否刷新销售报价单列表?"
  874.                 Yhanswer = Xtxxts(Tsxx, 2, 2)
  875.                 If Yhanswer = 1 Then
  876.                     Xt_Wait.Show
  877.                     Xt_Wait.Refresh
  878.    
  879.                     '加快显示速度
  880.                     CxbbGrid.Redraw = False
  881.  
  882.                     '生成查询结果
  883.                     Call Sub_Query(1)
  884.    
  885.                     CxbbGrid.Redraw = True
  886.                     Xt_Wait.Hide
  887.                 End If
  888.             End If
  889.         End If
  890.     End With
  892. End Sub
  894. Private Sub Sub_AddBill()                                              '新增单据
  895.     '判断用户是否有此功能执行权限,如有则写上机日志(进入)
  896.     If Not Security_Log(Str_RightEdit, Xtczybm, 1, True) Then
  897.         Exit Sub
  898.     End If
  899.     With Xs_Q_Quotation
  900.    
  901.         '设置单据处理为填制单据状态
  902. ''        .Lab_Djclzt.Caption = "1"
  903.          Xtcdcs = "1"
  904.         .Show 1
  905.     End With
  906.        
  907.     If Xtfhcs = "1" Then
  908.         Tsxx = "销售报价单发生变化,是否刷新销售报价单列表?"
  909.         Yhanswer = Xtxxts(Tsxx, 2, 2)
  910.         If Yhanswer = 1 Then
  911.             Xt_Wait.Show
  912.             Xt_Wait.Refresh
  913.    
  914.             '加快显示速度
  915.             CxbbGrid.Redraw = False
  916.  
  917.             '生成查询结果
  918.             Call Sub_Query(1)
  919.    
  920.             CxbbGrid.Redraw = True
  921.             Xt_Wait.Hide
  922.         End If
  923.     End If
  924.    
  925. End Sub
  927. Private Sub Sub_DeleteBill()                                            '删除选中当前销售报价单
  928.     
  929.     Dim YAnswer As Integer
  930.     Dim Lng_BillID As Long           '单据标识
  931.     '判断用户是否有此功能执行权限,如有则写上机日志(进入)
  932.     If Not Security_Log(Str_RightEdit, Xtczybm, 1, True) Then
  933.         Exit Sub
  934.     End If
  935.     '非数据行退出
  936.     If CxbbGrid.Row < CxbbGrid.FixedRows Or Val(CxbbGrid.TextMatrix(CxbbGrid.Row, 0)) = 0 Then
  937.         Exit Sub
  938.     End If
  939.   
  940.     Tsxx = "请确认是否删除当前销售报价单?"
  941.     Yhanswer = Xtxxts(Tsxx, 2, 2)
  942.   
  943.     If Yhanswer = 1 Then
  944.         '1.判断当前销售报价单是否允许删除
  945.         If Not Fun_AllowDelete Then
  946.             Exit Sub
  947.         End If
  948.   
  949.         '2.删除单据所有内容
  950.         Lng_BillID = Val(CxbbGrid.TextMatrix(CxbbGrid.Row, 0))
  951.         On Error GoTo Swcwcl
  952.         Cw_DataEnvi.DataConnect.BeginTrans
  953.         Cw_DataEnvi.DataConnect.Execute ("Delete XS_QuotationMain Where QuotationMainId=" & Lng_BillID)        '删除单据主表内容
  954.         Cw_DataEnvi.DataConnect.Execute ("Delete XS_QuotationSub Where QuotationMainId=" & Lng_BillID)         '删除单据子表内容
  955.         Cw_DataEnvi.DataConnect.CommitTrans
  956.       
  957.         '删除网格中单据数据
  958.         Jsqte = CxbbGrid.FixedRows
  959.         Do While Jsqte <= CxbbGrid.Rows - 1
  960.             If Val(CxbbGrid.TextMatrix(Jsqte, 0)) = Lng_BillID Then
  961.                 CxbbGrid.RemoveItem (Jsqte)
  962.             Else
  963.                 Jsqte = Jsqte + 1
  964.             End If
  965.         Loop
  966.     Else
  967.         Exit Sub
  968.     End If
  969.     Exit Sub
  970. Swcwcl:
  971.     Cw_DataEnvi.DataConnect.RollbackTrans
  972.     Tsxx = "删除销售报价单过程中出现未知错误,程序自动恢复删除前状态!"
  973.     Call Xtxxts(Tsxx, 0, 1)
  974.     Exit Sub
  975.   
  976. End Sub
  978. Private Function Fun_AllowDelete() As Boolean                                        '判断当前单据是否允许删除
  979.   
  980.     Dim RecTemp As New ADODB.Recordset     '临时使用动态集
  981.     Dim Sqlstr As String                   '查询字符串
  982.     Dim Lng_BillID As Long                 '单据ID
  983.   
  984.     Lng_BillID = Val(CxbbGrid.TextMatrix(CxbbGrid.Row, 0))
  985.     Sqlstr = "Select Checker From XS_QuotationMain Where QuotationMainId=" & Lng_BillID
  986.     Set RecTemp = Cw_DataEnvi.DataConnect.Execute(Sqlstr)
  987.     With RecTemp
  988.         If Not .EOF Then
  989.             If Trim(.Fields("Checker") & "") <> "" Then
  990.                 Tsxx = "该销售报价单已审核确认,不能删除!"
  991.                 Call Xtxxts(Tsxx, 0, 4)
  992.                 Exit Function
  993.             End If
  994.             End If
  995.     End With
  996.     Fun_AllowDelete = True
  997.   
  998. End Function
  1000. Private Sub bbyl(bbylte As Boolean)                    '报表打印预览
  1001.     
  1002.     Dim Bbzbt$, Bbxbt() As String, bbxbtzzxs() As Integer, Bbxbtgs As Integer
  1003.     Dim Bbbwh() As String, Bbbwhzzxs() As Integer, Bbbwhgs As Integer
  1004.     Bbxbtgs = 1                                          '报 表 小 标 题 行 数
  1005.     Bbbwhgs = 0                                          '报 表 表 尾 行 数
  1006.     ReDim Bbxbt(1 To Bbxbtgs)
  1007.     ReDim bbxbtzzxs(1 To Bbxbtgs)
  1008.     If Bbbwhgs <> 0 Then
  1009.         ReDim Bbbwh(1 To Bbbwhgs)
  1010.         ReDim Bbbwhzzxs(1 To Bbbwhgs)
  1011.     End If
  1012.     Bbzbt = ReportTitle
  1013.     Bbxbt(1) = ""
  1014.     bbxbtzzxs(1) = 0                                     '报表行组织形式(0-居左 1-居中 2-居右)
  1015.     Call Scyxsjb(CxbbGrid)                               '生成报表数据
  1016.     Call Scdybb(Dyymctbl, Bbzbt, Bbxbt(), bbxbtzzxs(), Bbxbtgs, Bbbwh(), Bbbwhzzxs(), Bbbwhgs, bbylte)
  1017.     If Not bbylte Then
  1018.         Unload DY_Tybbyldy
  1019.     End If
  1021. End Sub