本文探讨了如何在数据库操作中利用数据控制器进行高效集成，并通过实例演示了具体实现过程，包括如何获取父键值、追加数据以及更新数据库字段。
type
TMYDBControler = class(TcxDBTreeListDataController);
TMYDBControler = class(TcxDBTreeListDataController);
procedure TForm15.Button1Click(Sender: TObject);
var
AParentKeyValue: Variant;
begin
AParentKeyValue := TMYDBControler(cxDBTreeList1.DataController).DBParentField.Value;
ADOTable1.Append;
TMYDBControler(cxDBTreeList1.DataController).DBParentField.Value := AParentKeyValue;
end;
var
AParentKeyValue: Variant;
begin
AParentKeyValue := TMYDBControler(cxDBTreeList1.DataController).DBParentField.Value;
ADOTable1.Append;
TMYDBControler(cxDBTreeList1.DataController).DBParentField.Value := AParentKeyValue;
end;
扫一扫
918
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
