这是界面,需要在下面显示表中的信息。
代码如下: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;
代码如下: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;
解决方案 »
- 新手 问题 关于函数的重载
- [fatal error] :file not found:'aaa.dcu' 遇到这种问题如何解决?
- 网络正常,但SQL Server有时正常,有时连接不上
- 请问如何快速定位数据库中的某条记录(有序排列),数据库在不断添加顺序记录
- 2000,xp下面怎么屏蔽ctrl+alt+del以及其他系统按键啊?
- Delphi 一个小问题!! (帮忙者有分)
- 怎么从过程和函数中退出?
- 请问MASM是什么?有没有相关文档资料可以下载?
- 帮帮忙 !!!
- 如何在ttoolbar或tcoolbar中加菜单,象delphi的编辑环境一样
- VC中socket通信代码如何转成Dephi的,求助
- Skin++ for Delphi 使用问题
你的问题明显是对相关控件没有掌握好。
对于单个表的维护,你可以只用一个adotable控件就可以了。不用adoquery控件。