Оптовая база: База данных!

@Darja · Регистрация: 24.05.2012

Для оптовой базы требуется разработать информационную систему, позво-
ляющую обрабатывать данные о товарах на складе.
Информация о товарах, имеющихся на складе, представлена следующими
данными:
• идентификационный номер товара;
• категория товара;
• наименование товара;
• единица измерения (например, ящик, пачка, мешок и т.д.);
• количество единиц на складе;
• цена за единицу товара.
• дата закупки товара

Предусмотреть возможность добавления, изменения и удаления записей в справочниках. Выполнить поиск информации и запросы.

Вот программа,не знаю в чем дело,не работает... (((

@Санек25 · 19.06.2012, 11:53

вам сюда https://www.cyberforum.ru/delphi-database/

@rdama · 19.06.2012, 12:16

А программа молча молчит или плюется матерными и непонятными словами?
Вы не думаете что стоит описать что именно не работает, а то как-то неуважительно к чужому времени получается. "Нати вам не понятно что в нем где-то, какая-то ошибка. Найтиди поправьти."
На форуме вам рады помочь, но вы и сами какую нибудь работу сделайте.
Раз уж решились задать вопрос, то будьте добры конкретизировать его и по возможности локализовать.

@Nutserus · 19.06.2012, 12:59

надо писать так kategor:string[10];, а не так kategor:string(10);

bus: array[1..20] of avto; Тип avto не описан.

Добавлено через 7 минут
Похожий на avto тип описан как tovar

for i:=1 to N do, N не определена до цикла,

короче это п..ц, а не программа.

@Санек25 · 19.06.2012, 13:01

Nutserus, человек на форуме с по базам уже...

@Darja · 19.06.2012, 13:01 **[ТС]**

Когда запускаю выдает ошибку в строке kategor.. почему???

@Nutserus · 19.06.2012, 13:04

Там базами и не пахнет. )))

@rdama · 19.06.2012, 13:06

Вам кстати ответили в первой ветке для новичков.

@Nutserus · 19.06.2012, 13:06

у тебя там ошибок больше чем текста. )))

надо писать так kategor:string[10];, а не так kategor:string(10);

bus: array[1..20] of avto; Тип avto не описан.
Похожий на avto тип описан как tovar

for i:=1 to N do, N не определена до цикла,

там их еще до хрена...

@Санек25 · 19.06.2012, 13:28

видели бы вы мои базы...

@Darja · 19.06.2012, 18:28 **[ТС]**

Ошибки исправила,теперь застряла на запросе.. (( Что-то не до конца правильно работает.. ((

@rdama · 19.06.2012, 18:30

А мы тут телепаты?
Начинаем телепать 'уууу застрявший запрос уууу', не телепается.
Может напишите запрос а?

@Darja · 19.06.2012, 18:38 **[ТС]**

procedure TForm3.Button3Click(Sender: TObject); //запрос
begin
m[1]:=bus[1].naim;
k:=1;
for i:=1 to N do
begin
with bus[i] do
for j:=1 to k+1 do begin
if bus[i].naim<>m[j] then begin
m[j+1]:=bus[i].naim;
k:=j;
end;
end;
end;
//end;
for j:=1 to k do begin
//s=0;
for i:=1 to n do begin

if m[j]=bus[i].naim then begin
s:=s+bus[i].cena;
stringgrid2.Cells[0, j-1]:=m[j];
stringgrid2.Cells[1, j-1]:=s;
stringgrid2.Cells[2, j-1]:=s[j];
end;
end;
end;
end;
end.

@Darja · 19.06.2012, 18:43 **[ТС]**

Итак, произвожу запрос по наименованию товара и цену за единицу.. первую строчку высчитывает верно,а остальные две,нет.. (( четвертый номер не нужен,в принципе(то есть,мармелад можно удалить)

@Darja · 19.06.2012, 18:44 **[ТС]**

Ой,что-то сделала,что теперь ничего не правильно..((

@Nutserus · 19.06.2012, 18:52

Можно я мармелад съем? Раз он не нужен.

@Darja · 20.06.2012, 00:20 **[ТС]**

Хах! Смешно!

@Darja 0 / 0 / 0 Регистрация: 24.05.2012 Сообщений: 31
	19.06.2012, 18:44 [ТС]	15
	Ой,что-то сделала,что теперь ничего не правильно..(( 0

@Darja 0 / 0 / 0 Регистрация: 24.05.2012 Сообщений: 31
	20.06.2012, 00:20 [ТС]	17
	Хах! Смешно! 0

@Санек25 421 / 351 / 19 Регистрация: 14.05.2012 Сообщений: 1,437
	19.06.2012, 11:53	2
	вам сюда https://www.cyberforum.ru/delphi-database/ 0

@rdama 567 / 290 / 12 Регистрация: 28.01.2011 Сообщений: 1,326
	19.06.2012, 12:16	3
	А программа молча молчит или плюется матерными и непонятными словами? Вы не думаете что стоит описать что именно не работает, а то как-то неуважительно к чужому времени получается. "Нати вам не понятно что в нем где-то, какая-то ошибка. Найтиди поправьти." На форуме вам рады помочь, но вы и сами какую нибудь работу сделайте. Раз уж решились задать вопрос, то будьте добры конкретизировать его и по возможности локализовать. 0

@Nutserus 210 / 169 / 24 Регистрация: 24.04.2012 Сообщений: 615
	19.06.2012, 12:59	4
	надо писать так kategor:string[10];, а не так kategor:string(10); bus: array[1..20] of avto; Тип avto не описан. Добавлено через 7 минут Похожий на avto тип описан как tovar for i:=1 to N do, N не определена до цикла, короче это п..ц, а не программа. 0

@Санек25 421 / 351 / 19 Регистрация: 14.05.2012 Сообщений: 1,437
	19.06.2012, 13:01	5
	Nutserus, человек на форуме с по базам уже... 0

@Darja 0 / 0 / 0 Регистрация: 24.05.2012 Сообщений: 31
	19.06.2012, 13:01 [ТС]	6
	Когда запускаю выдает ошибку в строке kategor.. почему??? 0

@Nutserus 210 / 169 / 24 Регистрация: 24.04.2012 Сообщений: 615
	19.06.2012, 13:04	7
	Там базами и не пахнет. ))) 0

@rdama 567 / 290 / 12 Регистрация: 28.01.2011 Сообщений: 1,326
	19.06.2012, 13:06	8
	Вам кстати ответили в первой ветке для новичков. 0

@Санек25 421 / 351 / 19 Регистрация: 14.05.2012 Сообщений: 1,437
	19.06.2012, 13:28	10
	видели бы вы мои базы... 0

@Darja 0 / 0 / 0 Регистрация: 24.05.2012 Сообщений: 31
	19.06.2012, 18:28 [ТС]	11
	Ошибки исправила,теперь застряла на запросе.. (( Что-то не до конца правильно работает.. (( 0

@rdama 567 / 290 / 12 Регистрация: 28.01.2011 Сообщений: 1,326
	19.06.2012, 18:30	12
	А мы тут телепаты? Начинаем телепать 'уууу застрявший запрос уууу', не телепается. Может напишите запрос а? 0

Опции темы

@Darja 0 / 0 / 0 Регистрация: 24.05.2012 Сообщений: 31
	19.06.2012, 18:38 [ТС]	13
	procedure TForm3.Button3Click(Sender: TObject); //запрос begin m[1]:=bus[1].naim; k:=1; for i:=1 to N do begin with bus[i] do for j:=1 to k+1 do begin if bus[i].naim<>m[j] then begin m[j+1]:=bus[i].naim; k:=j; end; end; end; //end; for j:=1 to k do begin //s=0; for i:=1 to n do begin if m[j]=bus[i].naim then begin s:=s+bus[i].cena; stringgrid2.Cells[0, j-1]:=m[j]; stringgrid2.Cells[1, j-1]:=s; stringgrid2.Cells[2, j-1]:=s[j]; end; end; end; end; end. 0

@Nutserus 210 / 169 / 24 Регистрация: 24.04.2012 Сообщений: 615
	19.06.2012, 18:52	16
	Можно я мармелад съем? Раз он не нужен. 0