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
Potpis
Don't worry be happy
Dogadjaj OnTittle kontrole DbGrid
Zaključano
Zakačeno
Mislim da bi delphi.about.com primer pomogao.
Potpis
Someone's sitting in the shade today because someone planted a tree a long time ago.
izmenjeno 1 put, poslednji put savkic 18.09.2008. u 15:20
Izmene poruke
- savkic18.09.2008. u 15:20zapis iz teksta poruke
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;
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 ??
@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
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
Potpis
Don't worry be happy
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.
Potpis
Someone's sitting in the shade today because someone planted a tree a long time ago.
Iz linka koji mi je Milos poslao(hvala puno) otkucao sam sledeci kod
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?
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;
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?
Potpis
Don't worry be happy