frmsavestartstore.frm

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

VERSION 5.00
Begin VB.Form frmSaveStartStore 
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "库存数据初始化"
   ClientHeight    =   3195
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   4680
   Icon            =   "frmSaveStartStore.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   3195
   ScaleWidth      =   4680
   ShowInTaskbar   =   0   'False
   StartUpPosition =   1  '所有者中心
   Begin VB.CommandButton Command2 
      Caption         =   "退出"
      Height          =   420
      Left            =   2550
      TabIndex        =   2
      Top             =   2445
      Width           =   1620
   End
   Begin VB.CommandButton Command1 
      Caption         =   "保存"
      Height          =   420
      Left            =   735
      TabIndex        =   1
      Top             =   2430
      Width           =   1605
   End
   Begin VB.TextBox Text1 
      BackColor       =   &H80000018&
      Height          =   2070
      Left            =   150
      Locked          =   -1  'True
      MultiLine       =   -1  'True
      ScrollBars      =   3  'Both
      TabIndex        =   0
      Text            =   "frmSaveStartStore.frx":000C
      Top             =   105
      Width           =   4410
   End
End
Attribute VB_Name = "frmSaveStartStore"
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 = "delete startmainstore"
    Cmd.CommandText = ssql
    Cmd.Execute
    
    ssql = "delete startchainstore"
    Cmd.CommandText = ssql
    Cmd.Execute
    
    ssql = "insert into startmainstore select * from 配送中心库存"
    Cmd.CommandText = ssql
    Cmd.Execute
    
    ssql = "insert into startchainstore select * from 分店库存"
    Cmd.CommandText = ssql
    Cmd.Execute
    
    MsgBox "成功保存库存初始数据！", vbInformation, "提示信息"
End Sub

Private Sub Command2_Click()
    Unload Me
End Sub