form29.frm

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

VERSION 5.00
Begin VB.Form Form29 
   BackColor       =   &H00FFFF80&
   BorderStyle     =   4  'Fixed ToolWindow
   Caption         =   "添加操作员"
   ClientHeight    =   2355
   ClientLeft      =   45
   ClientTop       =   315
   ClientWidth     =   4200
   LinkTopic       =   "Form29"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   2355
   ScaleWidth      =   4200
   ShowInTaskbar   =   0   'False
   StartUpPosition =   1  '所有者中心
   Begin VB.CommandButton Command2 
      Caption         =   "退出"
      Height          =   375
      Left            =   2640
      TabIndex        =   5
      Top             =   1560
      Width           =   1215
   End
   Begin VB.CommandButton Command1 
      Caption         =   "确定"
      Height          =   375
      Left            =   1200
      TabIndex        =   4
      Top             =   1560
      Width           =   1215
   End
   Begin VB.TextBox Text2 
      Height          =   375
      IMEMode         =   3  'DISABLE
      Left            =   1320
      PasswordChar    =   "*"
      TabIndex        =   3
      Top             =   840
      Width           =   2535
   End
   Begin VB.TextBox Text1 
      Height          =   375
      Left            =   1320
      TabIndex        =   1
      Top             =   360
      Width           =   2535
   End
   Begin VB.Label Label2 
      BackStyle       =   0  'Transparent
      Caption         =   "操作员密码"
      Height          =   255
      Left            =   120
      TabIndex        =   2
      Top             =   960
      Width           =   1095
   End
   Begin VB.Label Label1 
      BackStyle       =   0  'Transparent
      Caption         =   "操作员名称"
      Height          =   255
      Left            =   120
      TabIndex        =   0
      Top             =   480
      Width           =   1095
   End
End
Attribute VB_Name = "Form29"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'FIXIT: 使用 Option Explicit 可以避免隐式创建 Variant 类型的变量                                          FixIT90210ae-R383-H1984
Private Sub Command1_Click()
Dim db As Database
  Dim EF As Recordset
  Set db = OpenDatabase(ConData, False, False, Constr)
 
  Set EF = db.OpenRecordset("select * from qxsz", dbOpenDynaset)
  EF.AddNew
  EF("密码") = Text2.Text
  EF("操作员") = Text1.Text
  EF("接待操作") = Unchecked
            EF("收银操作") = Unchecked
             EF("房务中心") = Unchecked
             EF("查询操作") = Unchecked
          EF("报表中心") = Unchecked
           EF("仓库管理") = Unchecked
             EF("餐饮管理") = Unchecked
            EF("洗浴管理") = Unchecked
            EF("系统管理") = Unchecked
  
  
  
  
   EF.Update
   MsgBox "成功添加操作员！"
  EF.Close
  db.Close
End Sub

Private Sub Command2_Click()
Unload Me
End Sub