DELPHI查询EDIT1数据，显示在cool edit2.1插件包里，怎么弄？

来源：蜘蛛抓取(WebSpider) 时间：2015-07-11 03:03 标签： cool edit2.1汉化补丁
在delphi中经adoquery查询得到多个数据，如何做个下一个、上一个按钮使数据在edit中一条条显示呢？
[问题点数：20分，结帖人yonger22]
在delphi中经adoquery查询得到多个数据，如何做个下一个、上一个按钮使数据在edit中一条条显示呢？
[问题点数：20分，结帖人yonger22]
不显示删除回复
显示所有回复
显示星级回复
显示得分回复
只显示楼主
本帖子已过去太久远了，不再提供回复功能。我想单击dbgrid某条数据显示在edit文本框中delphi
我想单击dbgrid某条数据显示在edit文本框中delphi
表中有三个字段：id name sex全部显示在dbgrid中；我想单击dbgrid 的某条数据的时候相应的数据显示在edit中如下：with data_m.ADOQ_chewei dobeginsql.Csql.Add('select * from manage');edit1.Text := fieldvalues['id'];edit2.Text := fieldvalues['name'];edit3.Text := fieldvalues['sex'];但是我单击其他行的时候它会自己跳到第一行？为什么呢？怎么实现？文本框都是一直显示第一行的数据。
或者在ADO控件的AfterScroll事件里写赋值代码：
edit1.Text := ADO_a.fieldvalues['id'];edit2.Text := ADO_a.fieldvalues['name'];edit3.Text := ADO_a.fieldvalues['sex'];
或者在dbgrid的单击事件oncellclick
procedure Tchewei.DBGrid1CellClick(Column: TColumn);begin
with data_m.ADOQ_chewei do
sql.Add('select * from cheweimanage');
edit1.Text := fieldvalues['id'];
edit2.Text := fieldvalues['huzhu'];
edit3.Text := fieldvalues['usetime'];
最后的结果都是我单击其他行的时候它会自己跳到第一行
edit的信息都是显示第一条记录
按上面兄弟的意见做， 然后把你的DBEdit换成普通Edit
谢谢你，我会了
提问者 的感言：谢谢你 满意答案
procedure Tchewei.DBGrid1CellClick(Column: TColumn);beginedit1.Text := DBGrid1.DataSource.DataSet.FieldByName('ID').AsS
edit2.Text := DBGrid1.DataSource.DataSet.FieldByName('huzhu').AsS
edit3.Text := DBGrid1.DataSource.DataSet.FieldByName('usetime').AsS
提问者 的感言：谢谢 相关知识
相关知识等待您来回答
编程领域专家
& &SOGOU - 京ICP证050897号delphi中点击Dbgrid的上下两个箭头，edit显示对应的数据
[问题点数：20分，结帖人mickeylelele]
delphi中点击Dbgrid的上下两个箭头，edit显示对应的数据
[问题点数：20分，结帖人mickeylelele]
不显示删除回复
显示所有回复
显示星级回复
显示得分回复
只显示楼主
2012年4月 Delphi大版内专家分月排行榜第二2012年3月 Delphi大版内专家分月排行榜第二2012年1月 Delphi大版内专家分月排行榜第二2011年11月 Delphi大版内专家分月排行榜第二
2012年2月 Delphi大版内专家分月排行榜第三
2012年4月 Delphi大版内专家分月排行榜第二2012年3月 Delphi大版内专家分月排行榜第二2012年1月 Delphi大版内专家分月排行榜第二2011年11月 Delphi大版内专家分月排行榜第二
2012年2月 Delphi大版内专家分月排行榜第三
本帖子已过去太久远了，不再提供回复功能。delphi如何使用stringgrid组件显示多条数据库查询结果
我要用到一个combobox和edit组件，在combobox里选择查询字段，edit里写入查询条件，之后点击检索，就检索了相关的数据而且往往是多条数据。问题来了，我怎么把查询出来的多条数据，一条条写入到stringgrid的单元格去呢。
我的相关部分代码如下， procedure TForm2.BitBtn1Click(Sender: TObject);var
na,worder:begin
na:=Trim(Edit1.Text);
worder:=Trim(Combobox1.Text);
if worder=''then
Showmessage('查询字段不能为空');
else if na=''then
Showmessage('查询条件不能为空');
Edit1.SetF
with ADOQuery1 do
SQL.Add('select Zbh as 自编号,Name as 名称,Type as 书类型,PeriodOrd as 刊期,Merchant as 供应商,State as 书状态,Price as 价格,stockDiscount as 进货折扣,greatDiscount as 批销折扣 from Books where '+worder+'='+'QuotedStr(trim(na))');
if ADOQuery1.RecordCount&0 then
Showmessage('查询成功')
Showmessage('查询失败');
endend.跪求大侠帮帮小妹。初学者
08-11-19 & 发布
procedure TForm2.BitBtn1Click(Sender: TObject);var
na,worder:
na:=Trim(Edit1.Text);
worder:=Trim(Combobox1.Text);
if worder=''then
Showmessage('查询字段不能为空');
else if na=''then
Showmessage('查询条件不能为空');
Edit1.SetF
with ADOQuery1 do
SQL.Add('select Zbh as 自编号,Name as 名称,Type as 书类型,PeriodOrd as 刊期,Merchant as 供应商,State as 书状态,Price as 价格,stockDiscount as 进货折扣,greatDiscount as 批销折扣 from Books where '+worder+'='+'QuotedStr(trim(na))');
if ADOQuery1.RecordCount&0 then
Showmessage('查询成功')
ADOQuery1.
while not ADOQuery1.eof do
stringgrid1.cells[0,i] := ADOQuery1.fields[0].
stringgrid1.cells[1,i] := ADOQuery1.fields[1].
i := i + 1;
Showmessage('查询失败');
请登录后再发表评论!

我要回帖

更多关于 cool edit2.1汉化补丁 的文章

 

随机推荐