delphi中DBEdit问题?
我用DBEdit显示数据库中对应的内容,为什么我想在DBEdit中修改,但是只能看,不能修改,我用的是adoquery数据集组件!DBEdit的属性ReadOnly已设为...
我用DBEdit显示数据库中对应的内容,为什么我想在DBEdit中修改,但是只能看,不能修改,我用的是adoquery数据集组件!DBEdit的属性ReadOnly已设为false ,并把数据集adoquery设为编辑状态adoquery1.edit,但是运行以后还是改不了??请问这是为什么呀?
DBEdit的哪个属性可以消除这种情况,能在运行的时候可以随便修改DBEdit中的值呀!!!
哪位知道了说下!!!谢谢了 !!!
二楼的大哥,请问一下如果用edit来编辑修改,怎么样实现在点击上一记录和下一记录按钮时实现EDIT显示数据,谢谢 展开
DBEdit的哪个属性可以消除这种情况,能在运行的时候可以随便修改DBEdit中的值呀!!!
哪位知道了说下!!!谢谢了 !!!
二楼的大哥,请问一下如果用edit来编辑修改,怎么样实现在点击上一记录和下一记录按钮时实现EDIT显示数据,谢谢 展开
2个回答
展开全部
举最简单的例子:
窗体上放一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;
xp sp3下delphi7.0调试通过!
窗体上放一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;
xp sp3下delphi7.0调试通过!
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询