问如何用stringgridl显示数据库的内容

Question

設Query1連之入库登陆数据库import.db
並已經查詢出
Query1.Open;
while not Query1.Eof do 
begin
   stringgrid1.cells[1,i]:=Query1.FieldByName('no').asstring;
   ....
end;
應該沒有問題

Answer 1

stringgrid1.cells[1,i]:=table1ino.fields[i].asstring;

Answer 2

應該是
stringGrid1.cells[1,i]:=tablelino.fieldbyanme('fieldname').asString

Answer 3

按楼上朋友说的可以，
stringGrid1.cells[1,i]:=tablelino.fieldbyanme('fieldname').asString
这只是第一列的数据，可以对cells作个循环处理，，

Answer 4

好象还是不能用
书上这段可能写错了
我是用table1连接的impor.db

Answer 5

Query1.Open;
Query1.first;
while not Query1.Eof do 
begin
   stringgrid1.cells[1,i]:=Query1.FieldByName('no').asstring;
   ....
   next;
end;

Answer 6

stringgrid1.cells[1,i]:=tabel1.FieldByName('no').asstring;

Answer 7

stringgrid1.cells[1,i]:=tabel1.FieldByName('fieldname').asstring;

Answer 8

Query1.Open;
stringgrid1.rowcount=Query1.Count;
Query1.first;
while not Query1.Eof do 
begin
   stringgrid1.cells[1,i]:=Query1.FieldByName('no').asstring;   next;
end;

Answer 9

好几位都正确的写了，
Table的用法和Query是一样的。
再试试/

Answer 10

stringGrid1.cells[1,i]:=tablelino.fieldbyanme('fieldname').asStringfieldname是指的ino吗？？
我还与第二项是hno
是用stringGrid1.cells[2,i]:=tablelhno.fieldbyanme('fieldname').asString
还是用stringGrid1.cells[1,i]:=tablelhno.hno('hno').asString
我是菜鸟不好意思啊：）

Answer 11

rocedure TForm3.FormShow(Sender: TObject);
var
 i,range:integer;
 gname:string;
begin
  inoedit.Text:='';
  inoedit.readonly:=true;
  numedit.Text:='';
  numedit.ReadOnly:=true;
  priceedit.Text:='';
  priceedit.ReadOnly:=true;
  snoedit.Text:='';
  snoedit.ReadOnly:=true;
  stringgrid1.cells[0,0]:='';
  stringgrid1.cells[1,0]:='序号';
  stringgrid1.cells[2,0]:='货物号';
  stringgrid1.cells[3,0]:='货物数';
  stringgrid1.cells[4,0]:='货物价格';
  stringgrid1.cells[5,0]:='货主';
  stringgrid1.cells[6,0]:='仓库号';
  stringgrid1.cells[7,0]:='日期';
  datasource1.enabled:=false;
  datasource1.dataset:=table1;
  datasource1.enabled:=true ;
  table1.close;
  table1.tablename:='import.db';
  table1.open;
  query1.close;
  query1.SQL.Clear;
  query1.SQL.Add('selec count(*)');
  query1.sql.Add('from import;');
  query1.Open;
  range:=query1.fields[0].asinteger;
  for i:=1 to range do
    begin
      stringgrid1.cells[0,i]:=inttostr(range);
    end;
  for i:=1 to range do
  begin
  query1.Close;
  query1.SQL.Clear;
  query1.SQL.Add('select * ');
  query1.SQL.Add('from import;');
  query1.SQL.Add('where ino='+inttostr(i));
  query1.Open;
  ？？？stringgrid1.cells[1,i]:=table1ino.fields[i].asstring;
  ？？？stringgrid1.cells[2,i]:=table1gno.fields[i].value;
  ？？？stringgrid1.cells[3,i]:=table1gnum.fields[i].asstring;
  ？？？stringgrid1.cells[4,i]:=table1gprice.fields[i].value;
  ？？？stringgrid1.cells[1,i]:=table1gowner.fields[i].asstring;
  ？？？stringgrid1.cells[1,i]:=table1sno.fields[i].value;
  ？？？stringgrid1.cells[7,i]:=table1date.fields[i].asstring;
  end;
inoedit.Text:=stringgrid1.cells[1,range];
numedit.Text:=stringgrid1.cells[3,range];
priceedit.Text:=stringgrid1.cells[4,range];
snoedit.Text:=stringgrid1.cells[6,range];
end;end.
这是完整的程序，前面有问号的是有错误的
请大家帮忙

Answer 12

table1ino,table1gno............是甚麼,怎麼會有這麼多表