데이터베이스 설계[Ms access이용]

소개글

데이터베이스 설계[Ms access이용]에 대한 보고서 자료입니다.

목차

목 차
1. 프로젝트 개요서

2. 업무 기능도

3. 단위 업무 기술서

4. 업무 흐름도

5. 업무 문서 리스트

6. 논리적 데이터 모델

7. 용어 사전

8. 도메인 정의서

9. 물리적 데이터 모델

10. 테이블 기술서

11. MS ACCESS 모듈용 스크립트 내용

본문내용

.CreateRelation("Relationship10")
rel.Table= "hall"
rel.ForeignTable= "seat"
rel.Attributes= 0
Call AddFieldToRelation("hall_num", "hall_num")
dbs.Relations.Append rel
'=== Create relations between parent table customer and child table ticket ======
Set rel = dbs.CreateRelation("Relationship15")
rel.Table= "customer"
rel.ForeignTable= "ticket"
rel.Attributes= 0
Call AddFieldToRelation("customer_num", "customer_num")
dbs.Relations.Append rel
'=== Create relations between parent table customer and child table member_y ======
Set rel = dbs.CreateRelation("Relationship18")
rel.Table= "customer"
rel.ForeignTable= "member_y"
rel.Attributes= 0
Call AddFieldToRelation("customer_num", "customer_num")
dbs.Relations.Append rel
'=== Create relations between parent table customer and child table member_n ======
Set rel = dbs.CreateRelation("Relationship19")
rel.Table= "customer"
rel.ForeignTable= "member_n"
rel.Attributes= 0
Call AddFieldToRelation("customer_num", "customer_num")
dbs.Relations.Append rel
'=== Create relations between parent table member_y and child table payment ======
Set rel = dbs.CreateRelation("Relationship20")
rel.Table= "member_y"
rel.ForeignTable= "payment"
rel.Attributes= 0
Call AddFieldToRelation("customer_num", "customer_num")
dbs.Relations.Append rel
End Sub
' Add fields to table
'=====================
Sub AddFieldToTable(FieldName As String, DataType As String, SizeCol As Integer, Attributes As Long, DefaultValue As Variant, ValText As String, ValRule As String, NotN As Boolean, ZeroLength As Boolean)
Dim fld As DAO.Field
Set fld = tdf.CreateField( FieldName, DataType )
If SizeCol <> 0 Then fld.Size = SizeCol
If Attributes<> 0 Then fld.Attributes= Attributes
fld.Required = NotN
If DataType = dbText or DataType = dbMemo Then fld.AllowZeroLength = ZeroLength
fld.DefaultValue = DefaultValue
fld.ValidationRule = ValRule
fld.ValidationText = ValText
tdf.Fields.Append fld
End Sub
' Add properties to table
'=========================
Sub AddPropertyToTable( PropertyName As String, Value As Variant, DataType As String)
Dim prp As DAO.Property
Set prp = tdf.CreateProperty(PropertyName, DataType, Value)
tdf.Properties.Append prp
End Sub
' Add properties to field
'=========================
Sub AddPropertyToField( FieldName As String, PropertyName As String, Value As Variant, DataType As String)
Dim prp As DAO.Property
Dim fld As DAO.Field
Set fld = tdf.Fields( FieldName )
Set prp = fld.CreateProperty(PropertyName, DataType, Value)
fld.Properties.Append prp
End Sub
' Add fields to index
'=====================
Sub AddFieldToIndex( FieldName As String, Descending As Boolean )
Dim fld As DAO.Field
Set fld = idx.CreateField( FieldName )
If Descending = True Then fld.Attributes = dbDescending
idx.Fields.Append fld
End Sub
' Add fields to relation
'========================
Sub AddFieldToRelation( PKField As String, FKField As String )
Dim fld As DAO.Field
Set fld = rel.CreateField( PKField )
fld.ForeignName = FKField
rel.Fields.Append fld
End Sub

키워드

데이터베이스,   ms access,   엑세스,   파일처리론