Поиск по БД

[jaxik]

Есть БД, написанная в Database Desktkop. База автомобилей.

В программе (например, при нажатии на кнопку) выполняется
цикл по всем транспортным средствам в БД. Если у какого-то
т/с наступило время прохождения ТО (т.е. его текущий пробег
равен или превышает пробегу для прохождения ТО и ранее ТО не
проводилось), то данное т/с как-то помечается (цветом, или выводится
в отдельную таблицу).


Как это возможно сделать? И чем лучше всего воспользоваться?

[artemavd]

Элементарно. Берете в цикле прямо и сравниваете с имеющимися значениями в БД и меняете текст в ячейке. Остальное подробнее скажет поиск по форуму.

[Sparky]

а про SQL вы слышали?

[Yurk@]

jaxik,
1. юзай SQL-запросы
2. выводи результат в DBGrid
3. используя событие OnDrawDataCell красим "сетку" нужными цветами

[jaxik]

Я решил сделать не в sql. Получилось что я сделал для ТО-1, всё прекрасно выделяет и работает. Но а как можно сделать для ТО-2, ТО-3?

Где 1500 это километраж до 1-ого ТО.

procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
if dm.table1.fieldbyname('ТО-1').AsVariant=false then
WITH DBGrid1.Canvas DO
  BEGIN
     IF gdSelected IN State THEN
    BEGIN
     Font.Color:=clHighlightText;
     Brush.Color:=clHighlight
    END
   ELSE
       BEGIN
     Font.Color:=clBlack;
       if  dm.table1.FieldByName('Пробег (км)').AsInteger>1500
      THEN
      Brush.Color:=clLime
    else
     Brush.Color:=DBGrid1.Color;
    END;
   WITH Rect.TopLeft DO
    TextRect(Rect, X+2, Y+2, Column.Field.AsString);
  END

end;

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

[Mad_Cat]

сделай обертку в которую передавай № то и километраж
что то вроде

procedure Tform1.myproc( TEO:string;km:integer);
begin
if dm.table1.fieldbyname(TEO).AsVariant=false then
WITH DBGrid1.Canvas DO
  BEGIN
     IF gdSelected IN State THEN
    BEGIN
     Font.Color:=clHighlightText;
     Brush.Color:=clHighlight
    END
   ELSE
       BEGIN
     Font.Color:=clBlack;
       if  dm.table1.FieldByName('Пробег (км)').AsInteger>km
      THEN
      Brush.Color:=clLime
    else
     Brush.Color:=DBGrid1.Color;
    END;
   WITH Rect.TopLeft DO
    TextRect(Rect, X+2, Y+2, Column.Field.AsString);
  END;
end;

ну а в этой процедуре вызови с необходимыми параметрами

procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
myproc('TO-1',1500);
{......}
end;

[_Engine_]

Сообщение от RuVarez

Все равно SQL лучше!

А какое, извините, отношение имеет SQL к "выделить цветом" в таблице DBGrid?

[jaxik]

Спасибо большое всё работает...)
Но при переносе на другой комп база не находится (((
Помогите создать альас, а то в интернете по поиску варианты мне не подходят.
Мне надо как то тупо, указать коренную папку программы, с папкой Data, в которой лежит сама база.

[artemavd]

Сообщение от jaxik

Спасибо большое всё работает...)
Но при переносе на другой комп база не находится (((
Помогите создать альас, а то в интернете по поиску варианты мне не подходят.
Мне надо как то тупо, указать коренную папку программы, с папкой Data, в которой лежит сама база.

Вопрос об алиасах многократно обсуждался на форуме. В поиск. Закрыто. На будущее: одна тема - один вопрос.