Unload Me
gzglxt.Show
Else
MsgBox "密码不符，请核对后再输入"
Text3.Text = ""
Text3.SetFocus
End If
End Sub
Private Sub Command2_Click()
End
End Sub
Private Sub Form_Load()
Data1.DatabaseName = App.Path + "\gzglxt.mdb"
Data1.RecordSource = "mmk"
Data1.Refresh
End Sub
Private Sub Text1_Change()
If Len(Text1.Text) >= 2 Then
Data1.Recordset.FindFirst "czydm=" + "'" + Text1.Text + "'"
If Data1.Recordset.NoMatch = True Then
MsgBox "操作员代码不存在，请核对后再输入!"
Text1.Text = ""
Text1.SetFocus
Else
Text2.Text = Data1.Recordset.Fields(1)
Text3.SetFocus
End If
End If
End Sub
Private Sub Text3_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Command1.SetFocus
End If
End Sub
2.数据恢复界面:
数据恢复代码设计:
Private Sub Command1_Click()
Data1.Recordset.MoveFirst
Call disp4
End Sub
Sub disp4()
Text1.Text = Data1.Recordset.Fields(0)
Text2.Text = Data1.Recordset.Fields(1)
Text3.Text = Data1.Recordset.Fields(2)
End Sub
Private Sub Command2_Click()
If Data1.Recordset.BOF = False Then Data1.Recordset.MovePrevious
If Data1.Recordset.BOF = True Then Data1.Recordset.MoveNext
Call disp4
End Sub
Private Sub Command3_Click()
If Data1.Recordset.EOF = False Then Data1.Recordset.MoveNext
If Data1.Recordset.EOF = True Then Data1.Recordset.MovePrevious
Call disp4
End Sub
Private Sub Command4_Click()
Data1.Recordset.MoveLast
Call disp4
End Sub
Private Sub Command5_Click()
dm = InputBox("请输入您要查找的操作员的代码")
Data1.Recordset.FindFirst "czydm=" + "'" + dm + "'"
If Data1.Recordset.NoMatch = True Then
MsgBox "查无此操作员"
Exit Sub
Else
Call disp4
End If
End Sub
