delphi 连接oracle对接代码

  if edtDateStart.DateTime > edtDateEnd.DateTime then
    begin
      InformationDlg(Tit, ‘起始日期时间不能大于结束日期时间！‘);
     // edtDateEnd.DateTime:=LocalDM.GetCurrTime;
    //  edtDateStart.DateTime:=LocalDM.GetCurrTime-7;
      Exit;
    end;
     //  add by zys on 2017-01-16 for  LIS-1500  end

    if Trim(edtitm.RDKeyValue) <> ‘‘ then
    begin
      loParams.CreateParam(ftString, ‘itm_id‘, ptInput, ‘t3.itm_id‘, ‘=‘, ‘and‘).Value := Trim(edtitm.RDKeyValue);
    end;
    //====hupo add  begin
    if Trim(rdsrchyiqi.RDKeyValue) <> ‘‘ then
    begin
      loParams.CreateParam(ftString, ‘itr_id‘, ptInput, ‘t2.itr_id‘, ‘=‘, ‘and‘).Value := Trim(rdsrchyiqi.RDKeyValue);
    end;
    if Trim(rdsrchkeshi.RDKeyValue) <> ‘‘ then
    begin
      loParams.CreateParam(ftString, ‘deptid‘, ptInput, ‘t1.pat_d_code‘, ‘=‘, ‘and‘).Value := Trim(rdsrchkeshi.RDKeyValue);
    end;
    //==end
    loParams.CreateParam(ftDateTime, ‘res_date1‘, ptInput, ‘t.res_date‘, ‘>=‘, ‘and‘).Value := edtDateStart.DateTime;
    loParams.CreateParam(ftDateTime, ‘res_date2‘, ptInput, ‘t.res_date‘, ‘<=‘, ‘and‘).Value := edtDateEnd.DateTime;
    cdsMaster.Params.Clear;
    loParam := CreateConditParam(loParams);
    if LocalDM.sysComm.GetSystemData(‘420703001‘, ‘4207030‘, loParam, loData, lsErrMsg) then
    begin
      cdsMaster.Data := loData;
      ConvertDataName(LocalDM.cdsDict, ‘dictid‘, ‘dictName‘, cdsMaster, ‘pat_sex=‘‘117‘‘‘, ‘typeid‘);
      ConvertDataName(LocalDM.cdsDeptID, ‘DeptID‘, ‘DeptName‘, cdsMaster, ‘pat_d_code=‘);
      CheckFuncRight; // Added by xxx 2019-03-28 10:03:28   LIS-3283 更新按钮Enable
    end
    else
    begin
      Exit;
    end;
  finally
    loParams.Free;
  end;