Показать сообщение отдельно
  #6  
Старый 02.07.2011, 22:55
chainik chainik вне форума
Начинающий
 
Регистрация: 30.06.2008
Сообщения: 140
Репутация: 8882
По умолчанию

это самая примитивная структура БД. Сделана под 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)
    );
Ответить с цитированием