管理信息系统课程设计人事档案管理(11)

MsgBox "没有符合条件的档案 , 请重新输入查询条件！" Exit Sub End If End Sub

Private Sub Command2_Click() '先给赋值为0 Adodc1.Refresh

If Adodc1.Recordset.RecordCount = 0 Then Text3.Text = 0 Else sum = 0

Adodc1.Recordset.MoveFirst

Do While Not Adodc1.Recordset.EOF '从开始一直到结尾,累加 sum = sum + 1

Adodc1.Recordset.MoveNext Loop

Text3.Text = Val(sum) '保存到text1中去 Adodc1.Recordset.MoveFirst Adodc1.Refresh End If End Sub

BH = "请输入要修改的员工编号" bc = "修改" If cx > 0 Then BHs = Text2.Text Else

MsgBox "未选中数据！！", vbOKOnly + vbExclamation, "" Exit Sub

BHs = "" End If

Form8.Show Me.Hide End Sub

Private Sub Command4_Click() If Adodc1.Recordset.EOF Then MsgBox "没有可输出的数据！" Exit Sub End If sum = 0

Adodc1.Recordset.MoveFirst

Do While Not Adodc1.Recordset.EOF '从开始一直到结尾,累加 sum = sum + 1