frm_csh.frm

房地产管理系统 对房地产的销售做日常的管理维护等

VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "mscomctl.ocx"
Begin VB.Form frm_CSH 
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "系统初始化"
   ClientHeight    =   3645
   ClientLeft      =   4005
   ClientTop       =   3330
   ClientWidth     =   6465
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MDIChild        =   -1  'True
   MinButton       =   0   'False
   ScaleHeight     =   3645
   ScaleWidth      =   6465
   ShowInTaskbar   =   0   'False
   Begin MSComctlLib.ProgressBar ProgressBar1 
      Height          =   300
      Left            =   120
      TabIndex        =   15
      Top             =   2800
      Width           =   6255
      _ExtentX        =   11033
      _ExtentY        =   529
      _Version        =   393216
      Appearance      =   1
   End
   Begin VB.CommandButton Command3 
      Caption         =   "全部选中"
      Height          =   375
      Left            =   1680
      TabIndex        =   4
      Top             =   3240
      Width           =   1455
   End
   Begin VB.Frame Frame1 
      Caption         =   "请选择所要初始化的数据表"
      Height          =   2175
      Left            =   120
      TabIndex        =   3
      Top             =   600
      Width           =   6255
      Begin VB.CheckBox Check10 
         Caption         =   "公司信息数据表"
         Height          =   300
         Left            =   240
         TabIndex        =   14
         Top             =   1680
         Width           =   2175
      End
      Begin VB.CheckBox Check9 
         Caption         =   "用户登录信息表"
         Height          =   375
         Left            =   4320
         TabIndex        =   13
         Top             =   1200
         Width           =   1575
      End
      Begin VB.CheckBox Check8 
         Caption         =   "员工资料信息表"
         Height          =   375
         Left            =   2280
         TabIndex        =   12
         Top             =   1200
         Width           =   1935
      End
      Begin VB.CheckBox Check7 
         Caption         =   "客户资料信息表"
         Height          =   375
         Left            =   240
         TabIndex        =   11
         Top             =   1200
         Width           =   1695
      End
      Begin VB.CheckBox Check6 
         Caption         =   "房屋退款信息表"
         Height          =   495
         Left            =   4320
         TabIndex        =   10
         Top             =   720
         Width           =   1695
      End
      Begin VB.CheckBox Check5 
         Caption         =   "房屋付款信息表"
         Height          =   495
         Left            =   2280
         TabIndex        =   9
         Top             =   720
         Width           =   1815
      End
      Begin VB.CheckBox Check4 
         Caption         =   "房型资料数据表"
         Height          =   495
         Left            =   240
         TabIndex        =   8
         Top             =   720
         Width           =   1695
      End
      Begin VB.CheckBox Check3 
         Caption         =   "房屋资料数据表"
         Height          =   375
         Left            =   4320
         TabIndex        =   7
         Top             =   360
         Width           =   1695
      End
      Begin VB.CheckBox Check2 
         Caption         =   "楼房资料数据表"
         Height          =   375
         Left            =   2280
         TabIndex        =   6
         Top             =   360
         Width           =   1815
      End
      Begin VB.CheckBox Check1 
         Caption         =   "楼盘资料数据表"
         Height          =   375
         Left            =   240
         TabIndex        =   5
         Top             =   360
         Width           =   1815
      End
   End
   Begin VB.CommandButton Command2 
      Caption         =   "取消初始化"
      Height          =   375
      Left            =   4920
      TabIndex        =   2
      Top             =   3240
      Width           =   1455
   End
   Begin VB.CommandButton Command1 
      Caption         =   "确认初始化"
      Height          =   375
      Left            =   3240
      TabIndex        =   1
      Top             =   3240
      Width           =   1575
   End
   Begin VB.Label Label1 
      BorderStyle     =   1  'Fixed Single
      Caption         =   "系统初始化将删除系统中的所有数据,请您慎重选择该操作"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   12
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00C000C0&
      Height          =   375
      Left            =   120
      TabIndex        =   0
      Top             =   120
      Width           =   6255
   End
End
Attribute VB_Name = "frm_CSH"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
Dim rs1 As ADODB.Recordset
Set rs1 = New ADODB.Recordset
Dim cnn1 As ADODB.Connection
Set cnn1 = New ADODB.Connection
cnn1.Open "Provider=MSDASQL;Persist Security Info=False;User ID=sa;Data Source=ljm;Initial Catalog=Data_FDCGLXT"
Dim connter As Integer
Dim sql, workarea(200) As String
ProgressBar1.Visible = True
ProgressBar1.Max = UBound(workarea)
ProgressBar1.Value = ProgressBar1.Min
For connter = LBound(workarea) To UBound(workarea)
workarea(connter) = "initial value" & connter
ProgressBar1.Value = connter
If Check1.Value = 1 Then
sql = "delete Table_LPXX select * from Table_LPXX"
Set rs1 = cnn1.Execute(sql)
End If
If Check2.Value = 1 Then
sql = "delete Table_LFXX select * from Table_LFXX"
Set rs1 = cnn1.Execute(sql)
End If
If Check3.Value = 1 Then
sql = "delete Table_FWXX select * from Table_FWXX"
Set rs1 = cnn1.Execute(sql)
End If
If Check4.Value = 1 Then
sql = "delete Table_FXXX select * from Table_FXXX"
Set rs1 = cnn1.Execute(sql)
End If
If Check5.Value = 1 Then
sql = "delete Table_khfk select * from Table_khfk"
Set rs1 = cnn1.Execute(sql)
End If
If Check6.Value = 1 Then
sql = "delete Table_KHTK select * from Table_KHTK"
Set rs1 = cnn1.Execute(sql)
End If
If Check7.Value = 1 Then
sql = "delete Table_KHZL select * from Table_KHZL"
Set rs1 = cnn1.Execute(sql)
End If
If Check8.Value = 1 Then
sql = "delete Table_YGXX select * from Table_YGXX"
Set rs1 = cnn1.Execute(sql)
frm_YGXX.Adodc1.Refresh
End If
If Check9.Value = 1 Then
sql = "delete Table_YHDL select * from Table_YHDL"
Set rs1 = cnn1.Execute(sql)
End If
If Check10.Value = 1 Then
sql = "delete Table_GSXX select * from Table_GSXX"
Set rs1 = cnn1.Execute(sql)
End If
Next connter
ProgressBar1.Value = ProgressBar1.Min
cnn1.Close
Check1.Value = 0
Check2.Value = 0
Check3.Value = 0
Check4.Value = 0
Check5.Value = 0
Check6.Value = 0
Check7.Value = 0
Check8.Value = 0
Check9.Value = 0
Check10.Value = 0
MsgBox "初始化成功完成!!", 48, "房地产销售管理系统"
End Sub

Private Sub Command2_Click()
Unload Me
End Sub

Private Sub Command3_Click()
Check1.Value = 1
Check2.Value = 1
Check3.Value = 1
Check4.Value = 1
Check5.Value = 1
Check6.Value = 1
Check7.Value = 1
Check8.Value = 1
Check9.Value = 1
Check10.Value = 1
End Sub