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

end;

Создаем последнюю форму для наших справочников (Form8), на которой размещаем следующие компоненты:

1. DBGrid1 – данный компонент мы используем для отображения содержимого наших справочников. В свойстве DataSource мы прописываем DataM.DataSource1, тем самым получая доступ к справочнику.

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

procedure TForm8.Button1Click(Sender: TObject);

begin

Close; end;

Для того чтобы при выборе в меню справочника отбражались нужные данные, мы щелкаем в компоненте MainMenu по справочнику «Студенты» и прописываем следующий текст программы:

procedure TForm1.N2Click(Sender: TObject);

begin

Form3.Show;

end;

Затем щелкаем по справочнику «Предметы» и пишем:

procedure TForm1.N3Click(Sender: TObject);

begin

Form8.Show;

DataM.Query1.SQL.Clear;

DataM.Query1.SQL.Add('Select * from Subs');

DataM.Query1.Active:=true;

end;

Далее щелкаем по справочнику «Преподаватели» и пишем:

procedure TForm1.N4Click(Sender: TObject);

begin

Form8.Show;

DataM.Query1.SQL.Clear;

DataM.Query1.SQL.Add('Select * from Prepodavatel');

DataM.Query1.Active:=true;

end;

И наконец, щелкаем по справочнику «Кафедры» и пишем следующее: