Dim myuser(1 To 100, 1 To 2) As String
Dim knum As Integer
Private Sub Check1_Click() '注册
Command3.Enabled = Check1.Value
Command4.Enabled = Check1.Value
End Sub
Private Sub Command1_Click() '登陆
If knum > 0 Then
For i = 1 To knum
If Text1.Text = myuser(i, 1) And Text2.Text = myuser(i, 2) Then
Form2.Show
Exit Sub
End If
Next
MsgBox "非法用户"
Else
MsgBox "请注册用户"
End If
End Sub
Private Sub Command1_KeyPress(KeyAscii As Integer)
If KeyCode = 13 Then
Command1.Value = True
End Sub
Private Sub Command2_Click() '重置
Text1.Text = ""
Text2.Text = ""
End Sub
Private Sub Command3_Click() '注册用户
myuser(knum + 1, 1) = Text1.Text
myuser(knum + 1, 2) = Text2.Text
knum = knum + 1
Text1.Text = ""
Text2.Text = ""
End Sub
Private Sub Command4_Click() '删除用户
For i = 1 To knum
If Text1.Text = myuser(i, 1) And Text2.Text = myuser(i, 2) Then
myuser(i, 1) = ""
myuser(i, 2) = ""
End If
Next
End Sub
Private Sub Form_Load()
knum = 0
End Sub
Private Sub Text1_Change()
Command1.Enabled = Text1.Text <> "" And Text2.Text <> ""
Command2.Enabled = Text1.Text <> "" Or Text2.Text <> ""
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
Dim a As String
a = KeyAscii
If Not (a >= 65 And a < 91 Or a >= 97 And a <= 123) Then
KeyAscii = 0
End If
End Sub
Private Sub Text2_Change()
Command1.Enabled = Text1.Text <> "" And Text2.Text <> ""
Command2.Enabled = Text1.Text <> "" Or Text2.Text <> ""
End Sub
Private Sub Text2_KeyPress(KeyAscii As Integer)
Dim a As String
a = Chr(KeyAscii)
If IsNumeric(a) = flase Then
keyacsii = 0
End If
End Sub