main_csh.frm

宾馆客房管理系统

VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.Form main_csh 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "初始化"
   ClientHeight    =   2160
   ClientLeft      =   2265
   ClientTop       =   3765
   ClientWidth     =   7545
   Icon            =   "main_csh.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   2160
   ScaleWidth      =   7545
   StartUpPosition =   1  '所有者中心
   Begin VB.CommandButton cmdstart 
      Caption         =   "开始"
      Height          =   390
      Left            =   4020
      TabIndex        =   7
      Top             =   1605
      Width           =   1125
   End
   Begin VB.CommandButton cmdcreat 
      Caption         =   "初始化"
      Enabled         =   0   'False
      Height          =   390
      Left            =   5280
      TabIndex        =   6
      Top             =   1605
      Width           =   1125
   End
   Begin VB.CommandButton cmdquit 
      Caption         =   "退出"
      Height          =   390
      Left            =   6300
      TabIndex        =   5
      Top             =   1605
      Width           =   1125
   End
   Begin MSComctlLib.ProgressBar ProgressBar1 
      Height          =   360
      Left            =   45
      TabIndex        =   4
      Top             =   1635
      Visible         =   0   'False
      Width           =   3870
      _ExtentX        =   6826
      _ExtentY        =   635
      _Version        =   393216
      Appearance      =   1
   End
   Begin VB.Frame Frame1 
      Caption         =   "基础数据"
      Enabled         =   0   'False
      Height          =   900
      Left            =   15
      TabIndex        =   1
      Top             =   540
      Width           =   7455
      Begin VB.CheckBox chkgzsj 
         Caption         =   "挂帐数据"
         Height          =   240
         Left            =   5850
         TabIndex        =   10
         Top             =   390
         Width           =   1035
      End
      Begin VB.CheckBox chkft 
         Caption         =   "房态"
         Height          =   240
         Left            =   4875
         TabIndex        =   9
         Top             =   390
         Width           =   1230
      End
      Begin VB.CheckBox chkyddj 
         Caption         =   "客房预定登记"
         Height          =   240
         Left            =   495
         TabIndex        =   8
         Top             =   390
         Width           =   1455
      End
      Begin VB.CheckBox chktsjz 
         Caption         =   "退宿结帐"
         Height          =   240
         Left            =   3600
         TabIndex        =   3
         Top             =   390
         Width           =   1095
      End
      Begin VB.CheckBox chkzsdj 
         Caption         =   "住宿登记"
         Height          =   240
         Left            =   2205
         TabIndex        =   2
         Top             =   390
         Width           =   1035
      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          =   285
      Left            =   90
      TabIndex        =   0
      Top             =   90
      Width           =   4770
   End
End
Attribute VB_Name = "main_csh"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim DBcnn As New ADODB.Connection
Dim DBrs As New ADODB.Recordset
Dim connter As Integer     '定义一个整型变量
Dim workarea(200), sql As String     '定义字符串变量
Private Sub Form_Load()     '自动识别数据库路径
' Data1.DatabaseName = App.Path & "\Kfgl.MDB"
End Sub
Private Sub Form_Unload(Cancel As Integer)
 main.Enabled = True
End Sub
Private Sub cmdstart_Click()
 Frame1.Enabled = True
 cmdcreat.Enabled = True
End Sub
Private Sub cmdcreat_Click()     '清空选定表中的数据
 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
   If DBcnn.State = 0 Then
    Dim connectstr As String
    connectstr = "Provider=Microsoft.jet.OLEDB.4.0;Data Source=" & _
               App.Path & "\KFGL.mdb;Persist Security Info=False"
    DBcnn.CursorLocation = adUseClient
    DBcnn.Open connectstr
   End If
   If DBrs.State = 1 Then
    DBrs.Close
   End If
   'Set db = Workspaces(0).OpenDatabase(App.Path & "\Kfgl.MDB")
   If chkzsdj.Value = 1 Then
     sql = "delete * from djb "
     DBcnn.Execute sql
     sql = "delete * from djys "
     DBcnn.Execute sql
   End If
   If chktsjz.Value = 1 Then
     sql = "delete * from tfd "
     DBcnn.Execute sql
   End If
   If chkgzsj.Value = 1 Then
     sql = "delete * from gzmx "
     DBcnn.Execute sql
   End If
   If chkyddj.Value = 1 Then
     sql = "delete * from kfyd "
     DBcnn.Execute sql
   End If
   If chkft.Value = 1 Then
     Dim sqlstr As String
     sqlstr = "update kf  set 房态='空房' where 房态 like '%入住%'"
     DBcnn.Execute sqlstr
     DBrs.Open sqlstr, DBcnn, adOpenStatic, adLockBatchOptimistic
   End If
 Next Counter
 ProgressBar1.Visible = False
 ProgressBar1.Value = ProgressBar1.Min
End Sub
Private Sub cmdquit_Click()
 main.Enabled = True
 Unload Me
End Sub