Как вывести количество записей(строк) таблици базы данных mdb в программе?

@DDim1000 · Регистрация: 17.12.2011

Author24 — интернет-сервис помощи студентам

Пишу программу, которая отображает таблицу базы данных. Как сделать чтобы в программе отображалось количество записей в таблиции?

@droider · 30.12.2012, 17:42

Например, чтобы количество записей отображалось при запуске программы пишем (кол-во выводится на метку-Label)

Delphi

var
  Form1: TForm1;
  rec:integer; 
implementation
 
 
procedure TForm1.FormCreate(Sender: TObject);
begin
rec:=Table.RecordCount; //получаем кол-во записей
label1.Caption:=inttostr(rec); //выводим
end;

Чтобы число увеличивалось при добавлении записи

Delphi

procedure TFormAdd.AddButtonClick(Sender: TObject);
begin
try
//тут пропишите добавление записей
rec:=rec+1; //увеличиваем счетчик на единицу
form1.Label1.Caption:=inttostr(rec); //вывод...
end;

Для удаления

Delphi

procedure TForm1.DeleteButtonClick(Sender: TObject);
begin
if MessageDlg('Вы хотите удалить запись?', mtConfirmation, [mbOk, mbCancel], 0)=mrOk
then
begin
Table.Delete; //удаляем запись
rec:=rec-1; //уменьшаем счетчик
Label1.Caption:=inttostr(rec);
end
else
Label1.Caption:=inttostr(rec);
end;

@DDim1000 3 / 3 / 0 Регистрация: 17.12.2011 Сообщений: 522
		1
	Как вывести количество записей(строк) таблици базы данных mdb в программе? 30.12.2012, 16:10. Показов 1468. Ответов 1 Метки нет (Все метки) Пишу программу, которая отображает таблицу базы данных. Как сделать чтобы в программе отображалось количество записей в таблиции? 0

	30.12.2012, 17:42

Опции темы

Как вывести количество записей(строк) таблици базы данных mdb в программе?

Решение