如何在StatusBar上显示表的行数和列数(100分)

T

tj1124

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-17

• #1

如何在StatusBar上显示表的行数和列数
江湖救急

 

N

Nstar

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-17

• #2

statusbar1.panels[1].text:='Cols='+query1.FIeldCount+' Rows='+Query1.RecordCount

 

H

huiboy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-17

• #3

呵呵，
对啊。

 

天

天真

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-17

• #4

statusbar1.panels[1].text:='Cols='+inttostr(query1.FIeldCount)+' Rows='+inttostr(Query1.RecordCount)

 

B

bubble

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-17

• #5

procedure TForm1.FormActivate(Sender: TObject);
begin
MainForm.StatusBar.Panels[1].Text:='第'+inttostr(DataSource1.DataSet.RecNo)+'笔纪录-总共'+inttostr(DataSource1.DataSet.RecordCount)+'笔纪录';
end;

 

G

gophie

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-17

• #6

同意：天真
statusbar1.panels[1].text:='Cols='+inttostr(query1.FIeldCount)+' Rows='+inttostr(Query1.RecordCount)
当然先要在statusbar1上panels.add