Курсовая работа по базе данных СУБД

Категория реферата: Рефераты по информатике, программированию
Теги реферата: решебник 5 класс, кризис реферат
Добавил(а) на сайт: Mesjac.

Для дополнения данных необходимо нажать кнопку «ENTER» . После этого появиться следующая строка: «ЗАДАЙТЕ ИМЯ ФАЙЛА В КОТОРЫЙ БУДЕТ
ДОБОВЛЯТЬСЯ ЗАПИСЬ»

Выыход.

Возврощает в главную програму.

2. Описание процедур.

Creatfile-создание файла;

Addrecord-добавление запеси;

Inputfile-ввод данных;

Redzap-корректировка;

Openfile-просмотр;

Clearfile-удаление.

Вывод.

Проделанная работа позволяет любому пользователю с легкостью создавать большие объемы информации, обрабатывать их, сортировать, делать выборки по определенным критериям.

Использование такой программы в современном мире значительно облегчает деятельность человека.

Program kursovay; uses Crt,Dos; type prokat=record

Sname_Hozaina,Name_Hozaina:string[15]; markauto:string[20]; model_auto:string[20]; tip_kyzova:string[20]; nomer_auto:string[20]; region:integer; god_vipyska:integer; color:string[20]; end; var f:file of prokat; zn,filename:string; k:integer; label 11;

{-----------------------------------------------------------}

procedure Creatfile; begin writeln('Задайте имя файла,который будет создаваться'); readln(filename); assign(f,filename); rewrite(f); end;

{-----------------------------------------------------------}

procedure Addrecord; var rez:integer; ch:char; begin while rez0 do begin writeln('Задайте имя файла,в который будет добавляться запись'); readln(filename); assign(f,filename); reset(f); rez:=IOResult; if rez0 then begin writeln('Проверьте правильность имени файла!'); writeln('Будет ли повторное задание имени файла?(Y/N)'); readln(ch); if (ch='n') or (ch='N') then halt (0); end; end; seek(f,filesize(f)); end;

{==========================================================}

procedure Inputfile; var st:prokat; k:char; begin repeat writeln('Введите данные о новом клиенте : '); write('Фамилия Хозяина : '); readln(st.Sname_Hozaina); write('Имя Хозяина:' ); readln(st.Name_Hozaina); write('марка машины:'); readln(st.markauto); write('модель машины:'); readln(st.model_auto); write('тип кузова:'); readln(st.tip_kyzova); write('номер машины: '); readln(st.Nomer_auto); write('регион:'); readln(st.region); write('год выпуска: '); readln(st.God_vipyska); write('цвет: '); readln(st.color); write(f,st); write('Надо ли вводить данные о новом клиенте ?
(Y/N)>');readln(k); writeln; until(k='n') or (k='N'); close(f); end;

{=========================================================}

procedure redzap; var st:prokat; filename,str:string;

Sname_Hozaina2,Name_Hozaina2:string[15]; markauto2:string[20]; model_auto2:string[20]; tip_kyzova2:string[20]; nomer_auto2:string[20]; region2:integer; god_vipyska2:integer; color2:string[20]; x:integer; begin writeln('Задайте имя файла'); readln(filename); assign(f,filename); reset(f); with st do begin write('Введите фамилию клиента: ');readln(str); x:=0; while not eof(f) do begin read(f,st); if st.Sname_Hozaina=str then begin writeln('Введите новые данные о клиенте: '); write('Фамилия хозяина: '); readln(st.Sname_Hozaina); write('Имя хозяина: '); readln(st.Name_Hozaina); write('марка машины:'); readln(st.markauto); write('модель машины:'); readln(st.model_auto); write('тип кузова:'); readln(st.tip_kyzova); write('номер машины:'); readln(st.nomer_auto); write('регион:'); readln(st.region); write('год выпуска:'); readln(st.god_vipyska); write('цвет: '); readln(st.color);

Sname_Hozaina2:=Sname_Hozaina; markauto2:=markauto;

Поделитесь этой записью или добавьте в закладки