我是利用ADOQuery，DataSource和dbgrid做一个连接数据库的小程序，为什么连接数据库成功之后，dbgrid不显示文字，点击下面的框的时候可以将数据库里的数据返回给edit，这样说明数据连接成功了，为什么下面的框内不显示呢？

procedure TBmxhfrm.DBGrid1CellClick(Column: TColumn);
begin
Bhedt.Text := ADOQuery1.fieldbyname('bh').AsString;
Rqedt.Text := ADOQuery1.fieldbyname('rq').AsString;
Ysfydmedt.Text := ADOQuery1.fieldbyname('Ysfydm').AsString;
Ysfymcedt.Text := ADOQuery1.fieldbyname('Ysfymc').AsString;
Cbxmdmedt.Text := ADOQuery1.fieldbyname('Cbxmdm').AsString;
Cbxmmcedt.Text := ADOQuery1.fieldbyname('Cbxmmc').AsString;
Jeedt.Text := ADOQuery1.fieldbyname('Je').AsString;
Fpbzdmedt.Text := ADOQuery1.fieldbyname('Fpbzdm').AsString;
Fpbzmcedt.Text := ADOQuery1.fieldbyname('Fpbzmc').AsString;
Ytedt.Text := ADOQuery1.fieldbyname('Yt').AsString;
Bzedt.Text := ADOQuery1.fieldbyname('bz').AsString;
end;
procedure TBmxhfrm.FormCreate(Sender: TObject);
begin
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('select *from T_Cbgl_Bmfylr');
ADOQuery1.open;
end;
代码

是否把属性里的active改成true

用语句把DataSource打开

Bhedt.Text := ADOQuery1.fieldbyname('bh').AsString;
数据库字段是bh 前台显示是编号 delphi 找不到 把dbgrid title标题与数据库字段对应上 要不你就 as 别名

晕，这是哪里跟哪里呀，你这种版面模式都用十年多了，一直很好用，很简单，不需要这么复杂。全部使用DB系列的控件（如DBEdit，DBGrid）就行了

Grid没有写对应fieldname值

双击dbgrid，把里面的columns删空

求delphi图书管理系统