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

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

企业管理

开发平台：

Visual Basic

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