Question

delphi怎样一运行程序就可以把SQL数据库中的一个表的内容显示在form中的listview上面

Answer 1

循环写，这个没什么快捷的办法

追问

你的回答能具体点吗，你已经3次第一个回答我的问题了，每一次都是这么不痛不痒的一句话！！！

追答

不是我不疼不痒，是你非要用listview上显示dataset

vsReport：vsReport

三个column自己加上，可以自己扩充

procedure TForm1.Button1Click(Sender: TObject);
var
   ListItem: TListItem;

begin
  adoquery1.first  ;
  while not adoquery1.Eof do
  begin
    ListItem := ListView1.Items.Add;
    ListItem.Caption := ADOQuery1.Fields[0].AsString;
    ListItem.SubItems.Add(ADOQuery1.Fields[1].AsString);
    ListItem.SubItems.Add(ADOQuery1.Fields[2].AsString);
    ADOQuery1.Next ;
  end;



end;

Answer 2

你给他一个好的控件。他没有，怎么用。

你就给他写出算法就行了

我好久不写代码了。

listview 有 item subitem

循环遍历数据集，一条一条的吧数据集中的记录添加到 item 中，不过要把非字符型的数据转换成字符型。这样就能显示出来。

大致就是这样

procedure TForm1.Button1Click(Sender: TObject);
var
ListItem: TListItem;

begin
adoquery1.first ;
while not adoquery1.Eof do
begin
ListItem := ListView1.Items.Add;
ListItem.Caption := ADOQuery1.Fields[0].AsString;
ListItem.SubItems.Add(ADOQuery1.Fields[1].AsString);
ListItem.SubItems.Add(ADOQuery1.Fields[2].AsString);
ADOQuery1.Next ;
end;

Answer 3

你用dataset, datasource, database,db控件集就可以搞定了，不需要写一行代码！