yonghu.frm

VB客房管理系统全套(带源码)顾客可以用电话或上网注册的方式预定。其方式不同

VERSION 5.00
Begin VB.Form yonghu1 
   Caption         =   "Form1"
   ClientHeight    =   5190
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   5385
   BeginProperty Font 
      Name            =   "宋体"
      Size            =   12
      Charset         =   134
      Weight          =   400
      Underline       =   0   'False
      Italic          =   0   'False
      Strikethrough   =   0   'False
   EndProperty
   LinkTopic       =   "Form1"
   Picture         =   "yonghu.frx":0000
   ScaleHeight     =   5190
   ScaleWidth      =   5385
   StartUpPosition =   3  '窗口缺省
   Begin VB.CommandButton cmdexit 
      Caption         =   "返回"
      Height          =   495
      Left            =   2520
      TabIndex        =   5
      Top             =   3360
      Width           =   1215
   End
   Begin VB.CommandButton cmdsave 
      Caption         =   "确认"
      Height          =   495
      Left            =   600
      TabIndex        =   4
      Top             =   3360
      Width           =   1215
   End
   Begin VB.PictureBox Picture1 
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   9
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   5175
      Left            =   0
      Picture         =   "yonghu.frx":3058
      ScaleHeight     =   5115
      ScaleWidth      =   5355
      TabIndex        =   0
      Top             =   0
      Width           =   5415
      Begin VB.TextBox txtItem 
         Height          =   375
         Index           =   2
         Left            =   1560
         TabIndex        =   8
         Top             =   1800
         Width           =   1935
      End
      Begin VB.TextBox txtItem 
         Height          =   375
         Index           =   1
         Left            =   1560
         TabIndex        =   6
         Top             =   1080
         Width           =   1935
      End
      Begin VB.TextBox txtItem 
         Height          =   375
         Index           =   0
         Left            =   1560
         TabIndex        =   2
         Top             =   480
         Width           =   1935
      End
      Begin VB.Label Label3 
         Caption         =   "权限"
         Height          =   375
         Left            =   240
         TabIndex        =   7
         Top             =   1920
         Width           =   735
      End
      Begin VB.Label Label2 
         Caption         =   "密码"
         Height          =   375
         Left            =   240
         TabIndex        =   3
         Top             =   1200
         Width           =   735
      End
      Begin VB.Label Label1 
         Caption         =   "用户名"
         Height          =   255
         Left            =   240
         TabIndex        =   1
         Top             =   480
         Width           =   855
      End
   End
End
Attribute VB_Name = "yonghu1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub cmdexit_Click()
Unload Me
End Sub

Private Sub cmdSave_Click()
Dim intCount As Integer
    Dim sMeg As String
    Dim mrcc As ADODB.Recordset
    Dim msgtext As String
    
    For intCount = 0 To 1
        If Trim(txtItem(intCount) & " ") = "" Then
            Select Case intCount
                Case 0
                    sMeg = "姓名"
                Case 1
                    sMeg = "密码"
            End Select
            sMeg = sMeg & "不能为空！"
            MsgBox sMeg, vbOKOnly + vbExclamation, "警告"
            txtItem(intCount).SetFocus
        
            Exit Sub
        End If
    Next intCount
     If gintAmode = 1 Then
        txtSQL = "select * from user_info where username='" & Trim(txtItem(0)) & "'"
        Set mrc = ExecuteSQL(txtSQL, msgtext)
        If mrc.EOF = False Then
            MsgBox "已经存在此姓名的记录！", vbOKOnly + vbExclamation, "警告"
            txtItem(0).SetFocus
            Exit Sub
        End If
        mrc.Close
    End If
    
   
    
    txtSQL = "select * from user_info"
    Set mrc = ExecuteSQL(txtSQL, msgtext)
    mrc.AddNew
    mrc.Fields(0) = Trim(txtItem(0))
    mrc.Fields(1) = Trim(txtItem(1))
    mrc.Fields(2) = Trim(txtItem(2))
Me.Show

   End Sub