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

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

企业管理

开发平台：

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_CI_OffSet 
  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.TextBox Text1 
  62.          Enabled         =   0   'False
  63.          Height          =   285
  64.          Left            =   4350
  65.          Locked          =   -1  'True
  66.          TabIndex        =   6
  67.          Top             =   218
  68.          Width           =   1905
  69.       End
  70.       Begin VB.Label Label 
  71.          AutoSize        =   -1  'True
  72.          BackStyle       =   0  'Transparent
  73.          Caption         =   "发货单号:"
  74.          Height          =   180
  75.          Left            =   3540
  76.          TabIndex        =   5
  77.          Top             =   270
  78.          Width           =   810
  79.       End
  80.       Begin VB.Label Lab_Title 
  81.          BackColor       =   &H80000018&
  82.          BackStyle       =   0  'Transparent
  83.          Caption         =   "发货单核销列表"
  84.          BeginProperty Font 
  85.             Name            =   "宋体"
  86.             Size            =   12
  87.             Charset         =   134
  88.             Weight          =   700
  89.             Underline       =   0   'False
  90.             Italic          =   0   'False
  91.             Strikethrough   =   0   'False
  92.          EndProperty
  93.          ForeColor       =   &H00000000&
  94.          Height          =   300
  95.          Index           =   4
  96.          Left            =   480
  97.          TabIndex        =   2
  98.          Top             =   210
  99.          Width           =   2715
  100.       End
  101.    End
  102.    Begin VB.Timer Timer1 
  103.       Enabled         =   0   'False
  104.       Interval        =   1
  105.       Left            =   7620
  106.       Top             =   90
  107.    End
  108.    Begin VSFlex8Ctl.VSFlexGrid CxbbGrid 
  109.       Height          =   7545
  110.       Left            =   -60
  111.       TabIndex        =   0
  112.       Top             =   1440
  113.       Width           =   11775
  114.       _cx             =   5080
  115.       _cy             =   5080
  116.       Appearance      =   1
  117.       BorderStyle     =   1
  118.       Enabled         =   -1  'True
  119.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  120.          Name            =   "宋体"
  121.          Size            =   9
  122.          Charset         =   134
  123.          Weight          =   400
  124.          Underline       =   0   'False
  125.          Italic          =   0   'False
  126.          Strikethrough   =   0   'False
  127.       EndProperty
  128.       MousePointer    =   0
  129.       BackColor       =   16777215
  130.       ForeColor       =   -2147483640
  131.       BackColorFixed  =   13826538
  132.       ForeColorFixed  =   -2147483630
  133.       BackColorSel    =   -2147483635
  134.       ForeColorSel    =   -2147483634
  135.       BackColorBkg    =   -2147483636
  136.       BackColorAlternate=   16777215
  137.       GridColor       =   -2147483633
  138.       GridColorFixed  =   -2147483632
  139.       TreeColor       =   -2147483632
  140.       FloodColor      =   192
  141.       SheetBorder     =   -2147483642
  142.       FocusRect       =   1
  143.       HighLight       =   1
  144.       AllowSelection  =   -1  'True
  145.       AllowBigSelection=   -1  'True
  146.       AllowUserResizing=   0
  147.       SelectionMode   =   0
  148.       GridLines       =   1
  149.       GridLinesFixed  =   2
  150.       GridLineWidth   =   1
  151.       Rows            =   2
  152.       Cols            =   10
  153.       FixedRows       =   1
  154.       FixedCols       =   1
  155.       RowHeightMin    =   0
  156.       RowHeightMax    =   0
  157.       ColWidthMin     =   0
  158.       ColWidthMax     =   0
  159.       ExtendLastCol   =   0   'False
  160.       FormatString    =   ""
  161.       ScrollTrack     =   0   'False
  162.       ScrollBars      =   3
  163.       ScrollTips      =   0   'False
  164.       MergeCells      =   0
  165.       MergeCompare    =   0
  166.       AutoResize      =   -1  'True
  167.       AutoSizeMode    =   0
  168.       AutoSearch      =   0
  169.       AutoSearchDelay =   2
  170.       MultiTotals     =   -1  'True
  171.       SubtotalPosition=   1
  172.       OutlineBar      =   0
  173.       OutlineCol      =   0
  174.       Ellipsis        =   0
  175.       ExplorerBar     =   0
  176.       PicturesOver    =   0   'False
  177.       FillStyle       =   0
  178.       RightToLeft     =   0   'False
  179.       PictureType     =   0
  180.       TabBehavior     =   0
  181.       OwnerDraw       =   0
  182.       Editable        =   0
  183.       ShowComboButton =   1
  184.       WordWrap        =   0   'False
  185.       TextStyle       =   0
  186.       TextStyleFixed  =   0
  187.       OleDragMode     =   0
  188.       OleDropMode     =   0
  189.       DataMode        =   0
  190.       VirtualData     =   -1  'True
  191.       DataMember      =   ""
  192.       ComboSearch     =   3
  193.       AutoSizeMouse   =   -1  'True
  194.       FrozenRows      =   0
  195.       FrozenCols      =   0
  196.       AllowUserFreezing=   0
  197.       BackColorFrozen =   0
  198.       ForeColorFrozen =   0
  199.       WallPaperAlignment=   9
  200.       AccessibleName  =   ""
  201.       AccessibleDescription=   ""
  202.       AccessibleValue =   ""
  203.       AccessibleRole  =   24
  204.       Begin MSComctlLib.ImageList ImageList2 
  205.          Left            =   0
  206.          Top             =   0
  207.          _ExtentX        =   1005
  208.          _ExtentY        =   1005
  209.          BackColor       =   -2147483643
  210.          ImageWidth      =   16
  211.          ImageHeight     =   16
  212.          MaskColor       =   12632256
  213.          _Version        =   393216
  214.          BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628} 
  215.             NumListImages   =   40
  216.             BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  217.                Picture         =   "发货单核销.frx":1DF82
  218.                Key             =   "sz"
  219.             EndProperty
  220.             BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  221.                Picture         =   "发货单核销.frx":1E31C
  222.                Key             =   "dy"
  223.             EndProperty
  224.             BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  225.                Picture         =   "发货单核销.frx":1E6B6
  226.                Key             =   "yl"
  227.             EndProperty
  228.             BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  229.                Picture         =   "发货单核销.frx":1EA50
  230.                Key             =   "xg"
  231.             EndProperty
  232.             BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  233.                Picture         =   "发货单核销.frx":1EDEA
  234.                Key             =   "zh"
  235.             EndProperty
  236.             BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  237.                Picture         =   "发货单核销.frx":1F184
  238.                Key             =   "sh"
  239.             EndProperty
  240.             BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  241.                Picture         =   "发货单核销.frx":1F51E
  242.                Key             =   "bc"
  243.             EndProperty
  244.             BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  245.                Picture         =   "发货单核销.frx":1F8B8
  246.                Key             =   "fq"
  247.             EndProperty
  248.             BeginProperty ListImage9 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  249.                Picture         =   "发货单核销.frx":1FC52
  250.                Key             =   "bz"
  251.             EndProperty
  252.             BeginProperty ListImage10 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  253.                Picture         =   "发货单核销.frx":1FFEC
  254.                Key             =   "tc"
  255.             EndProperty
  256.             BeginProperty ListImage11 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  257.                Picture         =   "发货单核销.frx":20386
  258.                Key             =   "bcgs"
  259.             EndProperty
  260.             BeginProperty ListImage12 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  261.                Picture         =   "发货单核销.frx":20720
  262.                Key             =   "mrlk"
  263.             EndProperty
  264.             BeginProperty ListImage13 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  265.                Picture         =   "发货单核销.frx":20ABA
  266.                Key             =   "xsxm"
  267.             EndProperty
  268.             BeginProperty ListImage14 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  269.                Picture         =   "发货单核销.frx":20E54
  270.                Key             =   "first"
  271.             EndProperty
  272.             BeginProperty ListImage15 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  273.                Picture         =   "发货单核销.frx":211EE
  274.                Key             =   "prev"
  275.             EndProperty
  276.             BeginProperty ListImage16 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  277.                Picture         =   "发货单核销.frx":21588
  278.                Key             =   "next"
  279.             EndProperty
  280.             BeginProperty ListImage17 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  281.                Picture         =   "发货单核销.frx":21922
  282.                Key             =   "last"
  283.             EndProperty
  284.             BeginProperty ListImage18 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  285.                Picture         =   "发货单核销.frx":21CBC
  286.                Key             =   "xx"
  287.             EndProperty
  288.             BeginProperty ListImage19 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  289.                Picture         =   "发货单核销.frx":22056
  290.                Key             =   "define"
  291.             EndProperty
  292.             BeginProperty ListImage20 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  293.                Picture         =   "发货单核销.frx":223F0
  294.                Key             =   "exec"
  295.             EndProperty
  296.             BeginProperty ListImage21 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  297.                Picture         =   "发货单核销.frx":2278A
  298.                Key             =   "xz"
  299.             EndProperty
  300.             BeginProperty ListImage22 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  301.                Picture         =   "发货单核销.frx":22B24
  302.                Key             =   "sc"
  303.             EndProperty
  304.             BeginProperty ListImage23 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  305.                Picture         =   "发货单核销.frx":22EBE
  306.                Key             =   "sx"
  307.             EndProperty
  308.             BeginProperty ListImage24 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  309.                Picture         =   "发货单核销.frx":23258
  310.                Key             =   "cx"
  311.             EndProperty
  312.             BeginProperty ListImage25 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  313.                Picture         =   "发货单核销.frx":235F2
  314.                Key             =   "zd"
  315.             EndProperty
  316.             BeginProperty ListImage26 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  317.                Picture         =   "发货单核销.frx":2398C
  318.                Key             =   "dz"
  319.             EndProperty
  320.             BeginProperty ListImage27 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  321.                Picture         =   "发货单核销.frx":23D26
  322.                Key             =   "ph"
  323.             EndProperty
  324.             BeginProperty ListImage28 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  325.                Picture         =   "发货单核销.frx":240C0
  326.                Key             =   "fz"
  327.             EndProperty
  328.             BeginProperty ListImage29 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  329.                Picture         =   "发货单核销.frx":2445A
  330.                Key             =   "dw"
  331.             EndProperty
  332.             BeginProperty ListImage30 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  333.                Picture         =   "发货单核销.frx":247F4
  334.                Key             =   "hf"
  335.             EndProperty
  336.             BeginProperty ListImage31 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  337.                Picture         =   "发货单核销.frx":24B8E
  338.                Key             =   "pz"
  339.             EndProperty
  340.             BeginProperty ListImage32 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  341.                Picture         =   "发货单核销.frx":24F28
  342.                Key             =   "check"
  343.             EndProperty
  344.             BeginProperty ListImage33 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  345.                Picture         =   "发货单核销.frx":252C2
  346.                Key             =   "qs"
  347.             EndProperty
  348.             BeginProperty ListImage34 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  349.                Picture         =   "发货单核销.frx":2565C
  350.                Key             =   "fullcheck"
  351.             EndProperty
  352.             BeginProperty ListImage35 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  353.                Picture         =   "发货单核销.frx":259F6
  354.                Key             =   "qq"
  355.             EndProperty
  356.             BeginProperty ListImage36 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  357.                Picture         =   "发货单核销.frx":25D90
  358.                Key             =   "bcw"
  359.             EndProperty
  360.             BeginProperty ListImage37 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  361.                Picture         =   "发货单核销.frx":2612A
  362.                Key             =   "ye"
  363.             EndProperty
  364.             BeginProperty ListImage38 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  365.                Picture         =   "发货单核销.frx":264C4
  366.                Key             =   ""
  367.             EndProperty
  368.             BeginProperty ListImage39 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  369.                Picture         =   "发货单核销.frx":2685E
  370.                Key             =   "frist"
  371.             EndProperty
  372.             BeginProperty ListImage40 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  373.                Picture         =   "发货单核销.frx":26BF8
  374.                Key             =   "dj"
  375.             EndProperty
  376.          EndProperty
  377.       End
  378.    End
  379.    Begin MSComctlLib.Toolbar SzToolbar 
  380.       Align           =   1  'Align Top
  381.       Height          =   555
  382.       Left            =   0
  383.       TabIndex        =   4
  384.       Top             =   0
  385.       Width           =   11820
  386.       _ExtentX        =   20849
  387.       _ExtentY        =   979
  388.       ButtonWidth     =   820
  389.       ButtonHeight    =   926
  390.       AllowCustomize  =   0   'False
  391.       Appearance      =   1
  392.       Style           =   1
  393.       ImageList       =   "ImageList1"
  394.       _Version        =   393216
  395.       BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628} 
  396.          NumButtons      =   7
  397.          BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  398.             Caption         =   "设置"
  399.             Key             =   "ymsz"
  400.             ImageKey        =   "sz"
  401.          EndProperty
  402.          BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  403.             Caption         =   "打印"
  404.             Key             =   "dy"
  405.             ImageKey        =   "dy"
  406.          EndProperty
  407.          BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  408.             Caption         =   "预览"
  409.             Key             =   "yl"
  410.             ImageKey        =   "yl"
  411.          EndProperty
  412.          BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  413.             Style           =   3
  414.          EndProperty
  415.          BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  416.             Object.Visible         =   0   'False
  417.             Style           =   3
  418.          EndProperty
  419.          BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  420.             Caption         =   "帮助"
  421.             Key             =   "bz"
  422.             ImageKey        =   "bz"
  423.          EndProperty
  424.          BeginProperty Button7 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  425.             Caption         =   "退出"
  426.             Key             =   "fh"
  427.             ImageKey        =   "tc"
  428.          EndProperty
  429.       EndProperty
  430.       BorderStyle     =   1
  431.       Begin MSComctlLib.ImageList ImageList1 
  432.          Left            =   6990
  433.          Top             =   30
  434.          _ExtentX        =   1005
  435.          _ExtentY        =   1005
  436.          BackColor       =   -2147483643
  437.          ImageWidth      =   16
  438.          ImageHeight     =   16
  439.          MaskColor       =   12632256
  440.          _Version        =   393216
  441.          BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628} 
  442.             NumListImages   =   32
  443.             BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  444.                Picture         =   "发货单核销.frx":26F92
  445.                Key             =   "sz"
  446.             EndProperty
  447.             BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  448.                Picture         =   "发货单核销.frx":2732C
  449.                Key             =   "dy"
  450.             EndProperty
  451.             BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  452.                Picture         =   "发货单核销.frx":276C6
  453.                Key             =   "yl"
  454.             EndProperty
  455.             BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  456.                Picture         =   "发货单核销.frx":27A60
  457.                Key             =   "xg"
  458.             EndProperty
  459.             BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  460.                Picture         =   "发货单核销.frx":27DFA
  461.                Key             =   "zh"
  462.             EndProperty
  463.             BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  464.                Picture         =   "发货单核销.frx":28194
  465.                Key             =   "sh"
  466.             EndProperty
  467.             BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  468.                Picture         =   "发货单核销.frx":2852E
  469.                Key             =   "bc"
  470.             EndProperty
  471.             BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  472.                Picture         =   "发货单核销.frx":288C8
  473.                Key             =   "fq"
  474.             EndProperty
  475.             BeginProperty ListImage9 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  476.                Picture         =   "发货单核销.frx":28C62
  477.                Key             =   "bz"
  478.             EndProperty
  479.             BeginProperty ListImage10 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  480.                Picture         =   "发货单核销.frx":28FFC
  481.                Key             =   "tc"
  482.             EndProperty
  483.             BeginProperty ListImage11 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  484.                Picture         =   "发货单核销.frx":29396
  485.                Key             =   "bcgs"
  486.             EndProperty
  487.             BeginProperty ListImage12 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  488.                Picture         =   "发货单核销.frx":29730
  489.                Key             =   "mrlk"
  490.             EndProperty
  491.             BeginProperty ListImage13 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  492.                Picture         =   "发货单核销.frx":29ACA
  493.                Key             =   "xsxm"
  494.             EndProperty
  495.             BeginProperty ListImage14 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  496.                Picture         =   "发货单核销.frx":29E64
  497.                Key             =   "first"
  498.             EndProperty
  499.             BeginProperty ListImage15 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  500.                Picture         =   "发货单核销.frx":2A1FE
  501.                Key             =   "prev"
  502.             EndProperty
  503.             BeginProperty ListImage16 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  504.                Picture         =   "发货单核销.frx":2A598
  505.                Key             =   "next"
  506.             EndProperty
  507.             BeginProperty ListImage17 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  508.                Picture         =   "发货单核销.frx":2A932
  509.                Key             =   "last"
  510.             EndProperty
  511.             BeginProperty ListImage18 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  512.                Picture         =   "发货单核销.frx":2ACCC
  513.                Key             =   "xx"
  514.             EndProperty
  515.             BeginProperty ListImage19 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  516.                Picture         =   "发货单核销.frx":2B066
  517.                Key             =   "define"
  518.             EndProperty
  519.             BeginProperty ListImage20 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  520.                Picture         =   "发货单核销.frx":2B400
  521.                Key             =   "exec"
  522.             EndProperty
  523.             BeginProperty ListImage21 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  524.                Picture         =   "发货单核销.frx":2B79A
  525.                Key             =   "xz"
  526.             EndProperty
  527.             BeginProperty ListImage22 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  528.                Picture         =   "发货单核销.frx":2BB34
  529.                Key             =   "sc"
  530.             EndProperty
  531.             BeginProperty ListImage23 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  532.                Picture         =   "发货单核销.frx":2BECE
  533.                Key             =   "sx"
  534.             EndProperty
  535.             BeginProperty ListImage24 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  536.                Picture         =   "发货单核销.frx":2C268
  537.                Key             =   "cx"
  538.             EndProperty
  539.             BeginProperty ListImage25 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  540.                Picture         =   "发货单核销.frx":2C602
  541.                Key             =   "zd"
  542.             EndProperty
  543.             BeginProperty ListImage26 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  544.                Picture         =   "发货单核销.frx":2C99C
  545.                Key             =   "dz"
  546.             EndProperty
  547.             BeginProperty ListImage27 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  548.                Picture         =   "发货单核销.frx":2CD36
  549.                Key             =   "ph"
  550.             EndProperty
  551.             BeginProperty ListImage28 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  552.                Picture         =   "发货单核销.frx":2D0D0
  553.                Key             =   "fz"
  554.             EndProperty
  555.             BeginProperty ListImage29 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  556.                Picture         =   "发货单核销.frx":2D46A
  557.                Key             =   "dw"
  558.             EndProperty
  559.             BeginProperty ListImage30 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  560.                Picture         =   "发货单核销.frx":2D804
  561.                Key             =   "hf"
  562.             EndProperty
  563.             BeginProperty ListImage31 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  564.                Picture         =   "发货单核销.frx":2DB9E
  565.                Key             =   "pz"
  566.             EndProperty
  567.             BeginProperty ListImage32 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  568.                Picture         =   "发货单核销.frx":2DF38
  569.                Key             =   "check"
  570.             EndProperty
  571.          EndProperty
  572.       End
  573.    End
  574. End
  575. Attribute VB_Name = "Xs_CI_OffSet"
  576. Attribute VB_GlobalNameSpace = False
  577. Attribute VB_Creatable = False
  578. Attribute VB_PredeclaredId = True
  579. Attribute VB_Exposed = False
  580. '**************************************************************************
  581. '*    模 块 名 称 :发货单核销
  582. '*    功 能 描 述 :
  583. '*    程序员姓名  :王长兴
  584. '*    最后修改人  :王长兴
  585. '*    最后修改时间:2001/10/06
  586. '*    备        注:程序中所有依实际情况自定义部分均用[>>  <<]括起
  587. '**************************************************************************
  588. Dim ReportTitle As String                '报表主标题
  589. Dim Str_QueryCondi As String             '用户录入查询条件
  590. Dim Rec_BillID As New ADODB.Recordset    '用户查询单据ID动态集
  592. '以下为固定使用变量
  593. Dim Dyymctbl As New DY_Dyymsz            '打印页面窗体变量
  594. Dim GridCode As String                   '显示网格网格代码
  595. Dim GridInf() As Variant                 '整个网格设置信息
  596. Dim Tsxx As String                       '系统提示信息
  597. Dim Qslz As Long                         '网格隐藏(非操作显示)列数
  598. Dim Sjhgd As Double                      '网格数据行高度
  599. Dim Sfxshjwg As Boolean                  '是否显示合计网格
  600. Dim GridBoolean() As Boolean             '网格列信息(布尔型)
  601. Dim GridStr()  As String                 '网格列信息(字符型)
  602. Dim GridInt() As Integer                 '网格列信息(整型)
  603. Dim Szzls As Integer                     '数组总列数(网格列数-1)
  605. Private Sub Form_Resize()                '根据窗体大小来调整网格,标题栏大小(Fixed)
  606.     On Error Resume Next
  607.     With CxbbGrid
  608.         .Width = Me.Width - 160
  609.         .Height = Me.Height - .Top - 400
  610.     End With
  611.     With Pic_Title
  612.         .Width = Me.Width - 160
  613.     End With
  614.     
  615.     GsToolbar.Left = Me.Width - GsToolbar.Width - 140
  617. End Sub
  619. Private Sub Form_Load()                                                   '窗体装入
  620.   
  621.     ReportTitle = "发货单核销列表"
  622.     If Xtcdcs = 1 Then
  623.         Text1.Tag = Xtcdcs
  624.         XtReportCode = "Xs_CI_OffSet"
  625.         GridCode = "Xs_CI_OffSet"
  626.     Else
  627.         Text1.Tag = Xtcdcs
  628.         XtReportCode = "Xs_CRM_OffSet"
  629.         GridCode = "Xs_CRM_OffSet"
  630.     End If
  631.     
  632.     '调入打印页面设置窗体
  633.     Load Dyymctbl
  634.       
  635.     '调整标题栏及网格、格式工具条位置(Fixed)
  636.     Pic_Title.Left = 40
  637.     Pic_Title.Top = SzToolbar.Top + SzToolbar.Height - 10
  638.     CxbbGrid.Left = Pic_Title.Left
  639.     CxbbGrid.Top = Pic_Title.Top + Pic_Title.Height + 20
  640.      
  641.     '调 入 网 格(Fixed)
  642.     Call BzWgcsh(CxbbGrid, GridCode, GridInf(), GridBoolean(), GridInt(), GridStr())
  643.       
  644.     Qslz = GridInf(1)
  645.     Sjhgd = GridInf(2)
  646.     Sfxshjwg = GridInf(7)
  647.     Szzls = CxbbGrid.Cols - 1
  649. End Sub
  651. Private Sub Form_Unload(Cancel As Integer)                                  '窗体卸载
  653.     '卸载打印页面设置窗体
  654.     Unload Dyymctbl
  656. End Sub
  658. Private Sub CxbbGrid_BeforeMoveColumn(ByVal Col As Long, Position As Long)           '网格列发生移动时自动交换网格索引信息
  659.     Call FnBln_RefreshArray(Col, Position, GridStr(), GridInf())
  660. End Sub
  662. Private Sub GsToolbar_ButtonClick(ByVal Button As MSComctlLib.Button)                '网格格式调整(Fixed)
  663.   
  664.     Select Case Button.Key
  665.         Case "bcgs"                                          '保存表格格式
  666.             Call Bcwggs(CxbbGrid, GridCode, GridStr())
  667.         Case "hfmrgs"                                        '恢复默认格式
  668.             Call Hfmrgs(CxbbGrid, GridCode, GridStr())
  669.         Case "szxsxm"                                        '设置显示项目
  670.             Call Szxsxm(CxbbGrid, GridCode)
  671.     End Select
  673. End Sub
  675. Private Sub SzToolbar_ButtonClick(ByVal Button As MSComctlLib.Button)
  676.     
  677.     Select Case Button.Key
  678.         Case "ymsz"                                          '页面设置
  679.             Dyymctbl.Show 1
  680.         Case "yl"                                            '预 览
  681.             Call bbyl(True)
  682.         Case "dy"                                            '打 印
  683.             Call bbyl(False)
  684.         Case "bz"                                            '帮 助
  685.             Call F1bz
  686.         Case "fh"                                            '退 出
  687.            Unload Me
  688.     End Select
  690. End Sub
  692. Private Sub Timer1_Timer()                                 '在窗体激活后调入查询程序
  693.     
  694.     Timer1.Enabled = False
  695.     Xt_Wait.Show
  696.     Xt_Wait.Refresh
  697.    
  698.     '加快显示速度
  699.     CxbbGrid.Redraw = False
  700.  
  701.     '生成查询结果
  702.     If Text1.Tag = 1 Then Call Sub_Query(0)
  703.     If Text1.Tag = 2 Then Call Sub_RM_Query
  704.    
  705.     CxbbGrid.Redraw = True
  706.     
  707.     Xt_Wait.Hide
  709. End Sub
  711. Private Sub Sub_Query(Int_QueryType As Integer)                                     '生成查询结果(Define)
  712.     
  713.     '过程参数:Int_QueryType 0-"点确定按钮"查询  1-"刷新"查询
  715.     Dim Rec_Query As New ADODB.Recordset        '查询结果动态集
  716.     Dim Coljsq As Long                          '网格列计数器
  717.     Dim Jsqte As Long                           '临时动态计数器
  719.     '以下为自定义部分[
  720.  
  721.     If Int_QueryType = 0 Then   '0-"点确定按钮"查询
  722.         Str_QueryCondi = " where ConsignBillMainID=" & XT_BillID
  723.     End If
  724.      
  725.     Sqlstr = "SELECT * FROM Xs_V_InvoiceConsign " & Str_QueryCondi & " order by consignbillmainid,consignbillsubid"
  727.     Set Rec_Query = Cw_DataEnvi.DataConnect.Execute(Sqlstr)
  728.     With Rec_Query
  729.         If .RecordCount > 0 Then Text1.Text = Trim(.Fields("consigncode"))
  730.         CxbbGrid.Rows = CxbbGrid.FixedRows
  731.         Jsqte = CxbbGrid.FixedRows
  732.         Do While Not .EOF
  733.             CxbbGrid.AddItem ""
  734.             '[>>自定义填充内容
  735.             CxbbGrid.TextMatrix(Jsqte, Sydz("001", GridStr(), Szzls)) = Trim(.Fields("WareCode") & "")                  '货物编码
  736.             CxbbGrid.TextMatrix(Jsqte, Sydz("002", GridStr(), Szzls)) = Trim(.Fields("Warename") & "")                  '货物名称
  737.             CxbbGrid.TextMatrix(Jsqte, Sydz("003", GridStr(), Szzls)) = Trim(.Fields("model") & "")                     '规格
  738.             CxbbGrid.TextMatrix(Jsqte, Sydz("004", GridStr(), Szzls)) = Trim(.Fields("saleunitname") & "")              '单位
  739.             CxbbGrid.TextMatrix(Jsqte, Sydz("005", GridStr(), Szzls)) = Abs(.Fields("RecQuantity") & "")                '实收数量
  740.             CxbbGrid.TextMatrix(Jsqte, Sydz("006", GridStr(), Szzls)) = Trim(.Fields("InvoiceCode") & "")               '发票号
  741.             CxbbGrid.TextMatrix(Jsqte, Sydz("007", GridStr(), Szzls)) = Abs(.Fields("Inv_Quantity") & "")               '核销数量
  742.             CxbbGrid.TextMatrix(Jsqte, Sydz("008", GridStr(), Szzls)) = Val(.Fields("inv_TaxUnitPrice") & "")           '含税单价
  743.             CxbbGrid.TextMatrix(Jsqte, Sydz("009", GridStr(), Szzls)) = Abs(.Fields("Inv_Quantity") & "") * Val(.Fields("inv_TaxUnitPrice") & "")   '含税金额
  744.             CxbbGrid.TextMatrix(Jsqte, Sydz("010", GridStr(), Szzls)) = Val(.Fields("inv_UnitPrice") & "")              '不含税单价
  745.             CxbbGrid.TextMatrix(Jsqte, Sydz("011", GridStr(), Szzls)) = Abs(.Fields("Inv_Quantity") & "") * Val(.Fields("inv_UnitPrice") & "")      '不含税金额
  746.             
  747.             '<<]
  748.             '设置数据行高度(Fixed)
  749.             CxbbGrid.RowHeight(Jsqte) = Sjhgd
  750.      
  751.             '动态集指针加1,同时将计数器加1(Fixed)
  752.             .MoveNext
  753.             Jsqte = Jsqte + 1
  754.         Loop
  755.     End With
  757.     ']以上为用户自定义部分
  759. End Sub
  761. Private Sub Sub_RM_Query()                                     '生成查询结果(Define)
  762.     
  763.     '过程参数:Int_QueryType 0-"点确定按钮"查询  1-"刷新"查询
  765.     Dim Rec_Query As New ADODB.Recordset        '查询结果动态集
  766.     Dim Coljsq As Long                          '网格列计数器
  767.     Dim Jsqte As Integer                        '临时动态计数器
  769.     '以下为自定义部分[
  770.     Str_QueryCondi = " where BillID=" & XT_BillID & " and billtype=1 "
  771.     
  772.     Sqlstr = "SELECT * FROM Xs_V_MoneyWare " & Str_QueryCondi & " order by consignbillmainid,consignbillsubid"
  774.     Set Rec_Query = Cw_DataEnvi.DataConnect.Execute(Sqlstr)
  775.     With Rec_Query
  776.         If .RecordCount > 0 Then Text1.Text = Trim(.Fields("consigncode"))
  777.         CxbbGrid.Rows = CxbbGrid.FixedRows
  778.         Jsqte = CxbbGrid.FixedRows
  779.         Do While Not .EOF
  780.             CxbbGrid.AddItem ""
  781.             '[>>自定义填充内容
  782.             CxbbGrid.TextMatrix(Jsqte, Sydz("001", GridStr(), Szzls)) = Trim(.Fields("WareCode") & "")                  '货物编码
  783.             CxbbGrid.TextMatrix(Jsqte, Sydz("002", GridStr(), Szzls)) = Trim(.Fields("Mname") & "")                     '货物名称
  784.             CxbbGrid.TextMatrix(Jsqte, Sydz("003", GridStr(), Szzls)) = Trim(.Fields("model") & "")                     '规格
  785.             CxbbGrid.TextMatrix(Jsqte, Sydz("004", GridStr(), Szzls)) = Trim(.Fields("saleunitname") & "")              '单位
  786.             CxbbGrid.TextMatrix(Jsqte, Sydz("005", GridStr(), Szzls)) = Abs(.Fields("CapitalWhole") & "")               '实收金额
  787.             CxbbGrid.TextMatrix(Jsqte, Sydz("006", GridStr(), Szzls)) = Trim(.Fields("MoneyWareCode") & "")             '核销单号
  788.             CxbbGrid.TextMatrix(Jsqte, Sydz("007", GridStr(), Szzls)) = Abs(.Fields("CapitalUsedMoney") & "")           '核销金额
  789.             
  790.             '<<]
  791.             '设置数据行高度(Fixed)
  792.             CxbbGrid.RowHeight(Jsqte) = Sjhgd
  793.      
  794.             '动态集指针加1,同时将计数器加1(Fixed)
  795.             .MoveNext
  796.             Jsqte = Jsqte + 1
  797.         Loop
  798.     End With
  800.     ']以上为用户自定义部分
  802. End Sub
  804. Private Sub bbyl(bbylte As Boolean)                    '报表打印预览
  805.     
  806.     Dim Bbzbt$, Bbxbt() As String, bbxbtzzxs() As Integer, Bbxbtgs As Integer
  807.     Dim Bbbwh() As String, Bbbwhzzxs() As Integer, Bbbwhgs As Integer
  808.     Bbxbtgs = 1                                          '报 表 小 标 题 行 数
  809.     Bbbwhgs = 0                                          '报 表 表 尾 行 数
  810.     ReDim Bbxbt(1 To Bbxbtgs)
  811.     ReDim bbxbtzzxs(1 To Bbxbtgs)
  812.     If Bbbwhgs <> 0 Then
  813.         ReDim Bbbwh(1 To Bbbwhgs)
  814.         ReDim Bbbwhzzxs(1 To Bbbwhgs)
  815.     End If
  816.     Bbzbt = ReportTitle
  817.     Bbxbt(1) = ""
  818.     bbxbtzzxs(1) = 0                                     '报表行组织形式(0-居左 1-居中 2-居右)
  819.     Call Scyxsjb(CxbbGrid)                               '生成报表数据
  820.     Call Scdybb(Dyymctbl, Bbzbt, Bbxbt(), bbxbtzzxs(), Bbxbtgs, Bbbwh(), Bbbwhzzxs(), Bbbwhgs, bbylte)
  821.     If Not bbylte Then
  822.         Unload DY_Tybbyldy
  823.     End If
  825. End Sub