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

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

企业管理

开发平台：

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 XT_BillDesign 
  5.    BackColor       =   &H00E0E0E0&
  6.    Caption         =   "单据处理"
  7.    ClientHeight    =   7200
  8.    ClientLeft      =   1125
  9.    ClientTop       =   960
  10.    ClientWidth     =   11880
  11.    Icon            =   "单据设置.frx":0000
  12.    KeyPreview      =   -1  'True
  13.    LinkTopic       =   "Form4"
  14.    ScaleHeight     =   7200
  15.    ScaleWidth      =   11880
  16.    WindowState     =   2  'Maximized
  17.    Begin VB.PictureBox Pict 
  18.       BackColor       =   &H00E9F4FA&
  19.       BorderStyle     =   0  'None
  20.       Height          =   6285
  21.       Left            =   75
  22.       ScaleHeight     =   6285
  23.       ScaleWidth      =   10905
  24.       TabIndex        =   0
  25.       Top             =   600
  26.       Width           =   10905
  27.       Begin VSFlex8Ctl.VSFlexGrid WglrGrid 
  28.          Height          =   3765
  29.          Left            =   150
  30.          TabIndex        =   18
  31.          Top             =   1650
  32.          Width           =   10065
  33.          _cx             =   17754
  34.          _cy             =   6641
  35.          Appearance      =   1
  36.          BorderStyle     =   1
  37.          Enabled         =   -1  'True
  38.          BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  39.             Name            =   "宋体"
  40.             Size            =   9
  41.             Charset         =   134
  42.             Weight          =   400
  43.             Underline       =   0   'False
  44.             Italic          =   0   'False
  45.             Strikethrough   =   0   'False
  46.          EndProperty
  47.          MousePointer    =   0
  48.          BackColor       =   -2147483643
  49.          ForeColor       =   -2147483640
  50.          BackColorFixed  =   7330794
  51.          ForeColorFixed  =   -2147483630
  52.          BackColorSel    =   -2147483635
  53.          ForeColorSel    =   -2147483634
  54.          BackColorBkg    =   -2147483636
  55.          BackColorAlternate=   -2147483643
  56.          GridColor       =   -2147483633
  57.          GridColorFixed  =   -2147483632
  58.          TreeColor       =   -2147483632
  59.          FloodColor      =   192
  60.          SheetBorder     =   -2147483642
  61.          FocusRect       =   1
  62.          HighLight       =   1
  63.          AllowSelection  =   -1  'True
  64.          AllowBigSelection=   -1  'True
  65.          AllowUserResizing=   0
  66.          SelectionMode   =   0
  67.          GridLines       =   1
  68.          GridLinesFixed  =   2
  69.          GridLineWidth   =   1
  70.          Rows            =   50
  71.          Cols            =   10
  72.          FixedRows       =   1
  73.          FixedCols       =   0
  74.          RowHeightMin    =   0
  75.          RowHeightMax    =   0
  76.          ColWidthMin     =   0
  77.          ColWidthMax     =   0
  78.          ExtendLastCol   =   0   'False
  79.          FormatString    =   ""
  80.          ScrollTrack     =   0   'False
  81.          ScrollBars      =   3
  82.          ScrollTips      =   0   'False
  83.          MergeCells      =   0
  84.          MergeCompare    =   0
  85.          AutoResize      =   -1  'True
  86.          AutoSizeMode    =   0
  87.          AutoSearch      =   0
  88.          AutoSearchDelay =   2
  89.          MultiTotals     =   -1  'True
  90.          SubtotalPosition=   1
  91.          OutlineBar      =   0
  92.          OutlineCol      =   0
  93.          Ellipsis        =   0
  94.          ExplorerBar     =   0
  95.          PicturesOver    =   0   'False
  96.          FillStyle       =   0
  97.          RightToLeft     =   0   'False
  98.          PictureType     =   0
  99.          TabBehavior     =   0
  100.          OwnerDraw       =   0
  101.          Editable        =   0
  102.          ShowComboButton =   1
  103.          WordWrap        =   0   'False
  104.          TextStyle       =   0
  105.          TextStyleFixed  =   0
  106.          OleDragMode     =   0
  107.          OleDropMode     =   0
  108.          DataMode        =   0
  109.          VirtualData     =   -1  'True
  110.          DataMember      =   ""
  111.          ComboSearch     =   3
  112.          AutoSizeMouse   =   -1  'True
  113.          FrozenRows      =   0
  114.          FrozenCols      =   0
  115.          AllowUserFreezing=   0
  116.          BackColorFrozen =   0
  117.          ForeColorFrozen =   0
  118.          WallPaperAlignment=   9
  119.          AccessibleName  =   ""
  120.          AccessibleDescription=   ""
  121.          AccessibleValue =   ""
  122.          AccessibleRole  =   24
  123.          Begin VSFlex8Ctl.VSFlexGrid HjGrid 
  124.             Height          =   615
  125.             Left            =   0
  126.             TabIndex        =   19
  127.             Top             =   3075
  128.             Visible         =   0   'False
  129.             Width           =   9915
  130.             _cx             =   17489
  131.             _cy             =   1085
  132.             Appearance      =   1
  133.             BorderStyle     =   1
  134.             Enabled         =   -1  'True
  135.             BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  136.                Name            =   "宋体"
  137.                Size            =   9
  138.                Charset         =   134
  139.                Weight          =   400
  140.                Underline       =   0   'False
  141.                Italic          =   0   'False
  142.                Strikethrough   =   0   'False
  143.             EndProperty
  144.             MousePointer    =   0
  145.             BackColor       =   -2147483643
  146.             ForeColor       =   -2147483640
  147.             BackColorFixed  =   -2147483633
  148.             ForeColorFixed  =   -2147483630
  149.             BackColorSel    =   -2147483635
  150.             ForeColorSel    =   -2147483634
  151.             BackColorBkg    =   -2147483636
  152.             BackColorAlternate=   -2147483643
  153.             GridColor       =   -2147483633
  154.             GridColorFixed  =   -2147483632
  155.             TreeColor       =   -2147483632
  156.             FloodColor      =   192
  157.             SheetBorder     =   -2147483642
  158.             FocusRect       =   1
  159.             HighLight       =   1
  160.             AllowSelection  =   -1  'True
  161.             AllowBigSelection=   -1  'True
  162.             AllowUserResizing=   0
  163.             SelectionMode   =   0
  164.             GridLines       =   1
  165.             GridLinesFixed  =   2
  166.             GridLineWidth   =   1
  167.             Rows            =   50
  168.             Cols            =   10
  169.             FixedRows       =   1
  170.             FixedCols       =   1
  171.             RowHeightMin    =   0
  172.             RowHeightMax    =   0
  173.             ColWidthMin     =   0
  174.             ColWidthMax     =   0
  175.             ExtendLastCol   =   0   'False
  176.             FormatString    =   ""
  177.             ScrollTrack     =   0   'False
  178.             ScrollBars      =   3
  179.             ScrollTips      =   0   'False
  180.             MergeCells      =   0
  181.             MergeCompare    =   0
  182.             AutoResize      =   -1  'True
  183.             AutoSizeMode    =   0
  184.             AutoSearch      =   0
  185.             AutoSearchDelay =   2
  186.             MultiTotals     =   -1  'True
  187.             SubtotalPosition=   1
  188.             OutlineBar      =   0
  189.             OutlineCol      =   0
  190.             Ellipsis        =   0
  191.             ExplorerBar     =   0
  192.             PicturesOver    =   0   'False
  193.             FillStyle       =   0
  194.             RightToLeft     =   0   'False
  195.             PictureType     =   0
  196.             TabBehavior     =   0
  197.             OwnerDraw       =   0
  198.             Editable        =   0
  199.             ShowComboButton =   1
  200.             WordWrap        =   0   'False
  201.             TextStyle       =   0
  202.             TextStyleFixed  =   0
  203.             OleDragMode     =   0
  204.             OleDropMode     =   0
  205.             DataMode        =   0
  206.             VirtualData     =   -1  'True
  207.             DataMember      =   ""
  208.             ComboSearch     =   3
  209.             AutoSizeMouse   =   -1  'True
  210.             FrozenRows      =   0
  211.             FrozenCols      =   0
  212.             AllowUserFreezing=   0
  213.             BackColorFrozen =   0
  214.             ForeColorFrozen =   0
  215.             WallPaperAlignment=   9
  216.             AccessibleName  =   ""
  217.             AccessibleDescription=   ""
  218.             AccessibleValue =   ""
  219.             AccessibleRole  =   24
  220.          End
  221.       End
  222.       Begin VB.PictureBox Text_W 
  223.          Appearance      =   0  'Flat
  224.          BackColor       =   &H00FF0000&
  225.          ForeColor       =   &H80000008&
  226.          Height          =   105
  227.          Left            =   2160
  228.          MousePointer    =   9  'Size W E
  229.          ScaleHeight     =   75
  230.          ScaleWidth      =   45
  231.          TabIndex        =   15
  232.          Top             =   720
  233.          Visible         =   0   'False
  234.          Width           =   75
  235.       End
  236.       Begin VB.PictureBox Pict_H 
  237.          Appearance      =   0  'Flat
  238.          BackColor       =   &H00FF8080&
  239.          ForeColor       =   &H80000008&
  240.          Height          =   10605
  241.          Left            =   10845
  242.          MousePointer    =   9  'Size W E
  243.          ScaleHeight     =   10575
  244.          ScaleWidth      =   30
  245.          TabIndex        =   10
  246.          Top             =   0
  247.          Width           =   65
  248.       End
  249.       Begin VB.PictureBox Pict_W 
  250.          Appearance      =   0  'Flat
  251.          BackColor       =   &H00FF8080&
  252.          ForeColor       =   &H80000008&
  253.          Height          =   65
  254.          Left            =   0
  255.          MousePointer    =   7  'Size N S
  256.          ScaleHeight     =   30
  257.          ScaleMode       =   0  'User
  258.          ScaleWidth      =   10830
  259.          TabIndex        =   9
  260.          Top             =   6225
  261.          Width           =   10860
  262.       End
  263.       Begin VB.PictureBox Grid_W 
  264.          Appearance      =   0  'Flat
  265.          BackColor       =   &H00FF8080&
  266.          ForeColor       =   &H80000008&
  267.          Height          =   105
  268.          Left            =   10290
  269.          MousePointer    =   9  'Size W E
  270.          ScaleHeight     =   75
  271.          ScaleWidth      =   75
  272.          TabIndex        =   6
  273.          Top             =   3150
  274.          Visible         =   0   'False
  275.          Width           =   105
  276.       End
  277.       Begin VB.PictureBox Grid_H 
  278.          Appearance      =   0  'Flat
  279.          BackColor       =   &H00FF8080&
  280.          ForeColor       =   &H80000008&
  281.          Height          =   105
  282.          Left            =   2850
  283.          MousePointer    =   7  'Size N S
  284.          ScaleHeight     =   75
  285.          ScaleWidth      =   75
  286.          TabIndex        =   5
  287.          Top             =   5010
  288.          Visible         =   0   'False
  289.          Width           =   105
  290.       End
  291.       Begin VB.PictureBox Grid_XY 
  292.          Appearance      =   0  'Flat
  293.          BackColor       =   &H00FF8080&
  294.          ForeColor       =   &H80000008&
  295.          Height          =   105
  296.          Left            =   30
  297.          MousePointer    =   5  'Size
  298.          ScaleHeight     =   75
  299.          ScaleWidth      =   75
  300.          TabIndex        =   4
  301.          Top             =   2340
  302.          Visible         =   0   'False
  303.          Width           =   105
  304.       End
  305.       Begin VB.PictureBox label_XY 
  306.          BackColor       =   &H00E0E0E0&
  307.          BorderStyle     =   0  'None
  308.          Enabled         =   0   'False
  309.          Height          =   285
  310.          Left            =   1260
  311.          ScaleHeight     =   285
  312.          ScaleWidth      =   1875
  313.          TabIndex        =   7
  314.          Top             =   270
  315.          Visible         =   0   'False
  316.          Width           =   1875
  317.          Begin VB.Label Caption_XY 
  318.             BackColor       =   &H00E0E0E0&
  319.             ForeColor       =   &H00C00000&
  320.             Height          =   225
  321.             Left            =   150
  322.             TabIndex        =   8
  323.             Top             =   75
  324.             Width           =   1695
  325.          End
  326.       End
  327.       Begin VB.TextBox LrText 
  328.          BackColor       =   &H00FFFFFF&
  329.          ForeColor       =   &H00000000&
  330.          Height          =   300
  331.          Index           =   0
  332.          Left            =   690
  333.          Locked          =   -1  'True
  334.          TabIndex        =   1
  335.          Text            =   "0"
  336.          Top             =   1020
  337.          Visible         =   0   'False
  338.          Width           =   1350
  339.       End
  340.       Begin MSComctlLib.Toolbar Toolbar1 
  341.          Height          =   555
  342.          Left            =   0
  343.          TabIndex        =   16
  344.          Top             =   0
  345.          Width           =   10860
  346.          _ExtentX        =   19156
  347.          _ExtentY        =   979
  348.          ButtonWidth     =   820
  349.          ButtonHeight    =   926
  350.          AllowCustomize  =   0   'False
  351.          Style           =   1
  352.          ImageList       =   "ImageList1"
  353.          _Version        =   393216
  354.          BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628} 
  355.             NumButtons      =   12
  356.             BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  357.                Caption         =   "设置"
  358.                Key             =   "ymsz"
  359.                ImageKey        =   "sz"
  360.             EndProperty
  361.             BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  362.                Caption         =   "打印"
  363.                Key             =   "dy"
  364.                Object.ToolTipText     =   "点击或按Ctrl+P打印表格"
  365.                ImageKey        =   "dy"
  366.             EndProperty
  367.             BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  368.                Caption         =   "预览"
  369.                Key             =   "yl"
  370.                ImageKey        =   "yl"
  371.             EndProperty
  372.             BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  373.                Style           =   3
  374.             EndProperty
  375.             BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  376.                Caption         =   "增加"
  377.                Key             =   "zj"
  378.                Object.ToolTipText     =   "点击或按Ctrl+I增加记录"
  379.                ImageKey        =   "xz"
  380.             EndProperty
  381.             BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  382.                Caption         =   "修改"
  383.                Key             =   "xg"
  384.                ImageKey        =   "xg"
  385.             EndProperty
  386.             BeginProperty Button7 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  387.                Caption         =   "删除"
  388.                Key             =   "sc"
  389.                Object.ToolTipText     =   "点击或按Ctrl+D删除当前记录"
  390.                ImageKey        =   "sc"
  391.             EndProperty
  392.             BeginProperty Button8 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  393.                Enabled         =   0   'False
  394.                Style           =   3
  395.             EndProperty
  396.             BeginProperty Button9 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  397.                Caption         =   "刷新"
  398.                Key             =   "sx"
  399.                ImageKey        =   "sx"
  400.             EndProperty
  401.             BeginProperty Button10 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  402.                Style           =   3
  403.             EndProperty
  404.             BeginProperty Button11 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  405.                Caption         =   "帮助"
  406.                Key             =   "bz"
  407.                ImageKey        =   "bz"
  408.             EndProperty
  409.             BeginProperty Button12 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  410.                Caption         =   "退出"
  411.                Key             =   "fh"
  412.                ImageKey        =   "tc"
  413.             EndProperty
  414.          EndProperty
  415.          BorderStyle     =   1
  416.          Enabled         =   0   'False
  417.       End
  418.       Begin VB.Label TsLabel 
  419.          Alignment       =   1  'Right Justify
  420.          AutoSize        =   -1  'True
  421.          BackStyle       =   0  'Transparent
  422.          Caption         =   "订单号："
  423.          Height          =   180
  424.          Index           =   0
  425.          Left            =   90
  426.          TabIndex        =   3
  427.          Top             =   1080
  428.          Visible         =   0   'False
  429.          Width           =   720
  430.       End
  431.       Begin VB.Label Lab_Title 
  432.          AutoSize        =   -1  'True
  433.          BackColor       =   &H80000018&
  434.          BackStyle       =   0  'Transparent
  435.          Caption         =   "销售订单"
  436.          BeginProperty Font 
  437.             Name            =   "宋体"
  438.             Size            =   15
  439.             Charset         =   134
  440.             Weight          =   700
  441.             Underline       =   0   'False
  442.             Italic          =   0   'False
  443.             Strikethrough   =   0   'False
  444.          EndProperty
  445.          ForeColor       =   &H00000000&
  446.          Height          =   300
  447.          Left            =   4290
  448.          TabIndex        =   2
  449.          Top             =   800
  450.          Visible         =   0   'False
  451.          Width           =   1260
  452.       End
  453.    End
  454.    Begin MSComctlLib.Toolbar SzToolbar 
  455.       Align           =   1  'Align Top
  456.       Height          =   555
  457.       Left            =   0
  458.       TabIndex        =   11
  459.       Top             =   0
  460.       Width           =   11880
  461.       _ExtentX        =   20955
  462.       _ExtentY        =   979
  463.       ButtonWidth     =   820
  464.       ButtonHeight    =   926
  465.       Appearance      =   1
  466.       Style           =   1
  467.       ImageList       =   "ImageList1"
  468.       _Version        =   393216
  469.       BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628} 
  470.          NumButtons      =   12
  471.          BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  472.             Caption         =   "竖对"
  473.             Key             =   "SD"
  474.             ImageIndex      =   14
  475.          EndProperty
  476.          BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  477.             Caption         =   "横对"
  478.             Key             =   "HD"
  479.             ImageIndex      =   13
  480.          EndProperty
  481.          BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  482.             Style           =   4
  483.          EndProperty
  484.          BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  485.             Caption         =   "保存"
  486.             Key             =   "Save"
  487.             ImageIndex      =   4
  488.          EndProperty
  489.          BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  490.             Caption         =   "刷新"
  491.             Key             =   "sx"
  492.             ImageIndex      =   5
  493.          EndProperty
  494.          BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  495.             Style           =   3
  496.          EndProperty
  497.          BeginProperty Button7 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  498.             Caption         =   "表头"
  499.             Key             =   "Item"
  500.             ImageIndex      =   16
  501.          EndProperty
  502.          BeginProperty Button8 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  503.             Style           =   3
  504.          EndProperty
  505.          BeginProperty Button9 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  506.             Enabled         =   0   'False
  507.             Caption         =   "打印"
  508.             Key             =   "type"
  509.             Object.ToolTipText     =   "打印类型设置"
  510.             ImageKey        =   "type"
  511.          EndProperty
  512.          BeginProperty Button10 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  513.             Style           =   4
  514.          EndProperty
  515.          BeginProperty Button11 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  516.             Caption         =   "帮助"
  517.             Key             =   "bz"
  518.             ImageIndex      =   8
  519.          EndProperty
  520.          BeginProperty Button12 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  521.             Caption         =   "退出"
  522.             Key             =   "Exit"
  523.             ImageIndex      =   9
  524.          EndProperty
  525.       EndProperty
  526.       BorderStyle     =   1
  527.       Begin MSComctlLib.ImageCombo Imgcbo_SysName 
  528.          Height          =   315
  529.          Left            =   4320
  530.          TabIndex        =   17
  531.          Top             =   120
  532.          Width           =   1965
  533.          _ExtentX        =   3466
  534.          _ExtentY        =   556
  535.          _Version        =   393216
  536.          ForeColor       =   -2147483640
  537.          BackColor       =   -2147483643
  538.          OLEDropMode     =   1
  539.          Locked          =   -1  'True
  540.       End
  541.       Begin MSComctlLib.Toolbar GsToolbar 
  542.          Height          =   525
  543.          Left            =   9510
  544.          TabIndex        =   14
  545.          Top             =   0
  546.          Width           =   2475
  547.          _ExtentX        =   4366
  548.          _ExtentY        =   926
  549.          ButtonWidth     =   1455
  550.          ButtonHeight    =   926
  551.          AllowCustomize  =   0   'False
  552.          Appearance      =   1
  553.          Style           =   1
  554.          ImageList       =   "ImageList1"
  555.          _Version        =   393216
  556.          BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628} 
  557.             NumButtons      =   3
  558.             BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  559.                Caption         =   "保存格式"
  560.                Key             =   "bcgs"
  561.                ImageKey        =   "bcgs"
  562.             EndProperty
  563.             BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  564.                Caption         =   "默认列宽"
  565.                Key             =   "hfmrgs"
  566.                ImageKey        =   "mrlk"
  567.             EndProperty
  568.             BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  569.                Caption         =   "显示项目"
  570.                Key             =   "szxsxm"
  571.                ImageKey        =   "xsxm"
  572.             EndProperty
  573.          EndProperty
  574.       End
  575.       Begin VB.CommandButton Command1 
  576.          Caption         =   "确定"
  577.          Height          =   300
  578.          Left            =   8490
  579.          TabIndex        =   13
  580.          Top             =   120
  581.          Width           =   795
  582.       End
  583.       Begin VB.ComboBox ComboName 
  584.          Height          =   300
  585.          Left            =   6360
  586.          Style           =   2  'Dropdown List
  587.          TabIndex        =   12
  588.          Top             =   120
  589.          Width           =   2055
  590.       End
  591.       Begin MSComctlLib.ImageList ImageList1 
  592.          Left            =   4320
  593.          Top             =   0
  594.          _ExtentX        =   1005
  595.          _ExtentY        =   1005
  596.          BackColor       =   -2147483643
  597.          ImageWidth      =   16
  598.          ImageHeight     =   16
  599.          MaskColor       =   12632256
  600.          _Version        =   393216
  601.          BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628} 
  602.             NumListImages   =   17
  603.             BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  604.                Picture         =   "单据设置.frx":1042
  605.                Key             =   "sz"
  606.             EndProperty
  607.             BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  608.                Picture         =   "单据设置.frx":13DC
  609.                Key             =   "dy"
  610.             EndProperty
  611.             BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  612.                Picture         =   "单据设置.frx":1776
  613.                Key             =   "yl"
  614.             EndProperty
  615.             BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  616.                Picture         =   "单据设置.frx":1B10
  617.                Key             =   "xz"
  618.             EndProperty
  619.             BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  620.                Picture         =   "单据设置.frx":1EAA
  621.                Key             =   "xg"
  622.             EndProperty
  623.             BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  624.                Picture         =   "单据设置.frx":2244
  625.                Key             =   "sc"
  626.             EndProperty
  627.             BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  628.                Picture         =   "单据设置.frx":25DE
  629.                Key             =   "sx"
  630.             EndProperty
  631.             BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  632.                Picture         =   "单据设置.frx":2978
  633.                Key             =   "bz"
  634.             EndProperty
  635.             BeginProperty ListImage9 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  636.                Picture         =   "单据设置.frx":2D12
  637.                Key             =   "tc"
  638.             EndProperty
  639.             BeginProperty ListImage10 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  640.                Picture         =   "单据设置.frx":30AC
  641.                Key             =   "bcgs"
  642.             EndProperty
  643.             BeginProperty ListImage11 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  644.                Picture         =   "单据设置.frx":3446
  645.                Key             =   "mrlk"
  646.             EndProperty
  647.             BeginProperty ListImage12 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  648.                Picture         =   "单据设置.frx":37E0
  649.                Key             =   "xsxm"
  650.             EndProperty
  651.             BeginProperty ListImage13 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  652.                Picture         =   "单据设置.frx":3B7A
  653.                Key             =   "ht"
  654.             EndProperty
  655.             BeginProperty ListImage14 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  656.                Picture         =   "单据设置.frx":3F14
  657.                Key             =   "st"
  658.             EndProperty
  659.             BeginProperty ListImage15 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  660.                Picture         =   "单据设置.frx":42AE
  661.                Key             =   ""
  662.             EndProperty
  663.             BeginProperty ListImage16 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  664.                Picture         =   "单据设置.frx":4648
  665.                Key             =   "ml"
  666.             EndProperty
  667.             BeginProperty ListImage17 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  668.                Picture         =   "单据设置.frx":49E2
  669.                Key             =   "type"
  670.             EndProperty
  671.          EndProperty
  672.       End
  673.    End
  674. End
  675. Attribute VB_Name = "XT_BillDesign"
  676. Attribute VB_GlobalNameSpace = False
  677. Attribute VB_Creatable = False
  678. Attribute VB_PredeclaredId = True
  679. Attribute VB_Exposed = False
  680. '*********************************************************************************************************
  681. '*    模 块 名 称 :单据设置
  682. '*    功 能 描 述 :此功能模块主要完成单据设置
  683. '*    程序员姓名  :王雄
  684. '*    最后修改人  :王雄
  685. '*    最后修改时间:2001/09/10
  686. '*********************************************************************************************************
  687. Option Explicit
  689. '[以下为根据实际情况设置变量
  690. Dim Bln_BillChange As Boolean                   '标识单据是否发生改动
  691. ']
  693. '以下为固定使用变量(单据)
  694. ' Dim BillCode As String                          '单据设计编码(索引号)
  695. Dim Var_Bill() As Variant                       '用来返回单据设计信息
  696. Dim ReportTitle As String                       '报表主标题
  697. Dim Tsxx As String                              '系统提示信息
  700. '以下为固定使用变量(网格)
  701. Dim Dyymctbl As New DY_Dyymsz                   '打印页面窗体变量
  702. Dim GridCode As String                          '显示网格网格代码
  703. Dim GridInf() As Variant                        '整个网格设置信息
  704. Dim Pmbcsjhs As Long                            '屏幕网格保持数据行数(大于等于1)
  705. Dim Fzxwghs As Integer                          '辅助项网格行数(包括合计行)
  706. Dim Sfxshjwg As Boolean                         '是否显示合计网格
  707. Dim Qslz As Long                                '网格隐藏(非操作显示)列数
  708. Dim Sjhgd As Double                             '网格数据行高度
  709. Dim GridBoolean() As Boolean                    '网格列信息(布尔型)
  710. Dim GridStr()  As String                        '网格列信息(字符型)
  711. Dim GridInt() As Integer                        '网格列信息(整型)
  712. Dim Sfblbzkd As Boolean                         '是否保留帮助宽度(字段提供帮助时,是否为按钮保留空间)
  713. Dim Shsfts As Boolean                           '删除记录行是否提示
  714. Dim Szzls As Integer                            '网格信息数组最大下标值(网格列数-1)
  716. '以下为固定使用变量(文本框)
  717. Dim Textvar() As Variant                        '存储变体型文本框信息
  718. Dim Textboolean() As Boolean                    '存储布尔型文本框信息
  719. Dim Textint() As Integer                        '存储整型文本框信息
  720. Dim Textstr() As String                         '存储字符型文本框信息
  721. Dim Max_Text_Index As Integer                   '最大录入文本框索引值
  722. Dim TextGroupCode As String                     '文本框录入分组编码
  723. Dim TextValiJudgeLock() As Boolean              '文本框录入有效性判断控制锁
  724. '<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
  725. '<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
  726. Dim jsqte As Integer
  727. Dim TF As Boolean
  728. Dim Move_Y As Integer
  729. Dim Move_X As Integer
  730. Dim Textindex As Integer
  732. Public Sub Command1_Click()
  733.     
  734.     '调入单据信息
  735.     Dim aDo_Name As New Recordset
  736.     Set aDo_Name = Cw_DataEnvi.DataConnect.Execute("select * from xt_BillDesign where billname='" & ComboName.Text & "'")
  737.     If aDo_Name.RecordCount > 0 Then
  738.         BillList aDo_Name!BillCode
  739.         Command1.Tag = Trim(aDo_Name!text_group_code)
  740.         ComboName.Tag = ComboName.Text
  741.         Text_W.Visible = False
  742.     End If
  743.     aDo_Name.Close
  744.     
  745. End Sub
  747. Private Sub Form_KeyPress(KeyAscii As Integer)      '控 制 焦 点 转 移
  748.     
  749.     Dim jdzygs As Integer
  750.     jdzygs = 7                                       '在单据录入中,此焦点转移控制值一定小于等于文本框个数,否则网格回车键将不支持.
  751.     Select Case KeyAscii
  752.     Case vbKeyReturn
  753.         If Kjjdzy(jdzygs) Then
  754.             KeyAscii = 0
  755.         End If
  756.     Case 39           '屏蔽字符"'"
  757.         KeyAscii = 0
  758.     End Select
  759.     
  760. End Sub
  762. Private Sub Form_Load()                              '窗 体 装 入
  763.     
  764.     
  765.     '报表主标题及报表编码
  766.     ReportTitle = "销 售 订 单"
  767.     XtReportCode = "c_jzpzcl"
  768.     Load Dyymctbl
  769.     Fun_FillUserSystem Imgcbo_SysName, Xtczybm
  770.     
  771. End Sub
  773. Sub BillList(BillCode As String)  '初始化单据
  774.     
  775.     On Error Resume Next
  776.     
  777.     Dim B As Integer
  778.     For B = 1 To Max_Text_Index
  779.         Unload LrText(B)
  780.         Unload TsLabel(B)
  781.     Next B
  782.     WglrGrid.Visible = True: LrText(0).Visible = True
  783.     TsLabel(0).Visible = True: Lab_Title.Visible = True
  784.     
  785.     Call Sub_DPReadBillInfo(BillCode, Me, Var_Bill())
  786.     
  787.     '以下为文本框处理程序
  788.     TextGroupCode = Var_Bill(2)
  789.     
  790.     Call Drwbkxx(TextGroupCode, Textvar(), Textboolean(), Textint(), Textstr())  '读入文本框录入信息
  791.     Call Wbkcsh
  792.     '======================
  793.     Pict_W.Top = Pict.Height - Pict_W.Height
  794.     Pict_H.Left = Pict.Width - Pict_H.Width
  795.     Pict_W.Width = Pict.Width
  796.     Pict_H.Height = Pict.Height
  797.     Lab_Title.Left = Pict.Width / 2 - Lab_Title.Width / 2
  798.     Toolbar1.Width = Pict.Width
  799.     '======================
  800.     Dim aDo_re As New Recordset
  801.     Set aDo_re = Cw_DataEnvi.DataConnect.Execute("select * from xt_grid where grid_code='" & Trim(Var_Bill(3)) & "'")
  802.     If aDo_re.RecordCount < 1 Then
  803.         WglrGrid.Visible = False: Grid_XY.Visible = False: Grid_H.Visible = False: Grid_W.Visible = False
  804. aDo_re.Close: Exit Sub
  805.     Else
  806.         WglrGrid.Visible = True: aDo_re.Close
  807.     End If
  808.     '======================
  809.     
  810.     '调入网格并记录一些网格信息
  811.     
  812.     GridCode = Var_Bill(3)         '网格属性编码
  813.     Call BzWgcsh(WglrGrid, GridCode, GridInf(), GridBoolean(), GridInt(), GridStr())
  814.     
  815.     Qslz = GridInf(1)
  816.     Sjhgd = GridInf(2)
  817.     Fzxwghs = GridInf(4)
  818.     Sfblbzkd = GridInf(5)
  819.     Shsfts = GridInf(6)
  820.     Sfxshjwg = GridInf(7)
  821.     Szzls = WglrGrid.Cols - 1
  822.     Pmbcsjhs = Int((WglrGrid.Height - WglrGrid.FixedRows * WglrGrid.RowHeight(0)) / Sjhgd) - Fzxwghs - 1
  823.     
  824.     For jsqte = WglrGrid.FixedRows To WglrGrid.Rows - 1
  825.         WglrGrid.RowHeight(jsqte) = Sjhgd
  826.     Next jsqte
  827.     Sub_AdjustGrid
  828.     
  829.     '初始化合计网格
  830.     Call Cshhjwg
  831.     
  832.     '单据变动置为False
  833.     Bln_BillChange = False
  834.     
  835.     '<<<<<<<<<<<<<<<<<<<<<<<<<<
  836.     Grid_W.Left = WglrGrid.Width + WglrGrid.Left
  837.     Grid_W.Top = WglrGrid.Top + WglrGrid.Height / 2 - 50
  838.     Grid_H.Top = WglrGrid.Height + WglrGrid.Top
  839.     Grid_H.Left = WglrGrid.Left + WglrGrid.Width / 2 - 50
  840.     Grid_XY.Top = WglrGrid.Top
  841.     Grid_XY.Left = WglrGrid.Left - Grid_XY.Width
  842.     
  843.     Grid_W.Visible = True
  844.     Grid_H.Visible = True
  845.     Grid_XY.Visible = True
  846.     
  847. End Sub
  849. Private Sub Form_Unload(Cancel As Integer)           '窗体卸载
  850.     
  851.     '卸载打印页面窗体
  852.     Unload Dyymctbl
  853.     
  854.     '判断单据是否发生变化,并返回相应标识
  855.     If Bln_BillChange Then
  856.         Xtfhcs = "1"
  857.     Else
  858.         Xtfhcs = "0"
  859.     End If
  860.     
  861. End Sub
  863. '===================以 下 程 序 为 通 用 部 分 ,一 般 不 需 更 改======================='
  864. Private Sub Sub_AdjustGrid()
  865.     
  866.     '调 整 网 格
  867.     With WglrGrid
  868.         '加 1 保持一行录入行
  869.         If .Rows < Pmbcsjhs + .FixedRows + Fzxwghs + 1 Then
  870.             .Rows = Pmbcsjhs + .FixedRows + Fzxwghs + 1
  871.             For jsqte = .FixedRows To .Rows - 1
  872.                 .RowHeight(jsqte) = Sjhgd
  873.             Next jsqte
  874.         Else
  875.             
  876.         End If
  877.     End With
  878.     
  879. End Sub
  881. Private Sub Cshhjwg()                                                     '初始化合计网格(*对合计网格来说,录入网格为容器)
  882.     Dim Lrwglkd As Double
  883.     Dim Hjwgpyl As Integer
  884.     With HjGrid
  885.         If Not Sfxshjwg Then
  886.             .Visible = False
  887.             Exit Sub
  888.         Else
  889.             .Visible = True
  890.         End If
  891.         
  892.         '设置网格相关属性
  893.         .Enabled = False
  894.         .Appearance = flexFlat
  895.         .BorderStyle = flexBorderNone
  896.         .ScrollBars = flexScrollBarNone
  897.         .Width = WglrGrid.Width
  898.         .FixedRows = 0
  899.         .Rows = 1
  900.         .Cols = WglrGrid.Cols
  901.         .LeftCol = WglrGrid.LeftCol
  902.         .TextMatrix(0, Qslz) = "合  计"
  903.         For jsqte = 0 To WglrGrid.Cols - 1
  904.             .ColHidden(jsqte) = WglrGrid.ColHidden(jsqte)
  905.             .ColWidth(jsqte) = WglrGrid.ColWidth(jsqte)
  906.             .ColAlignment(jsqte) = WglrGrid.ColAlignment(jsqte)
  907.             .ColFormat(jsqte) = WglrGrid.ColFormat(jsqte)
  908.         Next jsqte
  909.         .ColAlignment(Qslz) = flexAlignCenterTop
  910.         For jsqte = .FixedRows To .Rows - 1
  911.             .RowHeight(jsqte) = .Height / .Rows
  912.         Next jsqte
  913.         
  914.         '程序自动调整网格高度(自动设置为网格剩余高度+辅助项网格行数(默认为1)*数据行高度)、并设置其位置信息
  915.         .Height = Fzxwghs * Sjhgd + ((WglrGrid.Height - WglrGrid.FixedRows * WglrGrid.RowHeight(0)) Mod Sjhgd)
  916.         .RowHeight(0) = .Height
  917.         .Move 0, WglrGrid.Height - .Height, WglrGrid.Width, .Height
  918.     End With
  919. End Sub
  921. Private Sub CzxsGrid_BeforeMoveColumn(ByVal Col As Long, Position As Long)           '网格列发生移动时自动交换网格索引信息
  922.     FnBln_RefreshArray Col, Position, GridStr(), GridInf()
  923. End Sub
  925. Private Sub GsToolbar_ButtonClick(ByVal Button As MSComctlLib.Button)   '表格格式设置(通用)
  926.     
  927.     Select Case Button.Key
  928.     Case "bcgs"                                       '保存表格格式
  929.         Call Bcwggs(WglrGrid, GridCode, GridStr())
  930.     Case "hfmrgs"                                     '恢复默认格式
  931.         Call Hfmrgs(WglrGrid, GridCode, GridStr())
  932.     Case "szxsxm"                                     '设置显示项目
  933.         'Call Szxsxm(WglrGrid, GridCode)
  934.         Xtcdcs = GridCode
  935.         XT_BgxsxmszFrm.Show 1                '调整网格显示项目
  936.         Command1_Click
  937.         ' Call Cxxswg(SzgsGrid, Wggsdm)        '重新定义网格显示
  938.     End Select
  939.     
  940. End Sub
  942. Private Sub Wbkcsh()                          '录入文本框初始化
  943.     Dim Int_TabIndex As Integer    '用来设置文本框TabIndex值
  944.     
  945.     '文本框TabIndex值由0--N
  946.     LrText(0).TabIndex = 0
  947.     Int_TabIndex = 1
  948.     
  949.     '最大录入文本框索引值
  950.     Max_Text_Index = Textvar(1)
  951.     
  952.     ReDim TextValiJudgeLock(Max_Text_Index)
  953.     For jsqte = 0 To Max_Text_Index
  954.         
  955.         '判断此文本框录入索引号是否存在,如存在则对其进行初始化
  956.         If Len(Trim(Textstr(jsqte, 1))) <> 0 Then
  957.             
  958.             '自动装入录入文本框和其解释标签
  959.             If jsqte <> 0 Then
  960.                 Load LrText(jsqte)
  961.                 Load TsLabel(jsqte)
  962.             End If
  963.             '判断录入文本框是否显示
  964.             If Textboolean(jsqte, 4) Then
  965.                 LrText(jsqte).Visible = True
  966.                 TsLabel(jsqte).Visible = True
  967.             Else
  968.                 LrText(jsqte).Visible = False
  969.                 TsLabel(jsqte).Visible = False
  970.             End If
  971.                 
  972.             '设置文本框焦点顺序值
  973.             LrText(jsqte).TabIndex = Int_TabIndex
  974.             
  975.             '文本框TabIndex值+1
  976.             Int_TabIndex = Int_TabIndex + 1
  977.             
  978.             
  979.             '初始化其内容
  980.             LrText(jsqte).Text = ""
  981.             LrText(jsqte).Tag = ""
  982.             
  983.             If Textint(jsqte, 5) <> 0 Then
  984.                 LrText(jsqte).MaxLength = Textint(jsqte, 5)
  985.             End If
  986.             
  987.             '设置文本框位置及大小,并设置相应标签内容及其位置
  988.             LrText(jsqte).Move Textint(jsqte, 13), Textint(jsqte, 12), Textint(jsqte, 11), Textint(jsqte, 10)
  989.             TsLabel(jsqte).Move Textint(jsqte, 13) - TsLabel(jsqte).Width - 20, Textint(jsqte, 12) + (Textint(jsqte, 10) - TsLabel(jsqte).Height) / 2 - 30
  990.             TsLabel(jsqte).Caption = Trim(Textstr(jsqte, 7)) & ":"
  991.         End If
  992.         
  993.         '将文本框有效性判断进行加锁,在文本框内容发生变化时将锁打开
  994.         TextValiJudgeLock(jsqte) = True
  995.     Next jsqte
  996.     
  997. End Sub
  1003. Private Sub Imgcbo_SysName_Click()
  1004.     '=================
  1005.     Dim aDo_Name As New Recordset
  1006.     ComboName.Clear
  1007.     Set aDo_Name = Cw_DataEnvi.DataConnect.Execute("select * from xt_BillDesign where system_code  = '" & Mid(Trim(Imgcbo_SysName.SelectedItem.Key), 2) & "'")
  1008.     Do While Not aDo_Name.EOF
  1009.         ComboName.AddItem aDo_Name!BillName
  1010.         aDo_Name.MoveNext
  1011.     Loop
  1012.     If aDo_Name.RecordCount > 0 Then ComboName.ListIndex = 0
  1013.     aDo_Name.Close
  1014.     '=================
  1015. End Sub
  1017. Private Sub LrText_DblClick(Index As Integer)
  1018.     
  1019.     If LrText(Index).BackColor = &HFFFFFF Then
  1020.         LrText(Index).BackColor = &HF2FAEB
  1021.     Else
  1022.         LrText(Index).BackColor = &HFFFFFF
  1023.     End If
  1024.     
  1025. End Sub
  1027. Private Sub LrText_GotFocus(Index As Integer)
  1028.     
  1029.     Textindex = Index
  1030.     Text_W.Left = LrText(Index).Left + LrText(Index).Width
  1031.     Text_W.Top = LrText(Index).Top + LrText(Index).Height / 2 - Text_W.Height / 2
  1032.     Text_W.Visible = True
  1033.     
  1034. End Sub
  1036. Private Sub SzToolbar_ButtonClick(ByVal Button As MSComctlLib.Button)
  1037.     
  1038.     Select Case Button.Key
  1039.     Case "Save"
  1040.         If Trim(Command1.Tag) = "" Then Exit Sub
  1041.         Bill_Save
  1042.     Case "SD"
  1043.         If Trim(Command1.Tag) = "" Then Exit Sub
  1044.         SD_Text
  1045.     Case "sx"
  1046.         If Trim(Command1.Tag) = "" Then Exit Sub
  1047.         Command1_Click
  1048.     Case "Item"
  1049.         If Trim(Command1.Tag) = "" Then Exit Sub
  1050.         XT_TItem.Show 1
  1051.     Case "type"
  1052.         If Trim(Command1.Tag) = "" Then Exit Sub
  1053.         '  If WglrGrid.Visible = False Then Exit Sub
  1054.         XT_BillPrintType.Tag = Command1.Tag
  1055.         XT_BillPrintType.Show 1
  1056.     Case "HD"
  1057.         If Trim(Command1.Tag) = "" Then Exit Sub
  1058.         HD_Text
  1059.     Case "Exit"
  1060.         Unload Me
  1061.     End Select
  1062.     
  1063. End Sub
  1065. Private Sub Text_W_LostFocus()
  1066.     Text_W.Visible = False
  1067. End Sub
  1069. '调整文本框的宽度
  1070. Private Sub Text_W_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
  1071.     
  1072.     TF = True
  1073.     Move_X = X
  1074.     label_XY.Top = LrText(Textindex).Top + 200
  1075.     label_XY.Left = LrText(Textindex).Left + LrText(Textindex).Width / 2
  1076.     Caption_XY.Caption = "TextBox宽度=" & LrText(Textindex).Width
  1077.     label_XY.Visible = True
  1078.     
  1079. End Sub
  1081. '调整文本框的宽度
  1082. Private Sub Text_W_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  1083.     
  1084.     If TF = True Then
  1085.         If (LrText(Textindex).Width - (Move_X - X) > 0) And (LrText(Textindex).Width - (Move_X - X) < (Pict.Width - LrText(Textindex).Left - 100)) Then
  1086.             label_XY.Top = LrText(Textindex).Top + 200
  1087.             label_XY.Left = LrText(Textindex).Left + LrText(Textindex).Width / 2
  1088.             
  1089.             '<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
  1090.             LrText(Textindex).Width = LrText(Textindex).Width - (Move_X - X)
  1091.             Text_W.Left = LrText(Textindex).Width + LrText(Textindex).Left
  1092.             Caption_XY.Caption = "TextBox宽度=" & LrText(Textindex).Width - (Move_X - X)
  1093.         End If
  1094.     End If
  1095.     
  1096. End Sub
  1098. '调整文本框的宽度
  1099. Private Sub Text_W_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
  1100.     
  1101.     TF = False
  1102.     label_XY.Visible = False
  1103.     
  1104. End Sub
  1106. Private Sub WglrGrid_AfterUserResize(ByVal Row As Long, ByVal Col As Long)
  1107.     '调整列宽
  1108.     If HjGrid.Visible Then
  1109.         With HjGrid
  1110.             .ColWidth(Col) = WglrGrid.ColWidth(Col)
  1111.         End With
  1112.     End If
  1113.     
  1114. End Sub
  1116. Private Sub WglrGrid_BeforeMoveColumn(ByVal Col As Long, Position As Long)
  1117.     '如果结束列小于用户定义网格开始列，则结束列=用户定义网格开始列
  1118.     '因为开始列以前的列都是隐藏列，由于要把当前开始移动列移动到隐藏列上
  1119.     '所以控件自动把隐藏列变为显示列，这样在刷新数据时，会把隐藏列上的数据
  1120.     '显示出来，并且，由于开始列以前的隐藏列在XT_Grid中，不对应逻辑值，所以在保存
  1121.     '网格格式时会出错
  1122.     If Col > Position Then
  1123.         If Position < GridInf(1) Then Position = GridInf(1)
  1124.     Else
  1125.         If Col < GridInf(1) Then Col = GridInf(1)
  1126.     End If
  1127.     Call FnBln_RefreshArray(Col, Position, GridStr(), GridInf())
  1128.     
  1129. End Sub
  1131. Private Sub WglrGrid_Scroll()
  1132.     
  1133.     '限制用户在录入过程中滚动鼠标
  1134.     With WglrGrid
  1135.         HjGrid.LeftCol = .LeftCol
  1136.     End With
  1137.     
  1138. End Sub
  1140. '调整单据的高度
  1141. Private Sub Pict_H_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
  1142.     Move_X = X
  1143. End Sub
  1145. '调整单据的高度
  1146. Private Sub Pict_H_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
  1147.     
  1148.     If (Pict.Width > (Move_X - X)) And (Pict.Width - (Move_X - X) < (Me.Width - Pict.Left - 100)) Then
  1149.         Pict.Width = Pict.Width - (Move_X - X)
  1150.         Pict_H.Left = Pict.Width - Pict_H.Width
  1151.         Pict_W.Width = Pict.Width
  1152.         Lab_Title.Left = Pict.Width / 2 - Lab_Title.Width / 2
  1153.         Toolbar1.Width = Pict.Width
  1154.     End If
  1155. End Sub
  1156.     
  1157. '调整单据的宽度
  1158. Private Sub Pict_W_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
  1159.     Move_Y = Y
  1160. End Sub
  1162. '调整单据的宽度
  1163. Private Sub Pict_W_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
  1164.     
  1165.     If (Pict.Height > (Move_Y - Y)) And ((Pict.Height - (Move_Y - Y) + Pict.Top) < (Me.Height - 500)) Then
  1166.         Pict.Height = Pict.Height - (Move_Y - Y)
  1167.         Pict_W.Top = Pict.Height - Pict_W.Height
  1168.         Pict_H.Height = Pict.Height
  1169.     End If
  1170.     
  1171. End Sub
  1173. '调整文本宽的位置
  1174. Private Sub TsLabel_MouseDown(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
  1175.     
  1176.     TF = True
  1177.     Move_Y = Y: Move_X = X
  1178.     label_XY.Top = TsLabel(Index).Top + 200
  1179.     label_XY.Left = TsLabel(Index).Left + 200
  1180.     Caption_XY.Caption = "X=" & TsLabel(Index).Left & ",Y=" & LrText(Index).Top
  1181.     label_XY.Visible = True
  1182.     
  1183. End Sub
  1185. '调整文本宽的位置
  1186. Private Sub TsLabel_MouseMove(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
  1187.     
  1188.     If TF = True Then
  1189.         If (TsLabel(Index).Top - (Move_Y - Y) >= Toolbar1.Height) And ((TsLabel(Index).Top - (Move_Y - Y)) < (Pict.Height - TsLabel(Index).Height) - 175) Then
  1190.             TsLabel(Index).Top = TsLabel(Index).Top - (Move_Y - Y)
  1191.             label_XY.Top = label_XY.Top - (Move_Y - Y)
  1192.             LrText(Index).Top = TsLabel(Index).Top - 30
  1193.         End If
  1194.         '------------------------
  1195.         If (TsLabel(Index).Left - (Move_X - X) >= 0) And (TsLabel(Index).Left - (Move_X - X) < (Pict.Width - LrText(Index).Width - TsLabel(Index).Width - 75)) Then
  1196.             TsLabel(Index).Left = TsLabel(Index).Left - (Move_X - X)
  1197.             label_XY.Left = label_XY.Left - (Move_X - X)
  1198.             LrText(Index).Left = TsLabel(Index).Left + TsLabel(Index).Width + 20
  1199.         End If
  1200.         If Textindex = Index Then
  1201.             Text_W.Left = LrText(Index).Left + LrText(Index).Width
  1202.             Text_W.Top = LrText(Index).Top + LrText(Index).Height / 2 - Text_W.Height / 2
  1203.         End If
  1204.         Caption_XY.Caption = "X=" & TsLabel(Index).Left & ",Y=" & LrText(Index).Top
  1205.     End If
  1206.     
  1207. End Sub
  1209. '调整文本宽的位置
  1210. Private Sub TsLabel_MouseUp(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
  1211.     
  1212.     TF = False
  1213.     label_XY.Visible = False
  1214.     
  1215. End Sub
  1217. '调整网格位置
  1218. Private Sub Grid_XY_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
  1219.     
  1220.     TF = True
  1221.     Move_Y = Y
  1222.     Move_X = X
  1223.     label_XY.Top = Grid_XY.Top + 200
  1224.     label_XY.Left = Grid_XY.Left + 200
  1225.     Caption_XY.Caption = "X=" & Grid_XY.Left & ",Y=" & Grid_XY.Top
  1226.     label_XY.Visible = True
  1227.     
  1228. End Sub
  1230. '调整网格位置
  1231. Private Sub Grid_XY_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  1232.     
  1233.     If TF = True Then
  1234.         If (Grid_XY.Top - (Move_Y - Y) >= Toolbar1.Height) And (Grid_XY.Top - (Move_Y - Y) < Pict.Height - 150) Then
  1235.             Grid_XY.Top = Grid_XY.Top - (Move_Y - Y)
  1236.             label_XY.Top = label_XY.Top - (Move_Y - Y)
  1237.             WglrGrid.Top = Grid_XY.Top
  1238.         End If
  1239.         If (Grid_XY.Left - (Move_X - X) >= 0) And (Grid_XY.Left - (Move_X - X) < Pict.Width - 200) Then
  1240.             Grid_XY.Left = Grid_XY.Left - (Move_X - X)
  1241.             label_XY.Left = label_XY.Left - (Move_X - X)
  1242.             WglrGrid.Left = Grid_XY.Left + Grid_XY.Width
  1243.         End If
  1244.         Grid_W.Left = WglrGrid.Width + WglrGrid.Left
  1245.         Grid_W.Top = WglrGrid.Top + WglrGrid.Height / 2 - 50
  1246.         Grid_H.Top = WglrGrid.Height + WglrGrid.Top
  1247.         Grid_H.Left = WglrGrid.Left + WglrGrid.Width / 2 - 50
  1248.         Caption_XY.Caption = "X=" & Grid_XY.Left & ",Y=" & Grid_XY.Top
  1249.     End If
  1250.     
  1251. End Sub
  1253. '调整网格位置
  1254. Private Sub Grid_XY_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
  1255.     
  1256.     TF = False
  1257.     label_XY.Visible = False
  1258.     
  1259. End Sub
  1261. '改变网格的宽度
  1262. Private Sub Grid_W_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
  1263.     
  1264.     TF = True
  1265.     Move_X = X
  1266.     label_XY.Top = Grid_W.Top + 200
  1267.     label_XY.Left = Grid_W.Left - label_XY.Width
  1268.     Caption_XY.Caption = "网格宽度=" & WglrGrid.Width
  1269.     label_XY.Visible = True
  1270.     
  1271. End Sub
  1273. '改变网格的宽度
  1274. Private Sub Grid_W_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  1275.     
  1276.     If TF = True Then
  1277.         If (WglrGrid.Width - (Move_X - X) > 0) And (WglrGrid.Width - (Move_X - X) < (Pict.Width - WglrGrid.Left - 100)) Then
  1278.             label_XY.Top = Grid_W.Top + 200
  1279.             label_XY.Left = Grid_W.Left - label_XY.Width
  1280.             Caption_XY.Caption = "网格宽度=" & WglrGrid.Width - (Move_X - X)
  1281.             '<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
  1282.             WglrGrid.Width = WglrGrid.Width - (Move_X - X)
  1283.             Grid_W.Left = WglrGrid.Width + WglrGrid.Left
  1284.             Grid_W.Top = WglrGrid.Top + WglrGrid.Height / 2 - 50
  1285.             Grid_H.Top = WglrGrid.Height + WglrGrid.Top
  1286.             Grid_H.Left = WglrGrid.Left + WglrGrid.Width / 2 - 50
  1287.         End If
  1288.     End If
  1289.     
  1290. End Sub
  1292. '改变网格的宽度
  1293. Private Sub Grid_W_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
  1294.     
  1295.     TF = False
  1296.     label_XY.Visible = False
  1297.     
  1298. End Sub
  1300. '改变网格的高度
  1301. Private Sub Grid_H_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
  1302.     
  1303.     TF = True
  1304.     Move_Y = Y
  1305.     label_XY.Top = Grid_H.Top + 200
  1306.     label_XY.Left = Grid_H.Left + 200
  1307.     Caption_XY.Caption = "网格高度=" & WglrGrid.Height
  1308.     label_XY.Visible = True
  1309.     
  1310. End Sub
  1312. '改变网格的高度
  1313. Private Sub Grid_H_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  1314.     
  1315.     Dim gridheight As Integer
  1316.     If WglrGrid.FixedRows = 1 Then
  1317.         gridheight = WglrGrid.RowHeight(1) * 2 + WglrGrid.RowHeight(0)
  1318.     Else
  1319.         gridheight = WglrGrid.RowHeight(1) + WglrGrid.RowHeight(0) + WglrGrid.RowHeight(2) * 2
  1320.     End If
  1321.     '<<<<<<<<<<<<<<<<<<<<<<<<<<<<
  1322.     If TF = True Then
  1323.         'If WglrGrid.Height > (Move_Y - Y) Then
  1324.         If (WglrGrid.Height > Move_Y - Y + gridheight) And ((WglrGrid.Height - (Move_Y - Y) + WglrGrid.Top) < Pict.Height - 130) Then
  1325.             label_XY.Top = Grid_H.Top + 200
  1326.             label_XY.Left = Grid_H.Left + 200
  1327.             Caption_XY.Caption = "网格高度=" & WglrGrid.Height - (Move_Y - Y)
  1328.             '<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
  1329.             WglrGrid.Height = WglrGrid.Height - (Move_Y - Y)
  1330.             Grid_W.Left = WglrGrid.Width + WglrGrid.Left
  1331.             Grid_W.Top = WglrGrid.Top + WglrGrid.Height / 2 - 50
  1332.             Grid_H.Top = WglrGrid.Height + WglrGrid.Top
  1333.             Grid_H.Left = WglrGrid.Left + WglrGrid.Width / 2 - 50
  1334.         End If
  1335.     End If
  1336.     
  1337. End Sub
  1339. '改变网格的高度
  1340. Private Sub Grid_H_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
  1341.     
  1342.     TF = False
  1343.     label_XY.Visible = False
  1344.     If WglrGrid.Height > (Move_Y - Y) Then
  1345.         Pmbcsjhs = Int((WglrGrid.Height - WglrGrid.FixedRows * WglrGrid.RowHeight(0)) / Sjhgd) - Fzxwghs - 1
  1346.         WglrGrid.Rows = WglrGrid.FixedRows
  1347.         Sub_AdjustGrid
  1348.         '程序自动调整网格高度(自动设置为网格剩余高度+辅助项网格行数(默认为1)*数据行高度)、并设置其位置信息
  1349.         With HjGrid
  1350.             .Height = Fzxwghs * Sjhgd + ((WglrGrid.Height - WglrGrid.FixedRows * WglrGrid.RowHeight(0)) Mod Sjhgd)
  1351.             .RowHeight(0) = .Height
  1352.             .Move 0, WglrGrid.Height - .Height, WglrGrid.Width, .Height
  1353.         End With
  1354.     End If
  1355.     
  1356. End Sub
  1358. Private Sub SD_Text() '竖对
  1359.     
  1360.     Dim I As Integer: Dim Y As Integer
  1361.     For Y = 0 To LrText.Count - 1
  1362.         If LrText(Y).BackColor = &HF2FAEB Then
  1363.             For I = 1 To LrText.Count - 1
  1364.                 If LrText(I).BackColor = &HF2FAEB Then
  1365.                     If LrText(Y).Top > LrText(I).Top Then
  1366.                         Y = I
  1367.                     End If
  1368.                 End If
  1369.             Next I
  1370.             Exit For
  1371.         End If
  1372.     Next Y
  1373.     
  1374.     For I = 0 To LrText.Count - 1
  1375.         If LrText(I).BackColor = &HF2FAEB Then
  1376.             LrText(I).Left = LrText(Y).Left
  1377.             TsLabel(I).Left = LrText(I).Left - TsLabel(I).Width - 20
  1378.             LrText(I).BackColor = &HFFFFFF
  1379.         End If
  1380.     Next I
  1381.     
  1382. End Sub
  1384. Private Sub HD_Text() '横对
  1385.     
  1386.     Dim I As Integer: Dim Y As Integer
  1387.     For Y = 0 To LrText.Count - 1
  1388.         If LrText(Y).BackColor = &HF2FAEB Then
  1389.             For I = 1 To LrText.Count - 1
  1390.                 If LrText(I).BackColor = &HF2FAEB Then
  1391.                     If LrText(Y).Top > LrText(I).Top Then
  1392.                         Y = I
  1393.                     End If
  1394.                 End If
  1395.             Next I
  1396.             Exit For
  1397.         End If
  1398.     Next Y
  1399.     
  1400.     For I = 0 To LrText.Count - 1
  1401.         If LrText(I).BackColor = &HF2FAEB Then
  1402.             LrText(I).Top = LrText(Y).Top
  1403.             TsLabel(I).Top = LrText(I).Top + 30
  1404.             LrText(I).BackColor = &HFFFFFF
  1405.         End If
  1406.     Next I
  1407.     
  1408. End Sub
  1411. Sub Bill_Save() '保存单据信息
  1412.     
  1413.     Dim I As Integer, Sql_Str As String
  1414.     Dim aDo_Tab As New Recordset
  1415.     Dim aDo_Name As New Recordset
  1416.     Set aDo_Name = Cw_DataEnvi.DataConnect.Execute("select * from xt_BillDesign where billname='" & ComboName.Text & "'")
  1417.     
  1418.     For I = 0 To Max_Text_Index
  1419.         Sql_Str = "update Xt_text_input set TextTop=" & LrText(I).Top & ",TextLeft=" & LrText(I).Left & ",TextWidth=" & LrText(I).Width _
  1420.         & " where  text_group_code='" & Trim(aDo_Name!text_group_code) & "' and text_index=" & I
  1421.         Cw_DataEnvi.DataConnect.Execute Sql_Str
  1422.     Next I
  1423.     Sql_Str = "update  Xt_grid set GridHeight=" & WglrGrid.Height & ",GridWidth=" & WglrGrid.Width _
  1424.     & ",GridTop=" & WglrGrid.Top & ",GridLeft=" & WglrGrid.Left _
  1425.     & " where Grid_Code='" & Trim(aDo_Name!Grid_code) & "' and ColIndex='000'"
  1426.     Cw_DataEnvi.DataConnect.Execute Sql_Str
  1427.     
  1428.     
  1429.     Sql_Str = "update xt_BillDesign set FormHeight=" & Pict.Height + 375 & ",FormWidth=" & Pict.Width _
  1430.     & " where billname='" & ComboName.Text & "'"
  1431.     Cw_DataEnvi.DataConnect.Execute Sql_Str
  1432.     I = 0
  1433.     Set aDo_Tab = Cw_DataEnvi.DataConnect.Execute("select * from Xt_text_input where text_group_code='" & Trim(aDo_Name!text_group_code) & "' order by texttop,textleft")
  1434.     Do While Not aDo_Tab.EOF
  1435.         Cw_DataEnvi.DataConnect.Execute "update Xt_text_input set tabindex= " & I & " where text_index=" & aDo_Tab!text_Index & " and text_group_code='" & Trim(aDo_Name!text_group_code) & "'"
  1436.         I = I + 1
  1437.         aDo_Tab.MoveNext
  1438.     Loop
  1439.     
  1440.     
  1441.     Dim aDo_Printtype As New Recordset
  1442.     Sql_Str = "select * from Xt_BillTextPrint where PrintTextCode='default' and text_group_code='" & Trim(aDo_Name!text_group_code) & "'"
  1443.     Set aDo_Printtype = Cw_DataEnvi.DataConnect.Execute(Sql_Str)
  1444.     If aDo_Printtype.RecordCount > 0 Then Exit Sub
  1445.     
  1446.     Sql_Str = "insert into Xt_BilltextPrint(text_group_code,text_index,PrintTextCode,PrintTop,PrintLeft,Printwidth) " _
  1447.     & " select text_group_code,text_index,PrintTextCode='" & "default" & "', PrintTop=texttop,PrintLeft=textleft,Printwidth=textwidth from Xt_text_input" _
  1448.     & " where text_group_code='" & Trim(aDo_Name!text_group_code) & "'"
  1449.     Cw_DataEnvi.DataConnect.Execute Sql_Str
  1450.     
  1451.     If WglrGrid.Visible = True Then
  1452.         Sql_Str = "insert into Xt_BillGridPrint(Grid_Code,ColIndex,PrintGridCode,PrintGridHeight,PrintGridWidth,PrintGridTop,PrintGridLeft,PrintDataRows,PrintColWidth,BillTitlePrint)" _
  1453.         & " select Grid_Code,ColIndex,PrintGridCode='" & "default" & "',PrintGridHeight=GridHeight,PrintGridWidth=GridWidth,PrintGridTop=GridTop," _
  1454.         & "PrintGridLeft=GridLeft,PrintDataRows=3,PrintColWidth=ColWidth,BillTitlePrint='" & Lab_Title.Caption & "' from xt_grid where grid_code='" & Trim(aDo_Name!Grid_code) & "'"
  1455.         Cw_DataEnvi.DataConnect.Execute Sql_Str
  1456.     End If
  1457.     aDo_Tab.Close
  1458.     aDo_Name.Close
  1459.     
  1460.     
  1461.     
  1462. End Sub