frmdelete.frm

宾馆管理系统

VERSION 5.00
Object = "{74848F95-A02A-4286-AF0C-A3C755E4A5B3}#1.0#0"; "actskn43.ocx"
Begin VB.Form frmdelete 
   Caption         =   "删除用户"
   ClientHeight    =   3090
   ClientLeft      =   60
   ClientTop       =   450
   ClientWidth     =   4680
   LinkTopic       =   "Form1"
   ScaleHeight     =   3090
   ScaleWidth      =   4680
   StartUpPosition =   2  '屏幕中心
   Begin VB.Frame Frame1 
      Height          =   2655
      Left            =   360
      TabIndex        =   0
      Top             =   120
      Width           =   3975
      Begin ACTIVESKINLibCtl.Skin skndelete 
         Left            =   3480
         OleObjectBlob   =   "frmdelete.frx":0000
         Top             =   2280
      End
      Begin ACTIVESKINLibCtl.SkinLabel SkinLabel2 
         Height          =   255
         Left            =   600
         OleObjectBlob   =   "frmdelete.frx":0234
         TabIndex        =   6
         Top             =   1080
         Width           =   735
      End
      Begin ACTIVESKINLibCtl.SkinLabel SkinLabel1 
         Height          =   375
         Left            =   360
         OleObjectBlob   =   "frmdelete.frx":0298
         TabIndex        =   5
         Top             =   600
         Width           =   975
      End
      Begin VB.TextBox txtusername 
         Height          =   375
         Left            =   1320
         TabIndex        =   4
         Top             =   600
         Width           =   1935
      End
      Begin VB.TextBox txtpassword 
         Height          =   375
         Left            =   1320
         TabIndex        =   3
         Top             =   1080
         Width           =   1935
      End
      Begin VB.CommandButton cmdok 
         Caption         =   "确 定"
         Height          =   495
         Left            =   360
         TabIndex        =   2
         Top             =   1800
         Width           =   1215
      End
      Begin VB.CommandButton cmdcancel 
         Caption         =   "取 消"
         Height          =   495
         Left            =   2040
         TabIndex        =   1
         Top             =   1800
         Width           =   1215
      End
   End
End
Attribute VB_Name = "frmdelete"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub cmdcancel_Click()
Unload Me
End Sub


Private Sub cmdok_Click() '栓出操作员
Dim inanswer As String
Dim rst As ADODB.Recordset
txtsql = "select * from tbLogin where cName= '" & Trim(txtusername.Text) & " '"  '搜寻要栓出的操作员名与输入的匹配否
Set rst = ExecuteSQL(txtsql)
If Not rst.EOF Then
    If Trim(rst!cName) = Trim(username) Then   '不能栓出当前操作员
        MsgBox "此用户为当前用户，不能删除！"
        txtusername.Text = ""
        txtpassword.Text = ""
    Else
        If Trim(rst!cPassword) = Trim(txtpassword.Text) Then  '搜寻要栓出的操作员密码与输入的匹配否
            intAnswer = MsgBox("确认删除当前记录吗?", vbYesNo + vbQuestion, "金恒生计算机硬件公司管理系统")
            If intAnswer = vbYes Then
                rst.Delete
                txtusername.Text = ""
                txtpassword.Text = ""
            Else
                Unload Me
            End If
        Else
            MsgBox "你输入的密码不正确！"
        End If
     End If
Else
    MsgBox "没有此用户存在！"
    txtusername.Text = ""
    txtpassword.Text = ""
End If
rst.Close
End Sub

Private Sub Form_Load()
Call changeskin(Me, skndelete, strSkin)
End Sub