RemObjects SDK ThDataSet总结

    技术2023-09-16  113

    1、ThDataSet可以增加显示字段,字段可以不更新,只要设置ProviderFlags pflnUpdate、pflnWhere为false就可以

    2、连接数据库

    if not CommDB.ConnSocket('120.36.138.66:11999') then //if not CommDB.ConnSocket('192.168.199.100:11981') then begin ShowMessage('服务器没有响应连接, 请稍候再试! '); Exit; end else ShowMessage('连接成功!')

    3、打开数据库

    qryMain.Params[0].Value := '1232432453'; // 赋值参数条件 qryMain.OpenData;

    4、增加赋值、删改

    qryMain.Append; qryMainCarInOutID.Value := '1232432453'; qryMain.delete;

    5、保存

    if CommDB.UpdateDataADOBatch([qryMain]) then begin ShowMessage('保存成功!'); end;

    原型:

    function UpdateDataADOBatch(const DataSets: array of ThDataSet;       ReLoadMode: Integer = 1; DBType: integer = 0; UpdateMode: Integer = 1; bTrans: boolean = False): boolean;

    // ReLoadMode是否重新打开(0:不设置;1:只更新不打开;2:更新后打开)

    // DBType数据库类型

    // UpdateMode更新模式

    // bTrans是否事务更新

    function TCommDB.UpdateDataADOBatch(const DataSets: array of ThDataSet; ReLoadMode, DBType,   UpdateMode: Integer; bTrans: boolean): boolean;

    6、多个DataSet事务更新,只要有任何一个数据集更新有问题,所有数据集更新都无效

    Commdb.UpdateDataBatchTrans([hDataSetBefore,ADODataSet,ADOQChoiceCustSource,ADOQbd_Employee_Customers, ADOQbd_adviser_Customers,hDataSetAfter,ADQOCusPhoto]);

     

    7、设置查询字段

    放置两个数据集,一个数据集里某些字段的值通过另一个数据集去查询

    8、设置字段是否显示

    Search_AdoDataSet.FieldByName('FSTATE').Visible := false; Search_AdoDataSet.FieldByName('subid').Visible := false;

     

    Processed: 0.008, SQL: 9