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

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

Name_Hozaina2:=Name_Hozaina; color2:=color;

Nomer_auto2:=Nomer_auto; model_auto2:=model_auto;

God_vipyska2:=God_vipyska; tip_kyzova2:=tip_kyzova; region2:=region; seek(f,filepos(f)-1); write(f,st); x:=1; end; end; close(f); end; if x=0 then begin writeln('Записи с такой фамилией нет!');readln end; end;

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

procedure Openfile; 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; end;

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

procedure Outputfile; var st:prokat;k:char; begin writeln('Хотите посмотреть данные о клиентах ? (Y/N)'); readln(k); if (k='y') or (k='Y') then while not eof(f) do begin read(f,st); clrscr; writeln('Фамилия хозяина:',st.Sname_Hozaina); writeln('Имя хозяина:',st.Name_Hozaina); writeln('марка машины:',st.markauto); writeln('модель машины:',st.model_auto); writeln('тип кузова:',st.tip_kyzova); writeln('номер машины:',st.nomer_auto); writeln('регион;',st.region); writeln('год выпуска:',st.god_vipyska); writeln('цвет:',st.color); writeln('Для продолжения нажмите (enter)'); readln; end; close(f); end;

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

procedure Clearfile; var st:prokat; studtoout:string[20]; fo:file of prokat; begin writeln('Задайте имя файла,из которого удаляются элементы'); readln(filename); assign(f,filename);reset(f); assign(fo,'newfile.dat');rewrite(fo); writeln('Задайте фамилию клиента, запись о котором удаляется'); readln(studtoout); while not eof(f) do begin read(f,st); if st.sname_Hozainastudtoout then write(fo,st); end; close(f);close(fo); erase(f); rename(fo,filename); end;

{ОСНОВНАЯ ЧАСТЬ ПРОГРАММЫ}

Begin 11:clrscr; writeln(' МЕНЮ:'); writeln('1:Создание файла'); writeln('2:Добавление записи в файл'); writeln('3:Корректировка записи'); writeln('4:Просмотр файла'); writeln('5:Удаление записи из файла'); writeln('6:Выход из программы'); readln(k); case k of 1: begin Creatfile; Inputfile end;

2: begin Addrecord; Inputfile end;

3: redzap;

4: begin Openfile; Outputfile end;

5: Clearfile;

6: Halt; else writeln('Ошибка.Повторите номер режима.') end; goto 11;
End.

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