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

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

企业管理

开发平台：

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_C_ContractList 
  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            =   0
  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           =   1530
  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_C_ContractList"
  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_C_ContractListEdit"
  626.     '调入打印页面设置窗体
  627.     ReportTitle = "销售合同列表"
  628.     XtReportCode = "Xs_C_ContractList"
  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_C_ContractList"
  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_C_ContractQuery.UnloadCheck.Value = 1
  652.     Unload Xs_C_ContractQuery
  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_C_ContractQuery.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                        '临时动态计数器
  726.     Dim RecTemp As New ADODB.Recordset          '临时查询
  727.     Dim TSqlStr As String
  728.     '以下为自定义部分[
  729.  
  730.     If Int_QueryType = 0 Then   '0-"点确定按钮"查询
  731.         With Xs_C_ContractQuery
  732.          
  733.             '生成查询条件
  734.             Str_QueryCondi = " where 1=1 "
  735.             For Jsqte = 1 To 13
  736.                 Select Case Jsqte
  737.                     Case 1  '查询日期范围(起始)
  738.                         If Trim(.LrText(0).Text) <> "" Then
  739.                             Str_QueryCondi = Str_QueryCondi & " And ContractDate>=' " & Trim(.LrText(0).Text) & "'"
  740.                         End If
  741.                     Case 2  '查询日期范围(终止)
  742.                         If Trim(.LrText(1).Text) <> "" Then
  743.                             Str_QueryCondi = Str_QueryCondi & " And ContractDate<= ' " & Trim(.LrText(1).Text) & "'"
  744.                         End If
  745.                     Case 3  '客户
  746.                         If Trim(.LrText(3).Text) <> "" Then
  747.                             Str_QueryCondi = Str_QueryCondi & " and a.CusCode = '" & Trim(.LrText(3).Tag) & "'"
  748.                         End If
  749.                     Case 4  '合同号(Like)
  750.                         If Trim(.LrText(2).Text) <> "" Then
  751.                             Str_QueryCondi = Str_QueryCondi & " And a.ContractCode like '" & Trim(.LrText(2).Text) & "%'"
  752.                         End If
  753.                     Case 5  '存货编码
  754.                         If Trim(.LrText(4).Text) <> "" Then
  755.                             Str_QueryCondi = Str_QueryCondi & " and a.WareCode = '" & Trim(.LrText(4).Text) & "'"
  756.                         End If
  757.                     Case 6  '合同类型
  758.                         If Trim(.LrText(5).Text) <> "" Then
  759.                             Str_QueryCondi = Str_QueryCondi & " and a.ContractTypeCode = '" & Trim(.LrText(5).Tag) & "'"
  760.                         End If
  761.                     Case 7  '部门名称
  762.                         If Trim(.LrText(6).Text) <> "" Then
  763.                             Str_QueryCondi = Str_QueryCondi & " and a.DeptCode = '" & Trim(.LrText(6).Tag) & "'"
  764.                         End If
  765.                     Case 8  '销售员
  766.                         If Trim(.LrText(7).Text) <> "" Then
  767.                             Str_QueryCondi = Str_QueryCondi & " and a.PersonCode = '" & Trim(.LrText(7).Tag) & "'"
  768.                         End If
  769.                     Case 9  '销售类型
  770.                         If Trim(.LrText(8).Text) <> "" Then
  771.                             Str_QueryCondi = Str_QueryCondi & " and a.SellTypeCode = '" & Trim(.LrText(8).Tag) & "'"
  772.                         End If
  773.                     Case 10  '查询合同到期日范围(起始)
  774.                         If Trim(.LrText(9).Text) <> "" Then
  775.                             Str_QueryCondi = Str_QueryCondi & " And a.FinishDate>=' " & Trim(.LrText(9).Text) & "'"
  776.                         End If
  777.                     Case 11  '查询合同到期日范围(终止)
  778.                         If Trim(.LrText(10).Text) <> "" Then
  779.                             Str_QueryCondi = Str_QueryCondi & " And a.FinishDate<= ' " & Trim(.LrText(10).Text) & "'"
  780.                         End If
  781.                     Case 12   '审核状态
  782.                         If Not .Opt_Check(0).Value Then
  783.                             If .Opt_Check(1).Value Then
  784.                                 Str_QueryCondi = Str_QueryCondi & " and  a.Checker='' "
  785.                             ElseIf .Opt_Check(2).Value Then
  786.                                 Str_QueryCondi = Str_QueryCondi & " and  a.Checker<>'' "
  787.                             End If
  788.                         End If
  789.                     Case 13   '关闭状态
  790.                         If Not .Opt_Check(3).Value Then
  791.                             If .Opt_Check(4).Value Then
  792.                                 Str_QueryCondi = Str_QueryCondi & " and  Closer='' "
  793.                             ElseIf .Opt_Check(5).Value Then
  794.                                 Str_QueryCondi = Str_QueryCondi & " and  Closer<>'' "
  795.                             End If
  796.                         End If
  797.                 End Select
  798.             Next Jsqte
  799.         End With
  800.     Else
  801.         '1-"刷新"查询
  802.         If Str_QueryCondi = "" Then
  803.             Str_QueryCondi = " where 1=2 "
  804.         End If
  805.     End If
  806.      
  807.     Sqlstr = "select a.*,b.quantity OrderQuantity,b.consignQuantity Consignquantity  from Xs_V_Contract a left outer join xs_v_orderbill  b on a.contractmainid=b.contractmainid and a.warecode=b.warecode  " & _
  808.              Str_QueryCondi & " Order By ContractDate,a.ContractCode,ContractSubId"
  809.     Set Rec_Query = Cw_DataEnvi.DataConnect.Execute(Sqlstr)
  810.     With Rec_Query
  811.         CxbbGrid.Rows = CxbbGrid.FixedRows
  812.         Jsqte = CxbbGrid.FixedRows
  813.         Do While Not .EOF
  814.             CxbbGrid.AddItem ""
  815.             '[>>自定义填充内容
  816.             CxbbGrid.TextMatrix(Jsqte, 0) = .Fields("ContractMainId")                                                       '销售合同ID(主要用来查询定位用)
  817.             CxbbGrid.TextMatrix(Jsqte, Sydz("001", GridStr(), Szzls)) = Format(.Fields("ContractDate"), "yyyy-mm-dd")       '合同日期
  818.             CxbbGrid.TextMatrix(Jsqte, Sydz("002", GridStr(), Szzls)) = Trim(.Fields("ContractCode") & "")                  '合同号
  819.             CxbbGrid.TextMatrix(Jsqte, Sydz("003", GridStr(), Szzls)) = Trim(.Fields("CusName") & "")                       '客户
  820.             CxbbGrid.TextMatrix(Jsqte, Sydz("004", GridStr(), Szzls)) = Trim(.Fields("DeptName") & "")                      '部门名称
  821.             CxbbGrid.TextMatrix(Jsqte, Sydz("005", GridStr(), Szzls)) = Trim(.Fields("PersonName") & "")                    '销售员
  822.             CxbbGrid.TextMatrix(Jsqte, Sydz("006", GridStr(), Szzls)) = Trim(.Fields("SellTypeName") & "")                  '销售类型
  823.             CxbbGrid.TextMatrix(Jsqte, Sydz("007", GridStr(), Szzls)) = Trim(.Fields("ContractTypeName") & "")              '合同类型
  824.             CxbbGrid.TextMatrix(Jsqte, Sydz("008", GridStr(), Szzls)) = Trim(.Fields("MName") & "")                         '存货名称
  825.             CxbbGrid.TextMatrix(Jsqte, Sydz("009", GridStr(), Szzls)) = Trim(.Fields("Model") & "")                         '规格型号
  826.             CxbbGrid.TextMatrix(Jsqte, Sydz("010", GridStr(), Szzls)) = Trim(.Fields("SaleUnitName") & "")                  '单位
  827.             CxbbGrid.TextMatrix(Jsqte, Sydz("011", GridStr(), Szzls)) = Trim(.Fields("Quantity") & "")                      '数量
  828.             CxbbGrid.TextMatrix(Jsqte, Sydz("012", GridStr(), Szzls)) = Trim(.Fields("CapitalTaxUnitPrice") & "")           '含税单价
  829.             CxbbGrid.TextMatrix(Jsqte, Sydz("013", GridStr(), Szzls)) = Trim(.Fields("CapitalWholeMoney") & "")             '总金额
  830.             CxbbGrid.TextMatrix(Jsqte, Sydz("014", GridStr(), Szzls)) = Trim(.Fields("CapitalTax") & "")                    '税额
  831.             CxbbGrid.TextMatrix(Jsqte, Sydz("015", GridStr(), Szzls)) = Trim(.Fields("OrderQuantity") & "")                 '订单数量
  832.             CxbbGrid.TextMatrix(Jsqte, Sydz("016", GridStr(), Szzls)) = Trim(.Fields("Consignquantity") & "")               '发货数量
  833.             CxbbGrid.TextMatrix(Jsqte, Sydz("017", GridStr(), Szzls)) = Trim(.Fields("Checker") & "")                       '审核人
  834.             CxbbGrid.TextMatrix(Jsqte, Sydz("018", GridStr(), Szzls)) = Trim(.Fields("Closer") & "")                        '关闭人
  835.             If Year(Trim(.Fields("CloseDate") & "")) <> "1900" Then
  836.                 CxbbGrid.TextMatrix(Jsqte, Sydz("019", GridStr(), Szzls)) = Format(.Fields("CloseDate"), "yyyy-mm-dd")      '关闭日期
  837.             Else
  838.                 CxbbGrid.TextMatrix(Jsqte, Sydz("019", GridStr(), Szzls)) = ""                                              '关闭日期
  839.             End If
  840.             CxbbGrid.TextMatrix(Jsqte, Sydz("020", GridStr(), Szzls)) = Trim(.Fields("QuotationCode") & "")                 '报价单号
  841.             If Year(Trim(.Fields("PrePareDate") & "")) <> "1900" Then
  842.                 CxbbGrid.TextMatrix(Jsqte, Sydz("021", GridStr(), Szzls)) = Format(.Fields("PrePareDate"), "yyyy-mm-dd")    '预发货日期
  843.             Else
  844.                 CxbbGrid.TextMatrix(Jsqte, Sydz("021", GridStr(), Szzls)) = ""                                              '预发货日期
  845.             End If
  846.             
  847.             '<<]
  848.             '设置数据行高度(Fixed)
  849.             CxbbGrid.RowHeight(Jsqte) = Sjhgd
  850.      
  851.             '动态集指针加1,同时将计数器加1(Fixed)
  852.             .MoveNext
  853.             Jsqte = Jsqte + 1
  854.         Loop
  855.     End With
  857.     ']以上为用户自定义部分
  859. End Sub
  861. Private Sub CxbbGrid_DblClick()                                              '用户双击网格调入相应单据
  862.     
  863.     Dim RecTemp As New ADODB.Recordset               '临时使用动态集
  865.     '非数据行退出
  866.     If CxbbGrid.Row < CxbbGrid.FixedRows Or Val(CxbbGrid.TextMatrix(CxbbGrid.Row, 0)) = 0 Then
  867.         Exit Sub
  868.     End If
  870.     Sqlstr = "SELECT ContractMainId From XS_ContractMain Where ContractMainId=" & Val(CxbbGrid.TextMatrix(CxbbGrid.Row, 0))
  871.     Set RecTemp = Cw_DataEnvi.DataConnect.Execute(Sqlstr)
  872.     With RecTemp
  873.         If .EOF Then
  874.             Tsxx = "此销售合同已被其他用户删除!"
  875.             Call Xtxxts(Tsxx, 0, 4)
  876.             Exit Sub
  877.         Else
  878.             '调入单据处理窗体
  879.             With Xs_C_Contract
  880.                 
  881.                 '填充查询单据标识
  882.                 XT_BillID = CxbbGrid.TextMatrix(CxbbGrid.Row, 0)
  883.                 Xtcdcsfz = Str_QueryCondi
  884.                 
  885.                 '设置单据处理为列表查询(修改)状态
  886.                 Xtcdcs = "2"
  887. ''                .Lab_BillId = CxbbGrid.TextMatrix(CxbbGrid.Row, 0)
  888. ''                .Str_QueryCondi = Str_QueryCondi
  889.                 
  890.                 '设置单据处理为列表查询(修改)状态
  891. ''                .Lab_Djclzt.Caption = "2"
  892.                 .Show 1
  893.             End With
  894.             If Xtfhcs = "1" Then
  895.                 Tsxx = "销售合同发生变化,是否刷新销售合同列表?"
  896.                 Yhanswer = Xtxxts(Tsxx, 2, 2)
  897.                 If Yhanswer = 1 Then
  898.                     Xt_Wait.Show
  899.                     Xt_Wait.Refresh
  900.    
  901.                     '加快显示速度
  902.                     CxbbGrid.Redraw = False
  903.  
  904.                     '生成查询结果
  905.                     Call Sub_Query(1)
  906.    
  907.                     CxbbGrid.Redraw = True
  908.                     Xt_Wait.Hide
  909.                 End If
  910.             End If
  911.         End If
  912.     End With
  914. End Sub
  916. Private Sub Sub_AddBill()                                              '新增单据
  917.     '判断用户是否有此功能执行权限,如有则写上机日志(进入)
  918.     If Not Security_Log(Str_RightEdit, Xtczybm, 1, True) Then
  919.         Exit Sub
  920.     End If
  921.     With Xs_C_Contract
  922.    
  923.         '设置单据处理为填制单据状态
  924. ''        .Lab_Djclzt.Caption = "1"
  925.          Xtcdcs = "1"
  926.         .Show 1
  927.     End With
  928.        
  929.     If Xtfhcs = "1" Then
  930.         Tsxx = "销售合同发生变化,是否刷新销售合同列表?"
  931.         Yhanswer = Xtxxts(Tsxx, 2, 2)
  932.         If Yhanswer = 1 Then
  933.             Xt_Wait.Show
  934.             Xt_Wait.Refresh
  935.    
  936.             '加快显示速度
  937.             CxbbGrid.Redraw = False
  938.  
  939.             '生成查询结果
  940.             Call Sub_Query(1)
  941.    
  942.             CxbbGrid.Redraw = True
  943.             Xt_Wait.Hide
  944.         End If
  945.     End If
  946.    
  947. End Sub
  949. Private Sub Sub_DeleteBill()                                            '删除选中当前销售合同
  950.     
  951.     Dim YAnswer As Integer
  952.     Dim Lng_BillID As Long           '单据标识
  953.     '判断用户是否有此功能执行权限,如有则写上机日志(进入)
  954.     If Not Security_Log(Str_RightEdit, Xtczybm, 1, True) Then
  955.         Exit Sub
  956.     End If
  957.     '非数据行退出
  958.     If CxbbGrid.Row < CxbbGrid.FixedRows Or Val(CxbbGrid.TextMatrix(CxbbGrid.Row, 0)) = 0 Then
  959.         Exit Sub
  960.     End If
  961.   
  962.     Tsxx = "请确认是否删除当前销售合同?"
  963.     Yhanswer = Xtxxts(Tsxx, 2, 2)
  964.   
  965.     If Yhanswer = 1 Then
  966.         '1.判断当前销售合同是否允许删除
  967.         If Not Fun_AllowDelete Then
  968.             Exit Sub
  969.         End If
  970.   
  971.         '2.删除单据所有内容
  972.         Lng_BillID = Val(CxbbGrid.TextMatrix(CxbbGrid.Row, 0))
  973.         On Error GoTo Swcwcl
  974.         Cw_DataEnvi.DataConnect.BeginTrans
  975.         Cw_DataEnvi.DataConnect.Execute ("Delete XS_ContractMain Where ContractMainId=" & Lng_BillID)        '删除单据主表内容
  976.         Cw_DataEnvi.DataConnect.Execute ("Delete XS_ContractSub Where ContractMainId=" & Lng_BillID)         '删除单据子表内容
  977.         Cw_DataEnvi.DataConnect.CommitTrans
  978.       
  979.         '删除网格中单据数据
  980.         Jsqte = CxbbGrid.FixedRows
  981.         Do While Jsqte <= CxbbGrid.Rows - 1
  982.             If Val(CxbbGrid.TextMatrix(Jsqte, 0)) = Lng_BillID Then
  983.                 CxbbGrid.RemoveItem (Jsqte)
  984.             Else
  985.                 Jsqte = Jsqte + 1
  986.             End If
  987.         Loop
  988.     Else
  989.         Exit Sub
  990.     End If
  991.     Exit Sub
  992. Swcwcl:
  993.     Cw_DataEnvi.DataConnect.RollbackTrans
  994.     Tsxx = "删除销售合同过程中出现未知错误,程序自动恢复删除前状态!"
  995.     Call Xtxxts(Tsxx, 0, 1)
  996.     Exit Sub
  997.   
  998. End Sub
  1000. Private Function Fun_AllowDelete() As Boolean                                        '判断当前单据是否允许删除
  1001.   
  1002.     Dim RecTemp As New ADODB.Recordset     '临时使用动态集
  1003.     Dim Sqlstr As String                   '查询字符串
  1004.     Dim Lng_BillID As Long                 '单据ID
  1005.   
  1006.     Lng_BillID = Val(CxbbGrid.TextMatrix(CxbbGrid.Row, 0))
  1007.     Sqlstr = "Select Checker From XS_ContractMain Where ContractMainId=" & Lng_BillID
  1008.     Set RecTemp = Cw_DataEnvi.DataConnect.Execute(Sqlstr)
  1009.     With RecTemp
  1010.         If Not .EOF Then
  1011.             If Trim(.Fields("Checker") & "") <> "" Then
  1012.                 Tsxx = "该销售合同已审核确认,不能删除!"
  1013.                 Call Xtxxts(Tsxx, 0, 4)
  1014.                 Exit Function
  1015.             End If
  1016.             End If
  1017.     End With
  1018.     Fun_AllowDelete = True
  1019.   
  1020. End Function
  1022. Private Sub bbyl(bbylte As Boolean)                    '报表打印预览
  1023.     
  1024.     Dim Bbzbt$, Bbxbt() As String, bbxbtzzxs() As Integer, Bbxbtgs As Integer
  1025.     Dim Bbbwh() As String, Bbbwhzzxs() As Integer, Bbbwhgs As Integer
  1026.     Bbxbtgs = 1                                          '报 表 小 标 题 行 数
  1027.     Bbbwhgs = 0                                          '报 表 表 尾 行 数
  1028.     ReDim Bbxbt(1 To Bbxbtgs)
  1029.     ReDim bbxbtzzxs(1 To Bbxbtgs)
  1030.     If Bbbwhgs <> 0 Then
  1031.         ReDim Bbbwh(1 To Bbbwhgs)
  1032.         ReDim Bbbwhzzxs(1 To Bbbwhgs)
  1033.     End If
  1034.     Bbzbt = ReportTitle
  1035.     Bbxbt(1) = ""
  1036.     bbxbtzzxs(1) = 0                                     '报表行组织形式(0-居左 1-居中 2-居右)
  1037.     Call Scyxsjb(CxbbGrid)                               '生成报表数据
  1038.     Call Scdybb(Dyymctbl, Bbzbt, Bbxbt(), bbxbtzzxs(), Bbxbtgs, Bbbwh(), Bbbwhzzxs(), Bbbwhgs, bbylte)
  1039.     If Not bbylte Then
  1040.         Unload DY_Tybbyldy
  1041.     End If
  1043. End Sub