delphi stringgrid显示数据库记录

最新推荐文章于 2025-05-07 14:59:36 发布

转载最新推荐文章于 2025-05-07 14:59:36 发布 · 1.4k 阅读

文章标签：

#delphi #stringgrid #显示 #数据库 #记录

Delphi 专栏收录该内容

227 篇文章

订阅专栏

本文介绍如何使用Delphi中的StringGrid控件调整显示设置，实现行选中变色，并通过ADOQuery组件进行数据库操作，包括数据插入、更新、删除及查询。展示了如何将查询结果填充到StringGrid中，涉及SQL语句构造与ADORecord遍历。

1、stringgrid控件默认的第一列和第一行是用来给你做备注的，所以会有不同的颜色显示，要去除这个显示需要改动属性fixedrows和fixedcols，分别是锁定的函数和列数，改为0就没有锁定的了。

2、stringgrid要实现选定了后一整行都变色，需要在option里面选择gorowselect属性。

3、adorequest实现insert、update、delete可以加入到SQL语句中去，然后执行ExecSQL方法，但是如果是查询值，即用select的话就用open方法打开，之后是ado一个record，可以用RecordCount属性判断有多少条记录，用next方法逐条读取，下面是一段代码：

procedure TForm1.FormCreate(Sender: TObject);
var
i:integer;
adoquery1:tadoquery;
begin
adoquery1:=tadoquery.Create(nil);
adoquery1.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source=' + getAppPath()+'db\sperm.mdb';
adoquery1.SQL.Clear;
adoquery1.SQL.Add('select * from report where getdate>#2012-02-28# order by getdate desc');
adoquery1.Open;
stringgrid1.RowCount:=adoquery1.RecordCount;
for i := 1 to adoquery1.RecordCount do
begin
stringgrid1.Cells[0,i]:=adoquery1.FieldByName('medicalno').AsString;
stringgrid1.Cells[1,i]:=adoquery1.FieldByName('name').AsString;
stringgrid1.Cells[2,i]:=adoquery1.FieldByName('age').AsString;

adoquery1.Next;
end;
adoquery1.Destroy;

end;