frmsystemdel.frm

1:首先要导入hotel数据

VERSION 5.00
Object = "{E95A2510-F3D1-416D-823B-4F840FE98091}#3.0#0"; "Command.ocx"
Object = "{0ECD9B60-23AA-11D0-B351-00A0C9055D8E}#6.0#0"; "MSHFLXGD.OCX"
Begin VB.Form frmSystemDel 
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "用户修改\删除"
   ClientHeight    =   2700
   ClientLeft      =   45
   ClientTop       =   435
   ClientWidth     =   4065
   ControlBox      =   0   'False
   LinkTopic       =   "Form1"
   LockControls    =   -1  'True
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   2700
   ScaleWidth      =   4065
   ShowInTaskbar   =   0   'False
   StartUpPosition =   3  '窗口缺省
   Begin CSCommand.Command cmdBack 
      Cancel          =   -1  'True
      Height          =   255
      Left            =   2280
      TabIndex        =   2
      Top             =   2280
      Width           =   1095
      _ExtentX        =   1931
      _ExtentY        =   450
      IconAlign       =   0
      Icon            =   "frmSystemDel.frx":0000
      Caption         =   "返 回(Ese)"
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "宋体"
         Size            =   9
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
   End
   Begin CSCommand.Command cmdDel 
      Height          =   255
      Left            =   720
      TabIndex        =   1
      Top             =   2280
      Width           =   1095
      _ExtentX        =   1931
      _ExtentY        =   450
      IconAlign       =   0
      Icon            =   "frmSystemDel.frx":001C
      Caption         =   "删 除(&D)"
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "宋体"
         Size            =   9
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
   End
   Begin MSHierarchicalFlexGridLib.MSHFlexGrid msgUser 
      Height          =   1455
      Left            =   120
      TabIndex        =   0
      Top             =   720
      Width           =   3735
      _ExtentX        =   6588
      _ExtentY        =   2566
      _Version        =   393216
      _NumberOfBands  =   1
      _Band(0).Cols   =   2
   End
   Begin VB.Label Label1 
      Caption         =   "删除用户"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   21.75
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   495
      Left            =   240
      TabIndex        =   3
      Top             =   120
      Width           =   3375
   End
End
Attribute VB_Name = "frmSystemDel"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim con As ADODB.Connection
Dim rs As ADODB.Recordset
Dim UserStr As String
Dim userDel As String
Dim i As Integer

Private Sub cmdBack_Click()
    Unload Me
End Sub

Private Sub cmdDel_Click()
    UserStr = "select * from administrator where admin='" & userDel & "'"
    If mdlCon.connectTotable(con, rs, UserStr) Then
    End If
    If rs.EOF And rs.BOF Then
        MsgBox "没有选定用户,请重新选择！"
        Exit Sub
    Else
        If userDel = mdlCon.userName Then
            MsgBox "此用户当前状态操作中...不能删除！", vbOKCancel + vbCritical, "删除用户"
        Else
            If MsgBox("要删除此操作员吗？", vbInformation + vbOKCancel, "操作员删除") = vbOK Then
                rs.Delete
                rs.MoveNext
                MsgBox "此操作员已被删除！"
            End If
        End If
    End If
    Form_Load
End Sub

Private Sub Form_Activate()
    Form_Load
End Sub
Private Sub Form_Load()
    UserStr = "select admin,ad_pwd,ad_type from administrator "
    If mdlCon.connectTotable(con, rs, UserStr) Then
        ShowTitle
        ShowData
    End If
End Sub

Sub ShowTitle()
    With msgUser
        .Cols = 4
        .TextMatrix(0, 1) = "用户名"
        .TextMatrix(0, 2) = "用户密码"
        .TextMatrix(0, 3) = "用户等级"
        .FixedCols = 1
        For i = 0 To 3
            .ColAlignment(i) = 0
        Next i
        .ColWidth(0) = 400
        .ColWidth(1) = 800
        .ColWidth(2) = 800
        .ColWidth(3) = 800
        .ColWidth(0) = 300
        .ColWidth(1) = 1000
        .ColWidth(2) = 1000
        .ColWidth(3) = 1000
    End With
End Sub

Sub ShowData()                                  '显示数据
    With msgUser
        .Rows = 2
        If Not rs.EOF Then
            For i = 1 To rs.Fields.Count
                .TextMatrix(.Rows - 1, i) = rs.Fields(i - 1)
            Next i
            rs.MoveNext
        End If
        Do While Not rs.EOF
            .Rows = .Rows + 1
            For i = 1 To rs.Fields.Count
                .TextMatrix(.Rows - 1, i) = rs.Fields(i - 1)
            Next i
            rs.MoveNext
        Loop
    End With
End Sub

Private Sub msgUser_Click()
    userDel = msgUser.TextMatrix(Me.msgUser.Row, 1)
End Sub

Private Sub msgUser_DblClick()
    UserModify = msgUser.TextMatrix(Me.msgUser.Row, 1)
    If UserModify = "" Then
        MsgBox "没有选定用户，请重新选择！"
    Else
        frmSystemModify.Show vbModal
    End If
End Sub