.

Лабораторные работы (в ХГТУ)

Язык: русский
Формат: реферат
Тип документа: Word Doc
0 247
Скачать документ

Вид формы ввода

Для соединения всех основных таблиц воедино используется таблица SVOD.
Для установления связи между таблицами используем компоненты TTable и
Tquery. А точнее – их свойства MasterSource.

Вид формы работающего приложения:

В первых трех таблицах выбирается предмет и специальность, для которых
надо вывести рекомендуемую литературу. Таблица «Предмет» связана с
таблицей цикл «Цикл» связью многие к одному.

При смене положения указателя в первых трех таблицах запускается
процедура zapr – для обновления данных в таблицах «Книги» и «Авторы
книг» через компоненты Query.

Процедура zapr.

procedure tsvaz.zapr;

var

i:integer;

begin

cislo:=0;

with querysvod do begin

Close;

parambyname(‘spec’).Value:=table4.fieldbyname(‘KOD’).AsInteger;

parambyname(‘dis’).Value:=table5.fieldbyname(‘KOD’).AsInteger;

Open;

AfterScroll(QuerySvod);

first;

for i:=1 to recordcount do begin

cislo:=cislo+querySvod.fieldbyname(‘KOLICH’).value;

label7.Caption:=floattostr(cislo);

????†???†?????

Данная функция задает значения параметрам компонента querysvod, который
связан с таблицей «Книги».

Потом подсчитывается количество требуемых книг и выводится на
поверхность формы с помощью компонента Label7. Сумма рассчитывается
последовательным перебором записей querysvod.

Также в теле данной процедуры вызывается процедура
AfterScroll(QuerySvod):

procedure TSvaz.QuerySvodAfterScroll(DataSet: TDataSet);

begin

query1.Close;

query1.Params[0].Value:=querySvod.FieldByName(‘KOD’).AsInteger;

query1.Open;

end;

Тут задается значение параметру компонента query1 – для обновления
записей в таблице «Список авторов».

SQL запросы.

Текст запроса компонента querySvod:

select * from knigi

where kod in(

select KKnig from recomend

where kdisc=:dis and kspec=:spec

)

order by NAZV

выбирает из таблицы knigi.db все поля, где значения kdisc и kspec –
берутся из верних таблиц. Результаты запроса отображаются в таблице
«Книги».

Текст запроса компонента Query1:

select *

from AVTOR

where kod in(

select kavt

from SOOTV

where kknig=:par )

order by FIO

через таблицу SOOTV идет связь книг с авторами и авторы данной книги
отображаются в книге «Список авторов».

Таким образом в данной форме отображаются все данные, которые были в
печатном документе.

Министерство Образования Российской Федерации

Хабаровский Государственный Технический Университет

Кафедра: “Программного обеспечения ВТ и АС”

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

Тема: “ Проектирование экранной формы электронного

аналога исходного документа ”

Выполнил:

студент группы ПО-02

Самойленко П.Р.

Проверил:

к.т.н., доцент

Саринков А.А.

Хабаровск 2002

Нашли опечатку? Выделите и нажмите CTRL+Enter

Похожие документы
Обсуждение

Ответить

Курсовые, Дипломы, Рефераты на заказ в кратчайшие сроки
Заказать реферат!
UkrReferat.com. Всі права захищені. 2000-2020