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

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

企业管理

开发平台：

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 Cl_ProdPrice 
  5.    Caption         =   "产品成本调整"
  6.    ClientHeight    =   6555
  7.    ClientLeft      =   60
  8.    ClientTop       =   345
  9.    ClientWidth     =   11805
  10.    HelpContextID   =   130404
  11.    Icon            =   "处理_产品成本调整.frx":0000
  12.    KeyPreview      =   -1  'True
  13.    LinkTopic       =   "Form2"
  14.    MDIChild        =   -1  'True
  15.    ScaleHeight     =   6555
  16.    ScaleWidth      =   11805
  17.    WindowState     =   2  'Maximized
  18.    Begin VB.CommandButton Ydcommand 
  19.       Height          =   300
  20.       Left            =   10530
  21.       Picture         =   "处理_产品成本调整.frx":1042
  22.       Style           =   1  'Graphical
  23.       TabIndex        =   4
  24.       Top             =   1830
  25.       Visible         =   0   'False
  26.       Width           =   300
  27.    End
  28.    Begin VB.Timer Timer1 
  29.       Interval        =   1
  30.       Left            =   10020
  31.       Top             =   1410
  32.    End
  33.    Begin VB.ComboBox YdCombo 
  34.       Height          =   315
  35.       Left            =   8790
  36.       Style           =   2  'Dropdown List
  37.       TabIndex        =   3
  38.       Top             =   1830
  39.       Visible         =   0   'False
  40.       Width           =   1695
  41.    End
  42.    Begin VB.TextBox Ydtext 
  43.       BackColor       =   &H00C0FFFF&
  44.       BorderStyle     =   0  'None
  45.       Height          =   300
  46.       Left            =   8790
  47.       MultiLine       =   -1  'True
  48.       TabIndex        =   2
  49.       Top             =   1440
  50.       Visible         =   0   'False
  51.       Width           =   1185
  52.    End
  53.    Begin VB.PictureBox Pic_Title 
  54.       BackColor       =   &H00FFFFFF&
  55.       Height          =   1125
  56.       Left            =   0
  57.       Picture         =   "处理_产品成本调整.frx":13CC
  58.       ScaleHeight     =   1065
  59.       ScaleWidth      =   11715
  60.       TabIndex        =   0
  61.       Top             =   600
  62.       Width           =   11775
  63.       Begin VB.Label Lbl_TitleText 
  64.          AutoSize        =   -1  'True
  65.          BackStyle       =   0  'Transparent
  66.          Caption         =   "仓库"
  67.          ForeColor       =   &H00000000&
  68.          Height          =   195
  69.          Index           =   1
  70.          Left            =   1230
  71.          TabIndex        =   12
  72.          Top             =   810
  73.          Width           =   360
  74.       End
  75.       Begin VB.Label Lbl_TitleMess 
  76.          AutoSize        =   -1  'True
  77.          BackStyle       =   0  'Transparent
  78.          Caption         =   "仓库:"
  79.          Height          =   195
  80.          Index           =   1
  81.          Left            =   3510
  82.          TabIndex        =   11
  83.          Top             =   810
  84.          Width           =   405
  85.       End
  86.       Begin VB.Label Lbl_TitleMess 
  87.          AutoSize        =   -1  'True
  88.          BackStyle       =   0  'Transparent
  89.          Caption         =   "月份:"
  90.          Height          =   195
  91.          Index           =   0
  92.          Left            =   780
  93.          TabIndex        =   10
  94.          Top             =   810
  95.          Width           =   405
  96.       End
  97.       Begin VB.Label Lbl_TitleText 
  98.          AutoSize        =   -1  'True
  99.          BackStyle       =   0  'Transparent
  100.          Caption         =   "仓库"
  101.          ForeColor       =   &H00000000&
  102.          Height          =   195
  103.          Index           =   0
  104.          Left            =   3960
  105.          TabIndex        =   9
  106.          Top             =   810
  107.          Width           =   360
  108.       End
  109.       Begin VB.Label tsLabel 
  110.          AutoSize        =   -1  'True
  111.          BackColor       =   &H80000018&
  112.          BackStyle       =   0  'Transparent
  113.          Caption         =   "产品列表"
  114.          BeginProperty Font 
  115.             Name            =   "宋体"
  116.             Size            =   14.25
  117.             Charset         =   134
  118.             Weight          =   700
  119.             Underline       =   0   'False
  120.             Italic          =   0   'False
  121.             Strikethrough   =   0   'False
  122.          EndProperty
  123.          ForeColor       =   &H00000000&
  124.          Height          =   285
  125.          Index           =   4
  126.          Left            =   480
  127.          TabIndex        =   1
  128.          Top             =   180
  129.          Width           =   1200
  130.       End
  131.    End
  132.    Begin VSFlex8Ctl.VSFlexGrid WglrGrid 
  133.       Height          =   5085
  134.       Left            =   60
  135.       TabIndex        =   5
  136.       Top             =   1800
  137.       Width           =   8625
  138.       _cx             =   5080
  139.       _cy             =   5080
  140.       Appearance      =   1
  141.       BorderStyle     =   1
  142.       Enabled         =   -1  'True
  143.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  144.          Name            =   "宋体"
  145.          Size            =   9
  146.          Charset         =   134
  147.          Weight          =   400
  148.          Underline       =   0   'False
  149.          Italic          =   0   'False
  150.          Strikethrough   =   0   'False
  151.       EndProperty
  152.       MousePointer    =   0
  153.       BackColor       =   16777215
  154.       ForeColor       =   -2147483640
  155.       BackColorFixed  =   12632256
  156.       ForeColorFixed  =   -2147483630
  157.       BackColorSel    =   -2147483635
  158.       ForeColorSel    =   -2147483634
  159.       BackColorBkg    =   -2147483636
  160.       BackColorAlternate=   16777215
  161.       GridColor       =   -2147483633
  162.       GridColorFixed  =   -2147483632
  163.       TreeColor       =   -2147483632
  164.       FloodColor      =   192
  165.       SheetBorder     =   -2147483642
  166.       FocusRect       =   1
  167.       HighLight       =   1
  168.       AllowSelection  =   -1  'True
  169.       AllowBigSelection=   -1  'True
  170.       AllowUserResizing=   0
  171.       SelectionMode   =   0
  172.       GridLines       =   1
  173.       GridLinesFixed  =   2
  174.       GridLineWidth   =   1
  175.       Rows            =   50
  176.       Cols            =   10
  177.       FixedRows       =   1
  178.       FixedCols       =   1
  179.       RowHeightMin    =   0
  180.       RowHeightMax    =   0
  181.       ColWidthMin     =   0
  182.       ColWidthMax     =   0
  183.       ExtendLastCol   =   0   'False
  184.       FormatString    =   ""
  185.       ScrollTrack     =   0   'False
  186.       ScrollBars      =   3
  187.       ScrollTips      =   0   'False
  188.       MergeCells      =   0
  189.       MergeCompare    =   0
  190.       AutoResize      =   -1  'True
  191.       AutoSizeMode    =   0
  192.       AutoSearch      =   0
  193.       AutoSearchDelay =   2
  194.       MultiTotals     =   -1  'True
  195.       SubtotalPosition=   1
  196.       OutlineBar      =   0
  197.       OutlineCol      =   0
  198.       Ellipsis        =   0
  199.       ExplorerBar     =   0
  200.       PicturesOver    =   0   'False
  201.       FillStyle       =   0
  202.       RightToLeft     =   0   'False
  203.       PictureType     =   0
  204.       TabBehavior     =   0
  205.       OwnerDraw       =   0
  206.       Editable        =   0
  207.       ShowComboButton =   1
  208.       WordWrap        =   0   'False
  209.       TextStyle       =   0
  210.       TextStyleFixed  =   0
  211.       OleDragMode     =   0
  212.       OleDropMode     =   0
  213.       DataMode        =   0
  214.       VirtualData     =   -1  'True
  215.       DataMember      =   ""
  216.       ComboSearch     =   3
  217.       AutoSizeMouse   =   -1  'True
  218.       FrozenRows      =   0
  219.       FrozenCols      =   0
  220.       AllowUserFreezing=   0
  221.       BackColorFrozen =   0
  222.       ForeColorFrozen =   0
  223.       WallPaperAlignment=   9
  224.       AccessibleName  =   ""
  225.       AccessibleDescription=   ""
  226.       AccessibleValue =   ""
  227.       AccessibleRole  =   24
  228.       Begin MSComctlLib.ImageList ImageList1 
  229.          Left            =   2340
  230.          Top             =   330
  231.          _ExtentX        =   1005
  232.          _ExtentY        =   1005
  233.          BackColor       =   -2147483643
  234.          ImageWidth      =   16
  235.          ImageHeight     =   16
  236.          MaskColor       =   12632256
  237.          _Version        =   393216
  238.          BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628} 
  239.             NumListImages   =   30
  240.             BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  241.                Picture         =   "处理_产品成本调整.frx":35490
  242.                Key             =   "sz"
  243.             EndProperty
  244.             BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  245.                Picture         =   "处理_产品成本调整.frx":3582A
  246.                Key             =   "dy"
  247.             EndProperty
  248.             BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  249.                Picture         =   "处理_产品成本调整.frx":35BC4
  250.                Key             =   "yl"
  251.             EndProperty
  252.             BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  253.                Picture         =   "处理_产品成本调整.frx":35F5E
  254.                Key             =   "xg"
  255.             EndProperty
  256.             BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  257.                Picture         =   "处理_产品成本调整.frx":362F8
  258.                Key             =   "zh"
  259.             EndProperty
  260.             BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  261.                Picture         =   "处理_产品成本调整.frx":36692
  262.                Key             =   "sh"
  263.             EndProperty
  264.             BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  265.                Picture         =   "处理_产品成本调整.frx":36A2C
  266.                Key             =   "bc"
  267.             EndProperty
  268.             BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  269.                Picture         =   "处理_产品成本调整.frx":36DC6
  270.                Key             =   "fq"
  271.             EndProperty
  272.             BeginProperty ListImage9 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  273.                Picture         =   "处理_产品成本调整.frx":37160
  274.                Key             =   "bz"
  275.             EndProperty
  276.             BeginProperty ListImage10 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  277.                Picture         =   "处理_产品成本调整.frx":374FA
  278.                Key             =   "tc"
  279.             EndProperty
  280.             BeginProperty ListImage11 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  281.                Picture         =   "处理_产品成本调整.frx":37894
  282.                Key             =   "bcgs"
  283.             EndProperty
  284.             BeginProperty ListImage12 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  285.                Picture         =   "处理_产品成本调整.frx":37C2E
  286.                Key             =   "mrlk"
  287.             EndProperty
  288.             BeginProperty ListImage13 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  289.                Picture         =   "处理_产品成本调整.frx":37FC8
  290.                Key             =   "xsxm"
  291.             EndProperty
  292.             BeginProperty ListImage14 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  293.                Picture         =   "处理_产品成本调整.frx":38362
  294.                Key             =   "first"
  295.             EndProperty
  296.             BeginProperty ListImage15 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  297.                Picture         =   "处理_产品成本调整.frx":386FC
  298.                Key             =   "prev"
  299.             EndProperty
  300.             BeginProperty ListImage16 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  301.                Picture         =   "处理_产品成本调整.frx":38A96
  302.                Key             =   "next"
  303.             EndProperty
  304.             BeginProperty ListImage17 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  305.                Picture         =   "处理_产品成本调整.frx":38E30
  306.                Key             =   "last"
  307.             EndProperty
  308.             BeginProperty ListImage18 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  309.                Picture         =   "处理_产品成本调整.frx":391CA
  310.                Key             =   "xx"
  311.             EndProperty
  312.             BeginProperty ListImage19 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  313.                Picture         =   "处理_产品成本调整.frx":39564
  314.                Key             =   "define"
  315.             EndProperty
  316.             BeginProperty ListImage20 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  317.                Picture         =   "处理_产品成本调整.frx":398FE
  318.                Key             =   "exec"
  319.             EndProperty
  320.             BeginProperty ListImage21 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  321.                Picture         =   "处理_产品成本调整.frx":39C98
  322.                Key             =   "xz"
  323.             EndProperty
  324.             BeginProperty ListImage22 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  325.                Picture         =   "处理_产品成本调整.frx":3A032
  326.                Key             =   "sc"
  327.             EndProperty
  328.             BeginProperty ListImage23 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  329.                Picture         =   "处理_产品成本调整.frx":3A3CC
  330.                Key             =   "sx"
  331.             EndProperty
  332.             BeginProperty ListImage24 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  333.                Picture         =   "处理_产品成本调整.frx":3A766
  334.                Key             =   "cx"
  335.             EndProperty
  336.             BeginProperty ListImage25 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  337.                Picture         =   "处理_产品成本调整.frx":3AB00
  338.                Key             =   "zd"
  339.             EndProperty
  340.             BeginProperty ListImage26 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  341.                Picture         =   "处理_产品成本调整.frx":3AE9A
  342.                Key             =   "dz"
  343.             EndProperty
  344.             BeginProperty ListImage27 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  345.                Picture         =   "处理_产品成本调整.frx":3B234
  346.                Key             =   "ph"
  347.             EndProperty
  348.             BeginProperty ListImage28 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  349.                Picture         =   "处理_产品成本调整.frx":3B5CE
  350.                Key             =   "fz"
  351.             EndProperty
  352.             BeginProperty ListImage29 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  353.                Picture         =   "处理_产品成本调整.frx":3B968
  354.                Key             =   "dw"
  355.             EndProperty
  356.             BeginProperty ListImage30 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  357.                Picture         =   "处理_产品成本调整.frx":3BD02
  358.                Key             =   "tz"
  359.             EndProperty
  360.          EndProperty
  361.       End
  362.    End
  363.    Begin MSComctlLib.Toolbar Tlb_Action 
  364.       Align           =   1  'Align Top
  365.       Height          =   555
  366.       Left            =   0
  367.       TabIndex        =   6
  368.       Top             =   0
  369.       Width           =   11805
  370.       _ExtentX        =   20823
  371.       _ExtentY        =   979
  372.       ButtonWidth     =   820
  373.       ButtonHeight    =   926
  374.       AllowCustomize  =   0   'False
  375.       Wrappable       =   0   'False
  376.       Appearance      =   1
  377.       Style           =   1
  378.       ImageList       =   "ImageList1"
  379.       _Version        =   393216
  380.       BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628} 
  381.          NumButtons      =   10
  382.          BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  383.             Caption         =   "设置"
  384.             Key             =   "ymsz"
  385.             Object.ToolTipText     =   "打印页面设置"
  386.             ImageKey        =   "sz"
  387.          EndProperty
  388.          BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  389.             Caption         =   "打印"
  390.             Key             =   "dy"
  391.             Object.ToolTipText     =   "打印当前单据或Ctrl+P"
  392.             ImageKey        =   "dy"
  393.          EndProperty
  394.          BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  395.             Caption         =   "预览"
  396.             Key             =   "yl"
  397.             ImageKey        =   "yl"
  398.          EndProperty
  399.          BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  400.             Style           =   3
  401.          EndProperty
  402.          BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  403.             Caption         =   "查询"
  404.             Key             =   "cx"
  405.             ImageKey        =   "cx"
  406.          EndProperty
  407.          BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  408.             Style           =   4
  409.          EndProperty
  410.          BeginProperty Button7 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  411.             Caption         =   "调整"
  412.             Key             =   "tz"
  413.             ImageKey        =   "tz"
  414.          EndProperty
  415.          BeginProperty Button8 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  416.             Style           =   4
  417.          EndProperty
  418.          BeginProperty Button9 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  419.             Caption         =   "帮助"
  420.             Key             =   "bz"
  421.             ImageKey        =   "bz"
  422.          EndProperty
  423.          BeginProperty Button10 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  424.             Caption         =   "退出"
  425.             Key             =   "fh"
  426.             ImageKey        =   "tc"
  427.          EndProperty
  428.       EndProperty
  429.       BorderStyle     =   1
  430.       Begin MSComctlLib.Toolbar GsToolbar 
  431.          Height          =   525
  432.          Left            =   9150
  433.          TabIndex        =   7
  434.          Top             =   0
  435.          Width           =   1755
  436.          _ExtentX        =   3096
  437.          _ExtentY        =   926
  438.          ButtonWidth     =   1455
  439.          ButtonHeight    =   926
  440.          AllowCustomize  =   0   'False
  441.          Appearance      =   1
  442.          Style           =   1
  443.          ImageList       =   "ImageList1"
  444.          _Version        =   393216
  445.          BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628} 
  446.             NumButtons      =   2
  447.             BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  448.                Caption         =   "保存格式"
  449.                Key             =   "bcgs"
  450.                ImageKey        =   "bcgs"
  451.             EndProperty
  452.             BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  453.                Caption         =   "默认列宽"
  454.                Key             =   "hfmrgs"
  455.                ImageKey        =   "mrlk"
  456.             EndProperty
  457.          EndProperty
  458.       End
  459.    End
  460.    Begin VB.Label Lab_OperStatus 
  461.       BackColor       =   &H000080FF&
  462.       Caption         =   "1"
  463.       Height          =   345
  464.       Left            =   10500
  465.       TabIndex        =   8
  466.       Top             =   1440
  467.       Visible         =   0   'False
  468.       Width           =   345
  469.    End
  470. End
  471. Attribute VB_Name = "Cl_ProdPrice"
  472. Attribute VB_GlobalNameSpace = False
  473. Attribute VB_Creatable = False
  474. Attribute VB_PredeclaredId = True
  475. Attribute VB_Exposed = False
  476. '**************************************************************************************
  477. '*    模 块 名 称 :产品成本调整
  478. '*    功 能 描 述 :
  479. '*    程序员姓名  :白凤英
  480. '*    最后修改人  :白凤英
  481. '*    最后修改时间:2001/12/24
  482. '*    备        注:程序中所有依实际情况自定义部分均用[>> <<]括起
  483. '*
  484. '*    1.每次调入外部功能窗体，均要加锁ChangeLock=True,窗体关闭后解锁ChangeLock=false
  485. '*
  486. '*    3.Lab_OperStatus 用此标签来标识单据录入状态(默认值为1) 1-浏览 2-修改
  487. '*
  488. '***************************************************************************************
  489.  
  490. '以下为自定义变量
  491.  
  492. '其它固定使用变量
  493. Dim Tsxx As String                              '系统信息提示(Fixed)
  494. Dim ReportTitle As String                       '报表主标题(Fixed)
  495. Dim Str_QueryCondi As String                    '用户录入查询条件
  496.    
  497. '以下为固定使用变量(网格)
  498. Dim Cxnrrec As New ADODB.Recordset              '显示查询内容动态集
  499. Dim Dyymctbl As New DY_Dyymsz                   '打印页面窗体变量
  500. Dim GridCode As String                          '显示网格网格代码
  501. Dim GridInf() As Variant                        '整个网格设置信息
  502. Dim Pmbcsjhs As Long                            '屏幕网格保持数据行数(大于等于1)
  503. Dim Fzxwghs As Integer                          '辅助项网格行数(包括合计行)
  504. Dim Sfxshjwg As Boolean                         '是否显示合计网格
  505. Dim Qslz As Long                                '网格隐藏(非操作显示)列数
  506. Dim Sjhgd As Double                             '网格数据行高度
  507. Dim GridBoolean() As Boolean                    '网格列信息(布尔型)
  508. Dim GridStr()  As String                        '网格列信息(字符型)
  509. Dim GridInt() As Integer                        '网格列信息(整型)
  510. Dim Sfblbzkd As Boolean                         '是否保留帮助宽度(字段提供帮助时,是否为按钮保留空间)
  511. Dim Dqlrwgh As Long                             '当前录入数据网格行
  512. Dim Dqlrwgl As Long                             '当前录入数据网格列
  513. Dim Dqlkwgh As Long                             '刚刚离开网格行(不一定为录入行)
  514. Dim Dqlkwgl As Long                             '刚刚离开网格列
  515. Dim Dqtoprow As Long                            '当前录入状态时最上端可视行
  516. Dim Dqleftcol As Long                           '当前录入状态时最左端可视列
  517. Dim Zdlrqnr As String                           '字段录入修改前内容(用来判断内容是否修改)
  518. Dim Wbkbhlock As Boolean                        '文本框改变值锁
  519. Dim Changelock As Boolean                       '网格行列改变控制锁(用来区别用户改变.程序改变)
  520. Dim Gdtlock As Boolean                          '滚动条滚动控制(用来区别用户改变.程序改变)
  521. Dim Yxxpdlock As Boolean                        '字段有效性判断锁(内容不修改不需进行字段有效性判断)
  522. Dim Hyxxpdlock As Boolean                       '行有效性判断锁(字段内容不修改不需进行行有效性判断)
  523. Dim Valilock As Boolean                         '文本框失去焦点是否进行有效性控制(TRUE 为锁定*限用网格录入)
  524. Dim Shsfts As Boolean                           '删除记录行是否提示
  525. Dim Szzls As Integer                            '网格信息数组最大下标值(网格列数-1)
  527. Private Sub Form_KeyPress(KeyAscii As Integer)      '限制录入字符"'"
  529.     Select Case KeyAscii
  530.         Case 39           '屏蔽字符"'"
  531.             KeyAscii = 0
  532.     End Select
  533.     
  534. End Sub
  536. Private Sub Form_Load()                              '窗 体 装 入
  537.   
  538.     '初始化各种锁值(Fixed)
  539.     Changelock = False             '网格行列改变控制锁
  540.     Gdtlock = False                '滚动条滚动控制
  541.     Yxxpdlock = True               '字段有效性判断锁
  542.     Hyxxpdlock = True              '行有效性判断锁
  543.     Wbkbhlock = False              '文本框内容改变锁
  544.      
  545.     '报表主标题及报表编码(Fixed)
  546.     ReportTitle = "产品成本调整"
  547.     XtReportCode = "Chhs_ProdPrice"
  548.     Load Dyymctbl
  549.     
  550.     '调整标题栏及网格、格式工具条位置(Fixed)
  551.     Pic_Title.Left = 40
  552.     Pic_Title.Top = Tlb_Action.Top + Tlb_Action.Height - 10
  553.     WglrGrid.Left = Pic_Title.Left
  554.     WglrGrid.Top = Pic_Title.Top + Pic_Title.Height + 20
  555.     
  556.     '调 入 网 格(Fixed)
  557.     GridCode = "Chhs_ProdPrice"      '网格属性编码
  558.     Call BzWgcsh(WglrGrid, GridCode, GridInf(), GridBoolean(), GridInt(), GridStr())
  559.     
  560.     Qslz = GridInf(1)
  561.     Sjhgd = GridInf(2)
  562.     Pmbcsjhs = GridInf(3)
  563.     Fzxwghs = GridInf(4)
  564.     Sfblbzkd = GridInf(5)
  565.     Shsfts = GridInf(6)
  566.     Sfxshjwg = GridInf(7)
  567.     Szzls = WglrGrid.Cols - 1
  568.     
  569.     '清除表头内容
  570.     Lbl_TitleText(1) = CStr(Xtyear) + "." + CStr(PGNowmon)
  571.     Lbl_TitleText(0) = ""
  572.     
  573.     '设置状态为修改状态
  574.     Lab_OperStatus = "2"
  575.  
  576. End Sub
  578. Private Sub Form_Unload(Cancel As Integer)           '窗体卸载
  579.     If Not Fun_Drfrmyxxpd Then
  580.        Cancel = True
  581.        Exit Sub
  582.     End If
  584.     '卸载条件窗体
  585.     Cl_ProdPriceCond.UnloadCheck.Value = 1
  586.     Unload Cl_ProdPriceCond
  587.     
  588.     '卸载打印页面窗体
  589.     Unload Dyymctbl
  591. End Sub
  593. Private Sub Sub_Query()                              '生成查询结果(Define)
  595.     Dim Rec_Query As Recordset                  '查询结果动态集
  596.     Dim Coljsq As Long                          '网格列计数器
  597.     Dim Jsqte As Long                        '临时动态计数器
  598.     Dim Str1 As String
  599.     Dim NewCombox As ComboItem
  600.     Dim mPeriod As Integer
  601.     
  602.     '以下为自定义部分[
  603.     mPeriod = PGNowmon
  604.     
  605.     With Cl_ProdPriceCond
  607.         '生成查询条件
  608.         Str_QueryCondi = " where a.billcode='1202' and a.inoutflag=1 and chalkitupman='' and  a.kjyear= " & Xtyear & " and period=" & mPeriod
  609.         For Jsqte = 0 To 4
  610.             Select Case Jsqte
  611.                 Case 0  '仓库
  612.                     Str_QueryCondi = Str_QueryCondi & " And a.whcode='" & Trim(.LrText(0).Tag) & "'"
  613.                  Case 1  '存货分类(Like)
  614.                     If Trim(.LrText(1).Text) <> "" Then
  615.                         Str_QueryCondi = Str_QueryCondi & " And a.invsortcode like '" & Trim(.LrText(1).Tag) & "%'"
  616.                     End If
  617.                 Case 2  '查询存货范围(起始)
  618.                     If Trim(.LrText(2).Text) <> "" Then
  619.                         Str_QueryCondi = Str_QueryCondi & " And a.mnumber>='" & Trim(.LrText(2).Text) & "'"
  620.                     End If
  621.                 Case 3  '查询存货范围(终止)
  622.                     If Trim(.LrText(3).Text) <> "" Then
  623.                         Str_QueryCondi = Str_QueryCondi & " And a.mnumber<= '" & Trim(.LrText(3).Text) & "'"
  624.                     End If
  625.                 Case 4  '调整范围
  626.                     If .Opt_Part.Value = True Then
  627.                         Str_QueryCondi = Str_QueryCondi & " And a.price<=0"
  628.                     End If
  629.             End Select
  630.         Next Jsqte
  631.     End With
  633.     WglrGrid.Rows = WglrGrid.FixedRows
  635.     SqlStr = "SELECT Mnumber,Mname,Model,PrimaryUnitName,Sum(FactReceiptQuan) as Quan,Sum(Emoney) as Money FROM Chhs_V_InOut a " & Trim(Str_QueryCondi) & _
  636.               " Group by a.Mnumber,a.Mname,a.Model,a.PrimaryUnitName Order By a.Mnumber"
  637.     Set Rec_Query = Cw_DataEnvi.DataConnect.Execute(SqlStr)
  638.     With Rec_Query
  640.         Do While Not .EOF
  642.             WglrGrid.AddItem ""
  643.             Jsqte = WglrGrid.Rows - 1
  644.             '[>>自定义填充内容
  645.             WglrGrid.TextMatrix(Jsqte, Sydz("001", GridStr(), Szzls)) = Trim(.Fields("Mnumber") & "")
  646.             WglrGrid.TextMatrix(Jsqte, Sydz("002", GridStr(), Szzls)) = Trim(.Fields("Mname") & "")
  647.             WglrGrid.TextMatrix(Jsqte, Sydz("003", GridStr(), Szzls)) = Trim(.Fields("Model") & "")
  648.             WglrGrid.TextMatrix(Jsqte, Sydz("004", GridStr(), Szzls)) = Trim(.Fields("PrimaryUnitName") & "")
  650.             If Not IsNull(.Fields("Quan")) Then
  651.                 If .Fields("Quan") <> 0 Then                                                                            '数量
  652.                     WglrGrid.TextMatrix(Jsqte, Sydz("005", GridStr(), Szzls)) = .Fields("Quan")
  653.                 End If
  654.             End If
  655.             If Not IsNull(.Fields("Money")) Then
  656.                 If .Fields("Money") <> 0 Then                                                                            '数量
  657.                     WglrGrid.TextMatrix(Jsqte, Sydz("007", GridStr(), Szzls)) = .Fields("Money")
  658.                 End If
  659.             End If
  660.             If Val(WglrGrid.TextMatrix(Jsqte, Sydz("005", GridStr(), Szzls))) <> 0 And Val(WglrGrid.TextMatrix(Jsqte, Sydz("007", GridStr(), Szzls))) <> 0 Then
  661.                 WglrGrid.TextMatrix(Jsqte, Sydz("006", GridStr(), Szzls)) = Format(Val(WglrGrid.TextMatrix(Jsqte, Sydz("007", GridStr(), Szzls))) / Val(WglrGrid.TextMatrix(Jsqte, Sydz("005", GridStr(), Szzls))), "###0." + String(Xtdjxsws, "0"))
  662.             End If
  663.             '<<]
  664.             '设置数据行高度(Fixed)
  665.             WglrGrid.RowHeight(Jsqte) = Sjhgd
  667.             '动态集指针加1,同时将计数器加1(Fixed)
  668.             .MoveNext
  669.             Jsqte = Jsqte + 1
  670.         Loop
  671.     End With
  674.     ']以上为用户自定义部分
  676.     Set Rec_Query = Nothing
  678. End Sub
  680. Private Sub Tlb_Action_ButtonClick(ByVal Button As MSComctlLib.Button)             '用户点击工具条
  681.      
  682.     WglrGrid.SetFocus
  683.     '屏蔽文本框,下拉组合框有效性判断
  684.      
  685.     Valilock = True
  686.      
  687.     '屏蔽网格失去焦点产生的有效性判断
  688.      
  689.     Changelock = True
  690.      
  691.     Select Case Button.Key
  692.         Case "ymsz"                                          '页面设置
  693.             Dyymctbl.Show 1
  694.         Case "yl"                                            '预 览
  695.             If Fun_Drfrmyxxpd Then
  696.                 Call bbyl(True)
  697.             End If
  698.         Case "dy"                                            '打 印
  699.             If Fun_Drfrmyxxpd Then
  700.                 Call bbyl(False)
  701.             End If
  702.         Case "cx"                                            '查 询
  703.             '调入其它窗体或功能产生的有效性判断(包括数据回写)
  704.             If Not Fun_Drfrmyxxpd Then
  705.                 Exit Sub
  706.             End If
  707.             
  708.             Cl_ProdPriceCond.Show 1
  709.         Case "tz"                                            '调 整
  710.             '调入其它窗体或功能产生的有效性判断(包括数据回写)
  711.             If Not Fun_Drfrmyxxpd Then
  712.                 Exit Sub
  713.             End If
  714.                 
  715.             Call Sub_Adjust
  717.         Case "bz"                                            '帮 助
  718.             Call F1bz
  719.         Case "fh"                                            '退 出
  720.             Unload Me
  721.             
  722.     End Select
  723.        
  724.     '解 锁
  725.     Valilock = False
  726.     Changelock = False
  727.         
  728. End Sub
  730. Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)        '支持热键操作
  731.   
  732.     If Shift = 2 Then
  733.         Select Case UCase(Chr(KeyCode))
  734.             Case "P"                   'Ctrl+P 打印
  735.                 If Tlb_Action.Buttons("dy").Enabled Then
  736.                     Call bbyl(False)
  737.                 End If
  738.         End Select
  739.     End If
  740.     
  741. End Sub
  743. Private Sub Wbkcl()                                                 '文本框录入之前处理(根据实际情况)
  744.  
  745.     Dim xswbrr As String
  746.  
  747.     With WglrGrid
  748.         Zdlrqnr = Trim(.Text)
  749.         xswbrr = Trim(.Text)
  750.     
  751.         If GridBoolean(.Col, 3) Then   '列表框录入
  752.     
  753.             '填充列表框程序
  754.             Call FillCombo(YdCombo, GridStr(.Col, 5), xswbrr, 0)
  755.         Else
  756.             Wbkbhlock = True
  757.        
  758.             '====以下为用户自定义
  759.             Ydtext.Text = xswbrr
  760.             '====以上为用户自定义
  761.          
  762.             Wbkbhlock = False
  763.             Ydtext.SelStart = Len(Ydtext.Text)
  764.         End If
  765.     End With
  766.     
  767. End Sub
  769. Private Function sjzdyxxpd(Dqpdwgh As Long, Dqpdwgl As Long)        '录入数据字段有效性判断,同时进行字段录入事后处理
  770.     
  771.     Dim Str_JudgeText As String            '临时有效性判断字段内容
  772.     Dim Coljsq As Long                     '临时列计数器
  773.     Dim Rectemp As New ADODB.Recordset     '临时使用动态集
  774.     Dim Dbl_Qcye As Double                 '临时期初余额
  775.  
  776.     With WglrGrid
  777.     
  778.         '非录入状态有效性为合法
  779.         If Yxxpdlock Or .Row < .FixedRows Then
  780.            sjzdyxxpd = True
  781.            Exit Function
  782.         End If
  783.  
  784.         Str_JudgeText = Trim(.TextMatrix(Dqpdwgh, Dqpdwgl))
  785.         Select Case GridStr(Dqpdwgl, 1)
  786.          
  787.             '以下为自定义部分[
  788.                 '1.放置字段有效性判断程序
  789.                     Case "006"      '单价
  790.                         If Val(Str_JudgeText) <> 0 Then
  791.                             WglrGrid.TextMatrix(Dqpdwgh, Sydz("007", GridStr(), Szzls)) = Val(WglrGrid.TextMatrix(Dqpdwgh, Sydz("005", GridStr(), Szzls))) * Val(Str_JudgeText)
  792.                         Else
  793.                             WglrGrid.TextMatrix(Dqpdwgh, Sydz("007", GridStr(), Szzls)) = ""
  794.                         End If
  795.                 '2.放置字段事后处理程序
  796.                 
  797.             '以上为自定义部分]
  798.             
  799.         End Select
  800.      
  801.         '字段录入正确后为零字段清空
  802.         Call Qkwlzd(Dqpdwgh, Dqpdwgl)
  803.     
  804.         sjzdyxxpd = True
  805.         Yxxpdlock = True
  806.         Exit Function
  807.     
  808.     End With
  809.   
  810. Lrcwcl:    '录入错误处理
  812.     With WglrGrid
  813.         Call Xtxxts(Tsxx, 0, 1)
  814.         Changelock = True
  815.         .Select Dqpdwgh, Dqpdwgl
  816.         Changelock = False
  817.         Call xswbk
  818.         sjzdyxxpd = False
  819.         Exit Function
  820.     End With
  821.     
  822. End Function
  824. Private Function Sjhzyxxpd(ByVal Yxxpdh As Long) As Boolean                  '录入数据行有效性判断,同时进行行处理
  825.  
  826.     Dim Lrywlz As Long                     '录入错误列值(Fixed)
  827.     Dim Rectemp As New ADODB.Recordset     '临时使用动态集
  828.     Dim SqlStr As String                   '临时查询字符串
  829.     Dim Str_Ccode As String                '临时索引编码
  831.     With WglrGrid
  832.         If Yxxpdh > (.Rows - 1) Then Exit Function
  833.         '行没有发生变化则不进行有效性判断
  834.         If Hyxxpdlock Then
  835.             Sjhzyxxpd = True
  836.             Exit Function
  837.         End If
  838.     
  839.         '以下为自定义部分[
  840.     
  841.         '1.1首先进行单个不能为空或不能为零判断(Fixed)
  842.         For Jsqte = Qslz To .Cols - 1
  843.             '字段不能为空
  844.             If GridInt(Jsqte, 5) = 1 Then
  845.                 If Len(Trim(.TextMatrix(Yxxpdh, Jsqte))) = 0 Then
  846.                     Tsxx = GridStr(Jsqte, 2)
  847.                     Lrywlz = Jsqte
  848.                     GoTo Lrcwcl
  849.                     Exit For
  850.                 End If
  851.             End If
  852.             
  853.             '字段不能为零
  854.             If GridInt(Jsqte, 5) = 2 Then
  855.                 If Val(Trim(.TextMatrix(Yxxpdh, Jsqte))) = 0 Then
  856.                     Tsxx = GridStr(Jsqte, 2)
  857.                     Lrywlz = Jsqte
  858.                     GoTo Lrcwcl
  859.                     Exit For
  860.                 End If
  861.             End If
  862.         Next Jsqte
  863.     
  864.     
  865.         '1.2进行其他有效性判断,编写格式同1.1
  866.                 
  867.         '2.放置行处理程序(当数据行通过有效性判断)
  869.     '以上为自定义部分]
  870.     End With
  872.     Sjhzyxxpd = True
  873.     Hyxxpdlock = True
  874.     Exit Function
  876. Swcwcl:
  878.     Cw_DataEnvi.DataConnect.RollbackTrans
  879.     Tsxx = "存盘过程中出现未知错误,程序自动恢复保存前状态!"
  880.     Call Xtxxts(Tsxx, 0, 1)
  881.     Exit Function
  883. Lrcwcl:      '录入错误处理
  885.     With WglrGrid
  886.         Call Xtxxts(Tsxx, 0, 1)
  887.         Changelock = True
  888.         .Select Yxxpdh, Lrywlz
  889.         Changelock = False
  890.         Call xswbk
  891.         Sjhzyxxpd = False
  892.         Exit Function
  893.     End With
  894.     
  895. End Function
  897. '===================以 下 程 序 为 通 用 部 分 ,一 般 不 需 更 改(程序动作部分)======================='
  898. Private Sub Lrzdbz()                                                      '录入字段帮助
  899.   
  900.     If Not Ydcommand.Visible Then
  901.         Exit Sub
  902.     End If
  903.    
  904.     With WglrGrid
  905.      
  906.         Valilock = True
  907.     
  908.         '处理通用部分
  909.         Changelock = True        '调入另外窗体必须加锁
  910.         Call Drbmhelp(GridInt(.Col, 6), GridStr(.Col, 3), Trim(Ydtext.Text))
  911.         Changelock = False
  912.         
  913.         If Len(Xtfhcs) <> 0 Then
  914.             If GridInt(.Col, 7) = 0 Then
  915.                 Ydtext.Text = Xtfhcs
  916.             Else
  917.                 Ydtext.Text = Xtfhcsfz
  918.             End If
  919.         End If
  920.         
  921.         Valilock = False
  922.   
  923.         If Ydtext.Visible Then
  924.             Ydtext.SetFocus
  925.         End If
  926.     End With
  927.     
  928. End Sub
  930. Private Sub Form_Resize()                                                '窗体大小发生变化时,重新显示文本框
  931.     
  932.     On Error Resume Next
  933.     With WglrGrid
  934.         .Width = Me.Width - 160
  935.         .Height = Me.Height - .Top - 400
  936.     End With
  937.     With Pic_Title
  938.         .Width = Me.Width - 160
  939.     End With
  941.     GsToolbar.Left = Me.Width - GsToolbar.Width - 140
  942.     
  943.     Call Cxxswbk
  944.    
  945. End Sub
  947. Private Function Fun_Drfrmyxxpd() As Boolean                             '调入其它窗体或功能产生的有效性判断(包括数据回写)
  948.   
  949.     Fun_Drfrmyxxpd = True
  950.     
  951.     With WglrGrid
  952.    
  953.         '如果当前网格处于编辑状态,则先进行数据回写再进行有效性判断
  954.   
  955.         If Ydtext.Visible Or YdCombo.Visible Then
  956.             Call Lrsjhx
  957.             If Not sjzdyxxpd(Dqlrwgh, Dqlrwgl) Then
  958.                 Fun_Drfrmyxxpd = False
  959.                 Exit Function
  960.             End If
  961.         End If
  962.    
  963.         '进行行有效性判断
  964.         If Not Sjhzyxxpd(.Row) Then
  965.             Fun_Drfrmyxxpd = False
  966.             Exit Function
  967.         End If
  968.     End With
  969.   
  970. End Function
  972. Private Sub WglrGrid_EnterCell()                                          '显示当前数据行相关信息
  974.     With WglrGrid
  975.         If .Row >= .FixedRows Then
  976.             '[>>
  977.                 '此处可以填写显示与此网格行相关信息
  978.             '<<]
  979.         End If
  980.     End With
  981.    
  982. End Sub
  984. Private Sub WglrGrid_GotFocus()                                           '网格得到焦点
  986.     '网格得到焦点,如果当前选择行为非数据行
  987.     '则调整当前焦点至有效数据行
  989.     With WglrGrid
  990.         If .Row < .FixedRows And .Rows > .FixedRows Then
  991.             Changelock = True
  992.             .Select .FixedRows, .Col
  993.             Changelock = False
  994.         End If
  995.         If .Col < Qslz Then
  996.             Changelock = True
  997.             .Select .Row, Qslz
  998.             Changelock = False
  999.         End If
  1000.     End With
  1002. End Sub
  1004. Private Sub WglrGrid_LostFocus()                                          '录入网格失去焦点
  1006.     '用以屏蔽调用其它窗体时发生网格失去焦点事件
  1007.     If Changelock Then
  1008.         Exit Sub
  1009.     End If
  1011.     '引发网格RowcolChange事件
  1012.     With WglrGrid
  1013.         If Not (Ydtext.Visible Or YdCombo.Visible) Then
  1014.             .Select 0, 0
  1015.         End If
  1016.     End With
  1018. End Sub
  1020. Private Sub WglrGrid_AfterScroll(ByVal OldTopRow As Long, ByVal OldLeftCol As Long, ByVal NewTopRow As Long, ByVal NewLeftCol As Long)                                             '限制用户在录入过程中滚动鼠标
  1022.     If Gdtlock Then
  1023.         Exit Sub
  1024.     End If
  1025.  
  1026.     With WglrGrid
  1027.         If Ydtext.Visible Or YdCombo.Visible Then
  1028.             Gdtlock = True
  1029.             .TopRow = Dqtoprow
  1030.             .LeftCol = Dqleftcol
  1031.             Gdtlock = False
  1032.             Exit Sub
  1033.         End If
  1034.     End With
  1035.     
  1036. End Sub
  1038. Private Sub WglrGrid_LeaveCell()                                    '离开单元格
  1040.     If Changelock Then
  1041.         Exit Sub
  1042.     End If
  1044.     '记录刚刚离开网格单元的行列值
  1045.     Dqlkwgh = WglrGrid.Row
  1046.     Dqlkwgl = WglrGrid.Col
  1048.     '判断是否需要录入数据回写
  1049.     If Not (Ydtext.Visible Or YdCombo.Visible) Then
  1050.         Exit Sub
  1051.     End If
  1052.     
  1053.     Call Lrsjhx
  1054.     
  1055. End Sub
  1057. Private Sub WglrGrid_RowColChange()                                '网格录入行列发生变化时,进行有效性判断
  1058.    
  1059.     Valilock = True       '屏蔽文本框失去焦点进行有效性判断
  1060.     
  1061.     With WglrGrid
  1062.         If Changelock Then
  1063.             Exit Sub
  1064.         End If
  1065.         If Not sjzdyxxpd(Dqlrwgh, Dqlrwgl) Then
  1066.             Exit Sub
  1067.         End If
  1068.         If .Row <> Dqlkwgh Then
  1069.             If Not Sjhzyxxpd(Dqlkwgh) Then
  1070.                 Exit Sub
  1071.             End If
  1072.         End If
  1073.    End With
  1074.    
  1075.    Call fhyxh
  1076.    Call Xldql
  1077.    
  1078. End Sub
  1080. Private Sub WglrGrid_DblClick()                                    '鼠标双击网格显示文本框
  1081.   
  1082.     With WglrGrid
  1083.         Call xswbk
  1084.     End With
  1085.     
  1086. End Sub
  1088. Private Sub Ycwbk()                                                '隐藏文本框,帮助按钮,列表组合框
  1089.     
  1090.     Valilock = True
  1091.     Ydtext.Visible = False
  1092.     YdCombo.Visible = False
  1093.     Ydcommand.Visible = False
  1094.     
  1095. End Sub
  1097. Private Sub YdCombo_KeyDown(KeyCode As Integer, Shift As Integer)        '列表框移动
  1098.     
  1099.     With WglrGrid
  1100.         Select Case KeyCode
  1101.             Case vbKeyEscape                'ESC 键放弃录入
  1102.                 Valilock = True
  1103.                 .SetFocus
  1104.                 Call Ycwbk
  1105.                 Valilock = False
  1106.                 
  1107.             Case vbKeyReturn                '回 车 键 =13
  1108.                 KeyCode = 0
  1109.                 .SetFocus
  1110.                 Call Lrsjhx
  1111.                 Rowjsq = .Row
  1112.                 Coljsq = .Col + 1
  1113.                 If Coljsq > .Cols - 1 Then
  1114.                     If Rowjsq < .Rows - 1 Then
  1115.                         Rowjsq = Rowjsq + 1
  1116.                     End If
  1117.                     Coljsq = Qslz
  1118.                 End If
  1119.                 Do While Rowjsq <= .Rows - 1
  1120.                     If .ColHidden(Coljsq) Or (Not GridBoolean(Coljsq, 1)) Then
  1121.                         Coljsq = Coljsq + 1
  1122.                         If Coljsq > .Cols - 1 Then
  1123.                             Rowjsq = Rowjsq + 1
  1124.                             Coljsq = Qslz
  1125.                         End If
  1126.                     Else
  1127.                         Exit Do
  1128.                     End If
  1129.                 Loop
  1130.                 .Select Rowjsq, Coljsq
  1131.                 
  1132.             Case vbKeyLeft                  '左 箭 头 =37
  1133.                 If .Col - 1 = Qslz Then
  1134.                     If .ColHidden(Qslz) Or (Not GridBoolean(Qslz, 1)) Then
  1135.                         GoTo jzzx
  1136.                     End If
  1137.                 End If
  1138.                 If .Col > Qslz Then
  1139.                     KeyCode = 0
  1140.                     .SetFocus
  1141.                     Call Lrsjhx
  1142.                     Coljsq = .Col - 1
  1143.                     Do While Coljsq > Qslz
  1144.                         If Coljsq - 1 = Qslz Then
  1145.                             If .ColHidden(Qslz) Or (Not GridBoolean(Qslz, 1)) Then
  1146.                                 GoTo jzzx
  1147.                             End If
  1148.                         End If
  1149.                         If .ColHidden(Coljsq) Or (Not GridBoolean(Coljsq, 1)) Then
  1150.                             Coljsq = Coljsq - 1
  1151.                         Else
  1152.                             Exit Do
  1153.                         End If
  1154.                     Loop
  1155.                     .Select .Row, Coljsq
  1156.                 End If
  1158.             Case vbKeyRight                 '右 箭 头 =39
  1159.                 KeyCode = 0
  1160.                 .SetFocus
  1161.                 Call Lrsjhx
  1162.                 Rowjsq = .Row
  1163.                 Coljsq = .Col + 1
  1164.                 If Coljsq > .Cols - 1 Then
  1165.                     If Rowjsq < .Rows - 1 Then
  1166.                         Rowjsq = Rowjsq + 1
  1167.                     End If
  1168.                     Coljsq = Qslz
  1169.                 End If
  1170.                 Do While Rowjsq <= .Rows - 1
  1171.                     If .ColHidden(Coljsq) Or (Not GridBoolean(Coljsq, 1)) Then
  1172.                         Coljsq = Coljsq + 1
  1173.                         If Coljsq > .Cols - 1 Then
  1174.                             Rowjsq = Rowjsq + 1
  1175.                             Coljsq = Qslz
  1176.                         End If
  1177.                     Else
  1178.                         Exit Do
  1179.                     End If
  1180.                 Loop
  1181.                 .Select Rowjsq, Coljsq
  1182.         Case Else
  1183.     End Select
  1184.    
  1185. jzzx:
  1186.    
  1187.     End With
  1188.     
  1189. End Sub
  1191. Private Sub YdCombo_LostFocus()                    '列表框失去焦点
  1192.     
  1193.     With WglrGrid                                    '因为选中网格会先发生Rowcolchange事件置Valiock
  1194.         If Not Valilock Then                           '为TRUE
  1195.             Call Lrsjhx
  1196.             If Not Sjhzyxxpd(Dqlrwgh) Then
  1197.                 Exit Sub
  1198.             End If
  1199.         End If
  1200.     End With
  1201.     
  1202. End Sub
  1204. Private Sub Ydcommand_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
  1205.     
  1206.     Call Lrzdbz
  1207.     
  1208. End Sub
  1210. Private Sub ydtext_KeyDown(KeyCode As Integer, Shift As Integer)
  1211.    
  1212.     Dim Rowjsq As Long, Coljsq As Long
  1213.    
  1214.     With WglrGrid
  1215.         Select Case KeyCode
  1216.             Case vbKeyF2
  1217.                 Call Lrzdbz
  1218.             Case vbKeyEscape                'ESC 键放弃录入
  1219.                 Valilock = True
  1220.                 Call Ycwbk
  1221.                 .SetFocus
  1222.             Case vbKeyReturn                '回 车 键 =13
  1223.                 KeyCode = 0
  1224.                 .SetFocus
  1225.                 Call Lrsjhx
  1226.                 Rowjsq = .Row
  1227.                 Coljsq = .Col + 1
  1228.                 If Coljsq > .Cols - 1 Then
  1229.                     If Rowjsq < .Rows - 1 Then
  1230.                         Rowjsq = Rowjsq + 1
  1231.                     End If
  1232.                     Coljsq = Qslz
  1233.                 End If
  1234.                 Do While Rowjsq <= .Rows - 1
  1235.                     If .ColHidden(Coljsq) Or (Not GridBoolean(Coljsq, 1)) Then
  1236.                         Coljsq = Coljsq + 1
  1237.                         If Coljsq > .Cols - 1 Then
  1238.                             Rowjsq = Rowjsq + 1
  1239.                             Coljsq = Qslz
  1240.                         End If
  1241.                     Else
  1242.                         Exit Do
  1243.                     End If
  1244.                 Loop
  1245.                 If Rowjsq <= .Rows - 1 Then
  1246.                     .Select Rowjsq, Coljsq
  1247.                 End If
  1248.                 
  1249.             Case vbKeyUp                    '上 箭 头 =38
  1250.                 KeyCode = 0
  1251.                 .SetFocus
  1252.                 Call Lrsjhx
  1253.                 If .Row > .FixedRows Then
  1254.                     .Row = .Row - 1
  1255.                 End If
  1256.                 
  1257.             Case vbKeyDown                  '下 箭 头 =40
  1258.                 KeyCode = 0
  1259.                 .SetFocus
  1260.                 Call Lrsjhx
  1261.                 If .Row < .Rows - 1 Then
  1262.                     .Row = .Row + 1
  1263.                 End If
  1264.             Case vbKeyLeft                  '左 箭 头 =37
  1265.                 If .Col - 1 = Qslz Then
  1266.                     If .ColHidden(Qslz) Or (Not GridBoolean(Qslz, 1)) Then
  1267.                         GoTo jzzx
  1268.                     End If
  1269.                 End If
  1270.                 If Ydtext.SelStart = 0 And .Col > Qslz Then
  1271.                     KeyCode = 0
  1272.                     .SetFocus
  1273.                     Call Lrsjhx
  1274.                     Coljsq = .Col - 1
  1275.                     Do While Coljsq > Qslz
  1276.                         If Coljsq - 1 = Qslz Then
  1277.                             If .ColHidden(Qslz) Or (Not GridBoolean(Qslz, 1)) Then
  1278.                                 GoTo jzzx
  1279.                             End If
  1280.                         End If
  1281.                         If .ColHidden(Coljsq) Or (Not GridBoolean(Coljsq, 1)) Then
  1282.                             Coljsq = Coljsq - 1
  1283.                         Else
  1284.                             Exit Do
  1285.                         End If
  1286.                     Loop
  1287.                     .Select .Row, Coljsq
  1288.                 End If
  1289. jzzx:
  1290.            
  1291.            
  1292.             Case vbKeyRight                 '右 箭 头 =39
  1293.                 wblong = Len(Ydtext.Text)
  1294.                 If (Ydtext.SelStart = wblong Or Ydtext.SelLength = wblong) Then
  1295.                     KeyCode = 0
  1296.                     .SetFocus
  1297.                     Call Lrsjhx
  1298.                     Rowjsq = .Row
  1299.                     Coljsq = .Col + 1
  1300.                     If Coljsq > .Cols - 1 Then
  1301.                         If Rowjsq < .Rows - 1 Then
  1302.                             Rowjsq = Rowjsq + 1
  1303.                         End If
  1304.                         Coljsq = Qslz
  1305.                     End If
  1306.                     Do While Rowjsq <= .Rows - 1
  1307.                         If .ColHidden(Coljsq) Or (Not GridBoolean(Coljsq, 1)) Then
  1308.                             Coljsq = Coljsq + 1
  1309.                             If Coljsq > .Cols - 1 Then
  1310.                                 Rowjsq = Rowjsq + 1
  1311.                                 Coljsq = Qslz
  1312.                             End If
  1313.                         Else
  1314.                             Exit Do
  1315.                         End If
  1316.                     Loop
  1317.                     .Select Rowjsq, Coljsq
  1318.                 End If
  1319.             Case Else
  1320.         End Select
  1321.     End With
  1322.     
  1323. End Sub
  1325. Private Sub ydtext_KeyPress(KeyAscii As Integer)         '录入字符事中控制
  1326.   
  1327.     Call InputFieldLimit(Ydtext, GridInt(WglrGrid.Col, 1), KeyAscii)
  1329. End Sub
  1331. Private Sub ydtext_Change()                              '录入事中变化处理
  1333.     '防止程序改变但不进行处理
  1335.     If Wbkbhlock Then
  1336.          Exit Sub
  1337.     End If
  1339.     With WglrGrid
  1341.         '限制字段录入长度
  1342.         Wbkbhlock = True
  1343.         
  1344.         Select Case GridInt(.Col, 1)
  1345.             Case 8, 11   '金额型
  1346.                 Call Sjgskz(Ydtext, Xtjezws - Xtjexsws - 1, Xtjexsws)
  1347.             Case 9, 12   '数量型
  1348.                 Call Sjgskz(Ydtext, Xtslzws - Xtslxsws - 1, Xtslxsws)
  1349.             Case 10      '单价型
  1350.                 Call Sjgskz(Ydtext, Xtdjzws - Xtdjxsws - 1, Xtdjxsws)
  1351.             Case Else    '其他类型
  1352.                 If GridInt(.Col, 3) <> 0 Or GridInt(.Col, 4) <> 0 Then
  1353.                     Call Sjgskz(Ydtext, GridInt(.Col, 3), GridInt(.Col, 4))
  1354.                 End If
  1355.         End Select
  1356.         
  1357.         Wbkbhlock = False
  1358.     End With
  1359.     
  1360. End Sub
  1362. Private Sub ydtext_LostFocus()            '如果由于选中网格之外的控件而发生有效性判断(选中网格会先发生Rowcolchange事件置Valiock为TRUE)
  1363.   
  1364.     With WglrGrid
  1365.         If Not Valilock Then
  1366.             Call Lrsjhx
  1367.             If Not sjzdyxxpd(Dqlrwgh, Dqlrwgl) Then
  1368.                 Exit Sub
  1369.             End If
  1370.             If Not Sjhzyxxpd(Dqlrwgh) Then
  1371.                 Exit Sub
  1372.             End If
  1373.         End If
  1374.     End With
  1375.    
  1376. End Sub
  1378. Private Sub xswbk()                       '在当前选中单元显示文本框,列表框,帮助按钮(通用)
  1379.   
  1380.     Dim Wbkpy As Integer, Wbkpy1 As Integer '文本框偏移量
  1381.   
  1382.     '当某种条件成立时禁止文本框激活使单据处于录入状态
  1383.     If Not Fun_AllowInput Then
  1384.         Exit Sub
  1385.     End If
  1386.   
  1387.     '显示文本框前返回有效行列（解决滚动条问题）
  1388.     Call Xldqh
  1389.     Call Xldql
  1390.   
  1391.     '隐藏文本框,帮助按钮,列表组合框
  1392.     Call Ycwbk
  1393.   
  1394.     With WglrGrid
  1395.         Dqlrwgh = .Row
  1396.         Dqlrwgl = .Col
  1397.         If Not GridBoolean(.Col, 1) Or .Row < .FixedRows Then
  1398.             Exit Sub
  1399.         End If
  1400.      
  1401.         Wbkpy = 30
  1402.         Wbkpy1 = 15
  1403.     
  1404.         On Error Resume Next
  1405.         
  1406.         If GridBoolean(.Col, 3) Then
  1407.             YdCombo.Left = .CellLeft + .Left + Wbkpy
  1408.             YdCombo.Top = .CellTop + .Top + Wbkpy
  1409.             YdCombo.Width = .CellWidth - Wbkpy1
  1410.             Call Wbkcl
  1411.             YdCombo.Visible = True
  1412.             YdCombo.SetFocus
  1413.             Ydcommand.Visible = False
  1414.             Ydtext.Visible = False
  1415.         Else
  1416.             If GridBoolean(.Col, 2) Then
  1417.                 Ydcommand.Left = .Left + .CellLeft + .CellWidth - Ydcommand.Width + Wbkpy
  1418.                 Ydcommand.Top = .Top + .CellTop + .CellHeight - Ydcommand.Height + Wbkpy
  1419.                 Ydcommand.Visible = True
  1420.             Else
  1421.                 Ydcommand.Visible = False
  1422.             End If
  1423.      
  1424.             Ydtext.Left = .CellLeft + .Left + Wbkpy
  1425.             Ydtext.Top = .CellTop + .Top + Wbkpy
  1426.             
  1427.             If Ydcommand.Visible Then
  1428.                 If Sfblbzkd Then
  1429.                     Ydtext.Width = .CellWidth - Ydcommand.Width
  1430.                 Else
  1431.                     Ydtext.Width = .CellWidth - Wbkpy1
  1432.                 End If
  1433.             Else
  1434.                 Ydtext.Width = .CellWidth - Wbkpy1
  1435.             End If
  1436.             
  1437.             Ydtext.Height = .CellHeight - Wbkpy1
  1438.       
  1439.             If GridInt(.Col, 2) <> 0 Then
  1440.                 Ydtext.MaxLength = GridInt(.Col, 2)
  1441.             Else
  1442.                 Ydtext.MaxLength = 3000
  1443.             End If
  1444.       
  1445.             Call Wbkcl
  1446.       
  1447.             Ydtext.Visible = True
  1448.             Ydtext.SetFocus
  1449.         End If
  1450.     
  1451.         Dqtoprow = .TopRow
  1452.         Dqleftcol = .LeftCol
  1453.     
  1454.         '重置锁值
  1455.         Valilock = False
  1456.         Wbkbhlock = False
  1457.     End With
  1458.  
  1459. End Sub
  1461. Private Function Fun_AllowInput() As Boolean                           '当某种条件成立时禁止文本框激活使单据处于录入状态
  1462.    
  1463.     '如果单据操作状态为浏览状态则不能显示录入载体(通用)
  1464.     If Trim(Lab_OperStatus.Caption) = "1" Then
  1465.         Exit Function
  1466.     End If
  1467.    
  1468.     '[>>
  1469.     
  1470.         '此处可以填写禁止文本框激活使单据处于录入状态的理由
  1471.    
  1472.     '<<]
  1473.    
  1474.     Fun_AllowInput = True
  1475.     
  1476. End Function
  1478. Private Sub Cxxswbk()                                                  'Formresize中重新显示文本框,列表框,帮助按钮(通用)
  1479.                    
  1480.     Dim Wbkpy As Integer, Wbkpy1 As Integer
  1481.     
  1482.     Wbkpy = 30
  1483.     Wbkpy1 = 15
  1484.     
  1485.     With WglrGrid
  1486.         If YdCombo.Visible Then
  1487.             YdCombo.Left = .CellLeft + .Left + Wbkpy
  1488.             YdCombo.Top = .CellTop + .Top + Wbkpy
  1489.             YdCombo.Width = .CellWidth - Wbkpy1
  1490.         End If
  1491.         If Ydcommand.Visible Then
  1492.             Ydcommand.Left = .Left + .CellLeft + .CellWidth - Ydcommand.Width + Wbkpy
  1493.             Ydcommand.Top = .Top + .CellTop + .CellHeight - Ydcommand.Height + Wbkpy
  1494.         End If
  1495.         If Ydtext.Visible Then
  1496.             If Ydcommand.Visible Then
  1497.                 If Sfblbzkd Then
  1498.                     Ydtext.Width = .CellWidth - Ydcommand.Width
  1499.                 Else
  1500.                     Ydtext.Width = .CellWidth - Wbkpy1
  1501.                 End If
  1502.             Else
  1503.                 Ydtext.Width = .CellWidth - Wbkpy1
  1504.             End If
  1505.       
  1506.             Ydtext.Left = .CellLeft + .Left + Wbkpy
  1507.             Ydtext.Top = .CellTop + .Top + Wbkpy
  1508.             Ydtext.Height = .CellHeight - Wbkpy1
  1509.         End If
  1510.     End With
  1512. End Sub
  1514. Private Sub Lrsjhx()                                                             '文本框录入数据回写
  1515.   
  1516.     With WglrGrid
  1517.         If YdCombo.Visible Then
  1518.             .Text = Trim(YdCombo.Text)
  1519.         End If
  1520.         If Ydtext.Visible Then
  1521.             .Text = Trim(Ydtext.Text)
  1522.         End If
  1523.    
  1524.         '(如果字段录入内容发生变化,则打开有效性判断锁)
  1525.         If Zdlrqnr <> Trim(.Text) Then
  1526.             Yxxpdlock = False
  1527.             Hyxxpdlock = False
  1528.         End If
  1529.    
  1530.         '隐藏文本框,帮助按钮,列表组合框
  1531.         Call Ycwbk
  1532.    
  1533.     End With
  1534.     
  1535. End Sub
  1537. Private Sub WglrGrid_KeyDown(KeyCode As Integer, Shift As Integer)              '网格快捷键
  1538.   
  1539.     '如果单据操作状态为浏览状态则不能显示录入载体
  1540.     If Trim(Lab_OperStatus.Caption) = "1" Then
  1541.         Exit Sub
  1542.     End If
  1544.     Select Case KeyCode
  1545.         Case vbKeyF2                   '按F2键参照
  1546.             Call xswbk
  1547.             Call Lrzdbz
  1548.     End Select
  1550. End Sub
  1552. Private Sub WglrGrid_KeyPress(KeyAscii As Integer)                              '网格接受键盘录入
  1554.     '当某种条件成立时禁止文本框激活使单据处于录入状态
  1555.     If Not Fun_AllowInput Then
  1556.         Exit Sub
  1557.     End If
  1558.   
  1559.     With WglrGrid
  1560.   
  1561.         '屏 蔽 回 车 键
  1562.         If KeyAscii = vbKeyReturn Then
  1563.             KeyAscii = 0
  1564.             Rowjsq = .Row
  1565.             Coljsq = .Col + 1
  1566.             If Coljsq > .Cols - 1 Then
  1567.                 If Rowjsq < .Rows - 1 Then
  1568.                     Rowjsq = Rowjsq + 1
  1569.                 End If
  1570.                 Coljsq = Qslz
  1571.             End If
  1572.             Do While Rowjsq <= .Rows - 1
  1573.                 If .ColHidden(Coljsq) Or (Not GridBoolean(Coljsq, 1)) Then
  1574.                     Coljsq = Coljsq + 1
  1575.                     If Coljsq > .Cols - 1 Then
  1576.                         Rowjsq = Rowjsq + 1
  1577.                         Coljsq = Qslz
  1578.                     End If
  1579.                 Else
  1580.                     Exit Do
  1581.                 End If
  1582.             Loop
  1583.           
  1584.             If Rowjsq <= .Rows - 1 Then
  1585.                 .Select Rowjsq, Coljsq
  1586.             End If
  1587.        
  1588.             Exit Sub
  1589.        
  1590.         End If
  1591.      
  1592.         '接受用户录入
  1593.         Select Case KeyAscii
  1594.             Case 0 To 32             '用户输入KeyAscii为0-32的键 如空格
  1595.                 '显示录入载体
  1596.                 Call xswbk
  1597.             Case Else
  1598.                 
  1599.                 '防止非编辑字段SendKeys()出现死循环
  1600.                 If Not GridBoolean(.Col, 1) Or .Row < .FixedRows Then
  1601.                     Exit Sub
  1602.                 End If
  1603.                 
  1604.                 '如果此字段为列表框录入则调入相应列表框
  1605.                 If GridBoolean(.Col, 3) Then
  1606.                    '列表框录入
  1607.                     Call xswbk
  1608.                 Else
  1609.                     Ydtext.Text = ""
  1610.             
  1611.                     '录入限制
  1612.                     Call InputFieldLimit(Ydtext, GridInt(WglrGrid.Col, 1), KeyAscii)
  1613.                     If KeyAscii = 0 Then
  1614.                         Exit Sub
  1615.                     End If
  1616.                     Call xswbk
  1617.                     Ydtext.Text = ""
  1618.                     Valilock = True
  1619.                     SendKeys Chr(KeyAscii), True
  1620.                     DoEvents
  1621.                     Valilock = False
  1622.                 End If
  1623.         End Select
  1624.     End With
  1626. End Sub
  1628. Private Sub Qkwlzd(sjh As Long, Sjl As Long)                            '清空为零字段
  1629.     
  1630.     If Not GridBoolean(Sjl, 5) Then
  1631.         Exit Sub
  1632.     End If
  1633.     
  1634.     With WglrGrid
  1635.         If Val(Trim(.TextMatrix(sjh, Sjl))) = 0 Then
  1636.             .TextMatrix(sjh, Sjl) = ""
  1637.         End If
  1638.     End With
  1640. End Sub
  1642. Private Sub fhyxh()                                                     '返回录入数据有效行,同时让得到焦点网格可见
  1643.     
  1644.     With WglrGrid
  1645.         If .Row >= .FixedRows Then
  1646.             Call Xldqh
  1647.         End If
  1648.     End With
  1650. End Sub
  1652. Private Sub Xldqh()                                                      '显露当前行
  1653.     
  1654.     Dim Toprowte As Long
  1655.     With WglrGrid
  1656.         Toprowte = 0
  1657.         Do While .CellTop + .RowHeight(.Row) + Fzxwghs * Sjhgd > .Height And .TopRow <> Toprowte
  1658.             Toprowte = .TopRow
  1659.             .TopRow = .TopRow + 1
  1660.         Loop
  1661.         Toprowte = 0
  1662.         Do While .CellTop < .FixedRows * .RowHeight(0) And .TopRow <> Toprowte
  1663.             Toprowte = .TopRow
  1664.             If .TopRow > 1 Then
  1665.                 .TopRow = .TopRow - 1
  1666.             End If
  1667.         Loop
  1668.     End With
  1670. End Sub
  1672. Private Sub Xldql()                                                                  '显露当前列
  1673.     
  1674.     Dim Leftcolte As Long
  1675.     With WglrGrid
  1676.         If .Col >= Qslz And .Col >= .FixedCols Then
  1677.             If .LeftCol > .Col Then
  1678.                 .LeftCol = .Col
  1679.             End If
  1680.             Leftcolte = 0
  1681.             Do While .CellLeft + .CellWidth > .Width And .LeftCol <> Leftcolte
  1682.                 Leftcolte = .LeftCol
  1683.                 .LeftCol = .LeftCol + 1
  1684.             Loop
  1685.         End If
  1686.     End With
  1688. End Sub
  1690. Private Sub WglrGrid_BeforeMoveColumn(ByVal Col As Long, Position As Long)           '网格列发生移动时自动交换网格索引信息
  1691.     Call FnBln_RefreshArray(Col, Position, GridStr(), GridInf())
  1692. End Sub
  1694. Private Sub GsToolbar_ButtonClick(ByVal Button As MSComctlLib.Button)   '表格格式设置(通用)
  1695.     
  1696.     Select Case Button.Key
  1697.         Case "bcgs"                                       '保存表格格式
  1698.             Call Bcwggs(WglrGrid, GridCode, GridStr())
  1699.         Case "hfmrgs"                                     '恢复默认格式
  1700.             Call Hfmrgs(WglrGrid, GridCode, GridStr())
  1701.     End Select
  1703. End Sub
  1705. Private Sub bbyl(bbylte As Boolean)                    '报表打印预览
  1706.     
  1707.     Dim Bbzbt$, Bbxbt() As String, bbxbtzzxs() As Integer, Bbxbtgs As Integer
  1708.     Dim Bbbwh() As String, Bbbwhzzxs() As Integer, Bbbwhgs As Integer
  1709.     Bbxbtgs = 1                                          '报 表 小 标 题 行 数
  1710.     Bbbwhgs = 0                                          '报 表 表 尾 行 数
  1711.     ReDim Bbxbt(1 To Bbxbtgs)
  1712.     ReDim bbxbtzzxs(1 To Bbxbtgs)
  1713.     If Bbbwhgs <> 0 Then
  1714.         ReDim Bbbwh(1 To Bbbwhgs)
  1715.         ReDim Bbbwhzzxs(1 To Bbbwhgs)
  1716.     End If
  1717.     Bbzbt = ReportTitle
  1718.     Bbxbt(1) = Fun_FormatOutPut("仓库:" + Trim(Lbl_TitleText(0)), 40)
  1719.     bbxbtzzxs(1) = 0                                     '报表行组织形式(0-居左 1-居中 2-居右)
  1720.     Call Scyxsjb(WglrGrid)                               '生成报表数据
  1721.     Call Scdybb(Dyymctbl, Bbzbt, Bbxbt(), bbxbtzzxs(), Bbxbtgs, Bbbwh(), Bbbwhzzxs(), Bbbwhgs, bbylte)
  1722.     If Not bbylte Then
  1723.         Unload DY_Tybbyldy
  1724.     End If
  1726. End Sub
  1728. Private Sub Timer1_Timer()                                 '在窗体激活后调入查询程序
  1730.     Timer1.Enabled = False
  1732.     '加快显示速度
  1733.     WglrGrid.Redraw = False
  1735.     '生成查询结果
  1736.     Call Sub_Query
  1738.     WglrGrid.Redraw = True
  1740. End Sub
  1742. Private Sub Sub_Adjust()                '单价调整
  1743.     Dim Rectemp As Recordset
  1744.     Dim RecQuery As New ADODB.Recordset
  1745.     Dim SqlStr As String
  1746.     Dim Rowjsq As Long
  1747.     
  1748.     On Error GoTo Cwcl
  1749.     
  1750.     WglrGrid.SetFocus
  1751.     
  1752.     If WglrGrid.Rows = WglrGrid.FixedRows Then Exit Sub
  1753.     
  1754.     '修改产品入库单的单价
  1755.     Cw_DataEnvi.DataConnect.BeginTrans
  1756.     With WglrGrid
  1757.         For Rowjsq = .FixedRows To .Rows - 1
  1758.             SqlStr = "SELECT InOutMainId,InOutSubId FROM Chhs_V_InOut a " & Trim(Str_QueryCondi) & _
  1759.               " and a.Mnumber='" & Trim(.TextMatrix(Rowjsq, Sydz("001", GridStr(), Szzls))) & "'"
  1760.             Set Rectemp = Cw_DataEnvi.DataConnect.Execute(SqlStr)
  1761.             Do While Not Rectemp.EOF
  1762.                 If RecQuery.State = 1 Then RecQuery.Close
  1763.                 RecQuery.Open "select * from Gy_InOutSub where InOutMainId=" & Rectemp.Fields("InOutMainId") & " and InOutSubId=" & Rectemp.Fields("InOutSubId"), Cw_DataEnvi.DataConnect, adOpenDynamic, adLockBatchOptimistic
  1764.                 If Not RecQuery.EOF Then
  1765.                     RecQuery.Fields("Price") = Val(.TextMatrix(Rowjsq, Sydz("006", GridStr(), Szzls)))
  1766.                     RecQuery.Fields("Emoney") = Format(Val(.TextMatrix(Rowjsq, Sydz("006", GridStr(), Szzls))) * Val(RecQuery.Fields("FactReceiptQuan")), "#####." + String(Xtjexsws, "0"))
  1767.                     RecQuery.UpdateBatch
  1768.                 End If
  1769.                 Rectemp.MoveNext
  1770.             Loop
  1771.         Next Rowjsq
  1772.     End With
  1773.     Cw_DataEnvi.DataConnect.CommitTrans
  1774.     
  1775.     Exit Sub
  1776.     
  1777. Cwcl:
  1778.     Cw_DataEnvi.DataConnect.RollbackTrans
  1779.     Tsxx = "调整过程中出现未知错误,程序自动恢复保存前状态!"
  1780.     Call Xtxxts(Tsxx, 0, 1)
  1781.     
  1782. End Sub