main_mima.frm

利用VB编写的一个完整的酒店管理程序,支持双数据库!

VERSION 5.00
Begin VB.Form main_mima 
   BackColor       =   &H00C0C0C0&
   BorderStyle     =   0  'None
   Caption         =   "华成宾馆客房管理系统(300客房）Net3.0.1"
   ClientHeight    =   3015
   ClientLeft      =   0
   ClientTop       =   -105
   ClientWidth     =   4485
   Icon            =   "main_mima.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   Picture         =   "main_mima.frx":0442
   ScaleHeight     =   3015
   ScaleWidth      =   4485
   ShowInTaskbar   =   0   'False
   StartUpPosition =   1  '所有者中心
   Begin VB.CommandButton Command2 
      Caption         =   "退出"
      Height          =   375
      Left            =   3000
      TabIndex        =   5
      Top             =   2400
      Width           =   1095
   End
   Begin VB.CommandButton Command1 
      Caption         =   "确定"
      Height          =   375
      Left            =   1560
      TabIndex        =   4
      Top             =   2400
      Width           =   1215
   End
   Begin VB.ComboBox Combo1 
      Height          =   300
      Left            =   1725
      TabIndex        =   0
      Top             =   1080
      Width           =   1935
   End
   Begin VB.TextBox Text2 
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   12
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   315
      IMEMode         =   3  'DISABLE
      Left            =   1725
      MaxLength       =   6
      PasswordChar    =   "*"
      TabIndex        =   2
      Top             =   1575
      Width           =   1920
   End
   Begin VB.Label Label2 
      BackStyle       =   0  'Transparent
      Caption         =   "密  码：       "
      BeginProperty Font 
         Name            =   "黑体"
         Size            =   12
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   300
      Left            =   840
      TabIndex        =   1
      Top             =   1605
      Width           =   975
   End
   Begin VB.Label Label1 
      BackStyle       =   0  'Transparent
      Caption         =   "操作员： "
      BeginProperty Font 
         Name            =   "黑体"
         Size            =   12
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   405
      Left            =   840
      TabIndex        =   3
      Top             =   1125
      Width           =   1095
   End
End
Attribute VB_Name = "main_mima"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'FIXIT: 使用 Option Explicit 可以避免隐式创建 Variant 类型的变量                                          FixIT90210ae-R383-H1984
Dim ss As String


Private Sub Command1_Click()
SeIt
If Combo1.Text <> "" And Text2.Text <> "" Then
If ss = Text2.Text Then
Load MDIForm1

MDIForm1.StatusBar1.Panels(4).Text = Combo1.Text
'Denglu_name = Combo1.Text
'Denglu_time = Now
'RiZhi
Unload Me
MDIForm1.Show
Else
MsgBox "对不起，您的密码错误！"
End If
End If

End Sub

Private Sub Command2_Click()
Unload Me
End Sub

Private Sub Form_Load()


'----------------读数据库路径
checkPath ""

If Bac = "0" Then '----------------------启动数据库修复和压缩

SearchIt
Else
Unload Me
Form35.Show
End If
  If IsShare = False Then '----------------判断是否注册
  
   End If
End Sub
Private Sub SearchIt()

 '检索数据
  Dim db As Database
  Dim EF As Recordset
  Set db = OpenDatabase(ConData, False, False, Constr)
  Set EF = db.OpenRecordset("select * from qxsz", dbOpenDynaset)

     '列出记录
      If Not (EF.BOF And EF.EOF) Then
         Do While Not EF.EOF
            Combo1.AddItem EF("操作员")
                    
            EF.MoveNext
         Loop
      End If
      
'添加合计
   EF.Close
  db.Close

End Sub

Private Sub SeIt()

 '检索数据
  Dim db As Database
  Dim EF As Recordset
  Set db = OpenDatabase(ConData, False, False, Constr)
  Set EF = db.OpenRecordset("select * from qxsz where 操作员='" & Combo1.Text & "'", dbOpenDynaset)

     '列出记录
      If Not (EF.BOF And EF.EOF) Then
         Do While Not EF.EOF
           ss = EF("密码")
                    
            EF.MoveNext
         Loop
      End If
      
'添加合计
   EF.Close
  db.Close

End Sub