создание базы данных

// DazaBannyh.cpp: определяет точку входа для консольного приложения.
//
 
#include "stdafx.h"
#include <stdio.h>
#include <conio.h>
#include <stdlib.h>
#include <io.h>
#include <iostream>
#include <sys\stat.h>
#include <fcntl.h>
 
 
struct student
{
    char fam[30];
    char group[20];
    int num;
    int ball;
    
    struct student *prior; //указатель на предыдущий элемент списка
    struct student *next; //указатель на следующий элемент списка
} st[100];//массив стуктур
 
const int M = 100; //число элементов в массиве стуктур
 
struct control
{
    int nb;//число занятых элементов
    int nf;//число свободных элементов
    /*указатели на стуктуры:*/
    struct student *ptf;
    struct student *bbeg;//начало списка занятых элементов
    struct student *bend;//конец списка занятых элементов
    struct student *fbeg;//начало списка свободных элементов
    struct student *fend;//конец списка свободных элементов
}ctrl;
 
/*прототипы вызываемых функций*/
int init(void);
int input(void);
int dellete(void);
struct student *find(char *fam);
int fr(struct student *ptr);
int print(void);
int save(void);
int load(void);
 
 
int init(void)
{
    struct student *point = st;//указатель на текущий элемент
    int i;
    ctrl.nb = 0;//число занятых элементов
    ctrl.nf = 0;//число свободных элементов
    ctrl.bbeg = NULL; 
    ctrl.bend = NULL;//списка занятых эл-ов нет
    ctrl.fbeg = st;//st - адрес начала массива структур
    ctrl.fend = st;
    point = st;
 
    printf("\n\n Инициализация массива\n");
 
    for (i = 0; i < M - 1; i++)
    {
        if (ctrl.nf != 0)//не первый элемент
        {
            point -> prior = point - 1;
            point -> next = point + 1;
        }
        else //первый элемент
        {
            point -> prior = NULL;
            point -> next = point + 1;
        }
        point++;
        ctrl.nf++;
        ctrl.fend++;
    }//конец цикла инициализации (М - 1) элемента массива
    /*инициализация последнего элемента в массиве*/
    ctrl.nf++;
    point -> prior = point - 1;
    point -> next = NULL;
    return 0;
}
 
struct student *find(char *nam)
{
    int i;struct student *bbeg;
    struct student *ptf;//вспомогат указ на начало списка занятых элементов
    ctrl.ptf = bbeg;
    for (i = 0; i < ctrl.nb; i++)//nb - число занятых эл-ов
    {
        if ((strcmp(nam, ptf -> fam)) == 0)
            return ptf;
        ptf = ptf -> next;//перемещаем указ на след эл-т списка
    }
    /*просмотрен весь список занятых эл-в*/
    return NULL;
}
 
int dellete(void)
{
    char nam[20];//familiya
    int i;
    struct student *ptr;//указатель на удаляемый эл-т
 
    printf("\n\nФункция удаления элемента\n");
    if (ctrl.nb == 0)
    {
        printf("список занятых эл-ов пуст\n");
        return -1;
    }
    //запрос фамилии
    printf("Введите фамилию\n");
    scanf("%s", nam);
    //поиск фамилии
    if ((ptr = find(nam)) == 0)//фамилия не найдена
    {
        printf("фамилия не найдена");
        return -1;
    }
    //фамилия найдена, удалить элемент
    if (ptr == ctrl.bbeg)
    {//это первый элемент
        if (ctrl.nb == 1)
        {//единственный элемент в списке занятых
            ctrl.bend = NULL;
            fr(ptr);
            return 0;
        }
        else
        {//не единственный эл-т
            ctrl.bbeg = ptr -> next;
            ctrl.bbeg -> prior = NULL;
            fr(ptr);
            return 0;
        }
    }
    else
    {//это не первый эл-т
        if (ptr == ctrl.bend)
        {//это последний эл-т
            ptr -> prior -> next = NULL;
            ctrl.bend = ptr -> prior;
            fr(ptr);
            return 0;
        }
        else
        {//эл-т в середине
            ptr -> prior -> next = ptr -> next;
            ptr -> next ->prior = ptr -> prior;
            fr(ptr);
            return 0;
        }
    }
}
 
/*освобождение удаляемого эл-та:*/
int fr(struct student *ptr)
{
    if (ctrl.nb == M)//были заняты все эл-ты массива
    {
        ptr -> prior = NULL;
        ptr -> next = NULL;
        ctrl.fbeg -> prior = ptr;
        ctrl.fbeg = ptr;
    }
    else
    {
        ptr -> prior = NULL;
        ptr -> next = ctrl.fbeg;
        ctrl.fbeg -> prior = ptr;
        ctrl.fbeg = ptr;
    }
    ctrl.nb--;
    ctrl.nf++;
    return 0;
}
 
/**вставка нового эл-та в список занятых эл-ов/*/
int input(void)
{
    struct student *ptr;//вспомогат указат
    struct student *fbeg;
    printf("\n\nФункция вставки элемента\n");
 
    if (ctrl.nf == 0)
    {
        printf("Свободных эл-в нет\n");
        return -1;
    }
    ptr = fbeg;
    /*Запрос ФИО*/
    printf("ФИО:\n");
    scanf("%s", fbeg -> fam);
    printf("Группа:\n");
    scanf("%s", ptr -> group);
    printf("Носер зачетки:\n");
    scanf("%d", &ptr -> num);
    printf("Балл:\n");
    scanf("%d", &ptr -> ball);
    /*подключение эл-та к списку занятых эл-в*/
    if (ctrl.nf == 1)//занимаем последнее место
    {
        ctrl.fbeg = NULL;
        ptr -> next = NULL;
        ptr -> prior = ctrl.bend;
        ctrl.bend -> next = ptr;
        ctrl.bend = ptr;
        ctrl.fend = NULL;
    }
    else
    {
        if (ctrl.nb == 0)
            ctrl.bbeg = ptr;
        ctrl.fbeg = ptr -> next;
        ptr -> next = NULL;
        ptr -> prior = ctrl.bend;
        ctrl.bend -> next = ptr;
        ctrl.bend = ptr;
        ctrl.fbeg -> prior = NULL;//новый первый в списке свобод эл-ов
    }
    ctrl.nb++;
    ctrl.nf--;
    return 0;
}
 
/*печать списка занятых*/
int print(void)
{
    int i;
    struct student *ptr;//вспомогат казат
    ptr = ctrl.bbeg;
    printf("База данных \"студенты\" \n\n\n");
    if (ctrl.nb == 0)//база пуста
    {
        printf("База пуста\n");
        return -1;
    }
    for (i = 0; i < ctrl.nb; i++)
    {
        printf("%d  фамилия:   %s\n", i, ptr -> fam);
        printf("группа:  %s\n", ptr -> group);
        printf("номер зачетки:   %d\n", ptr -> num);
        printf("балл:   %d\n", ptr -> ball);
        ptr = ptr -> next;
    }
    printf("\n\n Общее число записей = %d", i);
    return 0;
}
 
int save(void)
{
    int size;//размер эл-та списка в байтах
    int i,k;
    struct student *ptr;//указатель на структуру типа student
    char *c;//указатель на символ
    int *pti;//указатель на целое
    FILE *fp;//указатель на поток
    /*Открыть файл для записи:*/
    if ((fp = fopen("bd.dat", "a+")) == NULL)
    {
        perror("bd.dat");
        return -1;
    }
    if (ctrl.nb == 0)//база данных пуста
    {
        puts("База данных пуста \n");
        puts("Запись на диск не производится \n");
        return -1;
    }
    else
    {
        puts("\n Производится запись БД в файл");
        size = sizeof(st)/M;
        /*size - длина одного элемента в байтах
        М - число элементов в массиве стуктур*/
        ptr = st;//начало массива стуктур
        /*запись управляющей информации*/
        pti = &ctrl.nb;//начало блока управлябщей информации
        c = (char *)pti;
        /*цикл ввода управляющей инф*/
        for (i = 0; i < sizeof(ctrl); i++)
            putc(*c++, fp);
        /*Цикл вывода в файл списка занятых элементов*/
        for (k = 0; k < ctrl.nb; k++)
        {
            c = (char *)ptr;
            /*Цикл вывода одного эл-та списка*/
            for (i = 0; i < size; i++)
                putc(*c++, fp);
            /*установка указателя на следующий элемент*/
            ptr = ptr -> next;
        }
        fclose(fp);
        return 0;
    }
 
}
 
int load(void)
{
    int i, k; 
    int nb;
    struct student *ptr;//указатель на структуру
    int *pti;
    char *c, d;
    FILE *fp;
    /*открыть файл для чтения:*/
    if ((fp = fopen("bd.dat", "r")) == NULL)
    {
        puts("Ошибка при открытии файла \n");
        return 1;
    }
    if (ctrl.nb == 0)
        puts("База данных пуста \n");
    if (nb != 0) //база данных не пуста
    {
        puts("База в основной памяти не пуста \n");
        puts("Производить загрузку? [y/n]:");
        d = getchar();
        if (d == 'N' || d == 'n')
        {
            puts("Запрос на загрузку базы был отменен\n");
            return 1;
        }
    }
    puts("Производится загрузка базы\n");
    /*чтение управляющей информации*/
    pti = &ctrl.nb;
    c = (char *)pti;
    for (i = 0; i < sizeof(ctrl); i++)
        *c++=getc(fp);
    /*цикл чтения списка из файла*/
    ptr = st;//начало массива стуктур
    for (k = 0; k < sizeof(st)/M * ctrl.nb; k++)
    {
        c = (char *)ptr;
        /*цикл чтения одного элемента*/
        for (i = 0; i < sizeof(st)/M; i++)
        {
            if ((*c = getc(fp)) != EOF)
                c++;
            else
            {
                fclose(fp);
                return 0;
            }
        }
        ptr++; //загружаем в последовательные эл-ты массива    
    }//конец цикла по k
    ctrl.bend = ptr;//указатель на последний занятый эл-т
    ptr++;//первый свободный элемент
    ctrl.fbeg = ptr;
    ptr -> prior = NULL;
    /*корректировка указателей в списке занятых элементов*/
    ptr = st;
    for (i = 0; i < ctrl.nb; i++)
    {
        //первый элемент ?
        if (ctrl.nf = 0)
        {
            ptr -> prior = NULL;
            ptr -> next = ptr + 1;
        }
        else
        {
            ptr -> prior = ptr - 1;
            ptr -> next = ptr + 1;
        }
        ptr++;
    }
    //последний элемент
    ptr -> prior = ptr - 1;
    ptr -> next = NULL;
    return 0;
}
 
void menu(student sa)
{
    int i, c;
    struct student st;
    struct student zt;
    c = getch();
 
        if (c == 49)
        {
            for (;;)
            {
                system("cls");
                printf("\t\tЗаполнение БД:\n");
                input();
                save();
                printf("\tДля возврата в меню нажмите Пробел\n");
                printf("\tНажмите любую клавишу...");
                c=getch();
                if (c == 32){break;}
            }
        }
 
        if (c == 50)
        {
            system("cls");
            print();
            printf("\tДля возврата в меню нажмите Пробел\n");
            printf("\tНажмите любую клавишу...");
        }
 
        if (c == 51)
        {
            system("cls");
            load();
            dellete();
            input();
            save();
            printf("\tДля возврата в меню нажмите Пробел\n");
            printf("\tНажмите любую клавишу...");
        }
 
        if (c == 52)
        {
        //  
            printf("\tДля возврата в меню нажмите Пробел\n");
            printf("\tНажмите любую клавишу...");
        }
 
        if (c == 53)
        {
            //init();
            printf("\tДля возврата в меню нажмите Пробел\n");
            printf("\tНажмите любую клавишу...");
        }
 
        if (c == 54)
        {
            dellete();
            printf("\tДля возврата в меню нажмите Пробел\n");
            printf("\tНажмите любую клавишу...");
        }
 
        if (c == 55)
        {
            init();
            printf("\tДля возврата в меню нажмите Пробел\n");
            printf("\tНажмите любую клавишу...");
        }
 
        if (c == 113)
        {
            return;
        }
}
 
void main(void)
{
    setlocale(LC_ALL, "Russian");
    struct student st;
    int i, c;
    char serch[30];
    
    for(;;)
    {
        printf("\n\n\n\n\n\t\t\t < < < М Е Н Ю > > >\n\n");
        printf("\t\tЗаполнение БД                     -> 1\n\n");
        printf("\t\tЧтение БД из файла                -> 2\n\n");
        printf("\t\tИзменение записи в БД             -> 3\n\n");
        printf("\t\tПоиск в БД                        -> 4\n\n");
        printf("\t\tСортировка                        -> 5\n\n");
        printf("\t\tУдаление записи из БД             -> 6\n\n");
        printf("\t\tСНАЧАЛА ПРОИНИЦИАЛИЗИРУЙТЕ МАССИВ -> 7\n\n");
        printf("\t\t\tДля выхода нажмите ESC\n\n\n\t");
 
        menu(st);
        c = getch();
 
        if (c == 27)
            break;
        system("cls");
    }
}