목차
1. 개발목적 및 필요성
2. 개발범위 (전체적인 범위)
3. 시스템 개발내용 (기능 위주의 구체적인 개발내용)
4. 프로그램 소스
5. 결론 및 향후 개발과제
2. 개발범위 (전체적인 범위)
3. 시스템 개발내용 (기능 위주의 구체적인 개발내용)
4. 프로그램 소스
5. 결론 및 향후 개발과제
본문내용
ddNew
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
소개글