Фаил и база данных

@raymmman · Регистрация: 26.09.2009

Author24 — интернет-сервис помощи студентам

В обшем у меня задание такое:
В файле хранится информация о продукте, а именно код товара, наименование, дата поступления, обьем и срок хранения. При запуске программы вывести меню состояшее из просмотреть(сушествуюшие продукты), добавить(в список продукт) и удалить(вводится дата, и все товары с просроченным сроком удаля.тся автоматом).
Мне нужна помошь только при считывании информации с файла и занос в бд
Пока что пытался с разными файлами но чето не получалось, подскажите ошибку :confused: ЗЫ только языком попроше )))

Код

program pract2;
uses crt;
type baza=record
kod:integer;
naim:string[30];
datp:integer;
srokhr:integer;
end;
var
bd:baza;
a,b,c,d:text;
tab:array[1..100] of baza;
i,j,l:integer;
k,s,x:integer;
st:string;
begin
clrscr;
assign(a,'G:\Practika\a.txt');
reset(a);
readln(a,x);
while not eof (a) do
begin
for s:=1 to 15 do
begin
l:=l+1;
read(a,x);
baza[l]].kod:=x;
write(x);
...

@Давид · 26.09.2009, 19:39

Я вам скину образец своей программы, которую недавно сам в колледже на практике делал...поней я думаю вы легко реализуете свою программу, если мозги варят....

Pascal

Program baza;
Uses crt;
label 10;
type spisok=record
     imja:string;
     fam:string;
     nomer:integer;
     gorod:string;
     end;
FT= file of spisok;
Var a:ft;
    i,z:integer;
    s:real;
Procedure Sozd (var a:ft);
Var i,j:integer;
    zk:spisok;
begin
rewrite (a);
j:=1;
 while j<>80 do
          begin
          write ('vvedite imja ');
          readln (zk.imja);
          write ('Vvedite familiIo ');
          readln (zk.fam);
          write ('vvedite nomer telefona ');
          Readln (zk.nomer);
          write ('vvedite gorod ');
          readln (zk.gorod);
          write (a,zk);
          writeln ('Esli konec zapisi to nazhmite 80 ');
          readln (j);
          end;
close (a);
end;
Procedure vyvod (var a:ft);
Var i:integer;
    zk:spisok;
begin
reset (a);
 writeln ('=================================');
 writeln ('| imja| familija| telefon| gorod|');
 writeln ('=================================');
  while not eof(a) do
   begin
    read (a,zk);
    write ('|',zk.imja:6,'|');
    write ('|',zk.fam:9,'|');
    write ('|',zk.nomer:6,'|');
    write ('|',zk.gorod:9,'|');
    writeln;
    writeln ('-------------------------------');
   end;
close (a);
end;
procedure delete (var a:ft);
Var n,m:longint;
      i:byte;
      mas:array [1..20] of spisok;
begin
 i:=1;
 reset(a);
 writeln ('vvedite nomer zapisi dlja udalenija ');
 readln(n);
 m:=filesize(a)-n;
 seek (a,n);
 while not eof(a) do
           begin
            read (a,mas[i]);
            i:=i+1;
           end;
 close (a);
 reset (a);
 seek (a,n-1);
 truncate (a);
 close (a);
 reset (a);
 seek (a,n-1);
  for i:=1 to m do
   write (a,mas[i]);
end;
Procedure poisk (var a:ft);
var i:integer;
    zk:spisok;
    name:string;
begin
reset (a);
 writeln ('Vvedite imja dlja poiska ');
 readln (name);
 writeln ('spisok s zadannym imenem ');
 writeln ('=================================');
 writeln ('| imja| familija| telefon| gorod|');
 writeln ('=================================');
 while not eof(a) do
 begin
  read (a,zk);
  if zk.imja=name then
  begin
    write ('|',zk.imja:6,'|');
    write ('|',zk.fam:9,'|');
    write ('|',zk.nomer:6,'|');
    write ('|',zk.gorod:9,'|');
    writeln;
    writeln ('-------------------------------');
  end;
 end;
close(a);
end;
begin
clrscr;
10:
assign (a,'fff');
writeln ('       MEHIO      ');
writeln ('1:cozdanie ');
writeln ('2:vyvod ');
writeln ('3:delete ');
writeln ('4:poisk ');
writeln ('5:vyxod ');
readln (z);
 case z of
  1:sozd(a);
  2:vyvod (a);
  3:delete(a);
  4:poisk (a);
  5:exit;
  end; goto 10;
readln
end.

Тут как видите и меню организованно, и считывание и заполнение....остальное за вами...

@raymmman · 27.09.2009, 12:22 **[ТС]**

Так, сделал заполнение, просмотр, но вот с удалением не поучается,при удалении строки в фаил кидается много всякой фигни, да и не пойму как удалить строчку именно с определенной датой=\

@Puporev · 27.09.2009, 13:28

Вы что, с текстовыми файлами работаете?

@raymmman · 27.09.2009, 17:47 **[ТС]**

Уже нет =\

@raymmman 0 / 0 / 0 Регистрация: 26.09.2009 Сообщений: 9
		1
	Фаил и база данных 26.09.2009, 19:24. Показов 910. Ответов 4 Метки нет (Все метки) В обшем у меня задание такое: В файле хранится информация о продукте, а именно код товара, наименование, дата поступления, обьем и срок хранения. При запуске программы вывести меню состояшее из просмотреть(сушествуюшие продукты), добавить(в список продукт) и удалить(вводится дата, и все товары с просроченным сроком удаля.тся автоматом). Мне нужна помошь только при считывании информации с файла и занос в бд Пока что пытался с разными файлами но чето не получалось, подскажите ошибку :confused: ЗЫ только языком попроше ))) Код program pract2; uses crt; type baza=record kod:integer; naim:string[30]; datp:integer; srokhr:integer; end; var bd:baza; a,b,c,d:text; tab:array[1..100] of baza; i,j,l:integer; k,s,x:integer; st:string; begin clrscr; assign(a,'G:\Practika\a.txt'); reset(a); readln(a,x); while not eof (a) do begin for s:=1 to 15 do begin l:=l+1; read(a,x); baza[l]].kod:=x; write(x); ... 0

@raymmman 0 / 0 / 0 Регистрация: 26.09.2009 Сообщений: 9
	27.09.2009, 12:22 [ТС]	3
	Так, сделал заполнение, просмотр, но вот с удалением не поучается,при удалении строки в фаил кидается много всякой фигни, да и не пойму как удалить строчку именно с определенной датой=\ 0

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	27.09.2009, 13:28	4
	Вы что, с текстовыми файлами работаете? 0

@raymmman 0 / 0 / 0 Регистрация: 26.09.2009 Сообщений: 9
	27.09.2009, 17:47 [ТС]	5
	Уже нет =\ 0