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

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

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

 
 Ответить  Открыть новую тему 
> база данных на рекордах ( без dbf, sql и т.п. )
сообщение
Сообщение #1


Гость






нужна помошь в написании базы данных ( см. заголовок )
Вернее в написании 3-х модулей - для удаления записи, поиска и сортировки.

Код
PROGRAM Magazin;
USES Crt;
TYPE
  {zadanie tipov polei zapisi}
    StProdukt=string[10];
    Number=real;
    Date=word;
    {Obl_Type =(H,S);}


  {zadanie tipa zapisi}
  Mag_Rec=record
    Produkt:StProdukt;
    Prise:Number;
    Postupl:Date;
    Godnost:Date;
    Reliz:Date;
    Kol_vo:Number;
  END;
VAR
  Tab_Mag  :array[1..100] of Mag_Rec;
  Mag_File :file of Mag_Rec;
  Acses    :Mag_Rec;    
  continue:string[1];
  Ind:byte;
  j,i:integer;
  {f,i:integer;}

{óδó«ñ ΓѬπΘÑ⌐ ºá»¿ß¿ ¡á φ¬αá¡}
BEGIN
 read(Mag_File, Acses);
 WITH Acses DO
  writeln('║',j:4,'║':1,Produkt:9,'║':2 ,Prise:6:2,'║':2,Postupl:7,
           '║':5,Godnost:9,'║':4,Reliz:7,'║':4,Kol_vo:2:2,'║':6);
END;{Out_Records}

PROCEDURE Out_All_Records;
BEGIN
  writeln('**Produkziya magazina**');
  writeln('╔════╦══════════╦═══════╦═══════════╦════════════╦══════════╦═══════════╗');
writeln('║ #~ ║  PRODUKT ║ PRISE ║  POSTUPL  ║ GODNOST    ║  RELIZ   ║   KOL_VO  ║');
writeln('╠════╬══════════╬═══════╬═══════════╬════════════╬══════════╬═══════════╣    ');

  Seek(Mag_File,0);
  WHILE (NOT eof(Mag_File)) DO Out_Records;
writeln('╚════╩══════════╩═══════╩═══════════╩════════════╩══════════╩═══════════╝');
END;{Out_All_Records;}

< тут идёт процедуры для общения с таблицей >



PROCEDURE Dialog;

BEGIN
 writeln('Prosmotret' table-1');
 writeln('Vvesti dannye v table-2');
 writeln('redaktirovanie po nomeru-3');
 writeln('udalenie zapisi-4');
 writeln('Poisk-5');
 writeln('Sortirovka-6');
 readln (j);
 IF j=1 THEN Out_All_Records;
 IF j=2 THEN Add_Records_End;
 IF j=3 THEN
  BEGIN
    write('ñ½∩ ¿º¼Ñ¡Ñ¡¿∩ ºá»¿ß¿ óóÑñ¿ΓÑ Ñú« ¡«¼Ñα:');
    readln(i);
    Redakt_Records(i);
  END;{IF}
 IF j=4 THEN writeln('ß«αΓ¿α«ó¬á »«¬á ¡¿τÑú«');
 IF j=5 THEN Reserch_Produkt;
 IF j=6 THEN writeln('ß«αΓ¿α«ó¬á »«¬á ¡¿τÑú«');
 writeln('ò«Γ¿ΓÑ »α«ñ«½ª¿Γ∞?(ä/ì)'); read(continue);
 IF ((continue='ä') OR (continue='ñ')) THEN Dialog;
 readln;
END;{Dialog}

BEGIN {Vyvod table}
 CLRSCR;
 {writeln('éδóÑßΓ¿ Γáí½¿µπ ñ½∩ »α«ß¼«Γαá-1');
 writeln('éóÑßΓ¿ ñá¡¡δÑ ó ¬«¡Ñµ Σá⌐½á-2');
 writeln('ÉÑñá¬Γ¿α«óá¡¿Ñ »« ¡«¼Ñαπ-3');
 writeln('ôñá½Ñ¡¿Ñ ºá»¿ß¿-4');
 writeln('Å«¿ß¬-5');
 writeln('æ«αΓ¿α«ó¬á-6');
 readln (j);}
 Assign(Mag_File,'MAGAZIN.dat');
 reset(Mag_File);{«Γ¬αδΓ¿Ñ Σá⌐½á}
 Dialog;
 {IF j=1 THEN Out_All_Records;
 IF j=2 THEN Add_Records_End;
 IF j=3 THEN
  BEGIN
    write('ñ½∩ ¿º¼Ñ¡Ñ¡¿∩ ºá»¿ß¿ óóÑñ¿ΓÑ Ñú« ¡«¼Ñα:');
    readln(i);
    Redakt_Records(i);
  END;{IF
 IF j=4 THEN writeln('ß«αΓ¿α«ó¬á »«¬á ¡¿τÑú«');
 IF j=5 THEN Reserch_Produkt;
 IF j=6 THEN writeln('ß«αΓ¿α«ó¬á »«¬á ¡¿τÑú«');
 writeln('ò«Γ¿ΓÑ »α«ñ«½ª¿Γ∞?(ä/ì)'); read(continue);
 IF ((continue<>'ä') OR (continue<>'ñ')) THEN Dialog;
 readln;}

 close(Mag_File);
 readln;
END.



Код
{rewrite(Mag_File);
Tab_Record;
f:=i;
writeln('ò«Γ¿ΓÑ »α«ñ«½ª¿Γ∞?(ä/ì)'); read(continue);
IF (continue<>'ä' OR continue<>'ñ') THEN Tab_Out;
readln;
END. ***** }


Сообщение отредактировано: volvo -
 К началу страницы 
+ Ответить 
сообщение
Сообщение #2


Новичок
*

Группа: Пользователи
Сообщений: 42

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


на sources.ru  в разделе БД есть исходник, реализующий все вышесказанное
http://pascal.sources.ru/database/dbpascal.htm
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

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

 





- Текстовая версия 9.03.2021 6:32
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name