Создание базы данных по учету документации




Yüklə 52.73 Kb.
tarix28.02.2016
ölçüsü52.73 Kb.


МІНІСТЕРСТВО ОСВІТИ ТА НАУКИ УКРАЇНИ

ЧЕРКАСЬКИЙ ДЕРЖАВНИЙ ТЕХНОЛОГІЧНИЙ УНІВЕРСИТЕТ

Кафедра КТ


ЗВІТ

З лабораторної роботи №2

з дисципліни “Автоматизовані інформаційні системи і технології”


Перевірив:

асист.


Андрієнко В.О.

Виконав :

Студент гр.

ст. гр. ЗКМ-02

ФІТІС 5-го курсу

Гальченко С.М.


Черкаси 2005



Тема: создание базы данных по учету документации.

Цель: создать базу данных по учёту документации на основе первичного документа.

Задание: проанализировать существующие в организациях информационные системы и технологии, создать базу данных по информационным технологиям продовольственного магазина.
Постановка задания
Целью задания есть создание базы данных складского учета в магазине продовольственных товаров. База данных состоит из семи таблиц. Две таблицы «касса» и «кассир» не рассматриваются. Рассматривается складской учет.

Заполнение данных в базе ведется в виде древовидной структуры.

При поступлении товара заполняем форму «Склад». При этом некоторая информация содержится в справочниках «поставщик» и «вид товара».

При недостающей информации необходимо нажать кнопку «Добавить», после чего откроется дополнительное окно, позволяющее заполнить справочник.


Склад



поставщик товар



вид товара (молочные продукты)



тип товара (йогурт)






марка товара (Президент)

Марка товара в данной программе не рассматривается, так как является повторяющейся логической цепочкой. Хотя для реальной системы очень необходимо.


Товар характеризуется и вносится в базу как некоторый код.


2 4 – йогурт

йогурт (4)

молочные продукты (2)


Коды вида товара хранятся в таблице «вид товара». При добавлении нового типа происходит его кодирование и запись в таблицу «тип товара». Все действия выполняются с помощью запросов:
Запись полученого кода в временную таблицу «temp»
SQL2 = "UPDATE temp SET temp.name = "" " + Поле4.Value + " "", temp.id= " + CStr(cntVid) + CStr(cntTip) + ";"

DoCmd.RunSQL SQL2

Добавление записи из таблицы «temp» в таблицу «тип товара»
SQL2 = "INSERT INTO [тип товара] ( name, id) " & _

"SELECT temp.name, temp.id " & _

"FROM temp;"

DoCmd.RunSQL SQL2


События выполняющие эти запросы (добавление)
Private Sub Кнопка4_Click() – вид товара

Private Sub Кнопка8_Click() – тип товара


Считывание данных в элементы ComboBox

ПолеСоСписком5_BeforeUpdate – вид товара

Private Sub ПолеСоСписком5_BeforeUpdate - тип товара

Схема базы данных





Таблицы базы даных

Склад












Формы
Данные о поставщиках Данные о типе продуктов



Складской учет Добавление товара





Текст обработчиков событий на формах
Главная форма «Складской учет»
Добавить товар

Private Sub Кнопка20_Click()

DoCmd.OpenForm "товар", , , stLinkCriteria

End Sub
Добавить поставщика

Private Sub Кнопка21_Click()

DoCmd.OpenForm "поставщик", , , stLinkCriteria

End Sub
Форма «Товар»
Private Sub Form_Load()

rel


Надпись4.Caption = "разновидность продукции код:"

End Sub
Private Sub Кнопка11_Click()

cntVid1 = cntVid + 1

stDocName = "форма2"

DoCmd.OpenForm stDocName, , , stLinkCriteria

End Sub
Private Sub Кнопка10_Click()

If StrTovar <> "" Then

cntTip = ПолеСоСписком7.ListCount + 1

DoCmd.OpenForm "форма1", , , stLinkCriteria

End If


End Sub
Private Sub ПолеСоСписком5_BeforeUpdate(Cancel As Integer)

StrTovar = ПолеСоСписком5.Text

cntVid = ПолеСоСписком5.Value

с = GetTip(CStr(cntVid))

a = CStr(с + CStr(1))

b = CStr(с + CStr(9))


SQL1 = "SELECT [тип товара].id, [тип товара].name " & _

"FROM [тип товара] " & _

"WHERE ( ( ([тип товара].id)>=" + a + ") and ( ([тип товара].id)<=" + b + "));"
ПолеСоСписком7.RowSource = SQL1
Надпись4.Caption = "разновидность продукции код: " + CStr(cntVid)

End Sub
Private Sub ПолеСоСписком7_BeforeUpdate(Cancel As Integer)


cntVid = ПолеСоСписком5.Value

с = GetTip(CStr(cntVid))

a = CStr(с + CStr(1))

b = CStr(с + CStr(9))

SQL1 = "SELECT [тип товара].id, [тип товара].name " & _

"FROM [тип товара] " & _

"WHERE ( ( ([тип товара].id)>=" + a + ") and ( ([тип товара].id)<=" + b + "));"
ПолеСоСписком7.RowSource = SQL1

End Sub
Форма «Добавление товара»


Private Sub Form_Load()

Надпись5.Caption = "Код: " + CStr(Forms.Товар.ПолеСоСписком5.ListCount + 1)

End Sub
Private Sub Кнопка4_Click()

On Error GoTo Err_Кнопка4_Click


SQL2 = "UPDATE temp SET temp.name = "" " + Поле2.Value + " "", temp.id = " + CStr(Forms.Товар.ПолеСоСписком5.ListCount + 1) + ";"

DoCmd.RunSQL SQL2

SQL2 = "INSERT INTO [вид товара] ( name, id) " & _

"SELECT temp.name, temp.id " & _

"FROM temp;"

DoCmd.RunSQL SQL2

SQL2 = ""

Response = MsgBox("Данные введены успешно", vbOKOnly)

rel

Exit Sub


Err_Кнопка4_Click:

MsgBox "Ошибка ввода данных"

End Sub

Форма добавление типа товара


Private Sub Form_Activate()

Надпись7.Caption = StrTovar + " " + CStr(cntVid) + " " + CStr(cntTip)

End Sub
Private Sub Кнопка8_Click()

SQL2 = "UPDATE temp SET temp.name = "" " + Поле4.Value + " "", temp.id= " + CStr(cntVid) + CStr(cntTip) + ";"

DoCmd.RunSQL SQL2

SQL2 = "INSERT INTO [тип товара] ( name, id) " & _

"SELECT temp.name, temp.id " & _

"FROM temp;"


DoCmd.RunSQL SQL2

SQL2 = ""


cntVid = Forms.Товар.ПолеСоСписком5.Value
‘обновить

с = GetTip(CStr(cntVid))

a = CStr(с + CStr(1))

b = CStr(с + CStr(9))


SQL1 = "SELECT [тип товара].id, [тип товара].name " & _

"FROM [тип товара] " & _

"WHERE ( ( ([тип товара].id)>=" + a + ") and ( ([тип товара].id)<=" + b + "));"

Forms.Товар.ПолеСоСписком7.RowSource = SQL1

End Sub
Модуль с глобальными переменными и функциями
Option Compare Database

Public SQL1 As String

Public SQL2 As String

Public StrTovar As String

Public cntTip As Integer

Public cntVid As Integer

Public cntVid1 As Integer

Public Sub rel()

Forms.Товар.ПолеСоСписком5.RowSource = "SELECT [вид товара].id, [вид товара].name FROM [вид товара];"

End Sub
Public Function GetVid(Vid As String) As String

GetVid = Left(Vid, 1)

End Function

Public Function GetTip(Tip As String) As String

GetTip = Right(Tip, 1)



End Function


Вывод: в ходе этой лабораторной работы я создал базу данных по информационным технологиям продовольственного магазина и проанализировал существующие в организациях информационные системы и технологии



Verilənlər bazası müəlliflik hüququ ilə müdafiə olunur ©azrefs.org 2016
rəhbərliyinə müraciət

    Ana səhifə