评价网 > 科教论文 > 工学毕业论文 > 计算机论文 > 正文

VB工资管理系统(一)毕业论文网(4)

2013-05-09 01:32
        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 Command10_Click()
Command1.Enabled = True
Command2.Enabled = True （科教作文网http://zw.ΝsΕac.cOM编辑）
Command3.Enabled = True
Command4.Enabled = True
Command5.Enabled = True
Command6.Enabled = True
Command7.Enabled = True
Command8.Enabled = True
Command9.Enabled = False
Command1.SetFocus
Call disp4
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

Private Sub Command6_Click()
  Command1.Enabled = False
  Command2.Enabled = False
  Command3.Enabled = False
  Command4.Enabled = False
  Command5.Enabled = False
  Command6.Enabled = False
  Command7.Enabled = False
  Command8.Enabled = False
  Command9.Enabled = True
  Command10.Enabled = True
  Text1.Locked = False
  Text2.Locked = False
  Text3.Locked = False
  Text1.SetFocus
  bz1 = 111
End Sub

Private Sub Command7_Click()
   Comman