VERSION 5.00
Begin VB.Form Form11 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "刪除用戶"
   ClientHeight    =   5415
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   7095
   LinkTopic       =   "Form11"
   MaxButton       =   0   'False
   MDIChild        =   -1  'True
   MinButton       =   0   'False
   ScaleHeight     =   5415
   ScaleWidth      =   7095
   Begin VB.Frame Frame1 
      BackColor       =   &H80000003&
      Caption         =   "請選擇要刪除用戶名"
      Height          =   4575
      Left            =   240
      TabIndex        =   0
      Top             =   120
      Width           =   6375
      Begin VB.CommandButton Command3 
         Caption         =   "選擇刪除"
         Height          =   855
         Left            =   240
         TabIndex        =   4
         Top             =   3120
         Width           =   1215
      End
      Begin VB.ComboBox Combo1 
         Height          =   300
         Left            =   480
         TabIndex        =   3
         Top             =   1080
         Width           =   2535
      End
      Begin VB.CommandButton Command2 
         Caption         =   "退出"
         Height          =   975
         Left            =   4800
         TabIndex        =   2
         Top             =   3480
         Width           =   1455
      End
      Begin VB.CommandButton Command1 
         Caption         =   "刪除"
         Height          =   855
         Left            =   2160
         TabIndex        =   1
         Top             =   3120
         Width           =   1335
      End
   End
   Begin VB.Image Image1 
      Height          =   5415
      Left            =   0
      Picture         =   "Form13.frx":0000
      Stretch         =   -1  'True
      Top             =   0
      Width           =   7095
   End
End
Attribute VB_Name = "Form11"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim conn As New ADODB.Connection
Dim mrc As New ADODB.Recordset

Private Sub Command1_Click()
 Dim txtql As String
Dim txtsql As String
txtsql = "delete from 用戶表 where  "
txtsql = txtsql & "用戶名=" & "'" & Trim(Combo1.Text) & "'"
Set mrc = executesql(txtsql)
Combo1.Clear
Combo1.Text = "洪清泉"
txtql = "select 用戶表.用戶名 from 用戶表  "
Set mrc = executesql(txtql)
 Do While Not mrc.EOF
 Combo1.AddItem mrc.Fields(0).Value
 mrc.MoveNext
 Loop

End Sub
Public Function executesql(ByVal sql As String) As ADODB.Recordset
Dim cnn As ADODB.Connection
Dim rst As ADODB.Recordset
Set cnn = New ADODB.Connection
Dim stokens() As String
stokens = Split(sql)
cnn.Open "Provider = Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\student.mdb"
If InStr(" INSERT,DELETE,UPDATE", UCase$(stokens(0))) Then
cnn.Execute sql
Else
Set rst = New ADODB.Recordset
rst.Open Trim$(sql), cnn, adOpenKeyset, adLockOptimistic
Set executesql = rst
End If

End Function

Private Sub Command2_Click()
Me.Enabled = False
Me.Enabled = True

Me.Hide

End Sub

Private Sub Command3_Click()
Combo1.Text = "洪清泉"
 Dim txtql As String
 txtql = "select 用戶表.用戶名 from 用戶表  "
Set mrc = executesql(txtql)
 Do While Not mrc.EOF
 Combo1.AddItem mrc.Fields(0).Value
 mrc.MoveNext
 Loop
End Sub

Private Sub Command4_Click()
Me.Hide
End Sub

Private Sub Form_Load()
connstr = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\student.mdb"
conn.Open connstr
Me.Enabled = False
Me.Enabled = True
Combo1.Text = "洪清泉"
 Dim txtql As String
 txtql = "select 用戶表.用戶名 from 用戶表  "
Set mrc = executesql(txtql)
 Do While Not mrc.EOF
 Combo1.AddItem mrc.Fields(0).Value
 mrc.MoveNext
 Loop
End Sub