这是界面,需要在下面显示表中的信息。
代码如下:procedure Tfrmxitong.FormCreate(Sender: TObject);
begin
Data.ADOQlogin.Close;
Data.ADOQlogin.SQL.Clear;
Data.ADOQlogin.SQL.Add('select * from users');
Data.DataSlogin.DataSet:=Data.ADOQlogin;
Data.ADOQlogin.Open;
end;procedure Tfrmxitong.Button1Click(Sender: TObject);
begin
if (Edit1.Text<>'') and (Edit2.Text<>'') and (Edit3.Text<>'') and
(ComboBox1.Text<>'') and (Edit2.Text=Edit3.Text) then begin
Data.ADOQlogin.Append;
Data.ADOQlogin['YHM']:=Edit1.Text;
Data.ADOQlogin['MM']:=Edit2.Text;
Data.ADOQlogin['YHQX']:=ComboBox1.Text;
Data.ADOQlogin['DLSJ']:=Now;
Data.ADOQlogin.Post;
MessageDlg('Successed!',mtError,[mbOk],0);
end
else
MessageDlg('Error!Not Null Allowed!',mtError,[mbOK],0);
end;

解决方案 »

  1.   

    DBGrid是否连接了datasource,datasource是否连接了dataset
      

  2.   

    DBgrid中DataSource属性已设置,DataSource中DataSet属性也设置。还是没有显示。
      

  3.   

    最好在确认下dbgrid的dataset是否是data.dataslogin,dbgrid的列标题是否显示出来,如果显示的为你表中字段的名称,那就是查询没有返回值。
      

  4.   

    我的Data.DataSlogin.DataSet:=Data.ADOQlogin;这个界面的功能是添加新的用户,界面下面是dbgrid,用来显示用户的信息,能告诉我你们怎么写这个代码,添加什么控件?我刚学这个,只能照搬着学。
      

  5.   

    建议你去www.2ccc.com下载一些例子看一看或弄本书看一看。
    你的问题明显是对相关控件没有掌握好。
    对于单个表的维护,你可以只用一个adotable控件就可以了。不用adoquery控件。