Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

Dogadjaj OnTittle kontrole DbGrid

[es] :: Pascal / Delphi / Kylix :: Dogadjaj OnTittle kontrole DbGrid

[ Pregleda: 2602 | Odgovora: 5 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

mr.zhile
Ivan ZHILE
C# developer

Član broj: 185721
Poruke: 249
79.101.202.*



+2 Profil

icon Dogadjaj OnTittle kontrole DbGrid18.09.2008. u 10:42 - pre 189 meseci
Kako bi trebalo obraditi dogadjaj onTitle,koji kod napisati u njemu, da bi se dobio efekat aranziranja,poretka?kao sto se automatski radi sa kontolom DbCtrlGrid
Don't worry be happy
 
Odgovor na temu

Miloš Baić
Miloš Baić
ERP (Dynamics NAV) programer
Beograd

Član broj: 72468
Poruke: 1155
79.101.144.*



Profil

icon Re: Dogadjaj OnTittle kontrole DbGrid18.09.2008. u 11:37 - pre 189 meseci
Mislim da bi delphi.about.com primer pomogao.
Someone's sitting in the shade today because someone planted a tree a long time ago.
 
Odgovor na temu

Markanto
Marko Antolović
admin, zk
Buševec

Član broj: 184593
Poruke: 55
*.adsl.net.t-com.hr.



+3 Profil

icon Re: Dogadjaj OnTittle kontrole DbGrid18.09.2008. u 11:37 - pre 189 meseci
Code:

var
  imeKolone : String;
  sql : String;
  izmijena : boolean;
begin
  izmijena := not izmijena;

  if izmijena = True then
  begin
    imeKolone := Column.FieldName;

    sql := 'select * from ime_tablice order by ' + imeKolone + ' ASC';

    DM.SQLQueryUra.SQL.Clear;
    DM.SQLQueryUra.SQL.Add(sql);
    DM.SQLQueryUra.Open;

    DM.cdsUra.Active := False;
    DM.cdsUra.Active := True;
  end
  else
  begin
    imeKolone := Column.FieldName;

    sql := 'select * from ime_tablice order by ' + imeKolone + ' DESC';

    DM.SQLQueryUra.SQL.Clear;
    DM.SQLQueryUra.SQL.Add(sql);
    DM.SQLQueryUra.Open;

    DM.cdsUra.Active := False;
    DM.cdsUra.Active := True;
  end;
end;


POMOGLO ??

[Ovu poruku je menjao savkic dana 18.09.2008. u 15:20 GMT+1]
 
Odgovor na temu

mr.zhile
Ivan ZHILE
C# developer

Član broj: 185721
Poruke: 249
79.101.164.*



+2 Profil

icon Re: Dogadjaj OnTittle kontrole DbGrid18.09.2008. u 15:27 - pre 189 meseci
@Milose
Hvala!Ali nisam joos nasao resenje,na About Delphi ima za ADO,a ja radim sa FB,i nemogu nesto da se uklopim.
A nemogu da brisem kod (sto si dao u predlogu)jer mi se u gridu otvara tabela..
NECE
Don't worry be happy
 
Odgovor na temu

Miloš Baić
Miloš Baić
ERP (Dynamics NAV) programer
Beograd

Član broj: 72468
Poruke: 1155
*.adsl-a-1.sezampro.yu.



Profil

icon Re: Dogadjaj OnTittle kontrole DbGrid18.09.2008. u 16:34 - pre 189 meseci
Citat:
mr.zhile:A nemogu da brisem kod (sto si dao u predlogu)jer mi se u gridu otvara tabela..

Nisam ovo baš najbolje razumeo!?!

BTW, koje komponente koristiš za rad sa FB? Koje god da su, prosledi isti kod komponentama koje koristiš i to je to. Nisam probao, al ne bi trebalo da ti pravi problem.
Someone's sitting in the shade today because someone planted a tree a long time ago.
 
Odgovor na temu

mr.zhile
Ivan ZHILE
C# developer

Član broj: 185721
Poruke: 249
93.86.49.*



+2 Profil

icon Re: Dogadjaj OnTittle kontrole DbGrid19.09.2008. u 11:44 - pre 188 meseci
Iz linka koji mi je Milos poslao(hvala puno) otkucao sam sledeci kod
Code:

procedure TfrmClanovi.DBGrid1TitleClick(Column: TColumn);
{$J+}
const
   PreviousColomnIndex:integer=-1;
{$J-}
var
   Sort:String;
begin
      Sort:=Column.Field.FieldName;
   if DBGrid1.DataSource.DataSet is TCustomSQLDataSet then
      with TCustomSQLDataSet(DBGrid1.DataSource.DataSet) do
   begin
      try
         DBGrid1.Columns[PreviousColomnIndex].Title.Font.Style:=DBGrid1.Columns[PreviousColomnIndex].Title.Font.Style-[fsBold];
      except
      end;
      Column.Title.Font.Style:=Column.Title.Font.Style+[fsBold];
      PreviousColomnIndex:=Column.Index;
      if (Pos(Column.Field.FieldName,Sort)=1)and (Pos('Desc',Sort)=0) then
      Sort:=Column.Field.FullName+'Desc'
      else
      Sort:=Column.Field.FieldName+'Asc';
   end;
end;

Problem je u tome sto kod nista ne radi!Znam da sam negde pogresio ali ne znam gde,pa najljubaznije molim da mi neko pomogne?

I jos nesto da pitam {$J+} sta znaci?
Mislim da se {$}oznacavaju naredbe koje se direktno kompajleru prosledjuju...ali ne znam sta ova znaci?
Don't worry be happy
 
Odgovor na temu

[es] :: Pascal / Delphi / Kylix :: Dogadjaj OnTittle kontrole DbGrid

[ Pregleda: 2602 | Odgovora: 5 ] > FB > Twit

Postavi temu Odgovori

Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.