Часовой пояс: UTC + 3 часа




Начать новую тему Новая тема / Ответить на тему Ответить  Сообщений: 10 
  Пред. тема | След. тема 
В случае проблем с отображением форума, отключите блокировщик рекламы
Автор Сообщение
 

Junior
Статус: Не в сети
Регистрация: 15.08.2004
Откуда: Казахстан
Как в делфи прибавить к доходу например компьютеров какое то число. База данных Парадокс 7 (делфи7).
Вот пример базы

Наименование Кол-во Доход
Хлеб 50 0
Батон 10 0

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

Наименование Кол-во Доход
Хлеб 50 5
Батон 10 0

Заранее БОЛЬШОЕ СПАСИБО!!!!!!!!!
Мне кажется както там table1.FieldDefs[2].ChildDefs[1] как там дальше незнаю



Партнер
 

Advanced member
Статус: Не в сети
Регистрация: 09.06.2003
Откуда: USSR
Ууу, как все плохо. Первый и самый главный совет.
Читаем хотябы какуюто информацию по базам данных в Delphi, после чего все подобные вопросы сразу отпадут.


 

Member
Статус: Не в сети
Регистрация: 07.02.2004
Откуда: Казахстан, Ш...
Олжас ну ты даёш, вот пример

table1.FieldByName('Key').asinteger:=table1.FieldByName('Key').asinteger+1;

_________________
Уважаю ASUS и AMD


 

Junior
Статус: Не в сети
Регистрация: 15.08.2004
Откуда: Казахстан
Извиниет может для вас это смешные вопросы но мне просто заказали прогамму написать а я никогда не работал с базой данных а денег то хочется все почти сделал тока одно осталось. (Спаисбо заранее)

Мне надо сохранить или отобразить в мемочке базу данных всю (чтобы потом распечатать). Как это сделать я знаю что мон так

var
i:integer;
s,k,p,pr,o,os,d,r,it,n,v:string;
j:string;
begin
table1.First;
for i:=1 to table1.RecordCount do begin
j:=table1.fieldbyname('Наименование').AsString;
s:=table1.fieldbyname('Цена покупки').AsString;
n:=table1.fieldbyname('Цена продажи').AsString;
k:=table1.fieldbyname('Количество').AsString;
p:=table1.fieldbyname('Приход').AsString;
pr:=table1.fieldbyname('Продажа').AsString;
o:=table1.fieldbyname('Отход').AsString;
os:=table1.fieldbyname('Остаток').AsString;
d:=table1.fieldbyname('Доходы').AsString;
r:=table1.fieldbyname('Расходы').AsString;
v:=table1.fieldbyname('Итого').AsString;
table1.Next;
memo1.Lines.Add(j+' '+s+' '+n+' '+k+' '+p
+' '+pr+' '+o+' '+os
+' '+d+' '+r+' '+v);

но так оно отображается без пробелов то есть все подряд
типа
Компютер1002056546464354
помогите please

_________________
Жизнь удалась.......


 

Member
Статус: Не в сети
Регистрация: 11.11.2004
Откуда: Челябинск
Вот это вижу for i:=1 to table1.RecordCount do begin, а end'а нет. Лучше применить while(!table1->Eof) (это в С++ Builder, переведите на Delphi), потому как число записей RecordCount не всегда совпадает с числом отображаемых в таблице.

Код:
 AnsiString a,b,c,d,e;
 a = Table1->FieldByName("Description")->AsString;
 b = Table1->FieldByName("SerialNumber")->AsString;
 c = "computer";
 d = "1";
 e = "3";
 Memo1->Lines->Add(a+' ' + b + " " + c +" "+d+" " + e);
Работает нормально, с пробелами. :?: Попробуй вместо пробелов ставить символ табуляции.
Можно ещё в Word или Excel вывести и ими распечатать.

_________________
пишу я программу... и вдруг на клавиатуру выползает bug, буквально


 

Advanced member
Статус: Не в сети
Регистрация: 09.06.2003
Откуда: USSR
Цитата:
Извиниет может для вас это смешные вопросы но мне просто заказали прогамму написать а я никогда не работал с базой данных а денег то хочется все почти сделал тока одно осталось. (Спаисбо заранее)

Я все понимаю, мы все люди и все хотим покушать, но ведь и ленится не обязательно :) На прочтение пары статей у тебя уйдет от силы час или два, и после них ты так быстро напишеш, что заказчик будет рад по самые уши :).
Если тебе нужен простейший вариант распечатки списка, то можеш использовать QuickReport, он поставляется с самим Delphi, если Delphi 7 то его надо добавить в палитру компонентов ручками.
У QuickReport есть Wizzard который запросто тебе поможет создать простейший список. Главное не боятся экспериментировать :)


 

Junior
Статус: Не в сети
Регистрация: 15.08.2004
Откуда: Казахстан
Спасиб за советы а скока примерно просят за прогу бухучета цветочного магазина не скажите. Скока просить денег=)))

_________________
Жизнь удалась.......


 

Member
Статус: Не в сети
Регистрация: 11.11.2004
Откуда: Челябинск
Олжас Скажи что-нить побольше, пусть сами скинут до приемливого им уровня, но не сильно низко. Ещё, если прога будет глючить (ты же БД в первый раз писал?) и будет дорого стоит, с тебя потом спросит могут...

_________________
пишу я программу... и вдруг на клавиатуру выползает bug, буквально


 

Junior
Статус: Не в сети
Регистрация: 15.08.2004
Откуда: Казахстан
И последний вопрос я короче за вместо quickreport использовал rave все понял как делать но отчет создется тока по наименованию и цене продажи, а цена покупки и другое не вотчете что делать плиз скажите

_________________
Жизнь удалась.......


 

Junior
Статус: Не в сети
Регистрация: 15.08.2004
Откуда: Казахстан
Кто работал с равем помогите!!!

_________________
Жизнь удалась.......


Показать сообщения за:  Поле сортировки  
Начать новую тему Новая тема / Ответить на тему Ответить  Сообщений: 10 
-

Часовой пояс: UTC + 3 часа


Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 3


Вы не можете начинать темы
Вы не можете отвечать на сообщения
Вы не можете редактировать свои сообщения
Вы не можете удалять свои сообщения
Вы не можете добавлять вложения

Перейти:  
Создано на основе phpBB® Forum Software © phpBB Group
Русская поддержка phpBB | Kolobok smiles © Aiwan