성적관리프로그램

소개글

성적관리프로그램에 대한 보고서 자료입니다.

본문내용

만더 노력을 하셔요\"
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

키워드

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