动态绑定表格的问题

2009-12-27 08:45:24 202 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

Unity UI Toolkit动态绑定实战：从CSV数据到复杂UI界面的高效开发数据绑定是现代UI开发中的核心概念，它通过建立数据模型与视图元素之间的自动同步机制，实现了数据驱动视图的编程范式。其原理在于利用观察者模式，当数据状态发生变化时，所有依赖该数据的UI组件会自动更新，无需开发者手动编写繁琐的刷新逻辑。这项技术的核心价值在于彻底解耦业务逻辑与界面表现，大幅减少样板代码，提升代码的可维护性和开发效率。在游戏开发、企业应用和动态仪表盘等需要处理频繁数据更新的应用场景中尤为关键。本文聚焦于Unity引擎的UI Toolkit框架，深入解析如何利用其ListView、Binding系统阅读详情

我是初学DELPHI,用7.0版本
在一个表单上放一个DBGrid和一个命令按钮
ADO控件有两组，调用SQL SERVER 2000的存储过程，分别显示全部数据和查询数据，用手工分别设置
表格的DATASOURCE为jxdm或jxdmcx表格均能正常显示。我想用命令按钮动态绑定，就出错
请各位大侠看看，问题在哪里。

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DB, ADODB, Grids, DBGrids, StdCtrls;

type
Tjxdm = class(TForm)
DBGrid1: TDBGrid;
ADOConnection1: TADOConnection;
jxdmQuery: TADOQuery;
jxdm: TDataSource;
jxdmcxQuery: TADOQuery;
jxdmcx: TDataSource;
cxbut: TButton;
procedure cxbutonclick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
jxdm: Tjxdm;

implementation

{$R *.dfm}

procedure Tjxdm.cxbutonclick(Sender: TObject);
begin
set DBGrid1.DataSource:=jxdmcx <----这句出错
end;

end.

出错信息如下：
[错误] Unit1.pas(34): Statement expected but 'SET' found
[致命错误] weixiu.dpr(5): Could not compile used unit 'Unit1.pas'

...全文

携程旅行网景区，评论数据爬虫项目数据库保存附源码这是一个专门用于爬取某旅行网景区评论数据的Python爬虫项目。项目采用模块化设计，支持MySQL数据库存储，具备完整的异常处理机制和反爬虫策略。阅读详情

wjfxyj

数据库相关 2,508 成员 88,437 内容

+ 关注 + 加入社区

切换为时间正序

idecl 2009-12-28

打赏
举报

太新了

dinoalex 2009-12-27

打赏
举报

建议你还是先看看pascal的基础知识

dinoalex 2009-12-27

打赏
举报

procedure Tjxdm.cxbutonclick(Sender: TObject);
begin
if cxbut.caption='查询' then
begin
DBGrid1.DataSource:=jxdmcx ;
cxbut.Caption:='全部';
end;
if cxbut.caption='全部' then
begin
DBGrid1.DataSource:=jxdm;
cxbut.Caption:='查询';
end;
end;

wjfxyj 2009-12-27

打赏
举报

已经加了；还是出错

dinoalex 2009-12-27

打赏
举报

[Quote=引用 9 楼 wjfxyj 的回复:]
没人吗？？？
[/Quote]

还是一样的加;

如果有多个执行语句,就要加;

wjfxyj 2009-12-27

打赏
举报

没人吗？？？

wjfxyj 2009-12-27

打赏
举报

编辑框问题解决了
今天再提最后一个问题就结贴
如何给Button.caption赋值
代码如下
procedure Tjxdm.cxbutonclick(Sender: TObject);
begin
if cxbut.caption='查询' then
DBGrid1.DataSource:=jxdmcx
cxbut.Caption:='全部'; <---出错
if cxbut.caption='全部' then
DBGrid1.DataSource:=jxdm
cxbut.Caption:='查询'; <---出错
end;
[错误] Unit1.pas(41): Missing operator or semicolon

idecl 2009-12-27

打赏
举报

[Quote=引用 5 楼 wjfxyj 的回复:]
procedure Tjxdm.dbgrid1oncellclick(Column: TColumn);
begin
edit1.text:= jxdmquery.FieldByName('jxdm').AsString
edit2.text:= jxdmquery.FieldByName('jxnr').AsString
end;
只放一个编辑框能用，但放两个编辑框出错
[错误] Unit1.pas(47): Missing operator or semicolon
[/Quote]

edit1.text:= jxdmquery.FieldByName('jxdm').AsString;
edit2.text:= jxdmquery.FieldByName('jxnr').AsString;

加上";"

dinoalex 2009-12-27

打赏
举报

edit1.text:= jxdmquery.FieldByName('jxdm').AsString; // <-- 加 ;号
edit2.text:= jxdmquery.FieldByName('jxnr').AsString; // 同上

wjfxyj 2009-12-27

打赏
举报

procedure Tjxdm.dbgrid1oncellclick(Column: TColumn);
begin
edit1.text:= jxdmquery.FieldByName('jxdm').AsString
edit2.text:= jxdmquery.FieldByName('jxnr').AsString
end;
只放一个编辑框能用，但放两个编辑框出错
[错误] Unit1.pas(47): Missing operator or semicolon

dinoalex 2009-12-27

打赏
举报

DBGrid的onCellClick事件

edit1.text:= adoquery1.FieldByName('字段名').AsString

wjfxyj 2009-12-27

打赏
举报

去掉了SET可以用了
还有一个问题：
表单上再增加两个编辑框，单击表格，选中的行的值填入编辑框

varick_zhong 2009-12-27

打赏
举报

是啊，为什么加上set啊,哪看来的？

dinoalex 2009-12-27

打赏
举报

去掉 set 就行了

动态绑定表格的问题

相关推荐