Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Закраска одинаковых ячеек в одной колонке DBGrid / 7 сообщений из 7, страница 1 из 1
13.09.2018, 07:20
    #39701801
SUDOMaSteR
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Закраска одинаковых ячеек в одной колонке DBGrid
Народ, помогите, как закрасить ячейки с одинаковыми значениями находящихся в одной колонке но в разных строках?
...
Рейтинг: 0 / 0
13.09.2018, 08:30
    #39701825
zinpub
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Закраска одинаковых ячеек в одной колонке DBGrid
SUDOMaSteR,

Делал так:
1. Загоняем в array[N, 1..2] - N,1 значение, N,2 номер колонки;
2. Сортируем
3. Пробегаемся по массиву и красим коли два или более значения вподряд одинаковые
...
Рейтинг: 0 / 0
13.09.2018, 08:49
    #39701834
SUDOMaSteR
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Закраска одинаковых ячеек в одной колонке DBGrid
zinpubSUDOMaSteR,

Делал так:
1. Загоняем в array[N, 1..2] - N,1 значение, N,2 номер колонки;
2. Сортируем
3. Пробегаемся по массиву и красим коли два или более значения вподряд одинаковые

А как в массиве сортировку сделать не подскажешь?
...
Рейтинг: 0 / 0
13.09.2018, 09:05
    #39701846
zinpub
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Закраска одинаковых ячеек в одной колонке DBGrid
Ну не в такой ДЕНЬ же :-)
...
Рейтинг: 0 / 0
13.09.2018, 09:05
    #39701847
zinpub
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Закраска одинаковых ячеек в одной колонке DBGrid
...
Рейтинг: 0 / 0
13.09.2018, 09:41
    #39701871
SUDOMaSteR
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Закраска одинаковых ячеек в одной колонке DBGrid
zinpub http://www.delphi-manual.ru/sorting.php

Спасибо, буду думать :) Хотя мысля пришла уже по другому реализовать это, используя ресурсы MSSQL но не постоянно чтоб проверка шла на дубли, а только в определенные моменты :)

P.S. С праздником :)
...
Рейтинг: 0 / 0
13.09.2018, 12:14
    #39701997
SUDOMaSteR
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Закраска одинаковых ячеек в одной колонке DBGrid
Реализовал пока так, может кому пригодится :)
Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
54.
55.
56.
57.
58.
59.
60.
61.
62.
63.
64.
65.
66.
67.
68.
69.
70.
71.
72.
73.
74.
75.
var
  YN_INVEN_NO_SB:array of integer;
  YN_INVEN_NO_MON:array of integer;

procedure SearchDuble;
var
  i:integer;
begin
  BASE.Query.Connection := BASE.Connection;
  BASE.Query.Active:= False;
  BASE.Query.SQL.Clear;
  BASE.Query.SQL.Add('SELECT YN_TD0007 FROM TD0007');
  BASE.Query.SQL.Add('WHERE INVEN_NO_MON in (SELECT INVEN_NO_MON FROM TD0007');
  BASE.Query.SQL.Add('GROUP BY INVEN_NO_MON');
  BASE.Query.SQL.Add('HAVING COUNT(*)>1)');
  BASE.Query.Active:= True;
  SetLength(YN_INVEN_NO_MON, BASE.Query.RecordCount);
  BASE.Query.First;
  if BASE.Query.RecordCount > 0 then begin
    for i:=0 to BASE.Query.RecordCount do begin
      YN_INVEN_NO_MON[i]:=BASE.Query.FieldByName('YN_TD0007').AsInteger;
      BASE.Query.Next;
    end;
  end;

  BASE.Query.Connection := BASE.Connection;
  BASE.Query.Active:= False;
  BASE.Query.SQL.Clear;
  BASE.Query.SQL.Add('SELECT YN_TD0007 FROM TD0007');
  BASE.Query.SQL.Add('WHERE INVEN_NO_SB in (SELECT INVEN_NO_SB FROM TD0007');
  BASE.Query.SQL.Add('GROUP BY INVEN_NO_SB');
  BASE.Query.SQL.Add('HAVING COUNT(*)>1)');
  BASE.Query.Active:= True;
  SetLength(YN_INVEN_NO_SB, BASE.Query.RecordCount);
  BASE.Query.First;
  if BASE.Query.RecordCount > 0 then begin
    for i:=0 to BASE.Query.RecordCount do begin
      YN_INVEN_NO_SB[i]:=BASE.Query.FieldByName('YN_TD0007').AsInteger;
      BASE.Query.Next;
    end;
  end;
end;

procedure TTD0007.FormCreate(Sender: TObject);
begin
  SearchDuble;
end;

procedure TTD0007.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
var
  i: integer;
begin
  if (gdfocused in state) then else begin
    DBGrid1.Canvas.Font.Color:= clBlack;
    DBGrid1.Canvas.Font.Style:=[];
  end;
  if Column.Index = 13 then
    for i := 0 to Length(YN_INVEN_NO_SB) do begin
      if YN_INVEN_NO_SB[i] = BASE.DS_TD0007.DataSet.FieldByName('YN_TD0007').AsInteger then
        if (gdfocused in state) then else begin
          DBGrid1.Canvas.Font.Color := clRed;
          DBGrid1.Canvas.Font.Style:=[fsBold];
        end;
    end;
  if Column.Index = 18 then
    for i := 0 to Length(YN_INVEN_NO_MON) do begin
      if YN_INVEN_NO_MON[i] = BASE.DS_TD0007.DataSet.FieldByName('YN_TD0007').AsInteger then
        if (gdfocused in state) then else begin
          DBGrid1.Canvas.Font.Color := clRed;
          DBGrid1.Canvas.Font.Style:=[fsBold];
        end;
    end;
  DBGrid1.DefaultdRawColumnCell(Rect,DataCol,Column,State);
end;
...
Рейтинг: 0 / 0
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Закраска одинаковых ячеек в одной колонке DBGrid / 7 сообщений из 7, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]