DBLookupComboBox1

← →
Fr1K © (2008-03-20 09:48) [0]

Я получаю значения полей "SUMMA" в DBLookupComboBox1 как мне подсчитать все значения в DBLookupComboBox1

← →
Johnmen © (2008-03-20 09:57) [1]

Шо, опять???
http://delphimaster.net/view/2-1205907552/

← →
Fr1K © (2008-03-20 10:10) [2]

да никак не могу решить проблему с подсчётом ячеек... как правильно нудно считать в DBGr1d?

← →
zorik © (2008-03-20 10:42) [3]

Напиши какие у тебя там таблицы БД (структуру), как они связаны, какие компоненты доступа (Table, Query, ...), и что нужно получить, а не "сума в комбобокс". Может тебе и не надо эту суму именно в комбобокс сунуть.

← →
Fr1K © (2008-03-20 11:03) [4]

Вообщем есть таблица data.dbf в ней есть Ячейки ("№ Накладной", "Организация", "Сумма накладной"). Нужно все ячеки из "сумма" посчитать и вывести результат. компоненты свзаны с Table. Query кинул но по SQL связать не получаетса.

← →
Ega23 © (2008-03-20 11:18) [5]

Вариант 1.
Select Sum(То+что_надо_подсчитать) as Summa from Table
Вариант2.
function GetColumnSumValue(ds : TDataSet;const FieldName : string) : Integer; var bm : TBookmark; begin Result := 0; with ds do begin if not Active then Exit; if IsEmpty then Exit; bm := GetBookmark; DisableControls; try First; Result := FieldByName(FieldName).AsInteger; Next; While not (Eof) do begin Result := Result + FieldByName(FieldName).AsInteger; Next; end; finally GotoBookmark(bm); FreeBookmark(bm); EnableControls; end; end; end;

Для остальных типов - сам поправишь.

← →
Fr1K © (2008-03-20 11:34) [6]

И есть же всё таки добрые люди на свете. Спасибо Ega23.
У меня остался один вопрос как теперь подсчитать ("№ Накладной", "Организация", "Сумма накладной") , только другая таблица ("Сумма", "Нал", "Безнал", "Долг")
как мне теперь получить Долг. Долг = Сумма-Нал-Безнал. вот

← →
Johnmen © (2008-03-20 11:35) [7]

> Ega23 © (20.03.08 11:18) [5]

Это из реальной программы???

← →
Johnmen © (2008-03-20 11:36) [8]

Ё-моё, да это просто разводка :)))

← →
Fr1K © (2008-03-20 11:42) [9]

Нет это реальная программа. могу дать исходник... меня попросили для склада написать....
у меня ещё вопрос как сделать чтоб ячейку "СУММА" считала не только целые числа а и типа 15000,38
Edit1.Text:= FloatToStr(GetColumnSumValue(Table1,"HOUSE")); не помогает

← →
Ega23 © (2008-03-20 11:44) [10]

> Это из реальной программы???

Нет. Тупо написал подсчёт суммы.

← →
Ega23 © (2008-03-20 11:45) [11]

> У меня остался один вопрос как теперь подсчитать ("№ Накладной",
> "Организация", "Сумма накладной") , только другая таблица
> ("Сумма", "Нал", "Безнал", "Долг")
> как мне теперь получить Долг. Долг = Сумма-Нал-Безнал. вот
>

Надо чуть-чуть подумать, почитать хелп и книжки.

> у меня ещё вопрос как сделать чтоб ячейку "СУММА" считала
> не только целые числа а и типа 15000,38
> Edit1.Text:= FloatToStr(GetColumnSumValue(Table1,"HOUSE"));
> не помогает

И не поможет. Надо чуть-чуть подумать, почитать хелп и книжки.

← →
Johnmen © (2008-03-20 11:56) [12]

> Ega23 © (20.03.08 11:44) [10]
> Нет. Тупо написал подсчёт суммы.

Ну если тупо, тогда успокоил :)))

← →
Fr1K © (2008-03-20 12:02) [13]

to Johnmen а ты случайно помочь не можеш в моём вопросе

← →
Fr1K © (2008-03-20 14:00) [14]

так что никак нельзя посчитать сумму(чтоб в сумму входили числа с запятой)

← →
Сергей М. © (2008-03-20 14:02) [15]

А чем тебе запятые помешали ?

← →
Fr1K © (2008-03-20 14:09) [16]

Ни с запятыми ни с точками он считать не хочит только Целые числа считает.

← →
Сергей М. © (2008-03-20 14:11) [17]

> считать не хочит

Что, вот прямо так и говорит - "не хочу считать ни с запятыми ни с точками" ?

← →
Fr1K © (2008-03-20 14:13) [18]

> Ни с запятыми ни с точками он считать не хочит только Целые
> числа считает.

1200,77 is Not Valid Integer Value

как я понимаю это потому что в функции указано
Result := Result + FieldByName(FieldName).AsInteger;

но никак не получаетса по другому :(

← →
Сергей М. © (2008-03-20 14:15) [19]

> никак не получаетса по другому

Т.е. написать AsFloat вместо AsInteger у тебя рука не поднимается ?

← →
Сергей М. © (2008-03-20 14:16) [20]

> Query кинул но по SQL связать не получаетса

Не даетса ?

← →
Fr1K © (2008-03-20 14:19) [21]

да еслиб она там была яб давно поставил бы... там только AsInteger и AsVariant

← →
Сергей М. © (2008-03-20 14:21) [22]

> еслиб она там была

Кто "она" ? Где "там" ?

← →
Fr1K © (2008-03-20 14:23) [23]

я так поняимаю проболема в этой строке Result := Result + FieldByName(FieldName).AsInteger; точнеей в переменной AsInteger
но кроме AsInteger и AsVariant там нет больше других

← →
Ega23 © (2008-03-20 14:24) [24]

> но кроме AsInteger и AsVariant там нет больше других

Милое дитя, какой тип данных возвращает функция?

← →
Fr1K © (2008-03-20 14:26) [25]

Ega23 Еслиб я знал ответ на эттот вопрос яб не спрашивал! Так есть ли этому какоето решение?

← →
Сергей М. © (2008-03-20 14:27) [26]

> в переменной AsInteger

Какой такой "переменной" ? Это свойство объекта, а не переменная !

> кроме AsInteger и AsVariant там нет больше других

Ты суслика видишь ? И я не вижу. А он есть !)

Напиши AsFloat вместо AsInteger ручками и убедись в наличии суслика)

← →
Fr1K © (2008-03-20 14:31) [27]

Да писал уже я... начинает ругатса... Incompatible types: "Integer" and "Extended"

← →
Сергей М. © (2008-03-20 14:32) [28]

> Fr1K © (20.03.08 14:31) [27]

И что ? Ни на какие мысли это не наводит разве ?

← →
Fr1K © (2008-03-20 14:33) [29]

Наводит на то только что Float не тот тип. А решение ему найти не могу

← →
Ega23 © (2008-03-20 14:35) [30]

> Наводит на то только что Float не тот тип. А решение ему
> найти не могу

Не ребята, я пас.

← →
Сергей М. © (2008-03-20 14:36) [31]

> Float не тот тип

Как это не тот ? Самый что ни на есть тот)
Но складывать нужно однотипные данные !
А ты что с чем складываешь ? Ты складываешь float-значение с integer-значением !

Опять никаких мыслей ?)

← →
Johnmen © (2008-03-20 14:37) [32]

> Сергей М. ©

Ну хватит уж вестись :)
Дитя откровенно издевается...

← →
Fr1K © (2008-03-20 14:38) [33]

ну вот функция что дал Ega23
function GetColumnSumValue(ds : TDataSet;const FieldName : string) : Integer; var bm : TBookmark; begin Result := 0; with ds do begin if not Active then Exit; if IsEmpty then Exit; bm := GetBookmark; DisableControls; try First; Result := FieldByName(FieldName).AsInteger; Next; While not (Eof) do begin Result := Result + FieldByName(FieldName).AsInteger; Next; end; finally GotoBookmark(bm); FreeBookmark(bm); EnableControls; end; end;

Ну что мне надо сделать чтоб читал числа с запятой... я не могу ваще понять

← →
Сергей М. © (2008-03-20 14:39) [34]

Прямо таки напрашивается оффтоп:

"- Мы поднимаем алое знамя,
Просто другого цвета не знаем !
- Если не знаешь чего поднимать,
Что же ты лезешь, ... мать ?!
"
(с) "Оба-на !", Гимн пионерии, Угольников и Ко

← →
Fr1K © (2008-03-20 14:40) [35]

я не пойму в чём я издеваюсь! я спрашую конкретный вопрос на который не могу найти ответ!!! <Johnmen/B> а ты я смотрю только коментируешь здеь и всё ни одного ответа от тебя по делу нет

← →
Fr1K © (2008-03-20 14:41) [36]

Ответьте на вопрос. как мне сделать подсчёт чисел с запятой! причём тут офтоп

← →
Сергей М. © (2008-03-20 14:42) [37]

Хорошо, зайдем на цель с другой стороны луны)

Функция FloatToStr (тобой, кстати, впервые упомянутая в теме) какой тип данных требует в кач-ве параметра ?

← →
Fr1K © (2008-03-20 14:45) [38]

Ну Value:Extanded вроде какбы

← →
Сергей М. © (2008-03-20 14:46) [39]

> Value:Extanded вроде какбы

Ну и ?!

А ты что ей тычешь вместо Extended ?

← →
Fr1K © (2008-03-20 14:47) [40]

ну а как правильно прописать тогда?

← →
Сергей М. © (2008-03-20 14:49) [41]

> Fr1K © (20.03.08 14:47) [40]

"Прописать правильно", естественно, следует extended-значение !
А у тебя что прописано вместо этого ?

Ну ?! Рожай уже быстрее сам )... Образование-то у тебя "вроде какбы" высшее)

← →
Fr1K © (2008-03-20 14:52) [42]

Чесно слово ну никак не могу понять! запутался!

← →
Ega23 © (2008-03-20 14:55) [43]

> Чесно слово ну никак не могу понять! запутался!

Да забей, оно тебе не нужно.

← →
Fr1K © (2008-03-20 14:57) [44]

Да мне фирме БД небольшую надо сделать осталось минимальное, а вот доделать не могу! а надо срочно!

← →
Сергей М. © (2008-03-20 14:57) [45]

Содранная тобой в [5] функция GetColumnSumValue возвращает результат типа Integer

Этот результат, чтобы подставить его в кач-ве параметра вызова ф-ции FloatToString(), должен иметь тип Extended.

Что нужно сделать, чтобы привести эти типы в соответствие ?

Подсказка: изменить тип параметра ф-ции FloatToString ты не можешь.

← →
Fr1K © (2008-03-20 15:00) [46]

да не могу понять я как... поки на примере пожалуста.

← →
Ega23 © (2008-03-20 15:00) [47]

> Да мне фирме БД небольшую надо сделать осталось минимальное,
> а вот доделать не могу! а надо срочно!

Тебе ещё, поди, за это деньги заплатят...

← →
Ega23 © (2008-03-20 15:01) [48]

> Fr1K © (20.03.08 15:00) [46]
>
> да не могу понять я как... поки на примере пожалуста.

Не мучайся. Давай ТЗ + $100, я тебе к завтрему напишу.

← →
Johnmen © (2008-03-20 15:01) [49]

<Johnmen/B> а ты я смотрю только коментируешь здеь и всё ни одного ответа от тебя по делу нет

А у меня и не стоИт задача помогать идиотам :)
Вот и стебаться уже не интересно...

← →
Fr1K © (2008-03-20 15:02) [50]

Нее я вообще работаю менеджером в сфере 1С а образование инженер прогрпммист так меня начальник типа теперь затравлюет, чтоб я написал ему программу по учету товара, типа проверяет... у меня пробный месяц :(

← →
Fr1K © (2008-03-20 15:04) [51]

Johnmen а для чего тогда форум нужен объясни? если ты эксперт в делфи, то никакого права всё равно не имеешь обызвать людей идиотами! Ты вроде и взрослый а ума как у пятиклассника

← →
Ega23 © (2008-03-20 15:04) [52]

> а образование инженер прогрпммист

Даром преподаватели, Время со мною тратили Даром со мною мучился самый искусный Маг Мудрых преподавателей слушал я невнимательно Всё что ни задавали мне, делал я кое-как.

← →
Ega23 © (2008-03-20 15:05) [53]

> Johnmen а для чего тогда форум нужен объясни?

http://ln.com.ua/~openxs/articles/smart-questions-ru.html

← →
Сергей М. © (2008-03-20 15:07) [54]

> не могу понять я как

Изменить текст функции так чтобы привести в соответствие эти типы)

← →
Fr1K © (2008-03-20 15:09) [55]

Ну а пример можна ... что вопросов меньше было

← →
Ega23 © (2008-03-20 15:11) [56]

> Ну а пример можна ... что вопросов меньше было

Боюсь, тебе его уже принципиально не дадут.

← →
Сергей М. © (2008-03-20 15:11) [57]

> пример можна

Тебе его уже дали. Осталась самая малость - доработать его с учетом всего сказанного выше.

← →
Сергей М. © (2008-03-20 15:13) [58]

> образование инженер прогрпммист

Врешь ведь)

← →
Fr1K © (2008-03-20 15:16) [59]

1.Сергей М. - не вру. на последнем курсе учусь заочно!
2. Спасибо тебе большое разобрался в проблеме, просто немного надо было подумать.
3. Последняя проблема... я её описывал выше У меня остался один вопрос как теперь подсчитать ("№ Накладной", "Организация", "Сумма накладной") , только другая таблица ("Сумма", "Нал", "Безнал", "Долг") как мне теперь получить Долг. Долг = Сумма-Нал-Безнал. вот

← →
Сергей М. © (2008-03-20 15:29) [60]

> разобрался в проблеме, просто немного надо было подумать

Что мешает еще немного подумать ?)

← →
Fr1K © (2008-03-20 15:39) [61]

ну как бы я получаю ячеки которые мне надо
for ss:=3 to 5 do
memo1.Lines.Add(dbgrid1.Fields[ss].Text);

как теперь в 6 ячейку мне добавить итог тоесть у меня получилось
12000
300
400
в шестой ячейке должно быть 1200-300-400=11300
6 ячейка 11300

← →
Сергей М. © (2008-03-20 15:47) [62]

Для начала добавь в свой компонент MyTable поле вычисляемого типа.
В обработчике события MyTable.OnCalcFields напиши:

wit MyTable do
Fields[6].Value := Fields[3].Value - Fields[4].Value - Fields[5].Value;

← →
Fr1K © (2008-03-20 15:51) [63]

сделал! но ничего не происходит!

← →
Сергей М. © (2008-03-20 15:53) [64]

А в гриде поле появилось ?

← →
Fr1K © (2008-03-20 15:54) [65]

Та поля уже существуют... нового ничего не появилось

← →
Fr1K © (2008-03-20 16:26) [66]

Почему он даже здесь неправильно считает memo1.Lines.Add(Table1.Fields[3].Value-Table1.Fields[5].Value-Table1.Fields[4].Value);

считать считает но выводит неправельные значения, хотя если так
memo1.Lines.Add(Table1.Fields[3].Value-Table1.Fields[5].Value); если убрать третье поле

← →
Fr1K © (2008-03-20 16:27) [67]

memo1.Lines.Add(Table1.Fields[3].Value-Table1.Fields[5].Value)
Считает правильно но мне надо 1 вариант
memo1.Lines.Add(Table1.Fields[3].Value-Table1.Fields[5].Value-Table1.Fields[4].Value);

← →
Сергей М. © (2008-03-20 16:36) [68]

> Fr1K

Ты в курсе, что счет полей идет с нуля, а не с единицы ?

← →
Fr1K © (2008-03-20 16:43) [69]

Да вкурсе! нашёл ошибку. там просто поле не в очереди стояло! спасибо!
А КАК МНЕ К ПРИМЕРУ ДОБАВИТЬ К НЕМУ ЕЩЁ КОМЕНТАРИЙ
ListBox2.Items.Add(Table1.Fields[3].Value-Table1.Fields[6].Value+" товары ");
ОН МАТЮХАЕТСА... как сделать?

← →
zorik © (2008-03-20 16:47) [70]

> у меня пробный месяц :(

думаю не пройдешь )))

ListBox2.Items.Add(FloatToStr(Table1.Fields[3].Value-Table1.Fields[6].Value)+" товары ");

← →
Сергей М. © (2008-03-20 16:48) [71]

> КАК МНЕ К ПРИМЕРУ ДОБАВИТЬ К НЕМУ ЕЩЁ КОМЕНТАРИЙ

Не дави капслок - в глазах рябит)

"К нему" - это к кому ?

← →
Fr1K © (2008-03-20 16:55) [72]

Яж показал на примере
ListBox2.Items.Add(Table1.Fields[3].Value-Table1.Fields[6].Value+" товары ");
товары чтоб ещё тестом добавлялись к сумме в листбоксе.
естественно код думает что я пытаюсь сумму сложить со строкой... но как сденлать чтоб он понял (код)

← →
zorik © (2008-03-20 16:59) [73]

> ListBox2.Items.Add(FloatToStr(Table1.Fields[3].Value-Table1.
> Fields[6].Value)+" товары ");

← →
Сергей М. © (2008-03-20 17:00) [74]

> Fr1K © (20.03.08 16:55) [72]

Преобразуй результат суммирующего выражения в строку при помощи FloatToStr,

← →
Fr1K © (2008-03-20 17:30) [75]

wit MyTable do
Fields[6].Value := Fields[3].Value - Fields[4].Value - Fields[5].Value;

при проделке такой операции выдаётса ошибка Dataset not in edit or insert mode

← →
zorik © (2008-03-20 17:43) [76]

with MyTable do begin Edit; Fields[6].Value := Fields[3].Value - Fields[4].Value - Fields[5].Value; Post; end;

почитай книгу - главу о работе с базами данных!!!!

← →
Fr1K © (2008-03-21 09:52) [77]

Зорик спасибо, очень помог! дай пожалуста свою аську. или стукни мне 491740693

← →
Fr1K © (2008-03-21 11:21) [78]

Возникла новая проблема... вообщем есть ячейка "НАЛИЧНЫЕ" в dbgrid вот
как бы мне в неё нужно заносить наличные которые мне приносит клиент в течении некого времени. но проблема в том что ячейка одна проплат может быть несколько... что нужно сделать чтоб в ячейке "НАЛИЧНЫЕ" отображалась сумма его всех проплат а наотдельно форме отображались его проплаты и дата.

← →
Sergey13 © (2008-03-21 11:50) [79]

> [78] Fr1K © (21.03.08 11:21)
> что нужно сделать

Пригласить наконец программиста и не мучать ни себя ни форум. 8-)

← →
Fr1K © (2008-03-21 11:55) [80]

Да тут осталось пара стро! я вообщем из дбГрид добавляю на отдельную форму в ЛистБокс ячейку "НАЛИЧНЫЕ" к примеру 50000 после этого я уже на той форме где листбокс добавляю ещё проплату... как мне теперь всё это сохранить в дбгриде и все проплаты в листбоксе к определённому клиенту

← →
Fr1K © (2008-03-21 12:00) [81]

foorm.Table1.Edit;
for it:=0 to Listbox1.Items.Count-1 do
foorm.Table1.Fields[4].Value:=ListBox1.Items.Text;

как мне подсчитать с лиистбокса в одну ячейку все записи листбокса

← →
Fr1K © (2008-03-21 12:27) [82]

в чём мне юолее удобно будит слажывать проплаты... скажите куда передавать с дбгрида легче значения и потом их сложить?

← →
Сергей М. © (2008-03-21 12:31) [83]

> слажывать проплаты

И это речь менеджера с высшим (пусть и неполным) образованием !

← →
Fr1K © (2008-03-21 12:34) [84]

ну я объясняю по простому ... проще уже некуда... так есть этомы выход какойто?

← →
Сергей М. © (2008-03-21 12:41) [85]

> по простому

"По-простому" суммируют (складывают) значения (числа), а не "слажывают проплаты".

← →
Fr1K © (2008-03-21 12:46) [86]

я имею ввиду в какой компонент мне перемещать из ДБГрид сумму проплат, и чтоб потом я в нём мог ещё добавлять проплаты.

← →
Сергей М. © (2008-03-21 12:48) [87]

В какой хочешь, в такой и "перемещай", никто тебя в этом не ограничивает.

← →
Fr1K © (2008-03-21 12:53) [88]

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

← →
Сергей М. © (2008-03-21 12:56) [89]

> посчитать суму в строках мемо не полцчаетса

Сума := 0;
for i:= 0 to Memo.Lines.Count - 1 do
Сума := Сума + StrToFloat(Memo.Lines[i]);

← →
Fr1K © (2008-03-21 13:12) [90]

var i:Integer; sum:Real; begin sum:=0; for i:= 0 to Memo1.Lines.Count - 1 do sum := sum + StrToFloat(Memo1.Lines[i]); Table1.Fields[3].Value:=sum;

матюхаетса на типы

← →
Fr1K © (2008-03-21 13:14) [91]

извеняюсь

FloatToStr(sum); вот что недописал

← →
Сергей М. © (2008-03-21 13:14) [92]

Не обращай внимания, это оно не со зла)
Поматюхается и перестанет)

← →
Fr1K © (2008-03-21 14:18) [93]

А где мне указывать путь к dbf файлу.... а то он берёт из командных файлов в програм филес... как мне указать чтоб он брал из корня где программа лежит

← →
Сергей М. © (2008-03-21 14:20) [94]

"он" - это кто ?

← →
Sergey13 © (2008-03-21 14:21) [95]

> [93] Fr1K © (21.03.08 14:18)
> А где мне указывать путь к dbf фай

Я бы на мониторе фломастером написал.

← →
Johnmen © (2008-03-21 14:32) [96]

> > слажывать проплаты

Из арифметических действий всего доступнее для них сложение: его не так трудно вести параллельно сложению конкретных предметов. Вычитание дается гораздо труднее, так как требует большей свободы в отвлечении.
http://psy.1september.ru/articlef.php?ID=200500507

← →
Fr1K © (2008-03-21 14:43) [97]

Так где нужно указывать путь к dbf

← →
Сергей М. © (2008-03-21 14:45) [98]

> Fr1K © (21.03.08 14:43) [97]

см. [95]

← →
Jeer © (2008-03-21 14:49) [99]

Весело тут у вас:)

← →
Сергей М. © (2008-03-21 14:50) [100]

Стараемся)

← →
Fr1K © (2008-03-21 15:00) [101]

тю. я не вижу смешного в вопросе TableName указывает имя базы. но по умолчанию он берёт её с Program Files\Common Files\Borland Shared\Data\ как мне поменять путь

← →
Сергей М. © (2008-03-21 15:02) [102]

> TableName указывает имя базы

Не надо нести отсебячину - TableName указывает имя таблицы.

← →
Fr1K © (2008-03-21 15:03) [103]

ну да... у меня есть база ep.dbf как мне указать программе откуда её мне брать

← →
Сергей М. © (2008-03-21 15:07) [104]

> у меня есть база ep.dbf

Это не база.
Это файл таблицы в составе базы.
А Фокс-база в твоем случае - это директория, в которой расположен этот файл. Для указания этой директории служит св-во, например, свойство DatabaseName компонента TDatabase.

← →
Fr1K © (2008-03-21 15:11) [105]

Ну так вот мне нужно указать путь к файлу таблицы

← →
Сергей М. © (2008-03-21 15:13) [106]

> Ну так вот мне нужно указать путь к файлу таблицы

Ну так вот возьми и укажи в этом свойстве путь к директории твоей программы.

← →
Fr1K © (2008-03-21 15:17) [107]

Нет там указания пути... есиб был я б не спрашивал

← →
Palladin © (2008-03-21 15:19) [108]

ффигеть...

← →
Jeer © (2008-03-21 15:19) [109]

Все верно, путь тебе еще долго искать, если вообще..

← →
Сергей М. © (2008-03-21 15:22) [110]

> Нет там указания пути

Все чудесатее и чудесатее становится)

Где "там"-то ?
Ты вообще куда смотришь ?)

← →
Fr1K © (2008-03-21 15:22) [111]

всё разобрался просто DataBaseName по умолчанию стояло DBDemos

← →
Jeer © (2008-03-21 15:23) [112]

> Palladin © (21.03.08 15:19) [108]

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

← →
Сергей М. © (2008-03-21 15:30) [113]

> по умолчанию стояло DBDemos

И при этом до сих пор ты как-то умудрялся видеть в гриде данные из своей таблицы ?!

Воистину чудны дела твои, Господи !)

← →
Palladin © (2008-03-21 15:36) [114]

> Jeer © (21.03.08 15:23) [112]

не... ну ты сравнил... :)
вот я в последнее время интересуюсь freebsd... последнее время это 3-4 года... и ни разу я не задал вопрос ни в одном форуме... как то самому постигать нужно... а не спрашивать то чего еще не понимаешь, что бы непонять еще больше...

← →
Johnmen © (2008-03-21 15:37) [115]

> Jeer © (21.03.08 15:23) [112]

Суть в том, что мы туда НЕ ПОЛЕЗЕМ.

← →
Jeer © (2008-03-21 15:43) [116]

"Если надо, то мы сможем залезть КУДА угодно и вскоре там нам будет вполне комфортно" (С)

С другой стороны, я ли не помню с чего началось мое "радиолюбительство" -
с вытаскивания из отцовских коробочек всяких там лампочек и конструирование
из них "звездолетов" :))

← →
Johnmen © (2008-03-21 15:45) [117]

Между "можем" и "делаем" разница всё же есть.

← →
Сергей М. © (2008-03-21 15:46) [118]

> Jeer © (21.03.08 15:43) [116]

Вселенскую порку, я так думаю, ты тем самым не спровоцировал, иначе бы не был Jeer"ром здесь и сейчас ?)

← →
Jeer © (2008-03-21 15:54) [119]

> Сергей М. © (21.03.08 15:46) [118]

Зачем нам катаклизмы ? Их и так уж..

← →
Johnmen © (2008-03-21 16:02) [120]

> Jeer © (21.03.08 15:54) [119]
> Зачем нам катаклизмы ? Их и так уж..

Опасаешься выжить? :)))
"Те, кто выжил в катаклизме, прибывают в пессимизме. Их вчера в стеклянной призме к нам в больницу привезли." (с)

← →
Jeer © (2008-03-21 18:28) [121]

> Johnmen © (21.03.08 16:02) [120]

Ну, я один из них:))
Впрочем, всего лишь еще одна реинкарнация.

← →
MsGuns © (2008-03-22 17:29) [122]

Роман "Как один фрик двух Сергеев и одного джонмэна развел"

← →
Johnmen © (2008-03-22 20:58) [123]

> MsGuns © (22.03.08 17:29) [122]

Чтоб джонмэна развести, напрячь извилины надо непадеццки :)
Т.е. ХР (хрен разведешь)...

← →
Fr1K © (2008-03-24 10:23) [124]

Появилась новая проблема!
Как мне в DbGrid при создании новой строки тоесть при заполненнии ячееек сделать так чтоб автоматически Table присваивала определённое значение неким полям, которое я задам, (при создании новой строки в дбгриД)

← →
Sergey13 © (2008-03-24 10:27) [125]

> [124] Fr1K © (24.03.08 10:23)
> Появилась новая проблема!

Подумаешь - удивил. 8-)
Пока учиться не начнешь - такие "проблемы" по десятку на дню могут возникать.

← →
Ega23 © (2008-03-24 10:29) [126]

> Как мне в DbGrid при создании новой строки тоесть при заполненнии
> ячееек сделать так чтоб автоматически Table присваивала
> определённое значение неким полям, которое я задам, (при
> создании новой строки в дбгриД)

Может наконец уже пора почитать книжку?

← →
Fr1K © (2008-03-24 10:38) [127]

да валяютса книжки! нет там такого! на примерах лучше обучатса я так думаю

← →
Sergey13 © (2008-03-24 10:46) [128]

> [127] Fr1K © (24.03.08 10:38)
> на примерах лучше обучатса я так думаю

Что ж ты не обучаешься? Тебе уже не раз тут говорили, например, что в гриде данных нет.

← →
Fr1K © (2008-03-24 10:53) [129]

нет я поняимаю что через табле надо! но никак не могу разобратса какое событие нужно обрабатывать

← →
Sergey13 © (2008-03-24 10:57) [130]

> [129] Fr1K © (24.03.08 10:53)
> но никак не могу разобратса какое событие нужно обрабатывать

С твоим подходом - начинай с первого и пробуй до последнего.

← →
Fr1K © (2008-03-24 11:25) [131]

ну так а помочь в этой ситуации никак?

← →
zorik © (2008-03-24 11:47) [132]

В Table есть свойство OnNewRecord вот и присвой определённое значение неким полям, которое я задам

← →
Fr1K © (2008-03-24 12:17) [133]

Спасибо Зорик! а скажи почему у меня не работает такая функция! я при нажатии два раза на дбгрид преношу ячейки на другую форму, но если у меня некая ячейка пуста я хачу сделать чтоб по умолчанию она записала 0 этой ячейке!
if (table1.Fields.Fields[4].Value = "") or (table1.Fields.Fields[4].Value = " ") then Exit;
к примеру так... почему эта функция не работает

← →
zorik © (2008-03-24 12:21) [134]

ничего не понял

может поможет TField.IsNull

Indicates whether the field has a value assigned to it.

Delphi syntax:

property IsNull: Boolean;

C++ syntax:

__property bool IsNull = {read=GetIsNull, nodefault};

Description

Inspect IsNull to ascertain whether the field contains a value. If IsNull is true, the field is blank. If IsNull is false, the field has a value.

← →
Сергей М. © (2008-03-24 12:42) [135]

> эта функция не работает

Это не функция, потому и не работает.

← →
Fr1K © (2008-03-24 17:00) [136]

Zorik скажи пожалуйста почему при вдойном нажатии на дбгрид у меня добавляются лишние пробелы, после чего программа у меня не хочит считать! примерно я догадываюсь почему но как от них изавитса... вот исходни и сама программа www.index.lg.ua/ep/ep.zip

← →
Fr1K © (2008-03-25 16:39) [137]

Возникла новая проблема!
Скажите пожалуйста ВОТ У МЕНЯ ЕСТЬ dbgrid1 но нужно ещё один dbgrid2 связать с первым тоесть мне нужно в dbgrid2 поместить из dbgrid1 поле "Организация" и именно все ячейки этого поля как бы вообщем рассортировать.
тоесть у меня в ячейке "Органицация" к примеру =
Частное лицо
ЧП 1
Чп 2
Фирма
Чп3
Фирма
тоесть нужно вывести всё о Фирме и добавить в dbgrid1

← →
Сергей М. © (2008-03-25 16:40) [138]

Шоу маст гоу он)

← →
Sergey13 © (2008-03-25 16:41) [139]

> [137] Fr1K © (25.03.08 16:39)
> Возникла новая проблема!

Да ну?!!!

← →
Fr1K © (2008-03-25 17:00) [140]

А вам всё прикалыватса :(
Подскажите пожалуста!!! давайте кто мне поможет дописать программу заплачу 50 $ на меня уже директор просто выгонять хочит

← →
Сергей М. © (2008-03-25 17:06) [141]

> на меня уже директор просто выгонять хочит

Удивляюсь, что ты смог запарить мозги директору настолько, что он не сделал это гораздо раньше)

> кто мне поможет дописать программу заплачу 50 $

Ее, судя по предудыщим твоим постам, не "дописывать" нужно, а написать с нуля) .. А это вряд ли тянет на 50$)

← →
Fr1K © (2008-03-25 17:11) [142]

на самом деле остало вот такие вещи.
1. Из dbgrid передать ячейи Органицация в dbgrid2 но уже чтоб было отсортировано тоесть как я говорил выше
тоесть у меня в ячейке "Органицация" к примеру =
Частное лицо
ЧП 1
Чп 2
Фирма
Чп3
Фирма
тоесть нужно вывести всё о Фирме и добавить в dbgrid1

потом в dbgrid заносить все его проплаты и сохранять! всё! больше ничего не надо!

← →
Palladin © (2008-03-25 17:14) [143]

> Fr1K © (25.03.08 17:00) [140]

а ты понимаешь, что таких не берут в космонавты?

← →
Сергей М. © (2008-03-25 17:17) [144]

Удалено модератором

← →
Fr1K © (2008-03-25 17:21) [145]

У меня есть общая таблица! В нех хранятся все данные!
первую таблицу мне надо связать со второй тоесть в таблицу2 передать из таблицы zxtqrb (Организация) все поля к примеру с Фирма (тоесть отсортировать)

← →
Сергей М. © (2008-03-25 17:26) [146]

> У меня есть общая таблица! В нех хранятся все данные!

> первую таблицу мне надо связать со второй

Замечательно)
Она, эта общая таблица, у тебя первая или вторая ?)

← →
Fr1K © (2008-03-25 17:28) [147]

Общая таблица dbgrid1 это первая.

← →
Fr1K © (2008-03-25 17:30) [148]

Стоп! общая таблица первая. которая показует dbgrid1

← →
Сергей М. © (2008-03-25 17:31) [149]

> Общая таблица dbgrid1 это первая.

dbgrid - это вообще не таблица.
Таблица - она в базе данных.
А dbgrid - это компонент, визуализирующий некий таблично-ориентированный набор данных, полученный некоего источника данных.

← →
Сергей М. © (2008-03-25 17:35) [150]

Посему вопрос - с каким источником данных и, соотв-но, с каким набором данных у тебя связан dbgrid2 ?

← →
Fr1K © (2008-03-25 17:36) [151]

вот пример! там в dbgrid который сверху отображаетса общие значени!
dbgrid которая сницу нужно вывести организацию и все её ооплаты. по надобности добавить проплату http://index.lg.ia/1/vot.jpg

← →
Fr1K © (2008-03-25 17:37) [152]

вот http://index.lg.ua/1/vot.jpg

← →
Johnmen © (2008-03-25 17:37) [153]

> Сергей М. ©

И надо тебе это всё?

← →
Сергей М. © (2008-03-25 17:39) [154]

Нафих они нужны, эти твои картинки ?)
Изложи внятно связи dbgrid1/2 -> DataSource -> DataSet ..

← →
Сергей М. © (2008-03-25 17:40) [155]

> Johnmen © (25.03.08 17:37) [153]

[138]

)

← →
Игорь Шевченко © (2008-03-25 17:44) [156]

Help the friend in need and he will remember you next time he"s in need

← →
Johnmen © (2008-03-25 17:44) [157]

> Сергей М. © (25.03.08 17:40) [155]
> [138]

Ну если это не идёт в ущерб твоей помощи тем, кто достоин, то нехай гоу он :)))

← →
Johnmen © (2008-03-25 17:46) [158]

> Игорь Шевченко © (25.03.08 17:44) [156]

Это типа каждое доброе дело не должно остаться безнаказанным? :))

← →
Сергей М. © (2008-03-25 17:47) [159]

> Johnmen © (25.03.08 17:44) [157]

Да ладно тебе)

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

← →
Fr1K © (2008-03-25 17:48) [160]

Вообщем есть dbgrid1 -> DataSource -> DataSet - > Table1 и
dbgrid1 -> DataSource -> DataSet - > Table2
в первую таблицу заношу я общее всё тоесть там ничего считать не надо, после того как я занёс данные в первую таблицу мне нужно чтоб во второй открылось
название организации типа Fields[5].Value = "Фирма" уже отсортированное тоесть как бы по отдельности чтоб я заполнял каждого контр агента, если есть одинаковые контр агенты чтоб они тоже выводились во вторую таблицу и я с ними мог работать.

← →
Palladin © (2008-03-25 17:50) [161]

> даже если он с треском вылетит из конторы

ага... вылетит и подастся в автомастерскую к примеру... и будет терроризировать форум дальше... только уже другой :)))

← →
Игорь Шевченко © (2008-03-25 17:53) [162]

Fr1K © (25.03.08 17:48) [160]

Больно слышать

← →
Johnmen © (2008-03-25 17:54) [163]

> Palladin © (25.03.08 17:50) [161]
> ага... вылетит и подастся в автомастерскую к примеру...

...и будет чинить авто Сергея М. В благодарность за помощь...:)

← →
Fr1K © (2008-03-25 17:55) [164]

Я понимаю. что больно слышать! но с БД я работаю в первый раз! вот и ищю помощи!

← →
Сергей М. © (2008-03-25 20:23) [165]

> мне нужно чтоб во второй открылось

Ты опять за свое ?)

> Table2

Скажи на милость, вот этот компонент тебе зачем нужен ?
Только лишь для того чтобы что-то там у тебя "открылось" ?

← →
Игорь Шевченко © (2008-03-25 20:27) [166]

> но с БД я работаю в первый раз!

А я 25 лет. Вот и познакомились

> вот и ищю помощи!

Ты в книжке ищи помощь. По русскому языку.

← →
Anatoly Podgoretsky © (2008-03-25 21:41) [167]

> У МЕНЯ ЕСТЬ dbgrid1 но нужно ещё один dbgrid2 связать с
> первым

dbgrid можно связать только TDataSource

← →
Fr1K © (2008-03-26 09:18) [168]

Вот так я связываю dbgrid2 -> DataSourse2 -> Table1 вот как мне теперь отсортировать в dbgrid2 значения

← →
Fr1K © (2008-03-26 09:56) [169]

Есть ли у кого нить хоть хорошая книга на примерах по БД.
у меня не получаетса связть два dbgrida

← →
Sergey13 © (2008-03-26 10:01) [170]

> [169] Fr1K © (26.03.08 09:56)
> Есть ли у кого нить хоть хорошая книга на примерах по БД.

Ты уже неделю мучаешь форум и еще не понял, что у тебя пробелы (это я оптимистично так надеюсь) в основах работы. Ты не понимаешь как работают примеры. Пора про основы читать.

← →
Fr1K © (2008-03-26 10:03) [171]

> Пора про основы читать.

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

← →
Sergey13 © (2008-03-26 10:14) [172]

> [171] Fr1K © (26.03.08 10:03)
> где модно почитать как свзять две таблицы и т.д.

Где угодно. В любой книжке описано.

← →
Fr1K © (2008-03-26 10:14) [173]

В dbgrid2 я должен выбрать DataSourse1 или DataSourse2 и в DataSet table1 (к которой привязан dbgrid1 ?

← →
Сергей М. © (2008-03-26 10:23) [174]

> Fr1K © (26.03.08 10:14) [173]

DBGrid2 у тебя должен быть связан с DataSource2, который , в свою очередь, сувязан с компонентом TQuery, а не TTable, потому что в DBGrid2 у тебя визуализирует итоговые данные, сгруппированные по указанным тобой признавкам, из таблицы базы данных, на которую у тебя ссылается Table1.
Т.е. тебе необходимо построить и выполнить SQL-запрос, для чего как раз и предназначен компонент TQuery.

← →
Fr1K © (2008-03-26 10:30) [175]

А как мне выбрть с DataSourse1 нужные мне записи точнее чтоб в dbgrid2
попали записи как я говорил выше
Частное лицо

1 ЧП 1
2 Чп 2
3 Фирма
4 Чп3
5 Фирма

чтоб в dbgrid2 попало чиста фиома и её код
тоесть
3 Фирма
5 Фирма

← →
Сергей М. © (2008-03-26 10:37) [176]

Соберись с мыслями и обозначь четко, внятно и без сленга критерии, по которым должны быть выбраны записи из общей таблицы для показа в DBGrid2.

А пока ничерта не понятно, почему тебя во втором гриде интересует якобы только "Фирма", в то время как в этом гриде у тебя еще куча колонок.

← →
Fr1K © (2008-03-26 10:44) [177]

Вообщем есть таблица которую показывает dbgrid1!
"№ Накладной" ---- "Контрагенты" ---- "Сумма НАЛ" ---- "ДОЛГ" 1 ЧП Иванов 150000 7000 2 ЧП Сидоров 10000 200 3 ЧП Иванов 20000 1000

Вот. мне нужно показать в dbgrid2 всё о именно отдельно контрагенте, тоесть
1 ЧП Иванов 150000 7000
3 ЧП Иванов 20000 1000
по надобности внести ему ещё проплату.

← →
Сергей М. © (2008-03-26 10:51) [178]

1. Как юзером будет осуществляеться выбор контрагента ?

2. В какой таблице базы данных будет храниться информация о "проплатах", внесенных юзером для того или иного выбранного им контрагента ?

p.s. Термин "Проплата" смотрится диковато)

← →
Fr1K © (2008-03-26 10:55) [179]

1. Прив событии DBGrid1DblClick
2. во второй таблице будит хранитса ифнормация о проплатах, а в первую будит выводитса чисто сумма проплат!
можно меня с игнора в аське убрать?

← →
Сергей М. © (2008-03-26 10:59) [180]

> 2. во второй таблице будит хранитса ифнормация о проплатах,
> а в первую будит выводитса чисто сумма проплат!

Т.е. "чисто сумма" не является "информацией" ?
Что же тогда есть "информация" ?)

> можно меня с игнора в аське убрать?

С какого такого "игнора" в какой такой "аське" ?)

← →
Fr1K © (2008-03-26 11:03) [181]

яж показал вот
Вот. мне нужно показать в dbgrid2 всё о именно отдельно контрагенте, тоесть 1 ЧП Иванов 150000 7000 3 ЧП Иванов 20000 1000

вот что мне надо взять с датасурс1
491740693 постучи пожалуста в аську

← →
Fr1K © (2008-03-26 11:07) [182]

150000
20000
это я уже сам должен заполнять вручную

← →
Сергей М. © (2008-03-26 11:08) [183]

Ну показать ты ее, положим, покажешь - эта инф-ция у тебя хранится в основной таблице БД.

А где, в какой таблице БД будет храниться инф-ция о суммах платежей, связанных с теми или иными контрагентами или документами ?

← →
Fr1K © (2008-03-26 11:10) [184]

это получаетса надо ещё одну таблицу создать?

← →
Ega23 © (2008-03-26 11:11) [185]

"Мыши плакали, кололись, но упорно продолжали жрать кактус..." (с)
Весело тут у вас...

← →
Сергей М. © (2008-03-26 11:11) [186]

> это я уже сам должен заполнять вручную

Ну заполнил ты это поле.
Что дальше ? Внесенная тобой в эту колонку инф-ция пропадет, если ее не записать в некое соотв.поле некоей таблицы твоей БД.
Вот я и спрашиваю, в какой таблице в каком поле ты намерен хранить инф-цию о платежах ?

← →
Сергей М. © (2008-03-26 11:12) [187]

> это получаетса надо ещё одну таблицу создать?

Это у тебя надо спросить, надо оно тебе или не надо..

← →
Fr1K © (2008-03-26 11:14) [188]

ну если такого возможно то пусть хранитса в одной таблице всё!

← →
Игорь Шевченко © (2008-03-26 11:15) [189]

А потом поделки таких убитых на всю голову программистов рекомендуют к обязательному использованию.
До чего довел планету этот фигляр ПэЖэ

← →
Сергей М. © (2008-03-26 11:17) [190]

> ну если такого возможно то пусть хранитса в одной таблице

Возможность или невозможность определяется условиями задачи.
Пока совершенно неясно, должна ли фиксироваться инф-ция о каждом
платеже, относящемуся к некоему документу некоего контрагента.

← →
Fr1K © (2008-03-26 11:18) [191]

да конечно! она должна фиксироватса... тоесть сохранятса... и при открытии из dbgrid1 она должна показаться потом в dbgrid2

← →
Сергей М. © (2008-03-26 11:22) [192]

Ты русский язык понимаешь ?)

О каждом платеже отдельно или о сумме всех платежей - две разные разницы.

Если требуется хранить только сумму платежей по документу, то достаточно доработать твою общую таблицу, добавив в нее одно поле, где будет храниться эта сумма. Иначе потребуется создание как минимум еще одной таблицы в БД.

← →
Fr1K © (2008-03-26 11:24) [193]

Да! Нужна будит информация о каждом платеже контрагента.

← →
Сергей М. © (2008-03-26 11:27) [194]

> Нужна будит информация о каждом платеже контрагента

А что, разве юзера не интересует, когда был произведен тот или иной платеж и данные о документе, регистрирующем факт проведения этого платежа ?

← →
Fr1K © (2008-03-26 11:33) [195]

Да нужно вообщем № документа с первой таблицы брать! а заносить я должен во вторую таблицу ! оплату(нал\безнал), дату и всё!

← →
Palladin © (2008-03-26 11:35) [196]

я придумал новый тип образования: высшее купленное

← →
Сергей М. © (2008-03-26 11:40) [197]

> нужно вообщем № документа с первой таблицы брать

Она и так показана в выбранной записи в DBGrid1, за каким лешим ее "брать" ?

> оплату(нал\безнал), дату и всё

А что, контрагент в конвертике передает деньги ? Безо всякого приходного документа ?)

← →
Fr1K © (2008-03-26 11:41) [198]

да! кроме оплату(нал\безнал), дату и всё ничего больше не надо!

← →
Сергей М. © (2008-03-26 11:47) [199]

Ну что ж... хозяин - барин) ... не надо так не надо, ему потом и расхлебывать кашу - тебя-то уже не будет, спросить уже не с кого, почему не была предусмотрена фиксация приходного документа)

Значит так - создавай в своей бд еще одну таблицу с 4-мя полями:

1. Идентификатор накладной, являющейся основанием для платежа (ссылка на запись в основной таблице)
2. Дата платежа
3. Тип платежа (нал/безнал)
4. Сумма платежа

← →
Fr1K © (2008-03-26 11:50) [200]

А создавать в database desktop? как Paradox7?

← →
Fr1K © (2008-03-26 11:54) [201]

Вообщем создал

← →
Fr1K © (2008-03-26 11:55) [202]

Table2 надо кидать? или где указать путь ко второй таблице

← →
Сергей М. © (2008-03-26 11:57) [203]

> Table2 надо кидать?

Можно и Table.
Но лучше Query.

← →
Fr1K © (2008-03-26 11:59) [204]

вообщем получилось dbgrid2 -> DataSourse2 -> Query1

← →
Fr1K © (2008-03-26 12:01) [205]

Только теперь я не вижу куда указать вторую таблицу

← →
Сергей М. © (2008-03-26 12:01) [206]

Чудесно.
Теперь строй текст запроса к твоей новой таблице.

← →
Сергей М. © (2008-03-26 12:02) [207]

Какой тип поля "№ накладной" в основной таблице ?

← →
Fr1K © (2008-03-26 12:04) [208]

Тип поля № - STRING
ТАК а где мне указать вторую таблицу я не вижу TableName

← →
Fr1K © (2008-03-26 12:06) [209]

Query1->DataSource1->dataSet->table1

← →
Сергей М. © (2008-03-26 12:07) [210]

> Тип поля № - STRING

Значения в этом поле уникальны ?

← →
Fr1K © (2008-03-26 12:09) [211]

да
000000001
000000002
000000003
000000004
000000005
000000006

← →
Fr1K © (2008-03-26 12:12) [212]

ТАК а где мне указать вторую таблицу? в каком компоненте?

← →
Сергей М. © (2008-03-26 12:16) [213]

Чудненько.

в св-ве SQL компонента Query пиши:

select *
from ИмяНовойТаблицыБД
where ИмяПоляИдентификатораНакладнойВНовойТаблицеБД = :DocNo

← →
Fr1K © (2008-03-26 12:23) [214]

select * from data where №Накладной = :DocNo
Ошибку пишет

← →
Сергей М. © (2008-03-26 12:24) [215]

Исправь.

← →
Игорь Шевченко © (2008-03-26 12:28) [216]

> Ошибку пишет

Больно слышать

← →
Fr1K © (2008-03-26 12:29) [217]

Пишет Table1: Field DocNo not foun

← →
Сергей М. © (2008-03-26 12:32) [218]

> Пишет Table1

Какая еще нахрен Table1 ?!

Компонент Table1 не имеет отношения ни к DBGrid2, ни к DataSource2, ни к Query1 !

← →
Fr1K © (2008-03-26 12:34) [219]

ёмаё! странно! в Query1 высвечиваетса в DataSourse только DataSource1

← →
Fr1K © (2008-03-26 12:37) [220]

Всё! увидел Query1 ->Datasourse2

← →
Сергей М. © (2008-03-26 12:37) [221]

Связь в твоем случае д.б. такая:

DBGrid2.DataSource = DataSource2
DataSource2.DataSet = Query1

← →
Сергей М. © (2008-03-26 12:38) [222]

> Query1 ->Datasourse2
>

Строго наоборот:

Query1 <- Datasourse2

← →
Fr1K © (2008-03-26 12:40) [223]

сделал! теперь "Type mismatch in expression"

← →
Сергей М. © (2008-03-26 12:42) [224]

апострофы добавь

where ИмяПоляИдентификатораНакладнойВНовойТаблицеБД = ":DocNo"

← →
Fr1K © (2008-03-26 12:42) [225]

DocNo указал DataType - > FtString

← →
Сергей М. © (2008-03-26 12:46) [226]

Теперь в обработчике даблклика по верхнему гриду пиши:

Query1.Close;
Query1.ParamByName("DocNo").Value := Table1.FieldByName("ИмяПоляНомераНакладной").Value;
Query1.Open;

← →
Fr1K © (2008-03-26 12:49) [227]

1. where ИмяПоляИдентификатораНакладнойВНовойТаблицеБД = :DocNo
добавляется только без кавык когда.
2. Сразу пишет что неуказан тип!
3. после выполнения
Query1.Close;
Query1.ParamByName("DocNo").Value := Table1.FieldByName("ИмяПоляНомераНакладной").Value;
Query1.Open;

вылетает
"Type mismatch in expression"

← →
Сергей М. © (2008-03-26 12:53) [228]

> Сразу пишет что неуказан тип

Что, прямо по-русски пишет ?)

> вылетает
> "Type mismatch in expression"

На какой строчке ?

← →
Fr1K © (2008-03-26 12:54) [229]

После того как программа запустилась кликаю два раза по dbgrid1 и вылетает
> "Type mismatch in expression"

← →
Fr1K © (2008-03-26 12:59) [230]

Всё ошибки нет! Но данные в dbgrid2 не добавляются... показывает таблицу с пустыми ячейками

← →
Сергей М. © (2008-03-26 13:04) [231]

> данные в dbgrid2 не добавляются

Откуда ж они там возьмутся ?
Их вводить надо)

← →
Fr1K © (2008-03-26 13:06) [232]

Ну так мне с первой таблицы надо перенести № накладно, название контр агента, точнее контр агента которого я выберу чтоб он добавился под каждым его номером! как бы отбор!

← →
Sergey13 © (2008-03-26 13:09) [233]

Ой блин, щас справочники пойдут. А там и связи.

Еще постов на 200. И это если им не мешать. 8-)

← →
Игорь Шевченко © (2008-03-26 13:13) [234]

Интересно через сколько страниц тема закроется ?

← →
Сергей М. © (2008-03-26 13:17) [235]

> мне с первой таблицы надо перенести № накладно, название
> контр агента

Да за каким хреном тута что-то "переносить" !?)

Юзер же уже видит инф-цию о выбранном им контрагенте и документе в верхнем гриде (DBGrid1) !!!

А в нижнем гриде (DBGrid2) юзер видит все платежи по текущему (т.е. выбранному в верхнем гриде) документу !!

Зачем же дублировать инф-цию, если она и так уже имеется в основной таблице и уже показана юзеру прямо перед его носом ?)

← →
Сергей М. © (2008-03-26 13:18) [236]

> через сколько страниц тема закроется ?

Делайте ставки, господа)

Терпелка у меня не резиновая))

← →
Fr1K © (2008-03-26 13:20) [237]

1. Я ничего не могу заполнить в dbgrid2
2. Мне нужно в dbgrid отсортировать именно того контр агент накоторого я кликаю но если он ещё есть под какимто номером то тоже чтоб добавился...

← →
Сергей М. © (2008-03-26 13:23) [238]

Все, караул устал)
Держите меня трое !)

237 постов - коту под хвост)

← →
Fr1K © (2008-03-26 13:25) [239]

Ну нет записи в DbGrid2...

← →
Palladin © (2008-03-26 13:26) [240]

> Сергей М. © (26.03.08 13:23) [238]

:) так с самого начала все было ясно, что результата не будет... это ты только тут развлекаешься :)

← →
Сергей М. © (2008-03-26 13:26) [241]

> именно того контр агент накоторого я кликаю

Тогда у тебя должна быть еще одна таблица в БД, еще один квери, еще один дейтасурс и еще один грид)

Суши весла)

← →
Сергей М. © (2008-03-26 13:27) [242]

> это ты только тут развлекаешься :)

Я ж еще и народ веселю)

← →
Fr1K © (2008-03-26 13:28) [243]

Ладно обойдёмся без контр агента... только с проплатами и всё!!! почему тогда не могу ничего записать в dbgrid2

← →
Сергей М. © (2008-03-26 13:30) [244]

> почему тогда не могу ничего записать в dbgrid2

Получишь в бухгалтерии расчет, отдохнешь, успокоишься, почитаешь книжки, которые "валяются", осмыслишь пройденный выше "материал" - вот тогда и заходи, продолжим)

← →
Fr1K © (2008-03-26 13:34) [245]

Ну почему не объяснить вам если я понять не могу!
1. Мне надо в dbgrid2 выводить всю проплату контрагента, дату.
2. Надо что из первой таблицы он сумировал весь долг контр агента тоесть

1 - Иванов - 500
2 - Иванов1 - 1000
3 - Иванов2 - 500
4 - Иванов -500

ТОесть чтоб считал чисто Иванов
1000

← →
Сергей М. © (2008-03-26 13:40) [246]

> почему не объяснить вам если я понять не могу

Потому что бесплатное время кончилось.
Как и это шоу)

← →
Sergey13 © (2008-03-26 13:43) [247]

> [245] Fr1K © (26.03.08 13:34)
> Ну почему не объяснить вам если я понять не могу!

Да как же тебе объяснить, если ты понять не можешь!

← →
Fr1K © (2008-03-26 13:49) [248]

Ну вот я в последнем посту привер пример! как мне занести всё это в dbgrid2.
И нужно ли указывать DataSource1->DataSet->Query1->(MasterSourse->DataSourse1)

← →
Сергей М. © (2008-03-26 13:49) [249]

Да и "предметная область" начала зарождать сомнения: "чисто Иванов", "проплата", "долг"..

Прямо какая-то бандитская долговая книга учета поставленных на счетчик лохов)

← →
Fr1K © (2008-03-26 13:51) [250]

Ну мне нужно с первой таблицы считать долг всех заказов определённого контрагента

← →
Fr1K © (2008-03-26 14:13) [251]

Ну памагите пожалуйста... ну никак не могу сделать запись в dbgrid2 и посчитать общий долг конкретного контрагента

← →
Fr1K © (2008-03-26 14:46) [252]

Эх. спасибо и на этом

← →
Fr1K © (2008-03-26 14:54) [253]

Раскажите почему у меня пищет Type mismatch in expression; и почему нельза делать запись в dbgrid2

← →
Anatoly Podgoretsky © (2008-03-26 14:54) [254]

> Сергей М. (26.03.2008 13:23:58) [238]

Уже 251

Да хватит вам прикалыватса... помогите с программой...

поможешь кому нибудь с деньгами - кто нибудь и с программой поможет...

да заплачу я если надо! мне главное программу дописать! а самое главное получить ответ для начала на этот вопрос
почему у меня пищет Type mismatch in expression; и почему нельза делать запись в dbgrid2

> мне главное программу дописать

Нафих ее вообще было начинать писать, если все уже давно написано ?

Ты же "менеджер в сфере 1С", кому уж как не тебе знать, что 1С:Предприятие как раз для таких задач и существует)

Это даже не просто тролль, а ТРОЛЛЬ.
Истину вам говорю (с)

Да просто директору срочная нужна своя анализация товара... вот и сказал, чтоб так и так сделал я ему её!

> директору срочная нужна

Гораздо срочнее получится приобрести платформу 1C:Предприятие и любую типовую конфигурацию.

> анализация товара

Стесняюсь спросить, анализация - это разместить товар куда куда я думаю ?)

> сказал, чтоб так и так сделал я ему её

Ты же не программистом, а менеджером у директора числишься)
Как же он мог тебе это "сказать" ?)

Да нет ему просто обычная программа для себя нужна... и всё!
Сергей М. я убрал Query и добавил Table2 вот! привязал к ней таблицу вторую... так как теперь мне в неё занести долг контрагента(весь) и и сохранить именно ему!

Скажи директору - пусть в Excel-е посчитает, быстрее получится.

Да нет до этого в экселе и так считал он! говорит неудобно нада срочно программа! от теперь и мучаюсь

> говорит неудобно

Потому что и там программист должен приложить голову и руки, чтобы стало "удобно")

Сергей М. Ну помоги пожалуйста постучи в асю 491740693

Я не могу связать две таблицы... в MasterFields открывается но там нечего выбирать! как правильно связать компоненты

ТОесть в MasterFields в выборе AvailableIndexes у меня пусто

у меня порядок такой
dataSourse->dataSet->table1
dataSourse->dataSet->Table2->MasterSourse->datasourse1
это неправилльно?

Ну помогите хотя бы связать таблицы... где надо указвать тот ключ. и правильно у меня ли расположены компоненты
dataSourse->dataSet->table1
dataSourse->dataSet->Table2->MasterSourse->datasourse1

Ну помогите пожалуста! дайте пример хотя бы для объединения ддвух таблиц
1. Главная
2. Второстепенная

Примеры у тебя перед носом - в каталоге с демо-проектами.
Как тебя не уволили раньше - вот оно чудо)

до 16 страниц доживет.

> до 16 страниц доживет.

Шаман?

Германн © (26.03.08 20:07) [275]

Я ветку читаю и тихо офигеваю - это сколько надо безбашенности, чтобы у совршенно незнакомых людей на протяжении времени жизни ветки выправшивать, при этом демонстрируя патологическое нежелание разобраться самому.

И почему в то время, когда я учился программировать, интернет еще не изобрели ?

> Игорь Шевченко © (26.03.08 20:27) [276]

> И почему в то время, когда я учился программировать, интернет
> еще не изобрели ?
>

Повезло!

> Игорь Шевченко © (26.03.08 20:27) [276]
> И почему в то время, когда я учился программировать,
> интернет еще не изобрели ?

Умные ответственные люди как могли оттягивали этот счастливый момент - изобретение инета...
:)))

> Игорь Шевченко (26.03.2008 20:27:36) [276]

Зато теперь Дельфи дают в детском саду.

> Игорь Шевченко © (26.03.08 20:27) [276]

ага... и с 5"25 дискетами... по 5 километров... в гору... :))

а там мля еще и дисковод могет сломаться... или дискета помнется :))

Palladin © (26.03.08 22:27) [280]

С 8-дюймовыми дискетами :)

А в гору с 2-х мегабайтным жестким диском на 15 человек.
И памяти на компьютере было 56 килобайт. И каждый байт под роспись.

> Palladin (26.03.2008 22:27:40) [280]

Вам не повезло повезло вы не ходили с дискетами 8 дюямшв и с дисководом 30 дюймов

> Игорь Шевченко (26.03.2008 22:57:41) [281]

И обязан вернуть каждый байт обратно и ни когда захочешь, а по первому требованию

> С 8-дюймовыми дискетами :)

круто, респект... :) я такую видел давным давно... лет 12-13 назад... и только одну... как не просил - мне ее не отдали... больше в жизни я их не встречал... а как дисководы выглядят даже представить себе боюсь... не говоря уж о винте...

а что за комп был? уж не zx-compliant? типа "бытовик"... насколько я в курсе, в то время синкларовские запчасти ввозились как то не очень легально и на их основе наши творили свои машины...

Palladin © (26.03.08 23:11) [284]

Комп был сначала СМ-3, потом ЕС-1022 - там диски были по 7 мегабайт, но огромные. Или по 29 мегабайт, но для избранных. И накопители на магнитной ленте с хороший шкаф величиной. А принтер вчетвером не поднимешь :)

> Комп был сначала СМ-3, потом ЕС-1022

ах блин, точно... у меня в 6 классе, информатика была в комьютерном классе на этих машинах... или скорее всего на более поздних моделях...

тока я ничего не понимал тогда :)
как и учительница... потому мы на уроках просто играли в черно-белые игры на манюсеньком экране...

короче все понятно... я значит с "поиском" с расширялкой памяти в 128kb и gwbasic"ом, а позже и tp3, жировал...

> Palladin (26.03.2008 23:11:44) [284]

Дисководы кстати не такие большие, чуть больше дискеты и сантиметров 8-10 толщиной, а объем был очень маленький, вроде 120 кб.
А вот винчестеры уже не поднять, там блок дисков и то тяжелый был.

> Anatoly Podgoretsky © (27.03.08 00:04) [287]

про объем то понятно... 5"25 диски были 180кб, dd 360 и hd 720... причем последние я не застал... в основном dd.. до сих пор их коробка лежит... :)

вот винт себе точно представить не могу...

Везунчики. А нас на первом компьютере в лаборатории окромя лентопротяжки от кассетного магнитофона ничего не было. Ну а качество и надежность отечественных лентопротяжек начала 80-х вы все наверняка помните. Каждую программу записывали по нескольку раз на три имевшиеся у нас кассеты.

> Германн © (27.03.08 00:29) [289]
> Везунчики

Ага, а прелесть ввода с перфолент? Или (не к ночи будь помянут, ДКОИ-12) перфокарт? Любой электрический носитель - за ЩАСТЕ! Три кассеты. А три шкафа с тем же содержимым?

блин. читаю и ржу.
За 8"" дискеты - обращайтесь. Привод не подгоню, но штук 10 - попытаюсь найти.
З.Ы.
Они очень впечатляюще умеют висеть на стене.
З.З.Ы.
Если раздраконить чехол от 5"45 дискеты, то получится отличный конверт для хранения CD|DVD

Это все понты, хлопцы, вы не работали с НМЛ-ми

> Ага, а прелесть ввода с перфолент? Или (не к ночи будь помянут,
> ДКОИ-12) перфокарт?

Там хоть разделение труда было. Один программу пишет. Одна вбивает ее на перфоххх. Один эти перфоххх скармливает машине. В конце-концов (через некий интервал времени) первый из перечисленных получает простыню с сообщением о неудачной трансляции и идет искать неверно вбитые второй названной строки кода. Зато со временем научается читать фортрановские строки по дыркам на перфокарте :)

MsGuns © (27.03.08 01:02) [292]

> Это все понты, хлопцы, вы не работали с НМЛ-ми

Это что за аббревиатура ? Если "Накопитель на магнитной ленте", то работали. EC-5025, если память не изменяет.

> чехол от 5"45 дискеты

так... 5"25

5"45 это калибр АК

Оч даже смешно!

Лучшеб разобратса помоглиб!

Я не встреваю... я прошу помощи!
КАК ОБъеденить две таблицы перечитал много доков но до итога никак не могу довести!

> Fr1K © (27.03.08 09:58) [299]

Вот тебе, страдалец, ликбез

http://www.helloworld.ru/texts/comp/lang/delphi/delphi1/les31.htm

)

Тебя еще не уволили ?)

Вот тебе еще один ликбез

http://articles.org.ru/lesson/les1.php

Бросай все свои бесплодные потуги и штудируй материал как "Отче наш")

Не ещё не уволли, но директор задрал орать уже изза программы матьеё тудаже,
нащёт доков я уже третий день одно и тоже читаю! я не могу понять минимально! как обеденить две таблицы... я создал две таблдицы. у них общий ключь Agents. но на запись никак вторая таблица не открываетса!

> ретий день одно и тоже читаю! я не могу понять минимально

Значит не судьба)

> директор задрал орать уже изза программы

Он тебя, похоже, еще и поколотит, перед тем как уволит)

Врятли! Здорьвья не хватит!
Сергей М. © Скажи пожалуйста по теме:
Я создал 2 таблицы!
У первой таблицы ключевое поле KeyNum тоесть порядок клиентов.
У второй таблицы ключевое поле KeyN тоесть номер накладных...
я выполняю запрос select * from bd2.db where KeyN = :Agents он мне пишет Invalid use of keyword. что я не так делаю? почему нет записи во вторую таблицу!

> Я создал 2 таблицы

Выкинь их в мусор)

Их надо минимум 3:

1. Справочник контрагентов
2. Журнал накладных
3. Журнал платежей

Нее... программа упростилась!
В первтой таблицы хранитса (Номер, Контр агент, Сумма, Долг)
Во второй хранитса (Номер накладной, Сумма, Тип, Дата)
Всё Больше ничего не надо!

> Сергей М. © (27.03.08 10:58) [305]

эх... жалостливая твоя душа... побольше бы таких как ты... миром бы правило добро... :)))

кстати, по прогнозам метеоцентра, скоро Игорь ветку закрыть должен :)

> Fr1K © (27.03.08 11:00) [306]

по русски писать то не умеешь... куда тебе программы...

Удалено модератором

читаем и соблюдаем правила форума

У меня единственный вопрос помогите в таблицу 1 заполнить данные из таблицы 2 и всё! больше ничего надо!

> У меня единственный вопрос помогите в таблицу 1 заполнить
> данные из таблицы 2 и всё! больше ничего надо!

Ну не верю, что тебе больше ничего не надо. Следом появится ещё задачка. Потом ещё. А ты не то что как решить, ты даже основ не знаешь. И учить не хочешь.
Что, так до пенсии и будешь на форуме клянчить?

> таблицу 1 заполнить

Таблица "заполняется" методами Insert+Post

> Ega23 © (27.03.08 11:57) [314]

> так до пенсии и будешь на форуме клянчить?

Он не доживет до пенсии - он на вредной работе)
Того и гляди поколотят да в шею вытолкают)

А как иначе, если пирожник взялся тачать сапоги ?)

Да я понял! я работаю с Query
тоесть как я понимаю надо отослать запрос но помогите для начала мне создать правильно таблицы, с ключевыми полями или они не обязательны?

Fr1K © (27.03.08 11:59) [317]

http://ln.com.ua/~openxs/articles/smart-questions-ru.html

читать наизусть до полного и окончательного просветления.

> я работаю с Query

По барабану с чем ты работаешь.
И у Query и у Table есть методы для создания записей в НД.

> как я понимаю надо отослать запрос

Не надо его никуда "отсылать", он сам "отошлется", твое дело - вызывать в нужном месте и в нужной последовательности методы Insert + Post

Хорошо! попробую разобраться.
Ну а порядок этот правельный
DataSourse1->dataSet->Table1
DataSourse2->dataSet->Query2
Больше ничего не надо?
и таблицы!
bd.db
bd2.db
Ключевого слово я не ставил в них! или нужно обязательно для связи:?

Таблица "заполняется" методами Insert+Post
Это ясно. но я мне нужно вручную в dbgrid2 записать значения, но bdgrid2 открыватеся только для чтения я не могу заносить туда данные

> порядок этот правельный
> DataSourse1->dataSet->Table1
> DataSourse2->dataSet->Query2

Он единственный возможный, иначе и не получится)

> Больше ничего не надо?

см. [305]

Ей-ей побъет тебя начальник, когда у него зарябит в глазах от увиденных в верхнем гриде сотен ЧП_Пупкиных, ПБЮЛ_Ушлепкиных, ОНБ_Рогов_И_Копыт и иже с ними)

Ты же пообещал разобраться?

Нее как раз мне не надо сотни ЧП_Пупкиных а надо чтоб он один был точней разные контр агенты в одном экземпляре! А где можно глянуть как правильно создать таблицу!

> Fr1K © (27.03.08 12:13) [321]

Возьми и посмотри примеры в демо-проектах в составе Делфи на предмет как избавиться от такой напасти)

Ой побъют тебя) ... Больно побъют !)

> Fr1K © (27.03.08 12:20) [324]

Да ну ?!

А это что тогда за солянка :

> Вообщем есть таблица которую показывает dbgrid1!
> "№ Накладной" ---- "Контрагенты" ---- "Сумма НАЛ" -
> --- "ДОЛГ"
> 1 ЧП Иванов
> 150000 7000
> 2 ЧП Сидоров
> 10000 200
> 3 ЧП Иванов
> 20000 1000
>

?

Я минимум двух братьев Ивановых вижу, и это не предел)

> где можно глянуть как правильно создать таблицу

В базе с алиасом DBDEMOS

Это таблица создана приавввильно?
http://index.lg.ua/1/1.jpg

Что неправильно вторая таблица точно также создана... я понимаю что не правильно помоги разобратса... мне только с этим разобратса дальше я понял ччто делать

> Что неправильно

Неправильно абсолютно все.

> помоги разобратса

А я чем тут, по-твоему, занят ?)
см. [305]

вот две базы! что в ниих неправильногО?
http://index.lg.ua/1/1.jpg
http://index.lg.ua/1/2.jpg

Единственная на данный момент проблема в Table2 непоявляетса IndexName

при вводе вылетает такая ошибка
http://index.lg.ua/1/3.jpg

да и номер не присваиваетса второй таблице KeyF

> вот две базы

Это не базы.

> что в ниих неправильногО

см. [331]

> в Table2 непоявляетса IndexName

Неоткуда там ему взяться, вот он, зараза такая, и "непоявляетса")

> при вводе вылетает такая ошибка

Поверь и смирись - не может, значит не может)

Понял что во второй базе нужно было сделать Примари индекс! Теперь появилась IndexName. Но в примере показано
1. Установить свойство Table2.MasterSource = DataSource1
2. Установить свойство Table2.MasterField = CustNo
3. Установить свойство Table2.IndexName = CustNo
что CustNo одинаков и у филда и у индекс наме.
но при попытке сохранить KeyF он начинает материтса как мне сохранить одинаковые имена

> как мне сохранить одинаковые имена

Их не надо сохранять, нечего двум арменам делать в одной таблице)
см. ликбез в [300]

в дбгрид2 добавляетса номер контр агента но при заполнении точнее после того как я заполнил и хочу перейти на другого контр агента пишет мне: Index is read only и данные не сохраняютса :(

Ну все на сегодня.
Ты меня что-то шибко устал)

> это хоть я на правильном пути?

Нет.
см. [305], [339]

Ага. понял! в журнале значит накладных должны быть поля!
1. Таблица - Номер, Контр агент, Сумма(которую он должен оплатить, Долг.
2. Таблица - № и Контр агент
3. Таблица - Сумма, Дата, Тип так?

Какое ключевое поле из трёх таблиц?

> Fr1K © (27.03.08 13:59) [342]

Да нихрена ты не понял)

Быть тебе битым и вытолканным в шею твоим боссом-чайханщиком, как пить дать)

Уже пятая мозоль сошла, пока я тебе долдонил про справочник контрагентов)

ну объясни пожалуста по подробней!

[339]

Ну расскажи какие таблицы создавать, структуру их а я буду работать щаз над ними

Вообщем работаю я с двумя таблицами и вполне хватает, но проблема только в том что на каждого контр агента в dbgrid2 я могу делать только одну запись. если делаю две то он не сохраняет и пишет Key Violation что это значит?

может тебе сразу денег дать ?

Деньги надо давать начальнику, чтобы не выгнал этого.. чуда.
Вопрос в том, кто их даст и устроит ли начальника замена дела на деньги:)

ой ой.
Я понимаю что проблема в индексовском поле... но где нужно отредактировать чтоб не было этой ошибки

> Jeer © (27.03.08 15:00) [349]
>
> Деньги надо давать начальнику

Точно)
Тем более чайханщик, по всей видимости, щедростью не страдает)

Удалено модератором
Примечание: Создание пустых сообщений

Будь мужчиной, умри достойно.

Не вам чё нравитса издеватса:::??? натолкните лучше на мысль в чём проблема то!

Fr1K © (27.03.08 16:45) [356]

1. Никому из нас директор такого задания не давал.
2. За неделю, которую существует ветка, можно начитаться книг по самое немогу.
3. Проблема в том, что ты хочешь, чтобы это сделали за тебя.

Твой первый пост был 20.03.08 в 09:48.
Прошла неделя.
За это время можно узнать ну очень многое. Книжку почитать. Хелп, и всё такое.
А ты канючишь, как попрошайка.
Не стыдно?

Ну не понимаю я в БД. более мене разобрался уже... но как только вылетает какаято ошибка ищю её в поисковике, но нихрена там нет! вот и спрашую у вас почему вылетает у меня ошибка Key Violation при переходе на вторую запись в dbgrid2

Это МЕГАТРОЛЛЬ

> Ну не понимаю я в БД.

Это твои проблемы. Учить тебя здесь никто не собирается, пока ты не начнешь понимать сам.

> [358] Ega23 © (27.03.08 16:51)
> Твой первый пост был 20.03.08 в 09:48.

До этого еще одна ветка была.

И вообще это здорово на развод похоже.

Потому что нельзя быть на свете блондинкой такой. (с)

Удалено модератором
Примечание: На этой ноте мы закончим дискуссию

DBLookupComboBox1 Найти похожие ветки