?? form4.frm
字號(hào):
VERSION 5.00
Begin VB.Form Form2
BackColor = &H00C0FFC0&
Caption = "請(qǐng)慎重選擇"
ClientHeight = 3660
ClientLeft = 60
ClientTop = 450
ClientWidth = 6435
BeginProperty Font
Name = "宋體"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
LinkTopic = "Form2"
ScaleHeight = 3660
ScaleWidth = 6435
StartUpPosition = 3 '窗口缺省
Begin VB.CommandButton Command2
Caption = "取 消"
BeginProperty Font
Name = "宋體"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 5160
TabIndex = 2
Top = 1800
Width = 1095
End
Begin VB.CommandButton Command1
Caption = "確 定"
BeginProperty Font
Name = "宋體"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 5160
TabIndex = 1
Top = 960
Width = 1095
End
Begin VB.Label Label1
BackColor = &H00C0FFC0&
Caption = "此帳戶即將被凍結(jié),如要繼續(xù),請(qǐng)點(diǎn)擊“確定”鍵三次"
BeginProperty Font
Name = "宋體"
Size = 21.75
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 1335
Left = 840
TabIndex = 0
Top = 960
Width = 3615
End
End
Attribute VB_Name = "Form2"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
Dim response
Set db = OpenDatabase(App.Path + "/cw.mdb") '打開(kāi)數(shù)據(jù)庫(kù)
Set rs1 = db.OpenRecordset("PersonCount")
Set rs1 = db.OpenRecordset("SELECT * FROM PersonCount")
Set rs2 = db.OpenRecordset("Person")
Set rs2 = db.OpenRecordset("SELECT * FROM Person")
NameQuery2 = frmFirst.txtName.Text '查找當(dāng)前登陸用戶的記錄集
rs1.MoveFirst
Do Until rs1.EOF
If rs1.Fields("用戶名") Like LCase(NameQuery2) Then
With rs1
.Delete
.MoveLast
End With
Exit Sub
Else
rs1.MoveNext
End If
Loop
rs2.MoveFirst
Do Until rs2.EOF
If rs2.Fields("用戶名") Like LCase(NameQuery2) Then
With rs2
.Delete
.MoveLast
End With
Exit Sub
Else
rs2.MoveNext
End If
Loop
pp = MsgBox("帳戶已經(jīng)成功凍結(jié)!", vbOKOnly + vbInformation, "成功!")
If response = 1 Then
End
End If
Unload Me
frmFirst.txtName.Text = ""
frmFirst.txtPass.Text = ""
frmFirst.Show
End Sub
Private Sub Command2_Click()
Unload Me
frmFirst.txtName.Text = ""
frmFirst.txtPass.Text = ""
frmFirst.Show
End Sub
?? 快捷鍵說(shuō)明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -