IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

> Оформление БД
Spaun
сообщение 12.06.2008 21:30
Сообщение #1


Новичок
*

Группа: Пользователи
Сообщений: 35
Пол: Мужской

Репутация: -  0  +


Есть уже готовая простенькая БД единственного чего в ней не хватает это нормального оформления.
Есть у кого-нибудь какие-нибудь предложения по этому поводу?
код:

Program nomer7;
Uses  Crt;
Type
        sur=string;
        sport=record

                     name:string;
                     nomber:integer;
                     ass:byte;
                     res:integer;
                     fio:sur;
        end;
        Var          g: file of sport;
                     rez:string;
                     vod:sport;
                     vid:byte;


        Procedure VvodRec;
        Begin
                     Writeln('Ввод записи ј ',FilePos(g)+1);
        With vod do
        Begin
                     Write('Введите фамилию:');
                     Readln(fio);
                     Write('Введите имя:');
                     Readln(name);
                     Write('Введите номер школы:');
                     Readln(nomber);
                     Write('Введите класс:');
                     Readln(ass);
                     Write('Введите результат:');
                     Readln(res);
                     Write(g,vod);
        End;
        End;


Procedure CrB;
Var  i,n:integer;
Begin
  Assign(g,'C:\sport');
  Rewrite(g);
  Writeln('Введите число записей в справочнике ');
  Readln(n);
  For I:=1 to n do
   Vvodrec;
  Writeln('Создание справочника завершено');
  Close(g);
End;


Procedure ProsRec;
Begin
  Read(g,vod);
  With vod do
   begin

     Writeln(fio:7,'|',name:7,'|',nomber:5,'|',ass:5,'|',res:9,'|');
   end;
End;


Procedure ProsAllRec;

Begin
 Assign(g,'C:\sport');
 Reset(g);
 Seek(g,0);
 Writeln('*$*$*$*$*$*$*Вывод Результатов Соревнований*$*$*$*$*$*$*');
 Writeln('--------------------------------------');
 Writeln('Фамилия|','Имя    |','Школа|','Класс|','Результат|');
 Writeln('--------------------------------------');
 While not EOF(g) do
   ProsRec;
 Writeln;
End;

Procedure DopolRec;

Var  n,i:integer;
Begin
  Assign(g,'C:\sport');
  Reset(g);
  Seek(g,FileSize(g));
  Writeln('Введите число дополнительных записей ');
  Readln(n);
  For I:=1 to n do
  VvodRec;
  Writeln('Измененный файл содержит ',FileSize(g),' записи');
  Close(g);
End;


Procedure FindFio;

Var  Maska:sur;
        Flag:boolean;
Begin

  Assign(g,'C:\sport');
  Reset(g);
  Writeln('Введите фамилию для поиска: ');
  Readln(Maska);
  Flag:=False;
  While not EOF(g) do
   begin
     Read(g,vod);
     With vod do
      If Pos(Maska,Fio)<>0
       Then
        begin
         Flag:=True;
         Writeln('Фио: ',fio,' Имя: ',name,'Школа',nomber,'Класс',ass,'Результат',res);
        end;
   end;
   If not Flag
    Then
      Writeln('В списке нет участников с фамилией ',Maska);
   Close(g);
End;


Procedure DeleteFile;

Begin

  Assign(g,'C:\sport');
  Reset(g);
  Truncate(g);
  Writeln('Компоненты файла были успешно удалены');
End;

Begin
  ClrScr;
  Repeat
  Writeln('Список результатов соревнований');
  Writeln('Выберите вид работы:');
  Writeln('1-Создание нового файла');
  Writeln('2-Просмотр списка ');
  Writeln('3-Дополнение списка');
  Writeln('4-Поиск участника');
  Writeln('5-Удаление всех компонентов списка');
  Writeln('0-Выход');
  Readln(vid);
  Case Vid of
    1:CrB;
    2:ProsAllRec;
    3:DopolRec;
    4:FindFio;
    5:DeleteFile;
    6:Exit;
   end;
  Writeln;
 Until Vid=6;
 Read;
End.



Сообщение отредактировано: Spaun - 12.06.2008 21:32
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
 
 Ответить  Открыть новую тему 
Ответов(1 - 2)
Spaun
сообщение 12.06.2008 22:09
Сообщение #2


Новичок
*

Группа: Пользователи
Сообщений: 35
Пол: Мужской

Репутация: -  0  +


Подскажите кто-нибудь как выбор CASE оформить графически чтобы был выбор вниз и вверх
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
volvo
сообщение 12.06.2008 22:35
Сообщение #3


Гость






Посмотри ссылку "Меню" у меня в подписи...
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 

- Текстовая версия 31.07.2025 4:42
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"