delphi 组件显示记录数

Posted 2023-05-01

procedure TForm1.Button1Click(Sender:TObject);
begin
ADOQuery1.Close;
ADOQuery1.SQL.Text := 'select count(*) as 记录数 from 表名';
ADOQuery1.Open;

Label1.Caption := IntToStr(ADOQuery1.FieldValues['记录数']);
end;

或者：

procedure TForm1.Button1Click(Sender:TObject);
begin
ADOQuery1.Close;
ADOQuery1.SQL.Text := 'select * from 表名';
ADOQuery1.Open;

Label1.Caption := IntToStr(ADOQuery1.RecordCount);
end; 参考技术A 采用 EhLib 控件，其中的 DbGridEh 可以设定属性在表格最下方显示合计列。

delphi中，如何向dbgrid中添加数据记录并自动刷新

我想将几个edit.text编辑后的内容，通过一个click按钮增加到dbgrid中，并自动刷新。求解答。附图

一、预备知识

在 delphi 语言中，对于数据库的操作类组件，简单地可以分为前台（数据显示）及后台（数据操作）类组件。前台类的组件，如 dgGrid、dbEdit 等；后台类的组件，如 AdoTabel、ADOQuery 等。

两者的关系，通常来说，在前台（如 dbGrid）中，对数据的操作（添加、删除记录），最终都需要后台进行实际的动作。

二、对数据库进行添加数据记录操作，通常步骤如下：

1、设置数据库为添加记录状态

2、为数据表中的各字段赋值

3、确认数据，将数据写入数据库

4、更新数据库状态（刷新前台组件数据），

需要说明的是，第 4 步骤为 非必需 项。delphi 的数据库组件具有数据感知特性，一般当数据库改变后，前台的诸如 dbGrid 等组件会自动刷新数据。但某些时候（当数据进行了更改，而数据表格并没有实时反映出变化时），需要进行此步骤。

三、编写代码示例如下：

procedure TForm1.Button1Click(Sender: TObject);
begin
  //设置数据库为添加记录状态
  ADOTable1.Append;
  //为数据表中的各字段赋值
  ADOTable1.FieldByName(\'Name\').Value := \'张三丰\';
  ADOTable1.FieldByName(\'Sex\').Value := \'男\';
  ADOTable1.FieldByName(\'Age\').Value := 30;
  ADOTable1.FieldByName(\'Address\').Value := \'武汉长沙\';
  //提交数据
  ADOTable1.Post;
  //更新数据库状态（刷新前台组件数据）
  ADOTable1.Requery();
end; 参考技术A DB 开头的控件表示数据感知。初期使用，很方便。
而用非数据感知的处理方法，无非就是操作 AdoQuery之类的继承自 TDataSet 的控件。
都一样的规则，
先定位到数据，比如：Locate，或者在 DBGrid 上点选。
ADOQuery.Edit; // 准备编辑。
ADOQuery.FieldByName('第一个字段名').AsVariant := 1233; // 也可以 As 你指针的特定类型。
ADOQuery.FIelds[1].AsString := Edit1.Text; // 第二个字段
ADOQuery.Pos; // 提交到数据库文件中。本回答被提问者采纳 参考技术B 一、使用Tedit控件，增加后，关闭数据集并重新打开
二、使用数据感知控件, 如TDBEdit