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

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

企业管理

开发平台：

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. Object = "{BDC217C8-ED16-11CD-956C-0000C04E4C0A}#1.1#0"; "TABCTL32.OCX"
  5. Begin VB.Form Cask_Wrappage 
  6.    BorderStyle     =   1  'Fixed Single
  7.    Caption         =   "包装物档案"
  8.    ClientHeight    =   7110
  9.    ClientLeft      =   45
  10.    ClientTop       =   330
  11.    ClientWidth     =   9375
  12.    HelpContextID   =   1711004
  13.    Icon            =   "包装物管理系统_基础设置_包装物档案.frx":0000
  14.    KeyPreview      =   -1  'True
  15.    LinkTopic       =   "Form2"
  16.    MaxButton       =   0   'False
  17.    ScaleHeight     =   7110
  18.    ScaleWidth      =   9375
  19.    StartUpPosition =   2  '屏幕中心
  20.    Begin TabDlg.SSTab StTab 
  21.       Height          =   6435
  22.       Left            =   30
  23.       TabIndex        =   8
  24.       Top             =   660
  25.       Width           =   9330
  26.       _ExtentX        =   16457
  27.       _ExtentY        =   11351
  28.       _Version        =   393216
  29.       Style           =   1
  30.       Tabs            =   2
  31.       TabHeight       =   520
  32.       TabCaption(0)   =   "列表视图"
  33.       TabPicture(0)   =   "包装物管理系统_基础设置_包装物档案.frx":08CA
  34.       Tab(0).ControlEnabled=   -1  'True
  35.       Tab(0).Control(0)=   "CzxsGrid"
  36.       Tab(0).Control(0).Enabled=   0   'False
  37.       Tab(0).ControlCount=   1
  38.       TabCaption(1)   =   "单张视图"
  39.       TabPicture(1)   =   "包装物管理系统_基础设置_包装物档案.frx":08E6
  40.       Tab(1).ControlEnabled=   0   'False
  41.       Tab(1).Control(0)=   "Frame1"
  42.       Tab(1).ControlCount=   1
  43.       Begin VB.Frame Frame1 
  44.          Height          =   6015
  45.          Left            =   -74910
  46.          TabIndex        =   11
  47.          Top             =   330
  48.          Width           =   9135
  49.          Begin VB.CommandButton BcCommand 
  50.             Caption         =   "保存(&S)"
  51.             Height          =   300
  52.             Left            =   6690
  53.             TabIndex        =   5
  54.             Top             =   210
  55.             Width           =   1120
  56.          End
  57.          Begin VB.CommandButton QxCommand 
  58.             Cancel          =   -1  'True
  59.             Caption         =   "取消(&C)"
  60.             Height          =   300
  61.             Left            =   7890
  62.             TabIndex        =   6
  63.             Top             =   210
  64.             Width           =   1120
  65.          End
  66.          Begin TabDlg.SSTab SSTab1 
  67.             Height          =   5625
  68.             Left            =   90
  69.             TabIndex        =   13
  70.             Top             =   300
  71.             Width           =   8925
  72.             _ExtentX        =   15743
  73.             _ExtentY        =   9922
  74.             _Version        =   393216
  75.             Style           =   1
  76.             TabHeight       =   520
  77.             TabCaption(0)   =   "基本信息"
  78.             TabPicture(0)   =   "包装物管理系统_基础设置_包装物档案.frx":0902
  79.             Tab(0).ControlEnabled=   -1  'True
  80.             Tab(0).Control(0)=   "Frame2"
  81.             Tab(0).Control(0).Enabled=   0   'False
  82.             Tab(0).ControlCount=   1
  83.             TabCaption(1)   =   "附属物"
  84.             TabPicture(1)   =   "包装物管理系统_基础设置_包装物档案.frx":091E
  85.             Tab(1).ControlEnabled=   0   'False
  86.             Tab(1).Control(0)=   "Grid_Layout"
  87.             Tab(1).Control(1)=   "Ydtext"
  88.             Tab(1).Control(2)=   "Ydcommand"
  89.             Tab(1).Control(3)=   "YdCombo"
  90.             Tab(1).ControlCount=   4
  91.             TabCaption(2)   =   "包装参数"
  92.             TabPicture(2)   =   "包装物管理系统_基础设置_包装物档案.frx":093A
  93.             Tab(2).ControlEnabled=   0   'False
  94.             Tab(2).Control(0)=   "Grid_Datum"
  95.             Tab(2).Control(1)=   "YdCombo2"
  96.             Tab(2).Control(2)=   "Ydtext2"
  97.             Tab(2).Control(3)=   "Ydcommand22"
  98.             Tab(2).ControlCount=   4
  99.             Begin VB.CommandButton Ydcommand22 
  100.                Height          =   300
  101.                Left            =   -68550
  102.                Picture         =   "包装物管理系统_基础设置_包装物档案.frx":0956
  103.                Style           =   1  'Graphical
  104.                TabIndex        =   25
  105.                Top             =   360
  106.                Visible         =   0   'False
  107.                Width           =   300
  108.             End
  109.             Begin VB.TextBox Ydtext2 
  110.                BackColor       =   &H80000018&
  111.                BorderStyle     =   0  'None
  112.                Height          =   330
  113.                Left            =   -67710
  114.                MultiLine       =   -1  'True
  115.                TabIndex        =   24
  116.                Top             =   360
  117.                Visible         =   0   'False
  118.                Width           =   1185
  119.             End
  120.             Begin VB.ComboBox YdCombo2 
  121.                Height          =   300
  122.                Left            =   -68520
  123.                Style           =   2  'Dropdown List
  124.                TabIndex        =   23
  125.                Top             =   390
  126.                Visible         =   0   'False
  127.                Width           =   1155
  128.             End
  129.             Begin VB.ComboBox YdCombo 
  130.                Height          =   300
  131.                Left            =   -68100
  132.                Style           =   2  'Dropdown List
  133.                TabIndex        =   21
  134.                Top             =   480
  135.                Visible         =   0   'False
  136.                Width           =   1155
  137.             End
  138.             Begin VB.CommandButton Ydcommand 
  139.                Height          =   300
  140.                Left            =   -68460
  141.                Picture         =   "包装物管理系统_基础设置_包装物档案.frx":0CE0
  142.                Style           =   1  'Graphical
  143.                TabIndex        =   20
  144.                Top             =   600
  145.                Visible         =   0   'False
  146.                Width           =   300
  147.             End
  148.             Begin VB.TextBox Ydtext 
  149.                BackColor       =   &H80000018&
  150.                BorderStyle     =   0  'None
  151.                Height          =   330
  152.                Left            =   -70140
  153.                MultiLine       =   -1  'True
  154.                TabIndex        =   19
  155.                Top             =   510
  156.                Visible         =   0   'False
  157.                Width           =   1185
  158.             End
  159.             Begin VB.Frame Frame2 
  160.                Height          =   5175
  161.                Left            =   120
  162.                TabIndex        =   14
  163.                Top             =   330
  164.                Width           =   8685
  165.                Begin VB.CommandButton Ydcommand1 
  166.                   Height          =   300
  167.                   Index           =   3
  168.                   Left            =   4020
  169.                   Picture         =   "包装物管理系统_基础设置_包装物档案.frx":106A
  170.                   Style           =   1  'Graphical
  171.                   TabIndex        =   30
  172.                   Top             =   1470
  173.                   Visible         =   0   'False
  174.                   Width           =   300
  175.                End
  176.                Begin VB.CommandButton Ydcommand1 
  177.                   Height          =   300
  178.                   Index           =   2
  179.                   Left            =   4020
  180.                   Picture         =   "包装物管理系统_基础设置_包装物档案.frx":13F4
  181.                   Style           =   1  'Graphical
  182.                   TabIndex        =   29
  183.                   Top             =   1110
  184.                   Visible         =   0   'False
  185.                   Width           =   300
  186.                End
  187.                Begin VB.TextBox LrText 
  188.                   Height          =   300
  189.                   Index           =   4
  190.                   Left            =   1485
  191.                   TabIndex        =   4
  192.                   Text            =   "4"
  193.                   Top             =   1860
  194.                   Width           =   2835
  195.                End
  196.                Begin VB.TextBox LrText 
  197.                   Height          =   300
  198.                   Index           =   3
  199.                   Left            =   1485
  200.                   TabIndex        =   3
  201.                   Text            =   "3"
  202.                   Top             =   1485
  203.                   Width           =   2535
  204.                End
  205.                Begin VB.TextBox LrText 
  206.                   Height          =   300
  207.                   Index           =   2
  208.                   Left            =   1485
  209.                   TabIndex        =   2
  210.                   Text            =   "2"
  211.                   Top             =   1110
  212.                   Width           =   2535
  213.                End
  214.                Begin VB.CommandButton Ydcommand1 
  215.                   Height          =   300
  216.                   Index           =   0
  217.                   Left            =   4590
  218.                   Picture         =   "包装物管理系统_基础设置_包装物档案.frx":177E
  219.                   Style           =   1  'Graphical
  220.                   TabIndex        =   15
  221.                   Top             =   390
  222.                   Visible         =   0   'False
  223.                   Width           =   300
  224.                End
  225.                Begin VB.TextBox LrText 
  226.                   Height          =   300
  227.                   Index           =   1
  228.                   Left            =   1485
  229.                   TabIndex        =   1
  230.                   Text            =   "1"
  231.                   Top             =   735
  232.                   Width           =   2835
  233.                End
  234.                Begin VB.TextBox LrText 
  235.                   Height          =   300
  236.                   Index           =   0
  237.                   Left            =   1485
  238.                   TabIndex        =   0
  239.                   Text            =   "0"
  240.                   Top             =   360
  241.                   Width           =   2835
  242.                End
  243.                Begin VB.Label TsLabel 
  244.                   AutoSize        =   -1  'True
  245.                   Caption         =   "备注:"
  246.                   Height          =   180
  247.                   Index           =   5
  248.                   Left            =   450
  249.                   TabIndex        =   28
  250.                   Top             =   1980
  251.                   Width           =   450
  252.                End
  253.                Begin VB.Label TsLabel 
  254.                   AutoSize        =   -1  'True
  255.                   Caption         =   "类别:"
  256.                   Height          =   180
  257.                   Index           =   2
  258.                   Left            =   450
  259.                   TabIndex        =   27
  260.                   Top             =   1590
  261.                   Width           =   450
  262.                End
  263.                Begin VB.Label TsLabel 
  264.                   AutoSize        =   -1  'True
  265.                   Caption         =   "计量单位:"
  266.                   Height          =   180
  267.                   Index           =   4
  268.                   Left            =   450
  269.                   TabIndex        =   18
  270.                   Top             =   1140
  271.                   Width           =   810
  272.                End
  273.                Begin VB.Label TsLabel 
  274.                   AutoSize        =   -1  'True
  275.                   Caption         =   "包装物名称:"
  276.                   Height          =   180
  277.                   Index           =   1
  278.                   Left            =   450
  279.                   TabIndex        =   17
  280.                   Top             =   780
  281.                   Width           =   990
  282.                End
  283.                Begin VB.Label TsLabel 
  284.                   AutoSize        =   -1  'True
  285.                   Caption         =   "包装物编码:"
  286.                   Height          =   180
  287.                   Index           =   0
  288.                   Left            =   450
  289.                   TabIndex        =   16
  290.                   Top             =   420
  291.                   Width           =   990
  292.                End
  293.             End
  294.             Begin VSFlex8Ctl.VSFlexGrid Grid_Layout 
  295.                Height          =   5025
  296.                Left            =   -74880
  297.                TabIndex        =   22
  298.                Top             =   480
  299.                Width           =   8685
  300.                _cx             =   5080
  301.                _cy             =   5080
  302.                Appearance      =   1
  303.                BorderStyle     =   1
  304.                Enabled         =   -1  'True
  305.                BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  306.                   Name            =   "宋体"
  307.                   Size            =   9
  308.                   Charset         =   134
  309.                   Weight          =   400
  310.                   Underline       =   0   'False
  311.                   Italic          =   0   'False
  312.                   Strikethrough   =   0   'False
  313.                EndProperty
  314.                MousePointer    =   0
  315.                BackColor       =   -2147483643
  316.                ForeColor       =   -2147483640
  317.                BackColorFixed  =   -2147483633
  318.                ForeColorFixed  =   -2147483630
  319.                BackColorSel    =   -2147483643
  320.                ForeColorSel    =   -2147483640
  321.                BackColorBkg    =   8421504
  322.                BackColorAlternate=   -2147483643
  323.                GridColor       =   -2147483633
  324.                GridColorFixed  =   -2147483632
  325.                TreeColor       =   -2147483632
  326.                FloodColor      =   192
  327.                SheetBorder     =   -2147483642
  328.                FocusRect       =   1
  329.                HighLight       =   1
  330.                AllowSelection  =   0   'False
  331.                AllowBigSelection=   0   'False
  332.                AllowUserResizing=   0
  333.                SelectionMode   =   0
  334.                GridLines       =   1
  335.                GridLinesFixed  =   2
  336.                GridLineWidth   =   1
  337.                Rows            =   5000
  338.                Cols            =   10
  339.                FixedRows       =   1
  340.                FixedCols       =   0
  341.                RowHeightMin    =   0
  342.                RowHeightMax    =   0
  343.                ColWidthMin     =   0
  344.                ColWidthMax     =   0
  345.                ExtendLastCol   =   0   'False
  346.                FormatString    =   ""
  347.                ScrollTrack     =   0   'False
  348.                ScrollBars      =   3
  349.                ScrollTips      =   0   'False
  350.                MergeCells      =   0
  351.                MergeCompare    =   0
  352.                AutoResize      =   -1  'True
  353.                AutoSizeMode    =   0
  354.                AutoSearch      =   0
  355.                AutoSearchDelay =   2
  356.                MultiTotals     =   -1  'True
  357.                SubtotalPosition=   1
  358.                OutlineBar      =   0
  359.                OutlineCol      =   0
  360.                Ellipsis        =   0
  361.                ExplorerBar     =   0
  362.                PicturesOver    =   0   'False
  363.                FillStyle       =   0
  364.                RightToLeft     =   0   'False
  365.                PictureType     =   0
  366.                TabBehavior     =   0
  367.                OwnerDraw       =   0
  368.                Editable        =   0
  369.                ShowComboButton =   1
  370.                WordWrap        =   -1  'True
  371.                TextStyle       =   0
  372.                TextStyleFixed  =   0
  373.                OleDragMode     =   0
  374.                OleDropMode     =   0
  375.                DataMode        =   0
  376.                VirtualData     =   -1  'True
  377.                DataMember      =   ""
  378.                ComboSearch     =   3
  379.                AutoSizeMouse   =   -1  'True
  380.                FrozenRows      =   0
  381.                FrozenCols      =   0
  382.                AllowUserFreezing=   0
  383.                BackColorFrozen =   0
  384.                ForeColorFrozen =   0
  385.                WallPaperAlignment=   9
  386.                AccessibleName  =   ""
  387.                AccessibleDescription=   ""
  388.                AccessibleValue =   ""
  389.                AccessibleRole  =   24
  390.             End
  391.             Begin VSFlex8Ctl.VSFlexGrid Grid_Datum 
  392.                Height          =   5025
  393.                Left            =   -74880
  394.                TabIndex        =   26
  395.                Top             =   480
  396.                Width           =   8685
  397.                _cx             =   5080
  398.                _cy             =   5080
  399.                Appearance      =   1
  400.                BorderStyle     =   1
  401.                Enabled         =   -1  'True
  402.                BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  403.                   Name            =   "宋体"
  404.                   Size            =   9
  405.                   Charset         =   134
  406.                   Weight          =   400
  407.                   Underline       =   0   'False
  408.                   Italic          =   0   'False
  409.                   Strikethrough   =   0   'False
  410.                EndProperty
  411.                MousePointer    =   0
  412.                BackColor       =   -2147483643
  413.                ForeColor       =   -2147483640
  414.                BackColorFixed  =   -2147483633
  415.                ForeColorFixed  =   -2147483630
  416.                BackColorSel    =   -2147483643
  417.                ForeColorSel    =   -2147483640
  418.                BackColorBkg    =   8421504
  419.                BackColorAlternate=   -2147483643
  420.                GridColor       =   -2147483633
  421.                GridColorFixed  =   -2147483632
  422.                TreeColor       =   -2147483632
  423.                FloodColor      =   192
  424.                SheetBorder     =   -2147483642
  425.                FocusRect       =   1
  426.                HighLight       =   1
  427.                AllowSelection  =   0   'False
  428.                AllowBigSelection=   0   'False
  429.                AllowUserResizing=   0
  430.                SelectionMode   =   0
  431.                GridLines       =   1
  432.                GridLinesFixed  =   2
  433.                GridLineWidth   =   1
  434.                Rows            =   5000
  435.                Cols            =   10
  436.                FixedRows       =   1
  437.                FixedCols       =   0
  438.                RowHeightMin    =   0
  439.                RowHeightMax    =   0
  440.                ColWidthMin     =   0
  441.                ColWidthMax     =   0
  442.                ExtendLastCol   =   0   'False
  443.                FormatString    =   ""
  444.                ScrollTrack     =   0   'False
  445.                ScrollBars      =   3
  446.                ScrollTips      =   0   'False
  447.                MergeCells      =   0
  448.                MergeCompare    =   0
  449.                AutoResize      =   -1  'True
  450.                AutoSizeMode    =   0
  451.                AutoSearch      =   0
  452.                AutoSearchDelay =   2
  453.                MultiTotals     =   -1  'True
  454.                SubtotalPosition=   1
  455.                OutlineBar      =   0
  456.                OutlineCol      =   0
  457.                Ellipsis        =   0
  458.                ExplorerBar     =   0
  459.                PicturesOver    =   0   'False
  460.                FillStyle       =   0
  461.                RightToLeft     =   0   'False
  462.                PictureType     =   0
  463.                TabBehavior     =   0
  464.                OwnerDraw       =   0
  465.                Editable        =   0
  466.                ShowComboButton =   1
  467.                WordWrap        =   -1  'True
  468.                TextStyle       =   0
  469.                TextStyleFixed  =   0
  470.                OleDragMode     =   0
  471.                OleDropMode     =   0
  472.                DataMode        =   0
  473.                VirtualData     =   -1  'True
  474.                DataMember      =   ""
  475.                ComboSearch     =   3
  476.                AutoSizeMouse   =   -1  'True
  477.                FrozenRows      =   0
  478.                FrozenCols      =   0
  479.                AllowUserFreezing=   0
  480.                BackColorFrozen =   0
  481.                ForeColorFrozen =   0
  482.                WallPaperAlignment=   9
  483.                AccessibleName  =   ""
  484.                AccessibleDescription=   ""
  485.                AccessibleValue =   ""
  486.                AccessibleRole  =   24
  487.             End
  488.          End
  489.          Begin VB.Label TsLabel 
  490.             AutoSize        =   -1  'True
  491.             Height          =   180
  492.             Index           =   3
  493.             Left            =   555
  494.             TabIndex        =   12
  495.             Top             =   1740
  496.             Width           =   90
  497.          End
  498.       End
  499.       Begin VSFlex8Ctl.VSFlexGrid CzxsGrid 
  500.          Height          =   5955
  501.          Left            =   90
  502.          TabIndex        =   7
  503.          Top             =   390
  504.          Width           =   9135
  505.          _cx             =   5080
  506.          _cy             =   5080
  507.          Appearance      =   1
  508.          BorderStyle     =   1
  509.          Enabled         =   -1  'True
  510.          BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  511.             Name            =   "宋体"
  512.             Size            =   9
  513.             Charset         =   134
  514.             Weight          =   400
  515.             Underline       =   0   'False
  516.             Italic          =   0   'False
  517.             Strikethrough   =   0   'False
  518.          EndProperty
  519.          MousePointer    =   0
  520.          BackColor       =   -2147483643
  521.          ForeColor       =   -2147483640
  522.          BackColorFixed  =   -2147483633
  523.          ForeColorFixed  =   -2147483630
  524.          BackColorSel    =   -2147483635
  525.          ForeColorSel    =   -2147483634
  526.          BackColorBkg    =   8421504
  527.          BackColorAlternate=   -2147483643
  528.          GridColor       =   -2147483633
  529.          GridColorFixed  =   -2147483632
  530.          TreeColor       =   -2147483632
  531.          FloodColor      =   192
  532.          SheetBorder     =   -2147483642
  533.          FocusRect       =   1
  534.          HighLight       =   1
  535.          AllowSelection  =   -1  'True
  536.          AllowBigSelection=   -1  'True
  537.          AllowUserResizing=   0
  538.          SelectionMode   =   0
  539.          GridLines       =   1
  540.          GridLinesFixed  =   2
  541.          GridLineWidth   =   1
  542.          Rows            =   5000
  543.          Cols            =   10
  544.          FixedRows       =   1
  545.          FixedCols       =   0
  546.          RowHeightMin    =   0
  547.          RowHeightMax    =   0
  548.          ColWidthMin     =   0
  549.          ColWidthMax     =   0
  550.          ExtendLastCol   =   0   'False
  551.          FormatString    =   ""
  552.          ScrollTrack     =   0   'False
  553.          ScrollBars      =   3
  554.          ScrollTips      =   0   'False
  555.          MergeCells      =   0
  556.          MergeCompare    =   0
  557.          AutoResize      =   -1  'True
  558.          AutoSizeMode    =   0
  559.          AutoSearch      =   0
  560.          AutoSearchDelay =   2
  561.          MultiTotals     =   -1  'True
  562.          SubtotalPosition=   1
  563.          OutlineBar      =   0
  564.          OutlineCol      =   0
  565.          Ellipsis        =   0
  566.          ExplorerBar     =   0
  567.          PicturesOver    =   0   'False
  568.          FillStyle       =   0
  569.          RightToLeft     =   0   'False
  570.          PictureType     =   0
  571.          TabBehavior     =   0
  572.          OwnerDraw       =   0
  573.          Editable        =   0
  574.          ShowComboButton =   1
  575.          WordWrap        =   0   'False
  576.          TextStyle       =   0
  577.          TextStyleFixed  =   0
  578.          OleDragMode     =   0
  579.          OleDropMode     =   0
  580.          DataMode        =   0
  581.          VirtualData     =   -1  'True
  582.          DataMember      =   ""
  583.          ComboSearch     =   3
  584.          AutoSizeMouse   =   -1  'True
  585.          FrozenRows      =   0
  586.          FrozenCols      =   0
  587.          AllowUserFreezing=   0
  588.          BackColorFrozen =   0
  589.          ForeColorFrozen =   0
  590.          WallPaperAlignment=   9
  591.          AccessibleName  =   ""
  592.          AccessibleDescription=   ""
  593.          AccessibleValue =   ""
  594.          AccessibleRole  =   24
  595.       End
  596.    End
  597.    Begin MSComctlLib.Toolbar SzToolbar 
  598.       Align           =   1  'Align Top
  599.       Height          =   555
  600.       Left            =   0
  601.       TabIndex        =   9
  602.       Top             =   0
  603.       Width           =   9375
  604.       _ExtentX        =   16536
  605.       _ExtentY        =   979
  606.       ButtonWidth     =   820
  607.       ButtonHeight    =   926
  608.       AllowCustomize  =   0   'False
  609.       Appearance      =   1
  610.       Style           =   1
  611.       ImageList       =   "ImageList1"
  612.       _Version        =   393216
  613.       BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628} 
  614.          NumButtons      =   15
  615.          BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  616.             Caption         =   "设置"
  617.             Key             =   "ymsz"
  618.             ImageKey        =   "sz"
  619.          EndProperty
  620.          BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  621.             Caption         =   "打印"
  622.             Key             =   "dy"
  623.             Object.ToolTipText     =   "点击或按Ctrl+P打印表格"
  624.             ImageKey        =   "dy"
  625.          EndProperty
  626.          BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  627.             Caption         =   "预览"
  628.             Key             =   "yl"
  629.             ImageKey        =   "yl"
  630.          EndProperty
  631.          BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  632.             Style           =   3
  633.          EndProperty
  634.          BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  635.             Caption         =   "增加"
  636.             Key             =   "zj"
  637.             Object.ToolTipText     =   "点击或按Ctrl+A增加记录"
  638.             ImageKey        =   "xz"
  639.          EndProperty
  640.          BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  641.             Caption         =   "修改"
  642.             Key             =   "xg"
  643.             ImageKey        =   "xg"
  644.          EndProperty
  645.          BeginProperty Button7 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  646.             Caption         =   "删除"
  647.             Key             =   "sc"
  648.             Object.ToolTipText     =   "点击或按Ctrl+D删除当前记录"
  649.             ImageKey        =   "sc"
  650.          EndProperty
  651.          BeginProperty Button8 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  652.             Style           =   3
  653.          EndProperty
  654.          BeginProperty Button9 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  655.             Caption         =   "增行"
  656.             Key             =   "zh"
  657.             ImageKey        =   "zh"
  658.          EndProperty
  659.          BeginProperty Button10 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  660.             Caption         =   "删行"
  661.             Key             =   "sh"
  662.             ImageKey        =   "sh"
  663.          EndProperty
  664.          BeginProperty Button11 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  665.             Style           =   3
  666.          EndProperty
  667.          BeginProperty Button12 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  668.             Caption         =   "刷新"
  669.             Key             =   "sx"
  670.             ImageKey        =   "sx"
  671.          EndProperty
  672.          BeginProperty Button13 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  673.             Style           =   3
  674.          EndProperty
  675.          BeginProperty Button14 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  676.             Caption         =   "帮助"
  677.             Key             =   "bz"
  678.             ImageKey        =   "bz"
  679.          EndProperty
  680.          BeginProperty Button15 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  681.             Caption         =   "退出"
  682.             Key             =   "fh"
  683.             ImageKey        =   "tc"
  684.          EndProperty
  685.       EndProperty
  686.       BorderStyle     =   1
  687.       Begin MSComctlLib.Toolbar GsToolbar 
  688.          Height          =   525
  689.          Left            =   6870
  690.          TabIndex        =   10
  691.          Top             =   0
  692.          Width           =   2475
  693.          _ExtentX        =   4366
  694.          _ExtentY        =   926
  695.          ButtonWidth     =   1455
  696.          ButtonHeight    =   926
  697.          AllowCustomize  =   0   'False
  698.          Appearance      =   1
  699.          Style           =   1
  700.          ImageList       =   "ImageList1"
  701.          _Version        =   393216
  702.          BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628} 
  703.             NumButtons      =   3
  704.             BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  705.                Caption         =   "保存格式"
  706.                Key             =   "bcgs"
  707.                ImageKey        =   "bcgs"
  708.             EndProperty
  709.             BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  710.                Caption         =   "默认列宽"
  711.                Key             =   "hfmrgs"
  712.                ImageKey        =   "mrlk"
  713.             EndProperty
  714.             BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  715.                Caption         =   "显示项目"
  716.                Key             =   "szxsxm"
  717.                ImageKey        =   "xsxm"
  718.             EndProperty
  719.          EndProperty
  720.       End
  721.    End
  722.    Begin MSComctlLib.ImageList ImageList1 
  723.       Left            =   0
  724.       Top             =   420
  725.       _ExtentX        =   1005
  726.       _ExtentY        =   1005
  727.       BackColor       =   -2147483643
  728.       ImageWidth      =   16
  729.       ImageHeight     =   16
  730.       MaskColor       =   12632256
  731.       _Version        =   393216
  732.       BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628} 
  733.          NumListImages   =   29
  734.          BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  735.             Picture         =   "包装物管理系统_基础设置_包装物档案.frx":1B08
  736.             Key             =   "sz"
  737.          EndProperty
  738.          BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  739.             Picture         =   "包装物管理系统_基础设置_包装物档案.frx":1EA2
  740.             Key             =   "dy"
  741.          EndProperty
  742.          BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  743.             Picture         =   "包装物管理系统_基础设置_包装物档案.frx":223C
  744.             Key             =   "yl"
  745.          EndProperty
  746.          BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  747.             Picture         =   "包装物管理系统_基础设置_包装物档案.frx":25D6
  748.             Key             =   "xg"
  749.          EndProperty
  750.          BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  751.             Picture         =   "包装物管理系统_基础设置_包装物档案.frx":2970
  752.             Key             =   "zh"
  753.          EndProperty
  754.          BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  755.             Picture         =   "包装物管理系统_基础设置_包装物档案.frx":2D0A
  756.             Key             =   "sh"
  757.          EndProperty
  758.          BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  759.             Picture         =   "包装物管理系统_基础设置_包装物档案.frx":30A4
  760.             Key             =   "bc"
  761.          EndProperty
  762.          BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  763.             Picture         =   "包装物管理系统_基础设置_包装物档案.frx":343E
  764.             Key             =   "fq"
  765.          EndProperty
  766.          BeginProperty ListImage9 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  767.             Picture         =   "包装物管理系统_基础设置_包装物档案.frx":37D8
  768.             Key             =   "bz"
  769.          EndProperty
  770.          BeginProperty ListImage10 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  771.             Picture         =   "包装物管理系统_基础设置_包装物档案.frx":3B72
  772.             Key             =   "tc"
  773.          EndProperty
  774.          BeginProperty ListImage11 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  775.             Picture         =   "包装物管理系统_基础设置_包装物档案.frx":3F0C
  776.             Key             =   "bcgs"
  777.          EndProperty
  778.          BeginProperty ListImage12 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  779.             Picture         =   "包装物管理系统_基础设置_包装物档案.frx":42A6
  780.             Key             =   "mrlk"
  781.          EndProperty
  782.          BeginProperty ListImage13 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  783.             Picture         =   "包装物管理系统_基础设置_包装物档案.frx":4640
  784.             Key             =   "xsxm"
  785.          EndProperty
  786.          BeginProperty ListImage14 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  787.             Picture         =   "包装物管理系统_基础设置_包装物档案.frx":49DA
  788.             Key             =   "first"
  789.          EndProperty
  790.          BeginProperty ListImage15 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  791.             Picture         =   "包装物管理系统_基础设置_包装物档案.frx":4D74
  792.             Key             =   "prev"
  793.          EndProperty
  794.          BeginProperty ListImage16 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  795.             Picture         =   "包装物管理系统_基础设置_包装物档案.frx":510E
  796.             Key             =   "next"
  797.          EndProperty
  798.          BeginProperty ListImage17 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  799.             Picture         =   "包装物管理系统_基础设置_包装物档案.frx":54A8
  800.             Key             =   "last"
  801.          EndProperty
  802.          BeginProperty ListImage18 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  803.             Picture         =   "包装物管理系统_基础设置_包装物档案.frx":5842
  804.             Key             =   "xx"
  805.          EndProperty
  806.          BeginProperty ListImage19 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  807.             Picture         =   "包装物管理系统_基础设置_包装物档案.frx":5BDC
  808.             Key             =   "define"
  809.          EndProperty
  810.          BeginProperty ListImage20 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  811.             Picture         =   "包装物管理系统_基础设置_包装物档案.frx":5F76
  812.             Key             =   "exec"
  813.          EndProperty
  814.          BeginProperty ListImage21 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  815.             Picture         =   "包装物管理系统_基础设置_包装物档案.frx":6310
  816.             Key             =   "xz"
  817.          EndProperty
  818.          BeginProperty ListImage22 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  819.             Picture         =   "包装物管理系统_基础设置_包装物档案.frx":66AA
  820.             Key             =   "sc"
  821.          EndProperty
  822.          BeginProperty ListImage23 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  823.             Picture         =   "包装物管理系统_基础设置_包装物档案.frx":6A44
  824.             Key             =   "sx"
  825.          EndProperty
  826.          BeginProperty ListImage24 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  827.             Picture         =   "包装物管理系统_基础设置_包装物档案.frx":6DDE
  828.             Key             =   "cx"
  829.          EndProperty
  830.          BeginProperty ListImage25 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  831.             Picture         =   "包装物管理系统_基础设置_包装物档案.frx":7178
  832.             Key             =   "zd"
  833.          EndProperty
  834.          BeginProperty ListImage26 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  835.             Picture         =   "包装物管理系统_基础设置_包装物档案.frx":7512
  836.             Key             =   "dz"
  837.          EndProperty
  838.          BeginProperty ListImage27 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  839.             Picture         =   "包装物管理系统_基础设置_包装物档案.frx":78AC
  840.             Key             =   "ph"
  841.          EndProperty
  842.          BeginProperty ListImage28 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  843.             Picture         =   "包装物管理系统_基础设置_包装物档案.frx":7C46
  844.             Key             =   "fz"
  845.          EndProperty
  846.          BeginProperty ListImage29 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  847.             Picture         =   "包装物管理系统_基础设置_包装物档案.frx":7FE0
  848.             Key             =   "dw"
  849.          EndProperty
  850.       EndProperty
  851.    End
  852. End
  853. Attribute VB_Name = "Cask_Wrappage"
  854. Attribute VB_GlobalNameSpace = False
  855. Attribute VB_Creatable = False
  856. Attribute VB_PredeclaredId = True
  857. Attribute VB_Exposed = False
  858. '**********************************************************
  859. '*    模 块 名 称 :包装物档案
  860. '*    功 能 描 述 :
  861. '*    程序员姓名  :邹力
  862. '*    最后修改人  :邹力
  863. '*    最后修改时间:2001/12/03
  864. '*    备        注:封版(*所有自定义部分程序均用[>> <<]括起)
  865. '**********************************************************
  867. Dim Rec_CodeSet As New ADODB.Recordset   '编码设置表
  868. Dim jdzygs As Integer                    '控件焦点转移个数
  869. Dim Lrzt As Integer                      '录入包装物标志(0-非录入包装物 1-增加 2-修改)
  870. Dim ReportTitle As String                '报表主标题
  871. Dim Str_RightEdit As String              '编辑(新增、修改、删除)权限索引
  872.   
  873. '以下为固定使用变量(网格)
  874. Dim Cxnrrec As New ADODB.Recordset       '显示查询内容动态集
  875. Dim Dyymctbl As New DY_Dyymsz            '打印页面窗体变量
  876. Dim GridCode As String                   '显示网格网格代码
  877. Dim GridInf() As Variant                 '整个网格设置信息
  878. Dim Tsxx As String                       '系统提示信息
  879. Dim Qslz As Long                         '网格隐藏(非操作显示)列数
  880. Dim Sjhgd As Double                      '网格数据行高度
  881. Dim GridBoolean() As Boolean             '网格列信息(布尔型)
  882. Dim GridStr()  As String                 '网格列信息(字符型)
  883. Dim GridInt() As Integer                 '网格列信息(整型)
  884. Dim Szzls As Integer                     '数组总列数(网格列数-1)
  886. '以下为固定使用变量(文本框)
  887. Dim Textvar() As Variant                 '存储变体型文本框信息
  888. Dim Textboolean() As Boolean             '存储布尔型文本框信息
  889. Dim Textint() As Integer                 '存储整型文本框信息
  890. Dim Textstr() As String                  '存储字符型文本框信息
  891. Dim Max_Text_Index As Integer            '最大录入文本框索引值
  892. Dim TextGroupCode As String              '文本框录入分组编码
  893. Dim TextValiLock As Boolean              '文本框失去焦点是否进行有效性控制判断
  894. Dim TextValiJudgeLock() As Boolean       '文本框录入有效性判断控制锁
  895. Dim CurTextIndex As Integer              '当前文本框索引值
  896. Dim TextChangeLock As Boolean            '文本框内容变换控制锁
  897. Dim Bln_Cancel As Boolean                '取消按钮信息传递
  900. '*******     sup_Product
  901. Dim Cxnrrec1 As New ADODB.Recordset       '显示查询内容动态集
  902. Dim GridCode1 As String                   '显示网格网格代码
  903. Dim GridInf1() As Variant                 '整个网格设置信息
  904. Dim Tsxx1 As String                       '系统提示信息
  905. Dim Qslz1 As Long                         '网格隐藏(非操作显示)列数
  906. Dim Sjhgd1 As Double                      '网格数据行高度
  907. Dim GridBoolean1() As Boolean             '网格列信息(布尔型)
  908. Dim GridStr1()  As String                 '网格列信息(字符型)
  909. Dim GridInt1() As Integer                 '网格列信息(整型)
  910. Dim Szzls1 As Integer                     '数组总列数(网格列数-1)
  912. Dim Pmbcsjhs1 As Long                            '屏幕网格保持数据行数(大于等于1)
  913. Dim Fzxwghs1 As Integer                          '辅助项网格行数(包括合计行)
  914. Dim Sfxshjwg1 As Boolean                         '是否显示合计网格
  915. Dim Sfblbzkd1 As Boolean                         '是否保留帮助宽度(字段提供帮助时,是否为按钮保留空间)
  916. Dim Dqlrwgh1 As Long                             '当前录入数据网格行
  917. Dim Dqlrwgl1 As Long                             '当前录入数据网格列
  918. Dim Dqlkwgh1 As Long                             '刚刚离开网格行(不一定为录入行)
  919. Dim Dqlkwgl1 As Long                             '刚刚离开网格列
  920. Dim Dqtoprow1 As Long                            '当前录入状态时最上端可视行
  921. Dim Dqleftcol1 As Long                           '当前录入状态时最左端可视列
  922. Dim Zdlrqnr1 As String                           '字段录入修改前内容(用来判断内容是否修改)
  923. Dim Wbkbhlock1 As Boolean                        '文本框改变值锁
  924. Dim changelock1 As Boolean                       '网格行列改变控制锁(用来区别用户改变.程序改变)
  925. Dim Gdtlock1 As Boolean                          '滚动条滚动控制(用来区别用户改变.程序改变)
  926. Dim Yxxpdlock1 As Boolean                        '字段有效性判断锁(内容不修改不需进行字段有效性判断)
  927. Dim Hyxxpdlock1 As Boolean                       '行有效性判断锁(字段内容不修改不需进行行有效性判断)
  928. Dim Valilock1 As Boolean                         '文本框失去焦点是否进行有效性控制(TRUE 为锁定*限用网格录入)
  929. Dim Shsfts1 As Boolean                           '删除记录行是否提示
  931. '*******     sup_ProLine
  932. Dim Cxnrrec2 As New ADODB.Recordset       '显示查询内容动态集
  933. Dim GridCode2 As String                   '显示网格网格代码
  934. Dim GridInf2() As Variant                 '整个网格设置信息
  935. Dim Tsxx2 As String                       '系统提示信息
  936. Dim Qslz2 As Long                         '网格隐藏(非操作显示)列数
  937. Dim Sjhgd2 As Double                      '网格数据行高度
  938. Dim GridBoolean2() As Boolean             '网格列信息(布尔型)
  939. Dim GridStr2()  As String                 '网格列信息(字符型)
  940. Dim GridInt2() As Integer                 '网格列信息(整型)
  941. Dim Szzls2 As Integer                     '数组总列数(网格列数-1)
  943. Dim Pmbcsjhs2 As Long                            '屏幕网格保持数据行数(大于等于1)
  944. Dim Fzxwghs2 As Integer                          '辅助项网格行数(包括合计行)
  945. Dim Sfxshjwg2 As Boolean                         '是否显示合计网格
  946. Dim Sfblbzkd2 As Boolean                         '是否保留帮助宽度(字段提供帮助时,是否为按钮保留空间)
  947. Dim Dqlrwgh2 As Long                             '当前录入数据网格行
  948. Dim Dqlrwgl2 As Long                             '当前录入数据网格列
  949. Dim Dqlkwgh2 As Long                             '刚刚离开网格行(不一定为录入行)
  950. Dim Dqlkwgl2 As Long                             '刚刚离开网格列
  951. Dim Dqtoprow2 As Long                            '当前录入状态时最上端可视行
  952. Dim Dqleftcol2 As Long                           '当前录入状态时最左端可视列
  953. Dim Zdlrqnr2 As String                           '字段录入修改前内容(用来判断内容是否修改)
  954. Dim Wbkbhlock2 As Boolean                        '文本框改变值锁
  955. Dim changelock2 As Boolean                       '网格行列改变控制锁(用来区别用户改变.程序改变)
  956. Dim Gdtlock2 As Boolean                          '滚动条滚动控制(用来区别用户改变.程序改变)
  957. Dim Yxxpdlock2 As Boolean                        '字段有效性判断锁(内容不修改不需进行字段有效性判断)
  958. Dim Hyxxpdlock2 As Boolean                       '行有效性判断锁(字段内容不修改不需进行行有效性判断)
  959. Dim Valilock2 As Boolean                         '文本框失去焦点是否进行有效性控制(TRUE 为锁定*限用网格录入)
  960. Dim Shsfts2 As Boolean                           '删除记录行是否提示
  962. Dim RecTemp As ADODB.Recordset
  963. Private Sub Form_KeyPress(KeyAscii As Integer)   '控 制 焦 点 转 移
  965.     jdzygs = 10
  966.     
  967.     Select Case KeyAscii
  968.         Case vbKeyReturn
  969.             If Kjjdzy(jdzygs) Then
  970.                 KeyAscii = 0
  971.             End If
  972.         Case 39           '屏蔽"'"
  973.             KeyAscii = 0
  974.     End Select
  975.    
  976. End Sub
  978. Private Sub Form_Load()
  979.   
  980.     '打印报表标题信息
  981.     ReportTitle = "包装物档案"
  982.      
  983.     '调入打印页面设置窗体
  984.     XtReportCode = "Cask_Wrappage"
  985.     Load Dyymctbl
  986.     
  987.     '以下为文本框处理程序(读入文本框录入信息)
  988.     TextGroupCode = "Cask_Wrappage"
  989.     Call Drwbkxx(TextGroupCode, Textvar(), Textboolean(), Textint(), Textstr())
  990.     Call Wbkcsh
  991.     
  992.     '调入网格设置信息
  993.     GridCode = "Cask_Wrappage"
  994.     Call BzWgcsh(CzxsGrid, GridCode, GridInf(), GridBoolean(), GridInt(), GridStr())
  995.     Qslz = GridInf(1)
  996.     Sjhgd = GridInf(2)
  997.     Szzls = CzxsGrid.Cols - 1
  998.     
  999.     CzxsGrid.Cols = CzxsGrid.Cols + 2
  1000.     CzxsGrid.ColHidden(CzxsGrid.Cols - 1) = True
  1001.     CzxsGrid.ColHidden(CzxsGrid.Cols - 2) = True
  1002.    '调 入 网 格   附属物
  1003.   GridCode1 = "Cask_Appertain"
  1004.   Call BzWgcsh(Grid_Layout, GridCode1, GridInf1(), GridBoolean1(), GridInt1(), GridStr1())
  1005.   Qslz1 = GridInf1(1)
  1006.   Sjhgd1 = GridInf1(2)
  1007.   Szzls1 = Grid_Layout.Cols - 1
  1008.   Pmbcsjhs1 = GridInf1(3)
  1009.   Fzxwghs1 = GridInf1(4)
  1010.   Sfblbzkd1 = GridInf1(5)
  1011.   Shsfts1 = GridInf1(6)
  1012.   Sfxshjwg1 = GridInf1(7)
  1014.   '调 入 网 格   包装参数
  1015.   GridCode2 = "Cask_Parameter"
  1016.   Call BzWgcsh(Grid_Datum, GridCode2, GridInf2(), GridBoolean2(), GridInt2(), GridStr2())
  1017.   Qslz2 = GridInf2(1)
  1018.   Sjhgd2 = GridInf2(2)
  1019.   Szzls2 = Grid_Datum.Cols - 1
  1021.   Pmbcsjhs2 = GridInf2(3)
  1022.   Fzxwghs2 = GridInf2(4)
  1023.   Sfblbzkd2 = GridInf2(5)
  1024.   Shsfts2 = GridInf2(6)
  1025.   Sfxshjwg2 = GridInf2(7)
  1026.   
  1027.    '重置网格
  1028.     With Grid_Layout
  1029.         .Rows = Pmbcsjhs1 + .FixedRows + Fzxwghs1 + 1
  1030.         For Jsqte = .FixedRows To .Rows - 1
  1031.             .RowHeight(Jsqte) = Sjhgd1
  1032.         Next Jsqte
  1033.         .Clear 1
  1034.         changelock1 = True
  1035.         .Select .FixedRows, Qslz1
  1036.         changelock1 = False
  1037.     End With
  1038.     
  1039.     With Grid_Datum
  1040.         .Rows = Pmbcsjhs2 + .FixedRows + Fzxwghs2 + 1
  1041.         For Jsqte = .FixedRows To .Rows - 1
  1042.             .RowHeight(Jsqte) = Sjhgd2
  1043.         Next Jsqte
  1044.         .Clear 1
  1045.         changelock2 = True
  1046.         .Select .FixedRows, Qslz
  1047.         changelock2 = False
  1048.     End With
  1050.     SzToolbar.Buttons("zh").Enabled = False
  1051.     SzToolbar.Buttons("sh").Enabled = False
  1053.     '填 充 网 格
  1054.     Call Cxnrtcwg
  1055.        
  1056.     '初始化ToolBar,Tab卡包装物
  1057.     StTab.Tab = 0
  1058.     StTab.TabEnabled(1) = False
  1059.     Frame1.Enabled = False
  1060.     
  1061.     '设置为非录入包装物
  1062.     Lrzt = 0
  1063.     
  1064.      '编辑(新增、修改、删除)权限索引
  1065.     Str_RightEdit = "Cask_WrappageEdit"
  1067.  End Sub
  1068.  
  1069. Private Sub Cxnrtcwg()                               '查询内容填充网格
  1071.     Dim Sqlstr As String              '查询连接串
  1072.     Dim Jsqte As Long                 '查询临时使用变量
  1073.   
  1074.     '为加快显示速度,将网格刷新动作冻结
  1075.     CzxsGrid.Redraw = False
  1076.   
  1077.     '[>>查询连接串
  1078.     Sqlstr = "SELECT Cask_Wrappage.*,Cask_Sort.SortName,Gy_UnitSet.UnitName  " & _
  1079.             "FROM Cask_Wrappage LEFT OUTER JOIN Cask_Sort ON Cask_Wrappage.SortCode =" & _
  1080.             "Cask_Sort.SortCode LEFT OUTER JOIN Gy_UnitSet ON Cask_Wrappage.UnitCode =" & _
  1081.             "Gy_UnitSet.UnitCode Order By WrappageCode"
  1082.     '<<]
  1083.     Set Cxnrrec = Cw_DataEnvi.DataConnect.Execute(Sqlstr)
  1084.     
  1085.     With Cxnrrec
  1086.         CzxsGrid.Rows = CzxsGrid.FixedRows
  1087.         If .EOF And .BOF Then
  1088.             CzxsGrid.Redraw = True
  1089.             Exit Sub
  1090.         End If
  1091.         Jsqte = CzxsGrid.FixedRows
  1092.         Do While Not .EOF
  1093.             CzxsGrid.AddItem ""
  1094.             Call Jltcwg(Cxnrrec, Jsqte)                              '调入填充网格子过程
  1095.             CzxsGrid.RowHeight(Jsqte) = Sjhgd                        '设置网格高度
  1096.             .MoveNext
  1097.             Jsqte = Jsqte + 1
  1098.         Loop
  1099.     End With
  1100.   
  1101.     '将网格刷新动作解冻
  1102.     CzxsGrid.Redraw = True
  1103.     
  1104. End Sub
  1106. Private Sub Jltcwg(Jlbrec As ADODB.Recordset, Rowjsq As Long)           '记录内容填充网格
  1108.     '[>>以下为自定义部分
  1109.     With Jlbrec
  1110.         CzxsGrid.TextMatrix(Rowjsq, Sydz("001", GridStr(), Szzls)) = Trim(!WrappageCode & "")     '包装物编码
  1111.         CzxsGrid.TextMatrix(Rowjsq, Sydz("002", GridStr(), Szzls)) = Trim(!WrappageName & "")     '包装物名称
  1112.         CzxsGrid.TextMatrix(Rowjsq, Sydz("003", GridStr(), Szzls)) = Trim(!UnitName & "")         '计量单位名称
  1113.         CzxsGrid.TextMatrix(Rowjsq, Sydz("004", GridStr(), Szzls)) = Trim(!SortName & "")         '类别名称
  1114.         CzxsGrid.TextMatrix(Rowjsq, Sydz("005", GridStr(), Szzls)) = Trim(!Remark & "")           '备注
  1115.         CzxsGrid.TextMatrix(Rowjsq, CzxsGrid.Cols - 2) = Trim(!UnitCode & "")                     '计量单位编码
  1116.         CzxsGrid.TextMatrix(Rowjsq, CzxsGrid.Cols - 1) = Trim(!SortCode & "")                     '类别编码
  1117.     End With
  1118.     '以上为自定义部分<<]
  1119.     
  1120. End Sub
  1122. Private Sub Form_Unload(Cancel As Integer)             '窗体卸载
  1124.     Set Cxnrrec = Nothing
  1125.     Set Rec_CodeSet = Nothing
  1126.     Unload Dyymctbl
  1127.    
  1128. End Sub
  1130. Private Function Bclrsj() As Boolean                   '判断录入数据有效性,并保存数据
  1132.     Dim Jsqte As Integer
  1133.     
  1134.     '对文本框录入内容进行为零和为空判断(固定不变)
  1135.     With Rec_CodeSet
  1136.         For Jsqte = 0 To Max_Text_Index
  1137.             If Textint(Jsqte, 8) = 1 Then     '字段不能为空
  1138.                 If Len(Trim(LrText(Jsqte).Text)) = 0 Then
  1139.                     Tsxx = Textstr(Jsqte, 7) & "不能为空!"
  1140.                     SSTab1.Tab = 0
  1141.                     Call Xtxxts(Tsxx, 0, 1)
  1142.                     LrText(Jsqte).SetFocus
  1143.                     Bclrsj = False
  1144.                     Exit Function
  1145.                 End If
  1146.             Else
  1147.                 If Textint(Jsqte, 8) = 2 Then   '字段不能为零
  1148.                     If Val(Trim(LrText(Jsqte).Text)) = 0 Then
  1149.                         Tsxx = Textstr(Jsqte, 7) & "不能为零!"
  1150.                         SSTab1.Tab = 0
  1151.                         Call Xtxxts(Tsxx, 0, 1)
  1152.                         LrText(Jsqte).SetFocus
  1153.                         Bclrsj = False
  1154.                         Exit Function
  1155.                     End If
  1156.                 End If
  1157.             End If
  1158.         Next Jsqte
  1159.     
  1160.         '对需要进行事后判断的文本框录入内容进行有效性判断 (固定不变)
  1161.         For Jsqte = 0 To Max_Text_Index
  1162.             If Textint(Jsqte, 9) = 0 Or Textint(Jsqte, 9) = 2 Then
  1163.                 If Not TextYxxpd(Jsqte) Then
  1164.                     Exit Function
  1165.                 End If
  1166.             End If
  1167.         Next Jsqte
  1169.         
  1170.         If Lrzt = 1 Then  '增 加
  1171.         
  1172.             '[>>判断编码是否重复
  1173.             If .State = 1 Then .Close
  1174.             .Open "SELECT * FROM Cask_Wrappage WHERE WrappageCode= '" + Trim(LrText(0).Text) + "'", Cw_DataEnvi.DataConnect, adOpenDynamic, adLockOptimistic
  1175.             
  1176.             If Not .EOF Then
  1177.                 Tsxx = "包装物编码重复!"
  1178.                 Call Xtxxts(Tsxx, 0, 1)
  1179.                 LrText(0).SetFocus
  1180.                 Bclrsj = False
  1181.                 Exit Function
  1182.             End If
  1183.            
  1184.             '判断名称是否重复
  1185.             If .State = 1 Then .Close
  1186.             .Open "SELECT * FROM Cask_Wrappage WHERE WrappageName= '" + Trim(LrText(1).Text) + "'", Cw_DataEnvi.DataConnect, adOpenDynamic, adLockOptimistic
  1187.             
  1188.             If Not .EOF Then
  1189.                 Tsxx = "包装物名称重复!"
  1190.                 Call Xtxxts(Tsxx, 0, 1)
  1191.                 LrText(1).SetFocus
  1192.                 
  1193.                 Bclrsj = False
  1194.                 Exit Function
  1195.             End If
  1196.     
  1197.     
  1198.             '判断记录内容无误后,将记录内容写入数据表
  1199.             On Error GoTo Swcwcl
  1200.     
  1201.             Cw_DataEnvi.DataConnect.BeginTrans
  1202.    
  1203.             .AddNew
  1204.                 .Fields("WrappageCode") = Trim(LrText(0).Text)    '包装物编码
  1205.                 .Fields("WrappageName") = Trim(LrText(1).Text)    '包装物名称
  1206.                 .Fields("UnitCode") = Trim(LrText(2).Tag)         '计量单位编码
  1207.                 .Fields("SortCode") = Trim(LrText(3).Tag)         '类型编码
  1208.                 .Fields("Remark") = Trim(LrText(4).Text)          '备注
  1209.             .Update
  1210.             
  1211.              Cw_DataEnvi.DataConnect.Execute "delete Cask_Appertain where WrappageCode= '" & Trim(LrText(0).Text) & "'"
  1212.             
  1213.             '附属物
  1214.             
  1215.             If .State = 1 Then .Close
  1216.             .Open "SELECT * FROM Cask_Appertain", Cw_DataEnvi.DataConnect, adOpenDynamic, adLockOptimistic
  1217.             For Jsqte = Grid_Layout.FixedRows To Grid_Layout.Rows - 1
  1218.                 If Grid_Layout.TextMatrix(Jsqte, 0) = "*" Then
  1219.                     .AddNew
  1220.                     .Fields("WrappageCode") = Trim(LrText(0).Text)          '包装物编码
  1221.                     .Fields("AppertainCode") = Trim(Grid_Layout.TextMatrix(Jsqte, Sydz("001", GridStr1(), Szzls1)))          '附属物编码
  1222.                     .Fields("UnitPrice") = Val(Grid_Layout.ValueMatrix(Jsqte, Sydz("004", GridStr1(), Szzls1)))              '单价
  1223.                     .Fields("Quantity") = Val(Grid_Layout.ValueMatrix(Jsqte, Sydz("005", GridStr1(), Szzls1)))               '数量
  1224.                     .Fields("Remark") = Trim(Grid_Layout.TextMatrix(Jsqte, Sydz("006", GridStr1(), Szzls1)))                 '备注
  1225.                     .Fields("DataType") = 1          '数据类型
  1226.                     .Update
  1227.                 End If
  1228.             Next Jsqte
  1229.             
  1230.             '包装参数
  1231.             
  1232.             If .State = 1 Then .Close
  1233.             .Open "SELECT * FROM  Cask_Appertain", Cw_DataEnvi.DataConnect, adOpenDynamic, adLockOptimistic
  1234.             For Jsqte = Grid_Datum.FixedRows To Grid_Datum.Rows - 1
  1235.                 If Grid_Datum.TextMatrix(Jsqte, 0) = "*" Then
  1236.                     .AddNew
  1237.                     .Fields("WrappageCode") = Trim(LrText(0).Text)          '包装物编码
  1238.                     .Fields("AppertainCode") = Trim(Grid_Datum.TextMatrix(Jsqte, Sydz("001", GridStr2(), Szzls2)))          '物料编码
  1239.                     .Fields("UnitPrice") = Val(Grid_Datum.ValueMatrix(Jsqte, Sydz("005", GridStr2(), Szzls2)))              '单价
  1240.                     .Fields("Quantity") = Val(Grid_Datum.ValueMatrix(Jsqte, Sydz("006", GridStr2(), Szzls2)))               '数量
  1241.                     .Fields("Remark") = Trim(Grid_Datum.TextMatrix(Jsqte, Sydz("007", GridStr2(), Szzls2)))                 '备注
  1242.                     .Fields("DataType") = 2          '数据类型
  1243.                     .Update
  1244.                 End If
  1245.             Next Jsqte
  1246.             
  1247.             Cw_DataEnvi.DataConnect.CommitTrans
  1248.    
  1249.             '将记录加入网格
  1250.             Sqlstr = "SELECT Cask_Wrappage.*,Cask_Sort.SortName,Gy_UnitSet.UnitName  " & _
  1251.                     "FROM Cask_Wrappage LEFT OUTER JOIN Cask_Sort ON Cask_Wrappage.SortCode =" & _
  1252.                     "Cask_Sort.SortCode LEFT OUTER JOIN Gy_UnitSet ON Cask_Wrappage.UnitCode =" & _
  1253.                     "Gy_UnitSet.UnitCode  WHERE WrappageCode= '" + Trim(LrText(0).Text) + "'"
  1254.             Set Cxnrrec = Cw_DataEnvi.DataConnect.Execute(Sqlstr)
  1255.             
  1256.             With CzxsGrid
  1257.                 .AddItem ""
  1258.                 .RowHeight(.Rows - 1) = Sjhgd
  1259.                 .Select .Rows - 1, Qslz
  1260.                 Call Jltcwg(Cxnrrec, .Rows - 1)
  1261.             End With
  1262.    
  1263.             Tsxx = "保存完毕!"
  1264.             Call Xtxxts(Tsxx, 0, 4)
  1265.             
  1266.             Call Cshlrxx(1)
  1267.             LrText(0).SetFocus
  1268.    
  1269.             '将网格按编码排序
  1270.             With CzxsGrid
  1271.                 .Col = Sydz("001", GridStr(), Szzls)
  1272.                 CzxsGrid.Sort = flexSortStringAscending
  1273.             End With
  1274.             '<<]
  1275.     
  1276.         Else  '否则为修改记录
  1277.  
  1278.             If .State = 1 Then .Close
  1279.             .Open "SELECT * FROM Cask_Wrappage WHERE WrappageName= '" + Trim(LrText(1).Text) + "' and WrappageCode<>'" & Trim(LrText(0).Text) & "'", Cw_DataEnvi.DataConnect, adOpenDynamic, adLockOptimistic
  1280.         
  1281.             If Not .EOF Then
  1282.                 Tsxx = "包装物名称!"
  1283.                 Call Xtxxts(Tsxx, 0, 1)
  1284.                 LrText(1).SetFocus
  1285.                 Bclrsj = False
  1286.                 Exit Function
  1287.             End If
  1288.         
  1289.             On Error GoTo Swcwcl
  1290.         
  1291.             Cw_DataEnvi.DataConnect.BeginTrans
  1292.          
  1293.             If .State = 1 Then .Close
  1294.             .Open "SELECT * FROM Cask_Wrappage WHERE WrappageCode= '" + Trim(LrText(0).Text) + "'", Cw_DataEnvi.DataConnect, adOpenDynamic, adLockOptimistic
  1295.              
  1296.             If Not .EOF Then
  1297.                 .Fields("WrappageName") = Trim(LrText(1).Text)    '包装物名称
  1298.                 .Fields("UnitCode") = Trim(LrText(2).Tag)         '计量单位编码
  1299.                 .Fields("SortCode") = Trim(LrText(3).Tag)         '类型编码
  1300.                 .Fields("Remark") = Trim(LrText(4).Text)          '备注
  1301.                 .Update
  1302.             End If
  1303.             
  1304.             Cw_DataEnvi.DataConnect.Execute "delete Cask_Appertain where WrappageCode= '" & Trim(LrText(0).Text) & "'"
  1305.     
  1306.             '附属物
  1307.             
  1308.             If .State = 1 Then .Close
  1309.             .Open "SELECT * FROM  Cask_Appertain", Cw_DataEnvi.DataConnect, adOpenDynamic, adLockOptimistic
  1310.             For Jsqte = Grid_Layout.FixedRows To Grid_Layout.Rows - 1
  1311.                 If Grid_Layout.TextMatrix(Jsqte, 0) = "*" Then
  1312.                     .AddNew
  1313.                     .Fields("WrappageCode") = Trim(LrText(0).Text)          '包装物编码
  1314.                     .Fields("AppertainCode") = Trim(Grid_Layout.TextMatrix(Jsqte, Sydz("001", GridStr1(), Szzls1)))          '附属物编码
  1315.                     .Fields("UnitPrice") = Val(Grid_Layout.ValueMatrix(Jsqte, Sydz("004", GridStr1(), Szzls1)))              '单价
  1316.                     .Fields("Quantity") = Val(Grid_Layout.ValueMatrix(Jsqte, Sydz("005", GridStr1(), Szzls1)))               '数量
  1317.                     .Fields("Remark") = Trim(Grid_Layout.TextMatrix(Jsqte, Sydz("006", GridStr1(), Szzls1)))                 '备注
  1318.                     .Fields("DataType") = 1          '数据类型
  1319.                     .Update
  1320.                 End If
  1321.             Next Jsqte
  1322.             
  1323.             '包装参数
  1324.             
  1325.             If .State = 1 Then .Close
  1326.             .Open "SELECT * FROM  Cask_Appertain", Cw_DataEnvi.DataConnect, adOpenDynamic, adLockOptimistic
  1327.             For Jsqte = Grid_Datum.FixedRows To Grid_Datum.Rows - 1
  1328.                 If Grid_Datum.TextMatrix(Jsqte, 0) = "*" Then
  1329.                     .AddNew
  1330.                     .Fields("WrappageCode") = Trim(LrText(0).Text)          '包装物编码
  1331.                     .Fields("AppertainCode") = Trim(Grid_Datum.TextMatrix(Jsqte, Sydz("001", GridStr2(), Szzls2)))          '物料编码
  1332.                     .Fields("UnitPrice") = Val(Grid_Datum.ValueMatrix(Jsqte, Sydz("005", GridStr2(), Szzls2)))              '单价
  1333.                     .Fields("Quantity") = Val(Grid_Datum.ValueMatrix(Jsqte, Sydz("006", GridStr2(), Szzls2)))               '数量
  1334.                     .Fields("Remark") = Trim(Grid_Datum.TextMatrix(Jsqte, Sydz("007", GridStr2(), Szzls2)))                 '备注
  1335.                     .Fields("DataType") = 2          '数据类型
  1336.                     .Update
  1337.                 End If
  1338.             Next Jsqte
  1339.             
  1340.             Cw_DataEnvi.DataConnect.CommitTrans
  1341.             
  1342.             '刷新当前网格
  1343.             Sqlstr = "SELECT Cask_Wrappage.*,Cask_Sort.SortName,Gy_UnitSet.UnitName  " & _
  1344.                 "FROM Cask_Wrappage LEFT OUTER JOIN Cask_Sort ON Cask_Wrappage.SortCode =" & _
  1345.                 "Cask_Sort.SortCode LEFT OUTER JOIN Gy_UnitSet ON Cask_Wrappage.UnitCode =" & _
  1346.                 "Gy_UnitSet.UnitCode  WHERE WrappageCode= '" + Trim(LrText(0).Text) + "'"
  1347.             Set Cxnrrec = Cw_DataEnvi.DataConnect.Execute(Sqlstr)
  1348.             
  1349.             If Not Cxnrrec.EOF Then
  1350.                 With CzxsGrid
  1351.                     Call Jltcwg(Cxnrrec, .Row)
  1352.                 End With
  1353.             Else
  1354.                 Tsxx = "该记录已经被其他人删除,请刷新当前数据!"
  1355.                 Call Xtxxts(Tsxx, 0, 4)
  1356.                 Exit Function
  1357.             End If
  1358.    
  1359.         End If
  1360.      
  1361.         '保存记录成功,函数返回真值
  1362.         Bclrsj = True
  1363.         Exit Function
  1364.     End With
  1365.  
  1366. Swcwcl:
  1368.     Cw_DataEnvi.DataConnect.RollbackTrans
  1369.     
  1370.     Tsxx = "存盘过程中出现错误,程序自动恢复保存前包装物!"
  1371.     Call Xtxxts(Tsxx, 0, 1)
  1372.     
  1373.     Exit Function
  1374. End Function
  1376. Private Function Cshlrxx(lrztxx As Integer) As Boolean              '初始化录入字段信息
  1377.     
  1378.     TextChangeLock = True       '关闭文本框Chang事件
  1379.     Grid_Layout.Clear 1
  1380.     Grid_Datum.Clear 1
  1381.     SSTab1.Tab = 0
  1382.     If lrztxx = 1 Then
  1383.         '增加新记录时将文本框清空
  1384.         For Jsqte = 0 To Max_Text_Index
  1385.             If Len(Trim(Textstr(Jsqte, 1))) <> 0 Then
  1386.                 LrText(Jsqte).Text = ""
  1387.                 LrText(Jsqte).Tag = ""
  1388.             End If
  1389.             TextValiJudgeLock(Jsqte) = True
  1390.         Next Jsqte
  1391.         '[>>
  1392.         '在此处可添加新增记录时初始化设置
  1393.         '<<]
  1394.     Else
  1395.         
  1396.         '修改记录时根据记录关键字(编码)从数据表中读入其他字段内容
  1397.         With RecTemp
  1398.         
  1399.             Sqlstr = "SELECT Cask_Wrappage.*,Cask_Sort.SortName,Gy_UnitSet.UnitName  " & _
  1400.                     "FROM Cask_Wrappage LEFT OUTER JOIN Cask_Sort ON Cask_Wrappage.SortCode =" & _
  1401.                     "Cask_Sort.SortCode LEFT OUTER JOIN Gy_UnitSet ON Cask_Wrappage.UnitCode =" & _
  1402.                     "Gy_UnitSet.UnitCode Where WrappageCode='" & Trim(CzxsGrid.TextMatrix(CzxsGrid.Row, Sydz("001", GridStr(), Szzls))) & "'"
  1403.             Set RecTemp = Cw_DataEnvi.DataConnect.Execute(Sqlstr)
  1404.        
  1405.             '记录如存在则读入其内容,否则提示记录已被其他人删除
  1406.             If Not RecTemp.EOF Then
  1407.                 LrText(0).Text = Trim(RecTemp!WrappageCode & "")            '包装物编码
  1408.                 LrText(1).Text = Trim(RecTemp!WrappageName & "")            '包装物名称
  1409.                 LrText(2).Tag = Trim(RecTemp!UnitCode & "")                 '计量单位编码
  1410.                 LrText(2).Text = Trim(RecTemp!UnitName & "")                '计量单位名称
  1411.                 LrText(3).Tag = Trim(RecTemp!SortCode & "")                 '类别编码
  1412.                 LrText(3).Text = Trim(RecTemp!SortName & "")                '类别名称
  1413.                 LrText(4).Text = Trim(RecTemp!Remark & "")                  '备注
  1414.                 '附属物
  1415.                 Sqlstr = "SELECT Cask_Wrappage.*,Cask_Appertain.*,Gy_UnitSet.UnitName FROM Cask_Wrappage INNER JOIN " & _
  1416.                             "Cask_Appertain ON Cask_Wrappage.WrappageCode =Cask_Appertain.AppertainCode LEFT OUTER " & _
  1417.                             "Join Gy_UnitSet ON Cask_Wrappage.UnitCode =Gy_UnitSet.UnitCode Where Cask_Appertain.WrappageCode='" & Trim(LrText(0).Text) & "' and DataType=1"
  1418.       
  1419.                 Set RecTemp = Cw_DataEnvi.DataConnect.Execute(Sqlstr)
  1420.                 Jsqte = Grid_Layout.FixedRows
  1421.                 Do While Not RecTemp.EOF
  1422.                       If Jsqte >= Grid_Layout.Rows Then
  1423.                          Grid_Layout.AddItem ""
  1424.                       End If
  1425.                     Grid_Layout.TextMatrix(Jsqte, 0) = "*"
  1426.                     
  1427.                     Grid_Layout.TextMatrix(Jsqte, Sydz("001", GridStr1(), Szzls1)) = Trim("" & RecTemp!AppertainCode)        '附属物编码
  1428.                     Grid_Layout.TextMatrix(Jsqte, Sydz("002", GridStr1(), Szzls1)) = Trim("" & RecTemp!WrappageName)         '附属物名称
  1429.                     Grid_Layout.TextMatrix(Jsqte, Sydz("003", GridStr1(), Szzls1)) = Trim("" & RecTemp!UnitName)             '计量单位
  1430.                     Grid_Layout.TextMatrix(Jsqte, Sydz("004", GridStr1(), Szzls1)) = IIf(Val(RecTemp!UnitPrice) = 0, "", RecTemp!UnitPrice)        '单价
  1431.                     Grid_Layout.TextMatrix(Jsqte, Sydz("005", GridStr1(), Szzls1)) = IIf(Val(RecTemp!Quantity) = 0, "", RecTemp!Quantity)          '数量
  1432.                     Grid_Layout.TextMatrix(Jsqte, Sydz("006", GridStr1(), Szzls1)) = Trim("" & RecTemp!Remark)               '备注
  1433.                     Grid_Layout.RowHeight(Jsqte) = Sjhgd1
  1434.                     RecTemp.MoveNext
  1435.                     Jsqte = Jsqte + 1
  1436.                 Loop
  1437.                 If RecTemp.RecordCount >= GridInf1(3) Then
  1438.                     Grid_Layout.AddItem ""
  1439.                     Grid_Layout.RowHeight(Jsqte) = Sjhgd1
  1440.                 Else
  1441.                     Grid_Layout.Rows = 16
  1442.                 End If
  1443.                 
  1444.                 '包装参数
  1445.                 Sqlstr = "SELECT Cask_Appertain.*,Gy_Material.MName,Gy_Material.Model,Gy_UnitSet.UnitName " & _
  1446.                         "FROM Gy_Material INNER JOIN Cask_Appertain ON Gy_Material.MNumber =" & _
  1447.                         "Cask_Appertain.AppertainCode LEFT OUTER JOIN Gy_UnitSet ON Gy_Material.PrimaryUnit =" & _
  1448.                         "Gy_UnitSet.UnitCode Where Gy_Material.StopFlag<>1 and Cask_Appertain.WrappageCode='" & Trim(LrText(0).Text) & "' and DataType=2"
  1450.                 Set RecTemp = Cw_DataEnvi.DataConnect.Execute(Sqlstr)
  1451.                 Jsqte = Grid_Datum.FixedRows
  1452.                 Do While Not RecTemp.EOF
  1453.                       If Jsqte >= Grid_Datum.Rows Then
  1454.                          Grid_Datum.AddItem ""
  1455.                       End If
  1456.                     Grid_Datum.TextMatrix(Jsqte, 0) = "*"
  1457.                     
  1458.                     Grid_Datum.TextMatrix(Jsqte, Sydz("001", GridStr2(), Szzls2)) = Trim("" & RecTemp!AppertainCode) '物料编号
  1459.                     Grid_Datum.TextMatrix(Jsqte, Sydz("002", GridStr2(), Szzls2)) = Trim("" & RecTemp!MName)         '物料名称
  1460.                     Grid_Datum.TextMatrix(Jsqte, Sydz("003", GridStr2(), Szzls2)) = Trim("" & RecTemp!model)         '规格型号
  1461.                     Grid_Datum.TextMatrix(Jsqte, Sydz("004", GridStr2(), Szzls2)) = Trim("" & RecTemp!UnitName)      '计量单位
  1462.                     Grid_Datum.TextMatrix(Jsqte, Sydz("005", GridStr2(), Szzls2)) = IIf(Val(RecTemp!UnitPrice) = 0, "", RecTemp!UnitPrice) '单价
  1463.                     Grid_Datum.TextMatrix(Jsqte, Sydz("006", GridStr2(), Szzls2)) = IIf(Val(RecTemp!Quantity) = 0, "", RecTemp!Quantity)          '数量
  1464.                     Grid_Datum.TextMatrix(Jsqte, Sydz("007", GridStr2(), Szzls2)) = Trim("" & RecTemp!Remark)        '备注
  1465.                     Grid_Datum.RowHeight(Jsqte) = Sjhgd2
  1466.                     RecTemp.MoveNext
  1467.                     Jsqte = Jsqte + 1
  1468.                 Loop
  1469.                 If RecTemp.RecordCount >= GridInf2(3) Then
  1470.                     Grid_Datum.AddItem ""
  1471.                     Grid_Datum.RowHeight(Jsqte) = Sjhgd2
  1472.                 Else
  1473.                     Grid_Datum.Rows = 16
  1474.                 End If
  1475.             Else
  1476.                 Tsxx = "该记录已经被其他人删除,请刷新当前数据!"
  1477.                 Call Xtxxts(Tsxx, 0, 4)
  1478.                 Call Cancel
  1479.                 TextChangeLock = False
  1480.                 Exit Function
  1481.             End If
  1482.             
  1483.         End With
  1484.         
  1485.     End If
  1486.     
  1487.     Cshlrxx = True
  1488.     TextChangeLock = False
  1489.     
  1490. End Function
  1492. Private Sub Scdqjl()                 '删 除 当 前 记 录
  1494.     Dim yhAnswer As Integer
  1495.     '判断用户是否有此功能执行权限,如有则写上机日志(进入)
  1496.     If Not Security_Log(Str_RightEdit, Xtczybm, 1, True) Then
  1497.         Exit Sub
  1498.     End If
  1499.     '非数据行不能删除
  1500.     If CzxsGrid.Row < CzxsGrid.FixedRows Then
  1501.         Exit Sub
  1502.     End If
  1503.   
  1504.     '用户确认是否删除记录
  1505.     Tsxx = "请确认是否删除当前记录?"
  1506.     yhAnswer = Xtxxts(Tsxx, 2, 2)
  1507.     
  1508.     If yhAnswer = 2 Then
  1509.         Exit Sub
  1510.     End If
  1511.   
  1512.     On Error GoTo Cwcl
  1513.   
  1514.     Cw_DataEnvi.DataConnect.BeginTrans
  1515.   
  1516.     '[以下需自定义部分
  1517.     
  1518.     Cw_DataEnvi.DataConnect.Execute "delete Cask_Appertain where WrappageCode = '" + Trim(CzxsGrid.TextMatrix(CzxsGrid.Row, Sydz("001", GridStr(), Szzls))) + "'"
  1519.     Cw_DataEnvi.DataConnect.Execute "delete Cask_Wrappage where WrappageCode = '" + Trim(CzxsGrid.TextMatrix(CzxsGrid.Row, Sydz("001", GridStr(), Szzls))) + "'"
  1520.     '以上为自定义部分]
  1521.   
  1522.     Cw_DataEnvi.DataConnect.CommitTrans
  1523.     
  1524.     CzxsGrid.RemoveItem CzxsGrid.Row
  1525.   
  1526.     Exit Sub
  1527.   
  1528. Cwcl:
  1530.     Cw_DataEnvi.DataConnect.RollbackTrans
  1531.     
  1532.     If Err.Number = -2147217873 Then              '(-2147217873 为SQL Server 2000通过建立外键产生的错误号)
  1533.         Tsxx = "该包装物已经被使用,不能删除!"
  1534.         Call Xtxxts(Tsxx, 0, 1)
  1535.         Exit Sub
  1536.     Else
  1537.         Tsxx = "出现未知情况,该包装物不能被删除!"
  1538.         Call Xtxxts(Tsxx, 0, 1)
  1539.         Exit Sub
  1540.     End If
  1541.     
  1542. End Sub
  1544. '*******************以下区域为编写自定义过程区域**********************
  1545. Private Sub Lrsjhx()                                                   '文本框录入数据回写
  1546.   With Grid_Layout
  1547.    If YdCombo.Visible Then
  1548.     .Text = Trim(YdCombo.Text)
  1549.    End If
  1550.    If Ydtext.Visible Then
  1551.     .Text = Trim(Ydtext.Text)
  1552.    End If
  1553.    
  1554.    '(如果字段录入内容发生变化,则打开有效性判断锁)
  1555.    If Zdlrqnr1 <> Trim(.Text) Then
  1556.       Yxxpdlock1 = False
  1557.       Hyxxpdlock1 = False
  1558.    End If
  1559.    
  1560.    '如果字段录入内容不为空则写数据行有效性标志
  1561.    
  1562.    If Len(Trim(.Text)) <> 0 Then
  1563.       Call Xyxhbz(.Row)
  1564.    End If
  1565.    
  1566.    '隐藏文本框,帮助按钮,列表组合框
  1567.    Call Ycwbk
  1568.    
  1569.   End With
  1570. End Sub
  1571. Private Sub Lrsjhx2()                                                   '文本框录入数据回写
  1572.   With Grid_Datum
  1573.    If YdCombo2.Visible Then
  1574.     .Text = Trim(YdCombo2.Text)
  1575.    End If
  1576.    If Ydtext2.Visible Then
  1577.     .Text = Trim(Ydtext2.Text)
  1578.    End If
  1579.    
  1580.    '(如果字段录入内容发生变化,则打开有效性判断锁)
  1581.    If Zdlrqnr2 <> Trim(.Text) Then
  1582.       Yxxpdlock2 = False
  1583.       Hyxxpdlock2 = False
  1584.    End If
  1585.    
  1586.    '如果字段录入内容不为空则写数据行有效性标志
  1587.    
  1588.    If Len(Trim(.Text)) <> 0 Then
  1589.       Call Xyxhbz2(.Row)
  1590.    End If
  1591.    
  1592.    '隐藏文本框,帮助按钮,列表组合框
  1593.    Call Ycwbk2
  1594.    
  1595.   End With
  1596. End Sub
  1597. Private Sub Xyxhbz(sjh As Long)                                         '写行有效性标志,并判断是否增行
  1598.    With Grid_Layout
  1599.     If .TextMatrix(sjh, 0) = "*" Then
  1600.        Exit Sub
  1601.     End If
  1602.     .TextMatrix(sjh, 0) = "*"
  1603.     If sjh >= .Rows - Fzxwghs1 - 1 Then
  1604.        .AddItem ""
  1605.        .RowHeight(.Rows - 1) = Sjhgd
  1606.     End If
  1607.    End With
  1608. End Sub
  1609. Private Sub Xyxhbz2(sjh As Long)                                         '写行有效性标志,并判断是否增行
  1610.    With Grid_Datum
  1611.     If .TextMatrix(sjh, 0) = "*" Then
  1612.        Exit Sub
  1613.     End If
  1614.     .TextMatrix(sjh, 0) = "*"
  1615.     If sjh >= .Rows - Fzxwghs2 - 1 Then
  1616.        .AddItem ""
  1617.        .RowHeight(.Rows - 1) = Sjhgd
  1618.     End If
  1619.    End With
  1620. End Sub
  1621. Private Sub Ycwbk()                      '隐藏文本框,帮助按钮,列表组合框
  1622.  Valilock1 = True
  1623.    Ydtext.Visible = False
  1624.    YdCombo.Visible = False
  1625.    Ydcommand.Visible = False
  1626. End Sub
  1627. Private Sub Ycwbk2()                      '隐藏文本框,帮助按钮,列表组合框
  1628.  Valilock2 = True
  1629.    Ydtext2.Visible = False
  1630.    YdCombo2.Visible = False
  1631.    Ydcommand22.Visible = False
  1632. End Sub
  1633. Private Sub xswbk()                       '在当前选中单元显示文本框,列表框,帮助按钮(通用)
  1634.   Dim Wbkpy As Integer, Wbkpy1 As Integer '文本框偏移量
  1635.   If CBoolean Then
  1636.     Exit Sub
  1637.   End If
  1638.   '如果单据操作状态为浏览状态则不能显示录入载体
  1639.    If Grid_Layout.Row < Grid_Layout.FixedRows Then
  1640.      Exit Sub
  1641.    End If
  1642.   If Grid_Layout.ColHidden(Grid_Layout.Col) Then
  1643.    Exit Sub
  1644.   End If
  1645.   '显示文本框前返回有效行列（解决滚动条问题）
  1646.   Call Xldqh
  1647.   Call Xldql
  1648.   
  1649.   '隐藏文本框,帮助按钮,列表组合框
  1650.   Call Ycwbk
  1651.   
  1652.   With Grid_Layout
  1653.     Dqlrwgh1 = .Row
  1654.     Dqlrwgl1 = .Col
  1655.     If Not GridBoolean1(.Col, 1) Or .Row < .FixedRows Then
  1656.        Exit Sub
  1657.     End If
  1658.      
  1659.     Wbkpy = 30
  1660.     Wbkpy1 = 15
  1661.     
  1662.     If GridBoolean1(.Col, 3) Then
  1663.        YdCombo.Left = .CellLeft + .Left + Wbkpy
  1664.        YdCombo.Top = .CellTop + .Top + Wbkpy
  1665.        YdCombo.Width = .CellWidth - Wbkpy1
  1666.        Call Wbkcl
  1667.        YdCombo.Visible = True
  1668.        YdCombo.SetFocus
  1669.        Ydcommand.Visible = False
  1670.        Ydtext.Visible = False
  1671.     Else
  1672.       If GridBoolean1(.Col, 2) Then
  1673.         Ydcommand.Left = .Left + .CellLeft + .CellWidth - Ydcommand.Width + Wbkpy
  1674.         Ydcommand.Top = .Top + .CellTop + .CellHeight - Ydcommand.Height + Wbkpy
  1675.         Ydcommand.Visible = True
  1676.       Else
  1677.         Ydcommand.Visible = False
  1678.       End If
  1679.      
  1680.       Ydtext.Left = .CellLeft + .Left + Wbkpy
  1681.       Ydtext.Top = .CellTop + .Top + Wbkpy
  1682.       If Ydcommand.Visible Then
  1683.         If Sfblbzkd1 Then
  1684.          Ydtext.Width = .CellWidth - Ydcommand.Width
  1685.         Else
  1686.          Ydtext.Width = .CellWidth - Wbkpy1
  1687.         End If
  1688.       Else
  1689.          Ydtext.Width = .CellWidth - Wbkpy1
  1690.       End If
  1691.       Ydtext.Height = .CellHeight - Wbkpy1
  1692.       
  1693.       If GridInt1(.Col, 2) <> 0 Then
  1694.          Ydtext.MaxLength = GridInt1(.Col, 2)
  1695.       Else
  1696.          Ydtext.MaxLength = 3000
  1697.       End If
  1698.       
  1699.       Call Wbkcl
  1700.       On Error Resume Next
  1701.       Ydtext.Visible = True
  1702.       Ydtext.SetFocus
  1703.     End If
  1704.     Dqtoprow1 = .TopRow
  1705.     Dqleftcol1 = .LeftCol
  1706.     
  1707.     '重置锁值
  1708.     Valilock1 = False
  1709.     Wbkbhlock1 = False
  1710.  End With
  1711. End Sub
  1712. Private Sub xswbk2()                       '在当前选中单元显示文本框,列表框,帮助按钮(通用)
  1713.   Dim Wbkpy As Integer, Wbkpy1 As Integer '文本框偏移量
  1714.   If CBoolean Then
  1715.     Exit Sub
  1716.   End If
  1717.   '如果单据操作状态为浏览状态则不能显示录入载体
  1718.    If Grid_Datum.Row < Grid_Datum.FixedRows Then
  1719.      Exit Sub
  1720.    End If
  1721.   If Grid_Datum.ColHidden(Grid_Datum.Col) Then
  1722.    Exit Sub
  1723.   End If
  1724.   '显示文本框前返回有效行列（解决滚动条问题）
  1725.   Call Xldqh2
  1726.   Call Xldql2
  1727.   
  1728.   '隐藏文本框,帮助按钮,列表组合框
  1729.   Call Ycwbk2
  1730.   
  1731.   With Grid_Datum
  1732.     Dqlrwgh2 = .Row
  1733.     Dqlrwgl2 = .Col
  1734.     If Not GridBoolean2(.Col, 1) Or .Row < .FixedRows Then
  1735.        Exit Sub
  1736.     End If
  1737.      
  1738.     Wbkpy = 30
  1739.     Wbkpy1 = 15
  1740.     
  1741.     If GridBoolean2(.Col, 3) Then
  1742.        YdCombo2.Left = .CellLeft + .Left + Wbkpy
  1743.        YdCombo2.Top = .CellTop + .Top + Wbkpy
  1744.        YdCombo2.Width = .CellWidth - Wbkpy1
  1745.        Call Wbkcl2
  1746.        YdCombo2.Visible = True
  1747.        YdCombo2.SetFocus
  1748.        Ydcommand22.Visible = False
  1749.        Ydtext2.Visible = False
  1750.     Else
  1751.       If GridBoolean2(.Col, 2) Then
  1752.         Ydcommand22.Left = .Left + .CellLeft + .CellWidth - Ydcommand22.Width + Wbkpy
  1753.         Ydcommand22.Top = .Top + .CellTop + .CellHeight - Ydcommand22.Height + Wbkpy
  1754.         Ydcommand22.Visible = True
  1755.       Else
  1756.         Ydcommand22.Visible = False
  1757.       End If
  1758.      
  1759.       Ydtext2.Left = .CellLeft + .Left + Wbkpy
  1760.       Ydtext2.Top = .CellTop + .Top + Wbkpy
  1761.       If Ydcommand22.Visible Then
  1762.         If Sfblbzkd2 Then
  1763.          Ydtext2.Width = .CellWidth - Ydcommand22.Width
  1764.         Else
  1765.          Ydtext2.Width = .CellWidth - Wbkpy1
  1766.         End If
  1767.       Else
  1768.          Ydtext2.Width = .CellWidth - Wbkpy1
  1769.       End If
  1770.       Ydtext2.Height = .CellHeight - Wbkpy1
  1771.       
  1772.       If GridInt2(.Col, 2) <> 0 Then
  1773.          Ydtext2.MaxLength = GridInt2(.Col, 2)
  1774.       Else
  1775.          Ydtext2.MaxLength = 3000
  1776.       End If
  1777.       
  1778.       Call Wbkcl2
  1779.       
  1780.       
  1781.       Ydtext2.Visible = True
  1782.       Ydtext2.SetFocus
  1783.       
  1784.       
  1785.     End If
  1786.     Dqtoprow2 = .TopRow
  1787.     Dqleftcol2 = .LeftCol
  1788.     
  1789.     '重置锁值
  1790.     Valilock2 = False
  1791.     Wbkbhlock2 = False
  1792.  End With
  1793. End Sub
  1794. Private Sub Wbkcl()                                                 '文本框录入之前处理(根据实际情况)
  1795.  Dim xswbrr As String
  1796.  With Grid_Layout
  1797.     Zdlrqnr1 = Trim(.Text)
  1798.     xswbrr = Trim(.Text)
  1799.     
  1800.     If GridBoolean1(.Col, 3) Then   '列表框录入
  1801.     
  1802.        '填充列表框程序
  1803.         Call FillCombo(YdCombo, GridStr1(.Col, 5), xswbrr, 0)
  1804.     Else
  1805.        Wbkbhlock1 = True
  1806.        
  1807.          '====以下为用户自定义
  1808.            Ydtext.Text = xswbrr
  1809.          '====以上为用户自定义
  1810.          
  1811.        Wbkbhlock1 = False
  1812.        Ydtext.SelStart = Len(Ydtext.Text)
  1813.     End If
  1814.  End With
  1815. End Sub
  1816. Private Sub Wbkcl2()                                                 '文本框录入之前处理(根据实际情况)
  1817.  Dim xswbrr As String
  1818.  With Grid_Datum
  1819.     Zdlrqnr2 = Trim(.Text)
  1820.     xswbrr = Trim(.Text)
  1821.     
  1822.     If GridBoolean2(.Col, 3) Then   '列表框录入
  1823.     
  1824.        '填充列表框程序
  1825.         Call FillCombo(YdCombo2, GridStr2(.Col, 5), xswbrr, 0)
  1826.     Else
  1827.        Wbkbhlock2 = True
  1828.        
  1829.          '====以下为用户自定义
  1830.            Ydtext2.Text = xswbrr
  1831.          '====以上为用户自定义
  1832.          
  1833.        Wbkbhlock2 = False
  1834.        Ydtext2.SelStart = Len(Ydtext2.Text)
  1835.     End If
  1836.  End With
  1837. End Sub
  1838. Private Sub Xldqh()                                                      '显露当前行
  1839.   Dim Toprowte As Long
  1840.   With Grid_Layout
  1841.     Toprowte = 0
  1842.     Do While .CellTop + .RowHeight(.Row) + Fzxwghs1 * Sjhgd > .Height And .TopRow <> Toprowte
  1843.        Toprowte = .TopRow
  1844.        .TopRow = .TopRow + 1
  1845.     Loop
  1846.     Toprowte = 0
  1847.     Do While .CellTop < .FixedRows * .RowHeight(0) And .TopRow <> Toprowte
  1848.        Toprowte = .TopRow
  1849.        .TopRow = .TopRow - 1
  1850.     Loop
  1851.   End With
  1852. End Sub
  1853. Private Sub Xldqh2()                                                      '显露当前行
  1854.   Dim Toprowte As Long
  1855.   With Grid_Datum
  1856.     Toprowte = 0
  1857.     Do While .CellTop + .RowHeight(.Row) + Fzxwghs2 * Sjhgd > .Height And .TopRow <> Toprowte
  1858.        Toprowte = .TopRow
  1859.        .TopRow = .TopRow + 1
  1860.     Loop
  1861.     Toprowte = 0