delphi中DBEdit问题?
来源:百度知道 编辑:UC知道 时间:2024/09/24 10:13:25
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;