社区
数据库相关
帖子详情
用ADOQuery查询数据库,查询出某列字段有多行信息,如何把这多行的信息,显示在多个Edit控件中?
abc331540751
2020-04-18 06:07:40
如果我用ADOQuery查询数据库A表,查询出某列字段有多行信息。如何把这多行的信息,显示在多个Edit控件中?如Edit1显示第一行信息,Edit2显示第二行信息 ..... 如此类推,不要说用dbgrid控件来显示,是有特殊的情况用到。
...全文
233
6
打赏
收藏
用ADOQuery查询数据库,查询出某列字段有多行信息,如何把这多行的信息,显示在多个Edit控件中?
如果我用ADOQuery查询数据库A表,查询出某列字段有多行信息。如何把这多行的信息,显示在多个Edit控件中?如Edit1显示第一行信息,Edit2显示第二行信息 ..... 如此类推,不要说用dbgrid控件来显示,是有特殊的情况用到。
复制链接
扫一扫
分享
转发到动态
举报
写回复
配置赞助广告
用AI写文章
6 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
abc331540751
2020-04-21
打赏
举报
回复
感谢tanqth和各位的回复,按tanqth提供的思路,我已经处理好了。
xrbaa
2020-04-19
打赏
举报
回复
Edit1,EDit2.....
这些是已经建立好的?还是需要动态创建的?
这两种情况需要的写法不一样。
cuiba
2020-04-18
打赏
举报
回复
是不 是没说清楚问题?
tanqth
2020-04-18
打赏
举报
回复
引用 2 楼 abc331540751 的回复:
EDIT数量是固定的,所说的记录号具体是指什么呢?
不用记录号吧,你可以: ADOQuery1.RecordCount可以取到总记录数(其实你的数量是固定的,就可以直接循环固定次),用FOR循环 ,ADOQuery1.NEXT到下一条数据。每循环一次,你的记数变量就可以使用了。如:循环的第一次用EDIT1,第二次用EDIT2......
abc331540751
2020-04-18
打赏
举报
回复
EDIT数量是固定的,所说的记录号具体是指什么呢?
tanqth
2020-04-18
打赏
举报
回复
1、你需要有对应的Edit控件; 2、使用循环,如果EDIT数量是固定的,你可以用记录号去对应EDIT,然后把值写到控件里; 3、使用循环,如果你的数量不是固定的,可以动态创建EDIT,需要计算显示坐标,然后赋值;
listview基本用法
Delphi ListView基本用法大全(转)默认分类 2009-09-29 09:27:56 阅读138 评论0 字号:大
中
小 订阅 Delphi高级编程 Delphi文章 WEB开发 Delphi
控件
Delphi ListView基本用法大全 作者:seeker 日期:2009-04-19 //增加项或列(
字段
) ListView1.Clear; ListView1.Columns.Clear; ListView1.Columns.Add; ListView1.Columns.Add; ListView1.Columns.Add; ListView1.Columns.Items[0].Caption:='id'; ListView1.Columns.Items[1].Caption:='type'; ListView1.Columns.Items[2].Caption:='title'; ListView1.Columns.Items[2].Width:=300; Listview1.ViewStyle:=vsreport; Listview1.GridLines:=true; //注:此处代码也可以直接在可视化编辑器
中
完成, 也可写成以下这样 begin with listview1 do begin Columns.Add; Columns.Add; Columns.Add; ViewStyle:=vsreport; GridLines:=true; columns.items[0].caption:='进程名'; columns.items[1].caption:='进程ID'; columns.items[2].caption:='进程文件路径'; Columns.Items[0].Width:=100; Columns.Items[1].Width:=100; Columns.Items[2].Width:=150; end end; //增加记录 with listview1.items.add do begin caption:='1212'; subitems.add('hh1'); subitems.add('hh2'); end; //删除 listview1.items.delete(0); //从数据库表里读取数据写入Listview var Titem:Tlistitem; //此处一定要预定义临时记录存储变量. begin ListView1.Items.Clear; with
ado
query
1 do begin close; sql.Clear; sql.Add('select spmc,jg,sl from kcxs'); Open; ListView1.Items.Clear; while not eof do begin Titem:=ListView1.Items.add; Titem.Caption:=FieldByName('spmc').Value; Titem.SubItems.Add(FieldByName('sl').Value); Titem.SubItems.Add(FieldByName('jg').Value); next; end; //删除 ListView1.DeleteSelected; //如何取得ListView
中
选
中
行的某一列的值 procedure TForm1.Button2Click(Sender: TObject); begin ShowMessage(ListView1.Selected.SubItems.Strings[1]); //返回选
中
行第三列
中
的值 end; showMessage(listView1.Selected.Caption); //返回选
中
行第一列的值. 第1列的值: -->>> ListView1.Selected.Caption 第i列的值(i>1):-->>> ListView1.Selected.SubItems.Strings[i] ListView1.Items.Item[1].SubItems.GetText); //取得listview某行
某列
的值
Edit
2.Text := listview1.Items[i].SubItems.strings[0]; //读第i行第2列 返回选
中
行所有子列值.是以回车符分开的,你还要从
中
剥离
出
来你要的子列的值。 showMessage(ListView1.Selected.SubItems.GetText); ListView 简单排序的实现 ListView 排序 怎样实现单击一下按升序,再单击一下按降序。 function CustomSortProc(Item1, Item2: TListItem; ColumnIndex: integer): integer; stdcall; begin if ColumnIndex = 0 then Result := CompareText(Item1.Caption,Item2.Caption) else Result := CompareText(Item1.SubItems[ColumnIndex-1],Item2.SubItems[ColumnIndex-1]) end; procedure TFrmSrvrMain.ListView1ColumnClick(Sender: TObject; Column: TListColumn); begin ListView1.CustomSort(@CustomSortProc,Column.Index); end; =============================================================== //增加 i := ListView1.Items.Count; with ListView1 do begin ListItem:=Items.Add; ListItem.Caption:= IntToStr(i); ListItem.SubItems.Add('第 '+IntToStr(i)+' 行'); ListItem.SubItems.Add('第三列内容'); end; //按标题删除 for i:=ListView1.Items.Count-1 downto 0 Do if ListView1.Items[i].Caption =
Edit
1.Text then begin ListView1.Items.Item[i].Delete(); //删除当前选
中
行 end; //选
中
一行 if ListView1.Selected <> nil then
Edit
1.Text := ListView1.Selected.Caption; // listview1.Items[Listview1.Items.Count -1].Selected := True; // listview1.Items[Listview1.Items.Count -1].MakeVisible(True); procedure TForm1.Button2Click(Sender: TObject); // 选择第一条 begin listview1.SetFocus; listview1.Items[0].Selected := True; end; procedure TForm1.Button1Click(Sender: TObject); // 选择最后一条 begin listview1.SetFocus; listview1.Items[Listview1.Items.Count -1].Selected := True; end; //这是个通用的过程 procedure ListViewItemMoveUpDown(lv : TListView; Item : TListItem; MoveUp, SetFocus : Boolean); var DestItem : TListItem; begin if (Item = nil) or ((Item.Index - 1 < 0) and MoveUp) or ((Item.Index + 1 >= lv.Items.Count) and (not MoveUp)) then Exit; lv.Items.BeginUpdate; try if MoveUp then DestItem := lv.Items.Insert(Item.Index - 1) else DestItem := lv.Items.Insert(Item.Index + 2); DestItem.Assign(Item); lv.Selected := DestItem; Item.Free; finally lv.Items.EndUpdate; end; if SetFocus then lv.SetFocus; DestItem.MakeVisible(False); end; //此为调用过程,可以任意指定要移动的Item,下面是当前(Selected)Item ListViewItemMoveUpDown(ListView1, ListView1.Selected, True, True);//上移 ListViewItemMoveUpDown(ListView1, ListView1.Selected, False, True);//下移 TListView组件使用方法 引用CommCtrl单元 procedure TForm1.Button1Click(Sender: TObject); begin ListView_DeleteColumn(MyListView.Handle, i);//i是要删除的列的序号,从0开始 end; 用LISTVIEW
显示
表
中
的
信息
: procedure viewchange(listv:tlistview;table:tcustom
ado
dataset;var i:integer); begin tlistview(listv).Items.BeginUpdate; {listv:listview名} try tlistview(listv).Items.Clear; with table do {table or
query
名} begin active:=true; first; while not eof do begin listitem:=tlistview(listv).Items.add; listitem.Caption:=trim(table.fields[i].asstring); // listitem.ImageIndex:=8; next; end; end; finally tlistview(listv).Items.EndUpdate; end; end; ListView使用
中
的一些要点。以下以一个两列的ListView为例。 →增加一行: with ListView1 do begin ListItem:=Items.Add; ListItem.Caption:='第一列内容'; ListItem.SubItems.Add('第二列内容'); end; →清空ListView1: ListView1.Items.Clear; →得到当前被选
中
行的行的行号以及删除当前行: For i:=0 to ListView1.Items.Count-1 Do If ListView1.Items[i].Selected then //i=ListView1.Selected.index begin ListView1.Items.Delete(i); //删除当前选
中
行 end; 当然,ListView有OnSelectItem事件,可以判断选择了哪行,用个全局变量把它赋值
出
来。 →读某行
某列
的操作:
Edit
1.Text := listview1.Items[i].Caption; //读第i行第1列
Edit
2.Text := listview1.Items[i].SubItems.strings[0]; //读第i行第2列
Edit
3.Text := listview1.Items[i].SubItems.strings[1]; //读第i行第3列 以次类推,可以用循环读
出
整列。 →将焦点上移一行: For i:=0 to ListView1.Items.Count-1 Do If (ListView1.Items[i].Selected) and (i>0) then begin ListView1.SetFocus; ListView1.Items.Item[i-1].Selected := True; end; 不过在Delphi6
中
,ListView多了一个ItemIndex属性,所以只要 ListView1.SetFocus; ListView1.ItemIndex:=3; 就能设定焦点了。 Delphi的listview能实现交替颜色么? procedure TForm1.ListView1CustomDrawItem( Sender: TCustomListView; Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean); var i: integer; begin i:= (Sender as TListView).Items.IndexOf(Item); if odd(i) then sender.Canvas.Brush.Color:= $02E0F0D7 else sender.Canvas.Brush.Color:= $02F0EED7; Sender.Canvas.FillRect(Item.DisplayRect(drIcon)); end; 要想随时更改ListView
中
某一行的字体颜色,要在ListView的 OnCustomDrawItem 的事件
中
书写相关的代码。例如 我想更改选
中
的某行字体的颜色,则需要在事件
中
写入下的代码: if item.Index = strtoint(
edit
1.Text) then //该条件是用于判断是否符合更改字体颜色的行的条件。 Sender.Canvas.Font.Color := clred;
Delphi开发学习二:使用
ADO
Query
控件
对SQL数据库表进行操作
在delphi学习一
中
,已经使用
ADO
Connection
控件
设置属性连接数据库SQL了。 在这里开始使用
ADO
Query
控件
对SQL数据库表进行操作。 首先我们在SQL
中
创建数据库名为PERSONNELMG_SYS的数据库,然后在这个数据库里创建USER_TABLE表,用来存放用户账户
信息
。 USER_TABLE表的结构如下图所示: 该表有用户名(USER_NAME) 、用户密码(USE
【Delphi学习】
ADO
Query
连接数据库的
查询
、插入、删除、修改
//
查询
记录procedure TForm1.Button1Click(Sender: TObject);begin
ADO
Query
.Close;
ADO
Query
.SQL.Clear;
ADO
Query
.SQL.Add('select * from YourTABLE where
查询
条件');
ADO
Query
.Open; //插入记录procedure TForm1.Button2Click(Se...
delphi7 mysql
控件
_Delphi7连接MySql数据库-DBGrid
控件
显示
数据
一个简单的Delphi7小程序,使用MySql数据库做简单
查询
,用DBGrid
控件
显示
结果,实现过程如下:(1)在MySql
中
新建demouser表,插入记录用于测试。(2)在Delphi7
中
新建项目。(3)在From
中
添加组件。组件Panel:pnl1组件属性-属性值:Caption-请输入工号:组件
Edit
:edt1组件Button:btn1组件属性-属性值:Caption-
查询
组件
ADO
Qu...
无聊之作--用最笨的办法让
ADO
QUERY
将返回的数据和
字段
名
显示
到Memo
控件
中
今天上班刚坐下来的时候,脑子里还是空白的,看了下网页然后就打开俺桌面上那一堆的开发工具开始写那套还未完成的OA。过了阵子,有同事跑来说C/S单用
ADO
QUERY
没想到啥好办法把返回的所有数据和
字段
名都取到MEMO
控件
中
,于是乎俺就跑到网上瞎忙活了一阵子,看了看人家写的,好像自己有点不习惯,就修改了一下,用的是最笨的办法,但是还是比较实用,需要的用的朋友直接COPY过去就OK了。{
数据库相关
2,498
社区成员
88,446
社区内容
发帖
与我相关
我的任务
数据库相关
Delphi 数据库相关
复制链接
扫一扫
分享
社区描述
Delphi 数据库相关
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章