frm冲减库存.frm

服装销售系统,VB开发.没有解压密码

VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.Form frm冲减库存 
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "冲减库存"
   ClientHeight    =   5055
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   6600
   Icon            =   "frm冲减库存.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   5055
   ScaleWidth      =   6600
   ShowInTaskbar   =   0   'False
   StartUpPosition =   1  '所有者中心
   Begin VB.CommandButton Command1 
      Caption         =   "开始冲减"
      Height          =   420
      Left            =   1860
      TabIndex        =   3
      Top             =   4485
      Width           =   3045
   End
   Begin VB.TextBox txtMsg 
      Height          =   3480
      Left            =   150
      MultiLine       =   -1  'True
      ScrollBars      =   3  'Both
      TabIndex        =   0
      Top             =   870
      Width           =   6315
   End
   Begin MSComctlLib.ProgressBar prgSub 
      Height          =   300
      Left            =   150
      TabIndex        =   1
      Top             =   420
      Width           =   6285
      _ExtentX        =   11086
      _ExtentY        =   529
      _Version        =   393216
      Appearance      =   1
   End
   Begin VB.Label Label1 
      AutoSize        =   -1  'True
      Caption         =   "冲减进度"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   14.25
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   285
      Left            =   2535
      TabIndex        =   2
      Top             =   15
      Width           =   1200
   End
End
Attribute VB_Name = "frm冲减库存"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Private Sub Command1_Click()
    Dim RsTemp As New ADODB.Recordset
    On Error GoTo SubErr
    sSQL = "select * from 分店销售信息 where 冲减标志=0"
    Set RsTemp = Nothing
    RsTemp.Open sSQL, Conn, adOpenStatic, adLockPessimistic
    If Not RsTemp.EOF Then
        prgSub.Max = RsTemp.RecordCount
        prgSub.Min = 0
    Else
        MsgBox "未发现分店销售信息!", vbInformation, "提示信息"
        Exit Sub
    End If
    
    Cmd.ActiveConnection = Conn
    
    
    Conn.BeginTrans
    While Not RsTemp.EOF
    '    Conn.BeginTrans
        If Not OutSubStock(RsTemp("分店编码"), RsTemp("商品编码"), RsTemp("商品名称"), RsTemp("单位"), _
            RsTemp("颜色"), RsTemp("尺寸"), -RsTemp("数量")) Then
            
            txtMSG.Text = txtMSG.Text & vbCrLf & "分店编码：" & Trim(RsTemp("分店编码")) & " 商品编码:" & Trim(RsTemp("商品编码")) & "数量：" & RsTemp("数量") & " 颜色:" & Trim(RsTemp("颜色")) & " 尺寸:" & Trim(RsTemp("尺寸")) & "冲减失败!"
     '       Conn.RollbackTrans
        Else
'            RsTemp("冲减标志") = True
            Cmd.CommandText = "update 分店销售信息 set 冲减标志=1 where ID='" & RsTemp("ID") & "'"
            Cmd.Execute
           ' RsTemp.Update
            txtMSG.Text = txtMSG.Text & vbCrLf & "分店编码：" & Trim(RsTemp("分店编码")) & " 商品编码:" & Trim(RsTemp("商品编码")) & "数量：" & RsTemp("数量") & " 颜色:" & Trim(RsTemp("颜色")) & " 尺寸:" & Trim(RsTemp("尺寸")) & " 冲减成功!"
        End If
        
    '    Conn.CommitTrans
        RsTemp.MoveNext
        Refresh
    Wend
    RsTemp.UpdateBatch adAffectAllChapters
    Conn.CommitTrans
    Exit Sub
SubErr:
    MsgBox "部分商品未冲减完成！", vbInformation, "提示信息"
    Conn.RollbackTrans
End Sub