Top             =   1320
         Width           =   1455
      End
      Begin VB.OptionButton Option4 
         Caption         =   "按加入時間查詢"
         Height          =   255
         Left            =   1800
         TabIndex        =   4
         Top             =   840
         Width           =   1575
      End
      Begin VB.OptionButton Option3 
         Caption         =   "按級別查詢"
         Height          =   255
         Left            =   360
         TabIndex        =   3
         Top             =   840
         Width           =   1335
      End
      Begin VB.OptionButton Option2 
         Caption         =   "按姓名查詢"
         Height          =   255
         Left            =   1800
         TabIndex        =   2
         Top             =   360
         Width           =   1455
      End
      Begin VB.OptionButton Option1 
         Caption         =   "按編號查詢"
         Height          =   255
         Left            =   360
         TabIndex        =   1
         Top             =   360
         Width           =   1215
      End
   End
End
Attribute VB_Name = "FindVip"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Private Sub Command1_Click()
Dim SQL As String
If Text1.Text = "" Then
   MsgBox "請輸入需要查找的關鍵字！", vbInformation + vbOKOnly, "信息"
   Text1.SetFocus
   Exit Sub
End If

If Check1.Value = 0 Then
   If Option1.Value = True Then
      SQL = "select * from vipinfo where 會員ID='" & Text1.Text & "'"
   End If
   If Option2.Value = True Then
      SQL = "select * from vipinfo where 會員姓名='" & Text1.Text & "'"
   End If
   If Option3.Value = True Then
      SQL = "select * from vipinfo where 會員級別='" & Text1.Text & "'"
   End If
   If Option4.Value = True Then
      SQL = "select  * from vipinfo where 辦理日期=#" & Text1.Text & "#"
   End If
ElseIf Check1.Value = 1 Then
   If Option1.Value = True Then
      SQL = "select * from vipinfo where 會員ID like '%" & Text1.Text & "%'"
   End If
   If Option2.Value = True Then
      SQL = "select * from vipinfo where 會員姓名 like '%" & Text1.Text & "%'"
   End If
   If Option3.Value = True Then
      SQL = "select * from vipinfo where 會員級別 like '%" & Text1.Text & "%'"
   End If
   If Option4.Value = True Then
      SQL = "select  * from vipinfo where 辦理日期 like '%" & Text1.Text & "%'"
   End If
End If
Adodc1.RecordSource = SQL
Adodc1.Refresh
Set DataGrid1.DataSource = Adodc1
If Adodc1.Recordset.RecordCount <= 0 Then
   MsgBox "對不起數據庫中沒有你需要的信息！", vbInformation + vbOKOnly, "信息"
   Text1.Text = ""
   Text1.SetFocus
   Command3.Enabled = False
   Command4.Enabled = False
   Command6.Visible = False
Else
   Command3.Enabled = True
   Command4.Enabled = True
   Command6.Visible = True
End If
End Sub

Private Sub Command2_Click()
Text1.Text = ""
Text1.SetFocus
Option1.Value = True
Option2.Value = False
Option3.Value = False
Option4.Value = False
Option5.Value = False
Check1.Value = 0
End Sub

Private Sub Command3_Click()
If Adodc1.Recordset.RecordCount <= 0 Then
   MsgBox "對不起，沒有信息可供修改！", vbInformation + vbOKOnly, "信息"
   Exit Sub
End If
EditVip.Show vbModal

End Sub

Private Sub Command4_Click()

If Adodc1.Recordset.RecordCount <= 0 Then
   MsgBox "對不起，沒有信息可供刪除！", vbInformation + vbOKOnly, "警告"
   Exit Sub
End If
If MDIForm1.MdSet.Visible = False Then
   MsgBox "對不起，你不是管理員，無法刪除信息！", vbInformation + vbOKOnly, "警告"
   Exit Sub
End If
DataGrid1.Col = 0
If MsgBox("你是否確定刪除會員ID為“" & DataGrid1.Text & "”的會員信息？", vbInformation + vbYesNo, "是否刪除") = vbYes Then
With Adodc1.Recordset
     .Delete
End With
MsgBox "信息刪除成功，請返回！", vbInformation + vbOKOnly, "提示"
End If

End Sub

Private Sub Command5_Click()
Unload Me
End Sub

Private Sub Command6_Click()
FindVipinfo.Show vbModal
End Sub

Private Sub Form_Load()
Adodc1.ConnectionString = "provider=microsoft.jet.oledb.4.0;data source=" _
                          & App.Path & "\cdlent.mdb;Mode=ReadWrite;Persist Security Info=True;Jet OLEDB:Database Password=vcdglxt"
Adodc1.CursorLocation = adUseClient
Adodc1.CommandType = adCmdText
Command3.Enabled = False
Command4.Enabled = False
Label2.Visible = False
End Sub

Private Sub Option1_Click()
Label1.Caption = "按編號查詢"
Text1.SetFocus
Label2.Visible = False
End Sub

Private Sub Option2_Click()
Label1.Caption = "按姓名查詢"
Text1.SetFocus
Label2.Visible = False
End Sub

Private Sub Option3_Click()
Label1.Caption = "按級別查詢"
Text1.SetFocus
Label2.Visible = False
End Sub

Private Sub Option4_Click()
Label1.Caption = "按時間查詢"
Text1.SetFocus
Label2.Visible = True
End Sub

Private Sub Option5_Click()
Dim SQL As String
Label2.Visible = False
SQL = "select * from vipinfo"
Adodc1.RecordSource = SQL
Set DataGrid1.DataSource = Adodc1
Adodc1.Refresh
If Adodc1.Recordset.RecordCount > 0 Then
    Command3.Enabled = True
    Command4.Enabled = True
    Command6.Visible = True
Else
    Command3.Enabled = False
    Command4.Enabled = False
    Command6.Visible = False
End If
End Sub

Private Sub text1_keypress(keyascii As Integer)
If keyascii = "13" And Text1.Text <> "" Then
       Dim SQL As String
  If Check1.Value = 0 Then
      If Option1.Value = True Then
          SQL = "select * from vipinfo where 會員ID='" & Text1.Text & "'"
      End If
      If Option2.Value = True Then
          SQL = "select * from vipinfo where 會員姓名='" & Text1.Text & "'"
      End If
      If Option3.Value = True Then
          SQL = "select * from vipinfo where 會員級別='" & Text1.Text & "'"
      End If
      If Option4.Value = True Then
          SQL = "select  * from vipinfo where 辦理日期=#" & Text1.Text & "#"
      End If
  ElseIf Check1.Value = 1 Then
      If Option1.Value = True Then
          SQL = "select * from vipinfo where 會員ID like '%" & Text1.Text & "%'"
      End If
      If Option2.Value = True Then
          SQL = "select * from vipinfo where 會員姓名 like '%" & Text1.Text & "%'"
      End If
      If Option3.Value = True Then
          SQL = "select * from vipinfo where 會員級別 like '%" & Text1.Text & "%'"
      End If
      If Option4.Value = True Then
          SQL = "select  * from vipinfo where 辦理日期 like '%" & Text1.Text & "%'"
      End If
  End If
  Adodc1.RecordSource = SQL
  Adodc1.Refresh
  Set DataGrid1.DataSource = Adodc1
  If Adodc1.Recordset.RecordCount <= 0 Then
     MsgBox "對不起數據庫中沒有你需要的信息！", vbInformation + vbOKOnly, "信息"
     Text1.Text = ""
     Text1.SetFocus
     Command3.Enabled = False
     Command4.Enabled = False
     Command6.Visible = False
  Else
     Command3.Enabled = True
     Command4.Enabled = True
     Command6.Visible = True
  End If
ElseIf keyascii = "13" And Text1.Text = "" Then
   MsgBox "請輸入需要查找的關鍵字！", vbInformation + vbOKOnly, "信息"
   Text1.SetFocus
End If

End Sub