-
1
-
2
-
3
-
4
-
5
-
6
-
7
-
8
-
9
-
10
-
11
-
12
-
13
-
14
-
15
-
16
-
17
-
18
-
19
-
20
-
21
-
22
-
23
-
24
-
25
-
26
-
27
-
28
-
29
-
30
-
31
-
32
-
33
-
34
-
35
-
36
-
37
-
38
-
39
-
40
-
41
-
42
-
43
-
44
-
45
-
46
-
47
-
48
-
49
-
50
-
51
목차
1. 프로젝트 시나리오
2. 외부스키마 작성 및 분석
3. 외부스키마(뷰)의 통합
4. 관계형DB로의 전환
5. 정규화
6. DDL 작성
7. 사용자 뷰의 제작(DML의 작성)
8. 사용자 인터페이스의 완성
9. 이벤트 프로시저 및 기타 코드
2. 외부스키마 작성 및 분석
3. 외부스키마(뷰)의 통합
4. 관계형DB로의 전환
5. 정규화
6. DDL 작성
7. 사용자 뷰의 제작(DML의 작성)
8. 사용자 인터페이스의 완성
9. 이벤트 프로시저 및 기타 코드
본문내용
gBox Err.Description
Resume Exit_cmd직원정보관리_Click
End Sub
Private Sub cmd시설물관리_Click()
On Error GoTo Err_cmd시설물관리_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "frm시설물관리"
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_cmd시설물관리_Click:
Exit Sub
Err_cmd시설물관리_Click:
MsgBox Err.Description
Resume Exit_cmd시설물관리_Click
End Sub
Private Sub cmd협력업체관리_Click()
On Error GoTo Err_cmd협력업체관리_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "frm협력업체"
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_cmd협력업체관리_Click:
Exit Sub
Err_cmd협력업체관리_Click:
MsgBox Err.Description
Resume Exit_cmd협력업체관리_Click
End Sub
Private Sub cmd출석부_Click()
On Error GoTo Err_cmd출석부_Click
Combo8.SetFocus
If strReportSource = "" Then
MsgBox "먼저 강습반을 선택하세요", vbCritical + vbOKOnly, "출석부"
Exit Sub
End If
Dim stDocName As String
stDocName = "rpt출석부"
DoCmd.OpenReport stDocName, acPreview
Exit_cmd출석부_Click:
Exit Sub
Err_cmd출석부_Click:
MsgBox Err.Description
Resume Exit_cmd출석부_Click
End Sub
Private Sub cmd강사배정현황_Click()
On Error GoTo Err_cmd강사배정현황_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "frm강사배정현황"
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_cmd강사배정현황_Click:
Exit Sub
Err_cmd강사배정현황_Click:
MsgBox Err.Description
Resume Exit_cmd강사배정현황_Click
End Sub
Private Sub cmd회원강습반배정_Click()
On Error GoTo Err_cmd회원강습반배정_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "frm강습반배정"
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_cmd회원강습반배정_Click:
Exit Sub
Err_cmd회원강습반배정_Click:
MsgBox Err.Description
Resume Exit_cmd회원강습반배정_Click
End Sub
Private Sub cmd점검일지_Click()
On Error GoTo Err_cmd점검일지_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "frm점검일지"
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_cmd점검일지_Click:
Exit Sub
Err_cmd점검일지_Click:
MsgBox Err.Description
Resume Exit_cmd점검일지_Click
End Sub
Private Sub cmdDiaryView_Click()
On Error GoTo Err_cmdDiaryView_Click
Dim stDocName As String
stDocName = "rpt점검일지"
DoCmd.OpenReport stDocName, acPreview
Exit_cmdDiaryView_Click:
Exit Sub
Err_cmdDiaryView_Click:
MsgBox Err.Description
Resume Exit_cmdDiaryView_Click
End Sub
Private Sub cmdDiaryPrint_Click()
On Error GoTo Err_cmdDiaryPrint_Click
Dim stDocName As String
stDocName = "rpt점검일지"
DoCmd.OpenReport stDocName, acNormal
Exit_cmdDiaryPrint_Click:
Exit Sub
Err_cmdDiaryPrint_Click:
MsgBox Err.Description
Resume Exit_cmdDiaryPrint_Click
End Sub
4. 폼
(1-1) 출석부 (보고서 디자인)
(1-2) 출석부 (이벤트 코드)
Option Compare Database
Private Sub 본문_Format(Cancel As Integer, FormatCount As Integer)
End Sub
Private Sub Report_Open(Cancel As Integer)
Dim strSQL As String
strSQL = "SELECT * from view강습현황 WHERE 강습반명='" & strReportSource & "'"
'MsgBox strSQL
Me.RecordSource = strSQL
End Sub
(2) 점검일지 (디자인)
5. 기타
(1) 전역변수 모듈(myPublicVars)
Option Compare Database
Public strFormState As String
Public strCheck1 As String
Public strCheck2 As String
Public strTemp As String
Public strTemp2 As String
Public strReportSource As String
Resume Exit_cmd직원정보관리_Click
End Sub
Private Sub cmd시설물관리_Click()
On Error GoTo Err_cmd시설물관리_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "frm시설물관리"
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_cmd시설물관리_Click:
Exit Sub
Err_cmd시설물관리_Click:
MsgBox Err.Description
Resume Exit_cmd시설물관리_Click
End Sub
Private Sub cmd협력업체관리_Click()
On Error GoTo Err_cmd협력업체관리_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "frm협력업체"
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_cmd협력업체관리_Click:
Exit Sub
Err_cmd협력업체관리_Click:
MsgBox Err.Description
Resume Exit_cmd협력업체관리_Click
End Sub
Private Sub cmd출석부_Click()
On Error GoTo Err_cmd출석부_Click
Combo8.SetFocus
If strReportSource = "" Then
MsgBox "먼저 강습반을 선택하세요", vbCritical + vbOKOnly, "출석부"
Exit Sub
End If
Dim stDocName As String
stDocName = "rpt출석부"
DoCmd.OpenReport stDocName, acPreview
Exit_cmd출석부_Click:
Exit Sub
Err_cmd출석부_Click:
MsgBox Err.Description
Resume Exit_cmd출석부_Click
End Sub
Private Sub cmd강사배정현황_Click()
On Error GoTo Err_cmd강사배정현황_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "frm강사배정현황"
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_cmd강사배정현황_Click:
Exit Sub
Err_cmd강사배정현황_Click:
MsgBox Err.Description
Resume Exit_cmd강사배정현황_Click
End Sub
Private Sub cmd회원강습반배정_Click()
On Error GoTo Err_cmd회원강습반배정_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "frm강습반배정"
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_cmd회원강습반배정_Click:
Exit Sub
Err_cmd회원강습반배정_Click:
MsgBox Err.Description
Resume Exit_cmd회원강습반배정_Click
End Sub
Private Sub cmd점검일지_Click()
On Error GoTo Err_cmd점검일지_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "frm점검일지"
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_cmd점검일지_Click:
Exit Sub
Err_cmd점검일지_Click:
MsgBox Err.Description
Resume Exit_cmd점검일지_Click
End Sub
Private Sub cmdDiaryView_Click()
On Error GoTo Err_cmdDiaryView_Click
Dim stDocName As String
stDocName = "rpt점검일지"
DoCmd.OpenReport stDocName, acPreview
Exit_cmdDiaryView_Click:
Exit Sub
Err_cmdDiaryView_Click:
MsgBox Err.Description
Resume Exit_cmdDiaryView_Click
End Sub
Private Sub cmdDiaryPrint_Click()
On Error GoTo Err_cmdDiaryPrint_Click
Dim stDocName As String
stDocName = "rpt점검일지"
DoCmd.OpenReport stDocName, acNormal
Exit_cmdDiaryPrint_Click:
Exit Sub
Err_cmdDiaryPrint_Click:
MsgBox Err.Description
Resume Exit_cmdDiaryPrint_Click
End Sub
4. 폼
(1-1) 출석부 (보고서 디자인)
(1-2) 출석부 (이벤트 코드)
Option Compare Database
Private Sub 본문_Format(Cancel As Integer, FormatCount As Integer)
End Sub
Private Sub Report_Open(Cancel As Integer)
Dim strSQL As String
strSQL = "SELECT * from view강습현황 WHERE 강습반명='" & strReportSource & "'"
'MsgBox strSQL
Me.RecordSource = strSQL
End Sub
(2) 점검일지 (디자인)
5. 기타
(1) 전역변수 모듈(myPublicVars)
Option Compare Database
Public strFormState As String
Public strCheck1 As String
Public strCheck2 As String
Public strTemp As String
Public strTemp2 As String
Public strReportSource As String
소개글