Access - Программы. ПРОДАВЕЦ-ТОВАР-ПОКУПАТЕЛЬ

Министерство образования и науки РФ

ГОУВПО «Комсомольский-на-Амуре государственный технический университет»

Кафедра МОП ЭВМ

Лабораторная работа №5

«Access - Программы»

                                                               Выполнил: Рогозин В.А.

Группа: 4ВС-1

Проверил: Тихомиров

Комсомольск-на-Амуре

2005

ПРОДАВЕЦ-ТОВАР-ПОКУПАТЕЛЬ

Через форму должна осуществляться регистрация продаж покупателям (если у них кредитоспособность слабая – то не более одного наименования в день, средняя – не более 3-х наименований и высшая – без ограничений).

Кроме того форма должны позволять редактировать продажи – то есть передавать отдельные продажи (частично) от одного продавца – другому.

Процедура добавления записей в таблицу продажи, с учётом условия:

Private Sub dobavit_Click()

Dim db1 As Database

Dim rs1 As Recordset

Dim rs1a As Recordset

Dim kred As Integer

Dim kolv As Integer

Set db1 = CurrentDb

Set rs1 = db1.OpenRecordset("Pokupka", dbOpenDynaset)

' инициализация переменных

NewData1 = Me.Prodovec

NewData2 = Me.ПолеСоСписком31

NewData3 = Me.ПолеСоСписком33

NewData4 = Me.Поле45

NewData5 = Me.Поле48

NewData6 = Me.Поле50

kred = 0

kolv = 0

kred = Me.kred

kolv = Me.kolv

'Условие продаж

If kred = 4 And kolv >= 1 Then

MsgBox "превышен лимит продаж товара за день", vbOKOnly + vbExclamation, "предупреждение"

GoTo a1

Else

End If

If kred = 3 And kolv >= 1 Then

MsgBox "превышен лимит продаж товара за день", vbOKOnly + vbExclamation, "предупреждение"

GoTo a1

Else

End If

If kred = 2 And kolv >= 3 Then

MsgBox "превышен лимит продаж товара за день", vbOKOnly + vbExclamation, "предупреждение"

GoTo a1

Else

End If

rs1.MoveLast

rs1.AddNew

rs1![№prodovca] = NewData1

rs1![№pokupatelya] = NewData2

rs1![№tovara] = NewData3

rs1![Kol-vo] = NewData4

rs1![Data] = NewData5

rs1![Vremya] = NewData6

rs1.Update

a1:

rs1.Close

Response = acDataErrAdded

Me.Spis.Requery

End Sub

Запрос возвращающий количество записей заданного покупателя, в заданный день, в таблице покупка

Процедура редактирования записей в таблице продажи:

Private Sub redact_Click()

' объявление переменных

Dim kod_prod1 As String

Dim kod_prod2 As String

Dim q As String

' инициализация переменных

kod_prod1 = Me.Prod2.Column(0)

kod_prod2 = Me.Spis.Column(6)

'Добавление записи в таблицу (изменение владельца автомобиля)

Set cp = Application.CurrentProject.Connection

q = "Update Pokupka Set №prodovca = " & kod_prod1 & " where sch = " & kod_prod2 & " "

cp.Execute q

Me.Spis.Requery

End Sub

Готовая форма