0 / 0 / 0
Регистрация: 24.05.2012
Сообщений: 31
|
|
1 | |
Оптовая база: База данных!19.06.2012, 11:43. Просмотров 4064. Ответов 16
Метки нет Все метки)
(
Для оптовой базы требуется разработать информационную систему, позво-
ляющую обрабатывать данные о товарах на складе. Информация о товарах, имеющихся на складе, представлена следующими данными: • идентификационный номер товара; • категория товара; • наименование товара; • единица измерения (например, ящик, пачка, мешок и т.д.); • количество единиц на складе; • цена за единицу товара. • дата закупки товара Предусмотреть возможность добавления, изменения и удаления записей в справочниках. Выполнить поиск информации и запросы. Вот программа,не знаю в чем дело,не работает... (((
0
|
|
19.06.2012, 11:43 | |
База данных для телефонной станции ( С условием сортировки данных ) База данных! База данных База данных |
|
421 / 351 / 19
Регистрация: 14.05.2012
Сообщений: 1,437
|
|
19.06.2012, 11:53 | 2 |
0
|
567 / 290 / 12
Регистрация: 28.01.2011
Сообщений: 1,326
|
|
19.06.2012, 12:16 | 3 |
А программа молча молчит или плюется матерными и непонятными словами?
Вы не думаете что стоит описать что именно не работает, а то как-то неуважительно к чужому времени получается. "Нати вам не понятно что в нем где-то, какая-то ошибка. Найтиди поправьти." На форуме вам рады помочь, но вы и сами какую нибудь работу сделайте. Раз уж решились задать вопрос, то будьте добры конкретизировать его и по возможности локализовать.
0
|
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
|
421 / 351 / 19
Регистрация: 14.05.2012
Сообщений: 1,437
|
|
19.06.2012, 13:01 | 5 |
Nutserus, человек на форуме с по базам уже...
0
|
0 / 0 / 0
Регистрация: 24.05.2012
Сообщений: 31
|
|
19.06.2012, 13:01 [ТС] | 6 |
Когда запускаю выдает ошибку в строке kategor.. почему???
0
|
210 / 169 / 24
Регистрация: 24.04.2012
Сообщений: 615
|
|
19.06.2012, 13:04 | 7 |
Там базами и не пахнет. )))
0
|
567 / 290 / 12
Регистрация: 28.01.2011
Сообщений: 1,326
|
|
19.06.2012, 13:06 | 8 |
Вам кстати ответили в первой ветке для новичков.
0
|
210 / 169 / 24
Регистрация: 24.04.2012
Сообщений: 615
|
|
19.06.2012, 13:06 | 9 |
у тебя там ошибок больше чем текста. )))
надо писать так kategor:string[10];, а не так kategor:string(10); bus: array[1..20] of avto; Тип avto не описан. Похожий на avto тип описан как tovar for i:=1 to N do, N не определена до цикла, там их еще до хрена...
0
|
421 / 351 / 19
Регистрация: 14.05.2012
Сообщений: 1,437
|
|
19.06.2012, 13:28 | 10 |
![]()
0
|
0 / 0 / 0
Регистрация: 24.05.2012
Сообщений: 31
|
|
19.06.2012, 18:28 [ТС] | 11 |
Ошибки исправила,теперь застряла на запросе.. (( Что-то не до конца правильно работает.. ((
0
|
567 / 290 / 12
Регистрация: 28.01.2011
Сообщений: 1,326
|
|
19.06.2012, 18:30 | 12 |
А мы тут телепаты?
Начинаем телепать 'уууу застрявший запрос уууу', не телепается. Может напишите запрос а?
0
|
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
|
0 / 0 / 0
Регистрация: 24.05.2012
Сообщений: 31
|
|
19.06.2012, 18:43 [ТС] | 14 |
Итак, произвожу запрос по наименованию товара и цену за единицу.. первую строчку высчитывает верно,а остальные две,нет.. (( четвертый номер не нужен,в принципе(то есть,мармелад можно удалить)
0
|
0 / 0 / 0
Регистрация: 24.05.2012
Сообщений: 31
|
|
19.06.2012, 18:44 [ТС] | 15 |
Ой,что-то сделала,что теперь ничего не правильно..((
0
|
210 / 169 / 24
Регистрация: 24.04.2012
Сообщений: 615
|
|
19.06.2012, 18:52 | 16 |
Можно я мармелад съем? Раз он не нужен.
0
|
0 / 0 / 0
Регистрация: 24.05.2012
Сообщений: 31
|
|
20.06.2012, 00:20 [ТС] | 17 |
Хах! Смешно!
0
|
20.06.2012, 00:20 | |
Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь. база данных База данных База данных База данных Искать еще темы с ответами Или воспользуйтесь поиском по форуму: |