Дипломная работа: Информационная система ВУЗа

end;

Создаем новую форму (Form5), на которой будет отображаться отчет №1. Размещаем на ней следующие компоненты (см. Приложение 7):

1. Query1 – в свойстве DatabaseName мы прописываем путь у нашей БД. И свойству Action устанавливаем значение True.

В свойстве SQL пишем следующий запрос:

Select NZ,FIO,Subs,MARK

from Student,Subs,Marks

where Student.NZ=Marks.NZ and Subs.S_ID=Marks.S_ID

ORDER BY FIO

2. QuckRep1 – данный компонент служит для отображения нужного нам отчета. В свойстве DataSet выбираем Query1.

Создаем новую форму (Form6), на которой будет отображаться отчет №2. Размещаем на ней следующие компоненты (см. Приложение 8):

1. Query1 – В свойстве DatabaseName мы прописываем путь у нашей БД. И свойству Action устанавливаем значение True.

В свойстве SQL пишем следующий запрос:

Select * from Prepodavatel ORDER BY FIO

2. QuckRep1 – данный компонент служит для отображения нужного нам отчета. В свойстве DataSet выбираем Query1.

Создаем новую форму (Form7) – это будет наше окно для редактирования. Размещаем следующие компоненты (см. Приложение 8):

1. Label1, Label2, Label3 – в свойстве Caption меняем название соответственно «ФИО», «Группа», «Город».

2. Edit1, Edit2, Edit3 – для ввода значений

3. Кнопка Button «Выполнить», щелкаем по ней два раза и пишем следующий текст:

procedure TForm7.Button1Click(Sender: TObject);

begin

DataM.Table1.Edit;

DataM.Table1.FieldByName('FIO').AsString:=Edit1.Text;

DataM.Table1.FieldByName('GRUPPA').AsString:=Edit2.Text;

DataM.Table1.FieldByName('TOWN').AsString:=Edit3.Text;

DataM.Table1.Post;

end;

4. Кнопка Button «Закрыть», щелкаем по ней два раза и пишем следующий текст:

procedure TForm7.Button2Click(Sender: TObject);

begin