delphi 三层 源码 中间件 框架【数据操作】

一,主要通过4个接口函数来操作后端数据库(TCP通讯):

【GetCommonDataSet函数】:调用后端定义的SQL语句(sql文件章节有介绍)来操作数据库并返回OleVariant 类型数据集 然后赋给ClientDataSet.Data,然后可直接操作ClientDataSet了。这样会更少破坏delphi 便捷性;若是旧系统升级改动更少。企业内部系统很大一部分是基于内网或云服务器的,传输效率问题不大。

代码范例:

var
  vData: OleVariant;
  sqlId, strParaems,sqlFlag: string;
  sErrorMsg: string;
  JsnParaems: ISuperObject;
begin
  try
  //后端定义sqlId(xml文件跟节点+第3个节点)
    sqlId := 'F_poinfoc_master';
  //json格式参数;必须要与sql里面的参数名称一致
    JsnParaems := TSuperObject.Create(stObject);
    JsnParaems.S['startdate'] := '2021-10-01';
    JsnParaems.S['enddate'] := '2021-10-30';
    JsnParaems.S['department'] := 'A车间';
    strParaems:= JsnParaems.AsString;
    //默认执行 ssql 节点的sql语句 ; sqlFlag='q'执行qsql节点的语句
    sqlFlag:='';
    //返回错误信息
    sErrorMsg:='';
    //vData 返回OleVariant 类型的数据集 (若有返回值)    CDS1= ClientDataSet
    //ser =生产单服务端代理类单元
   if  ser.GetCommonDataSet(vData, sqlId, sqlFlag, strParaems, sErrorMsg) then
      CDS1.Data := vData
    else
      showmessage(sErrorMsg);
  finally
    JsnParaems := nil;
  end;
end;

【ExeCommonSqlText函数】软件开发过程中可能不得不需要执行一些前端自定义的sql语句,此函数就是执行前端传过来的sql,函数,存储过程并返回数据集值。

var
  vData: OleVariant;
  sqlText,dbid: string;
  sErrorMsg: string;
  haveResult:boolean;
begin
//自定义sql语句
  sqlText := 'select top 111 * from S_SysOperLog where RowID>=11966';
  //dbid 对应后端定义数据库id ;dbid='' 默认为ID=1的数据库
  dbid:='';
  //是否有数据集返回 (若为insert,update,delete  =false)
  haveResult:=true;
  //返回错误信息
  sErrorMsg:='';
 if ser.ExeCommonSqlText(vData, sqlText, dbid,haveResult, sErrorMsg) then
   begin
    //若没有返回值就无需此代码
    CDS1.Data := vData;
   end
  else
    showmessage(sErrorMsg);
end;

【SaveDataset函数】此函数直接提交ClientDataSet 的 Delta数据集(Delta; 里面就是ClientDataSet  增删改的数据集合); 服务端xml文件ClientDataSet1节点必须要定义isql,usql ,dsql 语句。此函数的好处就是前端人员无需知道table细节(如主键,更新,插入,删除逻辑)。

var
  vData: OleVariant;
  sqlid: string;
  sErrorMsg: string;
begin
//检查是否有未提交的数据并提交
  ClientDataSet1.CheckBrowseMode;
  //判断数据集是否有改动
  if ClientDataSet1.ChangeCount > 0 then
  begin
   //错误信息返回
    sErrorMsg:='';
    //对应的ssql节点值
    sqlid:='F_PoInfoClientDataSet1';
    {Delta:表示ClientDataSet 增删改的数据集(增删改) ;
    服务端ClientDataSet1节点必须要定义isql,usql ,dsql 语句
    }
    vData := ClientDataSet1.Delta;
    if ser.SaveDataset(vData, sErrorMsg) then
      showmessage('保存成功!')
    else
      showmessage(sErrorMsg);
  end;
end;

【GetProcWithOutParam函数】执行带输出参数的存储过程 (后端sql定义规则请看sql操作章节)

var
  sqlId, strParaems, outstrParaems: string;
  sErrorMsg: string;
  JsnParaems: ISuperObject;
begin
   JsnParaems := TSuperObject.Create(stObject);
  try
    //后端定义的存储过程对应的sqlId
    sqlId := 'F_Systemc_procedure';
    //输入参数赋值
    JsnParaems.S['@poNo'] := 'POA001';
    JsnParaems.S['@dept'] := 'A车间';
    strParaems := JsnParaems.AsString;
    //输出参数outstrParaems 返回的是json格式
    outstrParaems:='';
    //错误信息返回
    sErrorMsg:='';
    //开始执行
    if  ser.GetProcWithOutParam(sqlId, strParaems, outstrParaems, sErrorMsg) then
     begin
         //这里处理返回结果
         Memo1.Lines.Add(outstrParaems);
     end
     else  showmessage(sErrorMsg);
  finally
    JsnParaems := nil;
  end;
end;

 源码框架下载地址:https://download.csdn.net/download/dgthm/87647460

评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值