Работа с БД

← →
AlexAvz (2003-05-22 15:41) [0]

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

← →
Соловьев © (2003-05-22 15:44) [1]

> проблема состоит в том что мне нужно как-то отобразить что
> накладная проведена,
> т.е. вывисти в поле таблицы какойто значок типа "галочки",
> отображать какие то буквы или
> знаки припенания не серьезно.

в таблице хранить false или true, а при отображении в DBGrid.OnDrawColumnCell рисовать что душа пожелает.

← →
AlexAvz (2003-05-22 16:47) [2]

Уважаемый Соловьев не могли вы бы привести пример кода, а то
у меня сильно мало информации и нечго не получается

Спасибо

← →
Stas © (2003-05-22 16:48) [3]

Есть Dbgrideh там и рисовать ничего ненадо сам GRid определяет.

← →
AlexAvz (2003-05-22 16:53) [4]

Приведите пожалуйста пример кода Плиссссссс!!!!!!!!!!!

← →
dtm (2003-05-22 16:54) [5]

Я когда-то заводил ещё одну таблицу со статусом документов - проведён/не проведён. В момент проведения проводок менял ID документа с непроведённого на проведённый.

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

← →
dtm (2003-05-22 17:00) [6]

> AlexAvz
> Приведите пожалуйста пример кода Плиссссссс!!!!!!!!!!!

Если использовать DbGridЕh, то в свойстве TColumn (которая отображает поле со статусом проведён/не проведён) в свойстве KeyList сначала заносишь значение поля, для которого чек-бокс болжен быть помечен, во второй строке - значение поля, для которого чек-бокс должен оставаться пустым. Потом свойство CheckBoxes выставляешь в True - должно работать.

Можно просто окрашивать разным цветом строки таблицы:

procedure TFrmMain.DBGridDrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState); begin if ibQ.FieldByName("PRINT").AsInteger = 0 then DBGrid.Canvas.Brush.Color := clSkyBlue; if ibQ.FieldByName("PRINT").AsInteger = 1 then DBGrid.Canvas.Brush.Color := clMoneyGreen; DBGrid.DefaultDrawColumnCell(Rect, DataCol, Column, State); end;

Здесь если документ отпечатан, он отображается зелёным, иначе - светло-синим.

Правилный симво Х или х

Работа с БД Найти похожие ветки