성적관리프로그램

본문내용

노력을 하셔요"
ElseIf ave > 20 Then
lblgrade.Caption = "D"
'memo.Caption = "분발을 하셔요"
Else
lblgrade.Caption = "F"
'memo.Caption = "정말 형편이 없군요"
End If
Data1.UpdateRecord
If addsu Then
recordsu = recordsu + 1
addsu = 0
Call recordchk
End If
textlock True
End Sub
Private Sub recordchk()
Data1.Caption = Str(currentrec) & " Record of " & Str(recordsu) & " Records"
End Sub
Private Sub mnualldata_Click()
Form1.Hide
Form2.Show
End Sub
Private Sub mnudelete_Click()
Dim del As Integer
If recordsu = 1 Then
MsgBox "하나의 레코드만 존제합니다" + Chr(13) + "더 이상의 삭제는 불가능합니다", , "레코드 삭제"
Exit Sub
End If
del = MsgBox("삭제된 내용은 복구가 불가능합니다" + Chr(13) + "삭제하겠습니까?", vbYesNo, "레코드 삭제")
If del = vbYes Then
Data1.Recordset.Delete
Data1.Recordset.MoveNext
If Data1.Recordset.EOF Then
Data1.Recordset.MoveLast
End If
End If
End Sub

키워드

성적관리 프로그램,   성정관리,   프로그램,   데이타 처리,   레코드,   데이타