main_xt_cqjz.frm

vb开发的一个仓库管理系统 很不错的 值得下载

VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.Form main_xt_cqjz 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "系统设置——【初期建帐】"
   ClientHeight    =   2535
   ClientLeft      =   2130
   ClientTop       =   3435
   ClientWidth     =   7305
   Icon            =   "main_xt_cqjz.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   2535
   ScaleWidth      =   7305
   StartUpPosition =   1  '所有者中心
   Begin MSComctlLib.ProgressBar ProgressBar1 
      Height          =   360
      Left            =   150
      TabIndex        =   9
      Top             =   2025
      Visible         =   0   'False
      Width           =   3870
      _ExtentX        =   6826
      _ExtentY        =   635
      _Version        =   393216
      Appearance      =   1
   End
   Begin VB.CommandButton Command2 
      Caption         =   "退出"
      Height          =   405
      Left            =   5715
      TabIndex        =   8
      Top             =   2010
      Width           =   1455
   End
   Begin VB.CommandButton Command1 
      Caption         =   "初期建帐"
      Height          =   405
      Left            =   4140
      TabIndex        =   7
      Top             =   2010
      Width           =   1455
   End
   Begin VB.Frame Frame2 
      Caption         =   "各种单据"
      Height          =   660
      Left            =   150
      TabIndex        =   4
      Top             =   1245
      Width           =   7020
      Begin VB.CheckBox Check7 
         Caption         =   "销售退货单据"
         Height          =   240
         Left            =   4710
         TabIndex        =   12
         Top             =   285
         Width           =   1590
      End
      Begin VB.CheckBox Check6 
         Caption         =   "销售单据"
         Height          =   240
         Left            =   3300
         TabIndex        =   10
         Top             =   285
         Width           =   1590
      End
      Begin VB.CheckBox Check4 
         Caption         =   "入库单据"
         Height          =   240
         Left            =   120
         TabIndex        =   6
         Top             =   285
         Width           =   1335
      End
      Begin VB.CheckBox Check5 
         Caption         =   "退货返厂单据"
         Height          =   240
         Left            =   1545
         TabIndex        =   5
         Top             =   285
         Width           =   1590
      End
   End
   Begin VB.Frame Frame1 
      Caption         =   "基础数据"
      Height          =   660
      Left            =   150
      TabIndex        =   1
      Top             =   465
      Width           =   7020
      Begin VB.CheckBox Check3 
         Caption         =   "客户基本信息"
         Height          =   240
         Left            =   3930
         TabIndex        =   11
         Top             =   285
         Width           =   1875
      End
      Begin VB.CheckBox Check2 
         Caption         =   "供应商基本信息"
         Height          =   240
         Left            =   1950
         TabIndex        =   3
         Top             =   285
         Width           =   2130
      End
      Begin VB.CheckBox Check1 
         Caption         =   "库存基本数据"
         Height          =   240
         Left            =   120
         TabIndex        =   2
         Top             =   285
         Width           =   1800
      End
   End
   Begin VB.Label Label1 
      Caption         =   "警告：初期建帐，系统数据将全部清空。"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   10.5
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H000000C0&
      Height          =   210
      Left            =   105
      TabIndex        =   0
      Top             =   75
      Width           =   4260
   End
End
Attribute VB_Name = "main_xt_cqjz"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Form_Unload(Cancel As Integer)
  frm_main.Enabled = True
End Sub
Private Sub Command1_Click()
  Dim db As Database
  Dim rs As Recordset
  Dim connter As Integer
  Dim workarea(200) As String
  ProgressBar1.Visible = True
  ProgressBar1.Max = UBound(workarea)
  ProgressBar1.Value = ProgressBar1.Min
  For Counter = LBound(workarea) To UBound(workarea)
  workarea(Counter) = "initial value " & Counter
  ProgressBar1.Value = Counter
    Set db = Workspaces(0).OpenDatabase(App.Path & "\yyjxc.mdb")
  Dim sql As String
  If Check1.Value = 1 Then
     '删除全部库存信息
     sql = "delete * from kc "
     db.Execute sql
  End If
  If Check2.Value = 1 Then
     '删除全部供应商信息
     sql = "delete * from gys "
     db.Execute sql
  End If
  If Check3.Value = 1 Then
     '删除全部客户信息
     sql = "delete * from kh "
     db.Execute sql
  End If
  If Check4.Value = 1 Then
     '删除全部入库信息
     sql = "delete * from rkd"
     db.Execute sql
  End If
   If Check5.Value = 1 Then
      '删除全部入库退货信息
      sql = "delete * from rktd"
      db.Execute sql
   End If
  If Check6.Value = 1 Then
     '删除全部销售信息
     sql = "delete * from xsd"
     db.Execute sql
  End If
  If Check7.Value = 1 Then
     '删除全部销售退货信息
     sql = "delete * from xstd "
     db.Execute sql
  End If
  Next Counter
  ProgressBar1.Visible = False
  ProgressBar1.Value = ProgressBar1.Min
End Sub
Private Sub Command2_Click()
  frm_main.Enabled = True
  Unload Me
End Sub