delphi中DBEdit问题?

来源:百度知道 编辑:UC知道 时间:2024/09/24 10:13:25
我用DBEdit显示数据库中对应的内容,为什么我想在DBEdit中修改,但是只能看,不能修改,我用的是adoquery数据集组件!DBEdit的属性ReadOnly已设为false ,并把数据集adoquery设为编辑状态adoquery1.edit,但是运行以后还是改不了??请问这是为什么呀?
DBEdit的哪个属性可以消除这种情况,能在运行的时候可以随便修改DBEdit中的值呀!!!
哪位知道了说下!!!谢谢了 !!!
二楼的大哥,请问一下如果用edit来编辑修改,怎么样实现在点击上一记录和下一记录按钮时实现EDIT显示数据,谢谢

举最简单的例子:
窗体上放一edit,两个button,分别显示上一记录和下一记录

首先连上数据库

初始化窗体事件//
procedure Tm_log.FormShow(Sender: TObject);
begin
with m_log.q do
begin
close;
sql.Clear;
sql.Text:='select * from book_user_info';
open;
first;
edit1.Text:=fieldbyname('username').AsString;
end;
end;

//下一记录按纽的onclick事件
procedure Tm_log.Button1Click(Sender: TObject);
begin
m_log.q.Close;
m_log.q.SQL.Clear;
m_log.q.SQL.Text:='select * from book_user_info';
m_log.q.Open;
m_log.q.Next;
edit1.Text:=m_log.q.fieldbyname('username').AsString;
end;

//上一记录的onclick事件
procedure Tm_log.BitBtn1Click(Sender: TObject);
begin
m_log.q.Close;
m_log.q.SQL.Clear;
m_log.q.SQL.Text:='select * from book_user_info';
m_log.q.Open;
m_log.q.Prior;
edit1.Text:=m_log.q.fieldbyname('username').AsString;
end;