Access - Формы

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

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

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

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

«Access - Формы»

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

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

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

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

2005

постановка задачи на форму;

- Справка баланса средств на счете покупателя и объема приобретенных в супермаркете товаров.

- каких покупателей обслуживал заданный продавец в заданный день

- информацию о покупателях у которых на счете * долларов

Составьте форму для просмотра указанной информации

Конструктор формы с описанием настроенных свойств ВСЕХ элементов формы;

1) Справка баланса средств на счете покупателя и объема приобретенных в супермаркете товаров.

На форме расположено три элемента: надписи поля по списком, поле со списком и список.

В качестве источника строк поля со списком «Покупатель» используется таблица «Pokupatel».

В качестве источника строк поля «spisok» используется запрос «Баланс счёта».

Управление изменением данных в поле со списком «Покупатель» и в списке происходит через процедуру:

Private Sub №pokup_AfterUpdate()

Me.spisok.Requery

End Sub

Форма: Pokupatel                                                                                                      

Свойства

BorderStyle:                Тонкая                                    Caption:                     Pokupatel         

Count:                      3                              Orientation:                  Слева направо

PaintPalette:                Двоичные данные            Picture:   D:\Мои документы\Мои рисунки\Обои\Astroworm - 1024 x 768.jpg

PictureSizeMode:                По размеру рамки: 2

Объекты

Поле со списком: №pokup

AfterUpdate:       [Event Procedure]                       BorderWidth:       Сверхтонкая     

ColumnCount:      3                                       Name:              №pokup         

Список: spisok

BorderWidth:      Сверхтонкая                            BoundColumn:      3

ColumnCount:      3                                       Name:              spisok

ReadingOrder:     Контекст                               RowSource:         SELECT [Баланс счёта].[familiya],

[Баланс счёта].[Ostatok], [Баланс счёта].[№scheta] FROM [Баланс счёта] ORDER BY [Ostatok], вид формы в рабочем состоянии:

2) покупателей обслуживал заданный продавец в заданный день

На форме расположено восемь элементов: три надписи поля по списком #, три поля со списком, кнопка и подчинённая форма «PokupkP».

В качестве источника строк полей со списком «Data» и «Data2»  используется запрос на основе таблицы «Pokupka», а источником строк поля со списком «№prodovca» является  таблица «Prodovci».

В подчиненной форме «PokupkP» расположено 6 элементов: 3 надписи и 3 поля: Data, Famil, Kol-vo.

Источником данных в подчинённой форме служат данные из запроса «каких пок-лей обслуж заданный прод-ц в заданный день»

объект-источник: имя подчиненной формы: (PokupkP),  подчиненные поля: название поля-источника, использующегося для связки с основной формой (№prodovca), основные поля: имя поля со списком на основной форме (№prodovca)

Управление изменением данных в полей со списком и в подчиненной форме происходит через процедуру:

Private Sub obnov_Click()

On Error GoTo Err_obnov_Click

DoCmd.DoMenuItem acFormBar, acRecordsMenu, 5, , acMenuVer70

Exit_obnov_Click:

Exit Sub

Err_obnov_Click:

MsgBox Err.Description

Resume Exit_obnov_Click

End Sub

Форма: Pokupka                                                                                                       

Свойства

BorderStyle:                Тонкая                        Caption:                     prod-pok

Picture:                      D:\Мои документы\Мои рисунки\Обои\CastAway 2

Enhanced.jpg

PictureSizeMode:            Вписать в рамку              

RecordSource:              SELECT                       

Prodovci.№prodovca,

Pokupka.Vremya FROM

Prodovci INNER JOIN

Pokupka ON

Prodovci.№prodovca=Pokup

Объекты

Полесосписком: Data

BeforeUpdate:     [Event Procedure]                       Name:              Data   

RowSource:         SELECT Pokupka.Data FROM

Pokupka ORDER BY [Data];

SpecialEffect:      утопленное

Поле со списком: Data2

BeforeUpdate:     [Event Procedure]                       Name:              Data2

RowSource:        SELECT Pokupka.Data FROM            

Pokupka ORDER BY [Data];                                       SpecialEffect:       утопленное