【结贴】判断是否有重复记录。怎么实现？急**

chen20501157

有三张表：立项表，生产资质表，合同明细表
要实现每输入一条明细或导入明细时，自动根据立项表检测该条明细中的产品是否经过立项（即立项表中是否已归档）检测该明细中的厂家是否有该产品的生产资质（生产资质表中有两个字段，厂家和产品，如果有厂家和某产品的记录，说明该厂家有生产某产品的生产资质）
我直接用sql的select 等语句写编译出错，想问下这个功能在justep里怎么实现？？？谢谢

aPanther

其实就是去数据库里查找看有没有重复的记录。
请楼主参考如下代码：（是通过字段 FDept、FYear、FQuarter 来判断是否有重复记录的。 ）

Function TGYJSB.WetherExitData(ADepartment,ATableName:string;Aquarter,AYear:integer):boolean;
Const lSql = 'Select count(*) as lCount from %s where FDept=''%s'' and FYear=%s '+
         ' and FQuarter=%s';
var
  lQuery: TQuery;
  lgsid,lMastYear,lquarter:string;
begin
  result := False;
  if (ADepartment = '') or (ATableName = '') or (Aquarter = '')  or (AYear ='') then exit;
  lQuery := TQuery.Create(nil);
  try
    lQuery.ConnectionString := TCommonFunctionLib.GetSMBDBConnectionStr;
    lMastYear :=SysUtils.IntToStr(AYear);
    lquarter :=SysUtils.IntToStr(Aquarter);
    lQuery.Close;
    lQuery.CommandText := SysUtils.Format(lSql,[ATableName,ADepartment,lquarter,lMastYear]);  
    lQuery.Open;
    if lQuery.FieldByName('lCount').AsInteger > 0 then
    begin
      Result := True;
    end;
  finally
    lQuery.Free;
  end;
end;

chen20501157

TCommonFunctionLib要引入哪些资源？？
我已经引入公共函数库了
不过编译报错：Undeclared identifier "TCommonFunctionLib"
还有就是数据表名：ATableName　我有张表叫T_JMGL_CPLX，直接把这个名字传入函数后报错：'T_JMGL_CPLX' denotes a 'namespace' where a 'variable' was expected
请问这个是因为？？？

aPanther

CommonFunctionLib是：
“业务模型\业务系统\办公自动化(OA)\公共资源\公共函数库”
你需要引用这个。

chen20501157

我在这个平台里  业务系统下没找到办公自动化这个目录。。。
还有直接把表名传入的错误要怎么改？

chen20501157

我这个版本里没有办公自动化这个目录。。。

aPanther

啊哦，那你就自己写。
这个是该资源集里的公共函数。

static function TCOMMONFUNCTIONLIB.GetSMBDBConnectionStr: string;
begin
  Result := 'DATABASEURL=' + GetSMBDBConnectionURL;
end;

static function TCOMMONFUNCTIONLIB.GetSMBDBConnectionURL: string;
begin
  Result := 'Biz:\OPERATION\OperationDB.Database';
end;

另：给你的代码是参考的，就是告诉你平台里如何用SQL

chen20501157

请教下2楼：WetherExitData(ADepartment,ATableName:string;Aquarter,AYear:integer):boolean;

lQuery.CommandText := SysUtils.Format(lSql,[ATableName,ADepartment,lquarter,lMastYear]);  
这两句里不是有个ATableName吗？

chen20501157

2楼能不能看看附件，我参考你的代码写的。

aPanther

不好意思，漏了一些代码给你。

procedure TGYJSB.DataNavigator1BeforeAction(Sender: TObject; var Accept: Boolean);
Const
  lErrMsg = '该季度的数据已经存在!!!';
Var
  lBJD: TTBJD;
  lYear,lQuarter: integer;
begin
  case (Sender as TBizDataSetAction).ID of
    BizActnConsts.ActionDataSetAppend:
    begin
      lBJD := TTBJD.create(context);
      try
        if lBJD.ShowModal = Business.Forms.Controls.mrOk then
        begin
          lYear := lBJD.DataSetNY.FieldByName('N').AsInteger;
          lQuarter := lBJD.DataSetNY.FieldByName('JD').AsInteger;
          //判断有没有该季度的数据存在
          if WetherExitData(Fgsid,'GYJSBZB',lYear,lQuarter) then
          begin
            jsDialogs.ShowWarning(lErrMsg, '新建数据');
            Accept := False;
            Exit;
          end;
          GraphicTab.Index := 1;
          //GraphicTabChange(nil,1);   提高速度
          dsbMaster.DataSet.Append;
          dsbMaster.DataSet.FieldByName('FYear').AsInteger := lBJD.DataSetNY.FieldByName('N').AsInteger;
          dsbMaster.DataSet.FieldByName('FQuarter').AsInteger := lBJD.DataSetNY.FieldByName('JD').AsInteger;
          dsbMaster.DataSet.FieldByName('LSZD1').AsInteger := 1;
          SetDetailData;
        end;
      finally
        lBJD.Free;
      end;
      Accept := False;
    end;
    BizActnConsts.ActionDataSetSave:
    begin
      dsbMaster.DataSet.edit;
      dsbMaster.DataSet.FieldByName('LSZD1').AsInteger := 0;
      dsbMaster.DataSet.post;
    end;
  end;
end;

在这个里面有 if WetherExitData(Fgsid,'GYJSBZB',lYear,lQuarter) then

'GYJSBZB' 这个就是表名。