[es] - NULL polja u bazi i Object Properties

captPicard
programer
more i planine

Član broj: 216084
Poruke: 1119

+19 Profil

Re: NULL polja u bazi i Object Properties

^{16.03.2009. u 16:45 - pre 184 meseci}

Evo, napravi točno kako sam ti napisao:

Code:

procedure TFTest.Button1Click(Sender: TObject);
var
  i: integer;
begin
  Test.Open;
  with Boja do
  begin
    Close;
    SelectSQL.Text := 'select r.rdb$field_name NAZIV_POLJA, ' +
      't.rdb$type_name, ' +
      'f.rdb$field_length, ' +
      'r.rdb$null_flag, ' +
      'f.rdb$validation_source ' +
      'from rdb$relation_fields r, rdb$types t, rdb$fields f ' +
      'where r.rdb$relation_name=''KUMULATIV'' and ' +
      'f.rdb$field_name=r.rdb$field_source and ' +
      't.rdb$field_name=''RDB$FIELD_TYPE'' and ' +
      'r.rdb$null_flag = 1 and ' +
      'f.rdb$field_type=t.rdb$type ';
    Open;
    First;
  end;
  while not Boja.eof do
  begin
    for i := 0 to ComponentCount - 1 do
    begin
      if Components[i] is TDBEdit then
      begin
        if (Components[i] as TDBEdit).DataField = Trim(Boja.FieldByName('NAZIV_POLJA').AsString) then
          (Components[i] as TDBEdit).Color := clRed;
      end;
    end;
    Boja.Next;
  end;
end;

Odgovor na temu