| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Работа с БД [D7, Paradox]
AlexAvz © (2003-05-22 15:41:00)Уважаемые мастера, помогите разрешить проблему.
У меня программа учета движения товаров где отображается приход и расход товаров,
наличие товара на складе. Естественно при приходе или расходе товара создаются накладные,
так вот, проблема состоит в том что мне нужно как-то отобразить что накладная проведена,
т.е. вывисти в поле таблицы какойто значок типа "галочки", отображать какие то буквы или
знаки припенания не серьезно. Подскажите как правильно вывести нужный мне символ
(Таблица PARADOX)
Заранее спасибо
Anatoly Podgoretsky (2003-05-22 17:02:00) [1]Правилный симво Х или х
dtm (2003-05-22 17:00:00) [2]> 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;
Здесь если документ отпечатан, он отображается зелёным, иначе - светло-синим.
dtm (2003-05-22 16:54:00) [3]Я когда-то заводил ещё одну таблицу со статусом документов - проведён/не проведён. В момент проведения проводок менял ID документа с непроведённого на проведённый.
Можно просто в специально созданном для этого поле выставлять 0 или 1 (аналог булевых значений), и использовать EhLib - для отображения чек-бокса в нём напротив проведённых документов.
AlexAvz (2003-05-22 16:53:00) [4]Приведите пожалуйста пример кода Плиссссссс!!!!!!!!!!!
Stas (2003-05-22 16:48:00) [5]Есть Dbgrideh там и рисовать ничего ненадо сам GRid определяет.
AlexAvz (2003-05-22 16:47:00) [6]Уважаемый Соловьев не могли вы бы привести пример кода, а то
у меня сильно мало информации и нечго не получается
Спасибо
Соловьев (2003-05-22 15:44:00) [7]
> проблема состоит в том что мне нужно как-то отобразить что
> накладная проведена,
> т.е. вывисти в поле таблицы какойто значок типа "галочки",
> отображать какие то буквы или
> знаки припенания не серьезно.
в таблице хранить false или true, а при отображении в DBGrid.OnDrawColumnCell рисовать что душа пожелает.
| |
