SQL数据表在DBGrid1显示不出来！

2016-12-16 09:42:38 423 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

SwarmClaw：自托管多智能体AI运行时部署与实战指南多智能体系统是人工智能领域的重要发展方向，它通过多个具备自主决策和协作能力的智能体共同完成任务，其核心原理在于分布式问题求解与协同规划。这种架构在提升任务处理效率、复杂问题分解和鲁棒性方面具有显著技术价值，广泛应用于自动化工作流、虚拟团队协作、智能客服和个性化助手等场景。本文聚焦于SwarmClaw这一自托管的多智能体AI运行时，它原生支持Model Context Protocol，并内置了超过23种AI提供商，为开发者提供了一个开箱即用且高度可定制的控制平面，便于构建和管理复杂的多智能体协作网络。阅读详情

如上图

...全文

STM32F407 步进电机S形曲线加减速步进电机阅读详情

qq_37067263

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

+ 关注 + 加入社区

切换为时间正序

santiaodahan 2016-12-19

打赏
举报

改进一下代码，下面写法的好处是可以处理所有memo字段，无需其他代码。


if Field is TMemoField then    //或if Field.DataType=ftMemo then
begin
     TDBGrid(Sender).Canvas.FillRect(Rect);
     TDBGrid(Sender).Canvas.TextOut(Rect.Left+2, Rect.Top+2, Field.AsString);
end;

在数据集里处理也很好，在数据集的AfterOpen事件中写（定义GetText过程，写一句Text:=Sender.AsString;）：


if not DataSet.IsEmpty then
     with DataSet.Fields do
          for i:=0 to Count-1 do
               if Fields[i] is TMemoField then
               TMemoField(Fields[i]).OnGetText:=GetText;

doloopcn 2016-12-18

打赏
举报

MEMO字段需要在字段的ONGETTEXT事件中加入代码，如： procedure TForm1.ADOQuery1IDGetText(Sender: TField; var Text: string; DisplayText: Boolean); begin Text:=Sender.AsString; end; 如果字段不是在项目中已经建立，则需要在QUERY打开后，将字段的Query.FieldByName('aField‘).OnGetText:=你编写的事件；这样MEMO文本字段的文本便可显示在DBGRID上了

santiaodahan 2016-12-17

打赏
举报

xm、dh应该是姓名、电话吧，还有QQ，这些字段有必要用长文本类型吗？短文本就行。显示长文本可以自绘，在DBGrid的OnDrawDataCell事件里添加如下代码（其他字段参考添加）：


     with TDBGrid(Sender).Canvas do
     begin
          if Field.FieldName='xm' then
          TextOut(Rect.Left+2, Rect.Top+2, Field.AsString);
          if Field.DisplayText='(Memo)' then
          TextOut(Rect.Left+2, Rect.Top+2, '      ');
     end;

l402943019 2016-12-17

打赏
举报

楼上正解数据类型不对你试试 assting 试下

lyhoo163 2016-12-16

打赏
举报

DEMO类型的数据，DBGrid一般是显示不出来的。需要TDBMEMO控件单独显示。一些第三方的DBGrid控件，可以部分显示。

SQL数据表在DBGrid1显示不出来！

相关推荐