frmchangecolor.frm

注释：用VB开发的进销存系统源码

VERSION 5.00
Begin VB.Form frmChangeColor 
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "修改颜色"
   ClientHeight    =   2535
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   4245
   Icon            =   "frmChangeColor.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MDIChild        =   -1  'True
   MinButton       =   0   'False
   ScaleHeight     =   2535
   ScaleWidth      =   4245
   ShowInTaskbar   =   0   'False
   Begin VB.CommandButton Command2 
      Caption         =   "退出"
      Height          =   435
      Left            =   2190
      TabIndex        =   5
      Top             =   1665
      Width           =   1065
   End
   Begin VB.CommandButton Command1 
      Caption         =   "更新"
      Height          =   435
      Left            =   615
      TabIndex        =   4
      Top             =   1650
      Width           =   1065
   End
   Begin VB.TextBox txtNewColor 
      Height          =   300
      Left            =   1575
      TabIndex        =   3
      Top             =   810
      Width           =   1980
   End
   Begin VB.TextBox txtOldColor 
      Height          =   300
      Left            =   1590
      TabIndex        =   1
      Top             =   450
      Width           =   1980
   End
   Begin VB.Label Label2 
      AutoSize        =   -1  'True
      Caption         =   "现颜色"
      Height          =   180
      Left            =   675
      TabIndex        =   2
      Top             =   945
      Width           =   540
   End
   Begin VB.Label Label1 
      AutoSize        =   -1  'True
      Caption         =   "原颜色"
      Height          =   180
      Left            =   705
      TabIndex        =   0
      Top             =   480
      Width           =   540
   End
End
Attribute VB_Name = "frmChangeColor"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Private Sub Command1_Click()

    On Error Resume Next
    Cmd.ActiveConnection = Conn
'    sSQL = "update 审价单 set 颜色='" & txtNewColor.Text & "' where 颜色='" & txtOldColor & "'"
'    Cmd.CommandText = sSQL
'    Cmd.Execute
'    sSQL = "update 商品主档 set 颜色='" & txtNewColor.Text & "' where 颜色='" & txtOldColor & "'"
'    Cmd.CommandText = sSQL
'    Cmd.Execute
'    sSQL = "update 配送中心库存 set 颜色='" & txtNewColor.Text & "' where 颜色='" & txtOldColor & "'"
'    Cmd.CommandText = sSQL
'    Cmd.Execute
'    sSQL = "update 分店库存 set 颜色='" & txtNewColor.Text & "' where 颜色='" & txtOldColor & "'"
'    Cmd.CommandText = sSQL
'    Cmd.Execute
    sSQL = "update LSXSD set 颜色='" & txtNewColor.Text & "' where 颜色='" & txtOldColor & "'"
    Cmd.CommandText = sSQL
    Cmd.Execute
    sSQL = "update LSPDD set 颜色='" & txtNewColor.Text & "' where 颜色='" & txtOldColor & "'"
    Cmd.CommandText = sSQL
    Cmd.Execute
    sSQL = "update PSD set 颜色='" & txtNewColor.Text & "' where 颜色='" & txtOldColor & "'"
    Cmd.CommandText = sSQL
    Cmd.Execute
    sSQL = "update LSJHD set 颜色='" & txtNewColor.Text & "' where 颜色='" & txtOldColor & "'"
    Cmd.CommandText = sSQL
    Cmd.Execute
    sSQL = "update 分店销售信息 set 颜色='" & txtNewColor.Text & "' where 颜色='" & txtOldColor & "'"
    Cmd.CommandText = sSQL
    Cmd.Execute
    sSQL = "update 商品信息 set 颜色='" & txtNewColor.Text & "' where 颜色='" & txtOldColor & "'"
    Cmd.CommandText = sSQL
    Cmd.Execute
    MsgBox "成功更新颜色信息！", vbInformation, "提示信息"
End Sub

Private Sub Command2_Click()
    Unload Me
End Sub