Создание модуля данных

Begin

Создание дочерней формы.

Создание главной формы

Создание MDI интерфейса

Delphi

Связь БД с приложением

GO

Order by N

From Ved as v1

From Ved as v1

AS

Declare @PN int -- инициализация переменной

Select @PN = (select PN from kadr where fio = @FIO) -- запись порядкового номера в переменную (получаем из запроса)

-- получаем список предметов с оценками по порядковому номеру

select N=1, Predmet = (select Predmet from predmet where Num_pred = v1.num_pred), Mark

where PN = @PN

UNION – объединяем запросы

-- получаем средний балл по порядковому номеру

select N=2, Predmet = 'Средний балл', Mark = avg(convert(real,Mark))

where PN = @PN

Связь MS SQL Server и создаваемого приложения в Delphi осуществляется посредством ODBC драйвера. Для этого необходимо на ПАНЕЛИ УПРАВЛЕНИЯ Windows в закладке АДМИНИСТРИРОВАНИЕ выбрать ИСТОЧНИКИ ДАННЫХ (ODBC). На закладке ПОЛЬЗОВАТЕЛЬСКИЙ DSN нажать Добавить. Из списка драйверов выбрать SQL SERVER и нажать ГОТОВО. В имени источника данных ввести TEST и выбрать сервер БД. На следующей странице выбрать ПРОВЕРКА ПОДЛИННОСТИ УЧЕТНОЙ ЗАПИСИ SQL и в строке ПОЛЬЗОВАТЕЛЬ вписать sa. На следующей странице выбрать базу данных TEST. В результате работы мастера в списке ODBC появится строка TEST.

Необходимо разработать программное средство, позволяющее вести ведомости успеваемости по предметам и получать отчет по успеваемости на каждого студента. В качестве вспомогательных, необходимо создать справочники по студентам и по предметам.

MDI интерфейс подразумевает наличие одной главной формы и нескольких дочерних, при этом дочернее окно не может выйти за границы главного.

В Delphi необходимо создать новый проект. При этом откроется пустая форма FORM1.

Необходимо создать из нее главное окно программы. Для этого в инспекторе объектов необходимо изменить следующие свойства:

FormStyle: fsMDIForm (стиль окна главный)

WindowState: wsMaximized (размер окна максимальный)

Color: ClGray (цвет окна серый)

Caption: Test (название программы)

Главное меню Standard – MainMenu

Свойства

Items:

Добавить новую форму в проект File- New Form

Свойства формы

FormStyle: fsMDIChild

Position: poMainFormCenter

Caption: Студенты

Name: Spr

На событие Onclose

procedure TSpr.FormClose(Sender: TObject; var Action: TCloseAction);

Action:= cafree;

end;

Открыть код проекта Project - View Source

Удалить строку Application.CreateForm(TSpr, Spr);

Аналогично создать дочерние формы:

Report (Отчет об успеваемости),

J_Ved (Журнал),

Ved (Ведомость)

File- New… - Data Module

Свойства формы

Name: DataModule3

Размещаемые компоненты

Database (закладка Data Access)

Свойства

AliasName: Test (ODBC драйвер)

DatabaseName: db_test (имя БД для компонент)

Params: USER NAME=sa (параметр соединения)

Connected: True (режим соединения)

Query (закладка Data Access)

Свойства

DatabaseName: db_test

Name: Q_for_Work

Дата добавления: 2014-12-27