это самая примитивная структура БД. Сделана под Firebird
но годится также и для InterBase, что очень удобно тк он стандартно входит в состав Delphi. Так что пиши адрес полевой почты- доделаю и вышлю.
Код:
/*****************************************************
База данных по сдаче сессии
******************************************************/
SET AUTODDL ON;
SET ECHO ON;
OUTPUT isql.txt;
CONNECT 'Sessija.fdb'
USER 'sysdba' PASSWORD 'masterkey';
DROP DATABASE;
COMMIT;
SET NAMES WIN1251;
SET SQL DIALECT 3;
CREATE DATABASE 'Sessija.fdb'
USER 'sysdba' PASSWORD 'masterkey'
DEFAULT CHARACTER SET WIN1251;
COMMIT;
CONNECT 'Sessija.fdb'
USER 'sysdba' PASSWORD 'masterkey';
/***************************************************
Список студентов
****************************************************/
CREATE TABLE Students (
Fam VARCHAR(50) NOT NULL, /* фамилия */
Nam VARCHAR(50) NOT NULL, /* фамилия */
LastNam VARCHAR(50) NOT NULL, /* фамилия */
Group VARCHAR(20), /* индекс группы */
Predmet1 INTEGER, /* Оценки по 5 предметам */
Predmet2 INTEGER, /* Оценки по 5 предметам */
Predmet3 INTEGER, /* Оценки по 5 предметам */
Predmet4 INTEGER, /* Оценки по 5 предметам */
Predmet5 INTEGER, /* Оценки по 5 предметам */
Activn INTEGER, /* признак активности 1-активен, 0- не активен */
PRIMARY KEY(Fam,Nam,LastNam)
);