社区
Delphi
帖子详情
进来看看如何实现这个功能?
minlily
2002-09-11 02:34:49
我想要实现的功能是:当选择一个数据表时,能不能在另一个窗体中动态生成该数据表中所有字段对应的label和dbedit.
...全文
47
13
打赏
收藏
进来看看如何实现这个功能?
我想要实现的功能是:当选择一个数据表时,能不能在另一个窗体中动态生成该数据表中所有字段对应的label和dbedit.
复制链接
扫一扫
分享
转发到动态
举报
写回复
配置赞助广告
用AI写文章
13 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
longlongge
2002-09-13
打赏
举报
回复
可以阿 !
PeakChen
2002-09-13
打赏
举报
回复
你试过不行吗?没道理的。
weboradel
2002-09-13
打赏
举报
回复
不知道你用什么连数据库的,我一般用ADOQUERY,它的fields,和filedbyname(QUERY的和这个一样)都可以获得当前数据值。
当然你首先要用USES将用到的窗体文件声明进来。
air_line
2002-09-13
打赏
举报
回复
没有问题,只要能写语句就行了
shanxia
2002-09-13
打赏
举报
回复
同意大家的观点!!!!!!!!!
lulu99
2002-09-13
打赏
举报
回复
xunji说的对。
Delphi_Li
2002-09-13
打赏
举报
回复
当然可以了,使用Fields,如果想知道更详细的内容,就的使用M$的ADOX了!!!
minlily
2002-09-13
打赏
举报
回复
运行时DataSrc:=TDataSource.Create(Form2)这句总报错,说没有定义Tdatasource
blazingfire
2002-09-13
打赏
举报
回复
如下基本上可以了,自己调一下位置:
procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
L:TLabel;
E:TDBEdit;
DataSrc:TDataSource;
begin
DataSrc:=TDataSource.Create(Form2);
DataSrc.DataSet:=Table1;
for i:=0 to Table1.FieldDefs.Count-1 do
begin
L:=TLabel.Create(Form2);
L.Name:='Label'+IntToStr(i);
L.Parent:=Form2;
L.Caption:=Table1.Fields[i].FieldName;
L.Left:=i*50+10;
L.Top :=10;
E:=TDBEdit.Create(Form2);
E.Name:='DBEdit'+IntToStr(i);
E.Parent:=Form2;
E.Left:=i*50+10;
E.Top :=30;
E.DataSource:=DataSrc;
E.DataField:=Table1.Fields[i].FieldName;
end;
end;
xunji
2002-09-11
打赏
举报
回复
能呀,
FIELDS时就有这些东西呀
dreamfan
2002-09-11
打赏
举报
回复
多此一举
minlily
2002-09-11
打赏
举报
回复
dbedit用来显示记录
freelyl
2002-09-11
打赏
举报
回复
不是太明白 。LABEL是可以,DBEDIT什么用的
基于微信小程序原生开发从头
实现
小程序常见
功能
(基础篇)
基于微信小程序原生开发从头
实现
小程序常见
功能
,包括小程序开发基础知识及常用开发
功能
如登录、找回密码、文件上传、多媒体
功能
、编辑表单、详情界面、列表界面等,并
实现
简单的在线预约系统相关
功能
,具体内容如下:常见
功能
实现
:
实现
用户登录(用户名密码登录、手机验证码登录、小程序自动登录)、找回密码、用户注册、小程序授权、修改密码、关于我们、意见反馈、系统消息、表单录入、详情查看、列表查看等
功能
。公共常用组件:
实现
公共组件的抽离以便能进行扩展及复用,包括输入框、选择框、分步组件、swiper组件、视频播放、富文本编辑、文件上传、视频上传、编辑表单、详情界面、列表界面、tab组件、地图等常用的组件。源码获取说明:点击 https://gitcode.net/invite_link?invite_code=UdfJQACWXRWX9z9NJy_x 申请加入gitcode项目,申请之后会进行审核,购买了课程的用户会直接审核通过。使用会员免费看的用户请留言一下账号才会审核通过。若长时间未审核通过请留言或私信联系处理,留言时请备注下gitcode中的昵称。
Nginx保姆级入门——什么是反向代理?Nginx能
实现
哪些
功能
?
不理解反向代理?不知道Nginx有什么用?不知道Nginx怎么用?快
进来
看看
吧!保姆级教学~拿来吧你
基于PHP
实现
一个简单的在线聊天
功能
一直很想试着做一做这个有意思的
功能
,感觉复杂的不是数据交互和表结构,麻烦的是前端展..于是..需求分析要
实现
功能
,首先要做前端,经过对比其他网站的在线聊天
功能
,发现除了基本的聊天
功能
以外,还要注意以下几点.1.可以同时和多个人聊天. 2.如果用户是从"发送消息" 入口
进来
的,那么当前马上就切换到对应的聊天窗口,而且如果之前有过聊天记录,应该把聊天记录也展示出来. 3.如果是从"我的消息" 入口
进来
的
什么是多线程?如何
实现
多线程?
【转】什么是线程安全?怎么
实现
线程安全?什么是进程?什么是线程?什么是线程安全?添加一个状态呢?如何确保线程安全?synchronizedlock 转自:https://blog.csdn.net/csdnnews/article/details/82321777 什么是进程? 电脑中时会有很多单独运行的程序,每个程序有一个独立的进程,而进程之间是相互独立存在的。比如下图中的QQ、酷狗播放器、电脑...
js
实现
展开收起
功能
有的小伙伴想要写一个展开收起
功能
,不知道如何下手,今天我这拿出来一个例子给大家作为参考,该页面本来是一个table布局,每行数据都是一个tr,我们
实现
收起展开,实际上就是对于部分的tr操作 这个图片非常重要,关系到两个非常重要的数据 首先看要隐藏的Tr的class,第一个忽略,我们对第二个进行样式设置 .myhidden{ display:none !important; } 这样页...
Delphi
5,379
社区成员
262,722
社区内容
发帖
与我相关
我的任务
Delphi
Delphi 开发及应用
复制链接
扫一扫
分享
社区描述
Delphi 开发及应用
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章