목차
1. 개발목적 및 필요성
2. 개발범위 (전체적인 범위)
3. 시스템 개발내용 (기능 위주의 구체적인 개발내용)
4. 프로그램 소스
5. 결론 및 향후 개발과제
2. 개발범위 (전체적인 범위)
3. 시스템 개발내용 (기능 위주의 구체적인 개발내용)
4. 프로그램 소스
5. 결론 및 향후 개발과제
본문내용
.AddNew
MyRecordset.Fields(\"이름\") = Text1.Text
MyRecordset.Fields(\"시간\") = Label3.Caption
MyRecordset.Update
MyRecordset.Bookmark = MyRecordset.LastModified
MsgBox \"기록이 저장되었습니다~!!!\", vbOKOnly
End Sub
Private Sub Command2_Click() \'기록 수정..
MyRecordset.Index = \"이름인덱스\"
MyRecordset.Seek \"=\", Text1.Text
MyRecordset.Edit
MyRecordset.Fields(\"시간\") = Label3.Caption
MyRecordset.Update
MsgBox \"기록이 수정되었습니다~!\", vbOKOnly
End Sub
Private Sub Command3_Click()
End
End Sub
Private Sub Command4_Click() \'예전의 기록 검사..
MyRecordset.Index = \"이름인덱스\"
MyRecordset.Seek \"=\", Text1.Text
If MyRecordset.NoMatch Then
MsgBox \"예전 기록이 없습니다. 새기록을 저장하세요\", vbOKOnly
Exit Sub
End If
MyRecordset.Edit
Label4.Caption = MyRecordset.Fields(\"시간\")
End Sub
Private Sub Form_Load()
Label3.Caption = Form1.Label1.Caption
Set MyDB = DBEngine.Workspaces(0).OpenDatabase(\"C:\\Documents and Settings\\Administrator\\바탕 화면\\영이꺼\\비베다시\\기록.mdb\")
Set MyRecordset = MyDB.OpenRecordset(\"기록\", dbOpenTable)
End Sub
5. 결론 및 향후 개발과제
- 처음에는 과연 프로그램 개발에 성공할 수 있을까하는 마음도 없지 않았다. 미흡한 점도 많지만 스스로 이러한 프로그램 개발에 성공했다는 것에 너무도 뿌듯하고 막막하고 에러만 나던 항목들을 조금씩 수정해가면서 비주얼 베이직의 구사능력을 한층 향상 시킬 수 있었고 실직적인 공부가 된 것 같다. 더욱 실력을 향상시켜 부족한 점들을 수정해서 보다 효율적이고 실용 가능한 프로그램이 되도록 개발에 힘쓰도록 할 것이다.y
MyRecordset.Fields(\"이름\") = Text1.Text
MyRecordset.Fields(\"시간\") = Label3.Caption
MyRecordset.Update
MyRecordset.Bookmark = MyRecordset.LastModified
MsgBox \"기록이 저장되었습니다~!!!\", vbOKOnly
End Sub
Private Sub Command2_Click() \'기록 수정..
MyRecordset.Index = \"이름인덱스\"
MyRecordset.Seek \"=\", Text1.Text
MyRecordset.Edit
MyRecordset.Fields(\"시간\") = Label3.Caption
MyRecordset.Update
MsgBox \"기록이 수정되었습니다~!\", vbOKOnly
End Sub
Private Sub Command3_Click()
End
End Sub
Private Sub Command4_Click() \'예전의 기록 검사..
MyRecordset.Index = \"이름인덱스\"
MyRecordset.Seek \"=\", Text1.Text
If MyRecordset.NoMatch Then
MsgBox \"예전 기록이 없습니다. 새기록을 저장하세요\", vbOKOnly
Exit Sub
End If
MyRecordset.Edit
Label4.Caption = MyRecordset.Fields(\"시간\")
End Sub
Private Sub Form_Load()
Label3.Caption = Form1.Label1.Caption
Set MyDB = DBEngine.Workspaces(0).OpenDatabase(\"C:\\Documents and Settings\\Administrator\\바탕 화면\\영이꺼\\비베다시\\기록.mdb\")
Set MyRecordset = MyDB.OpenRecordset(\"기록\", dbOpenTable)
End Sub
5. 결론 및 향후 개발과제
- 처음에는 과연 프로그램 개발에 성공할 수 있을까하는 마음도 없지 않았다. 미흡한 점도 많지만 스스로 이러한 프로그램 개발에 성공했다는 것에 너무도 뿌듯하고 막막하고 에러만 나던 항목들을 조금씩 수정해가면서 비주얼 베이직의 구사능력을 한층 향상 시킬 수 있었고 실직적인 공부가 된 것 같다. 더욱 실력을 향상시켜 부족한 점들을 수정해서 보다 효율적이고 실용 가능한 프로그램이 되도록 개발에 힘쓰도록 할 것이다.y
추천자료
Acdsee를 활용한 신나는 도덕 수업방안
한국언론사(언론 발달사)
[레저스포츠] 레크레이션 258가지
[보육실습] 교구교재 계획안 3가지
평가인증 통과한 나와 가족 보육일지 (6~7세 통합) 보육일지 관찰일지 신입원아적응일지 만4...
[보육일지] 평가인증 통과한 8월 교통수단 보육일지 (6~7세 통합) [사회복지]
[사회복지] 보육실습일지 1개월(4주분량)-가정어린이집
5월 월간계획안
흥미 영역 구성시 연령별 유의점
[독서교육]독서교육(독서지도) 사례1, 독서교육(독서지도) 사례2, 독서교육(독서지도) 사례3,...
네모네모로직스와 미로찾기
유아보육 관찰일지 - 일화기록 10개
영유아 과학활동을 위한 교구 5개 이상 조사하기
소개글