一个MRP中算毛需求的SQL储存过程(100分)

Amos.mao · 2008-01-08

{ 简单说明 1: Select psn.materysn,planshu from MRPplan where psn=xxx (xxx 为传入参数),对应数据集为rsq1    If rsq1.RecordCount>0 then      Begin        For I:=1 To rsq1.RecordCount Do          Begin            fstr:=rsq1.materysn            Select * From mrpplanpsn  where materysn=fstr and psn=xxx (xxx 为传入参数),对应数据集为rst     If rst.RecordCount>0 Then  将对应 planshu 数量进行相加            Else              Begin                rst.Append //新写入对应内容     End;             进行BOM资料对应查找，rsq2.SQL.Add('select materysn from bom where fmaterysn=fstr）           If Rsq2.RecordCount Then  SGmaterysn(Fstr;planshu) 进行循环               End //For I:=1 To rsq1.RecordCount Do      End;   1:由生产单MRPPlan 查找对应的资料     2:计算制造该产品所需要的物料计算依据为毛需求量=生产批量*物料清单中的单位用量 3:将相关计算后的数据储存至MRP需求计算资料库 mrpplanpsn 中 } procedure TMRPNR.BtnGRClick(Sender: TObject); //毛需求 var   rsq1,rsq2:TADOQuery;   rst:TADODataSet;   tstr,remark:string;   i,n:integer;   planshu:double; begin     tmpPSN := CmbPsn.Text;   adoconnwrite.Close ;   adoconnwrite.ConnectionString:=strconnection;   adoconnwrite.Open ;   adoconnwrite.BeginTrans ;   try     rsq1:=TADOQuery.Create(self);     rst:=TADODataSet.Create(self);     rsq2:=TADOQuery.Create(self);     try       rsq2.Connection:=adoconnread;       rsq1.Connection:=adoconnread;       rsq1.SQL.Clear ;  //MRPplan 为生产单       rsq1.SQL.Add('select materysn,planshu,consigndate from MRPplan where psn='+''''+ Trim(tmpPSN)+''''+'');       rsq1.Prepared ;       rsq1.Open ;       n:=rsq1.RecordCount;       If n > 0 Then       begin         tmpDate:= rsq1.fieldbyname('consigndate').AsString ; //交货日期         rsq1.First ;         rst.Connection:=adoconnWrite;         For i:=1 To n do         Begin           fstr:=trim(rsq1.fieldbyname('Materysn').asstring); //           Planshu:= rsq1.fieldbyname('planshu').AsFloat ;           tstr:='select materysn,gr,fu,psn,consigndate,remark';           tstr:=tstr+ ' from mrpplanpsn';           tstr:=tstr+ ' where materysn='+''''+ Trim(fstr)+''''+'and psn='+''''+ Trim(CmbPsn.Text)+''''+'';           rst.Close ;           rst.CommandText:=tstr;           rst.Prepared ;           rst.Open ;           if (rst.RecordCount >0) then           begin             rst.Edit ;             rst.FieldByName('gr').AsFloat:=rst.FieldByName('gr').AsFloat+ planshu;             rst.FieldByName('remark').AsString:=rst.FieldByName('remark').AsString+','+ fstr;    rst.Post;            end            else            begin              rst.Append ;               rst.FieldByName('materysn').AsString :=trim(rsq1.fieldbyname('materysn').AsString) ;               rst.FieldByName('gr').AsCurrency :=planshu;  //毛需求初始数据批量数目MRPPlan的planshu （批量数）               rst.FieldByName('fu').AsCurrency :=0;               rst.FieldByName('psn').AsString :=trim(tmppsn);               rst.FieldByName('consigndate').AsDateTime :=strtodate(tmpdate); //交货日期               rst.FieldByName('remark').AsString:=fstr; //备注说明               rst.Post ;            end;            //if rst.RecordCount >0 then                rsq2.Close ;                rsq2.SQL.Clear ;                rsq2.SQL.Add('select materysn from bom where fmaterysn='+''''+Trim(rsq1.fieldbyname('materysn').AsString)+''''+'');                rsq2.Prepared ;                rsq2.Open ;                if rsq2.RecordCount >0 then SGmaterysn(rsq1.FieldByName('materysn').AsString, Planshu);              rsq1.Next ;           end;// For i:=1 To n do          tstr:='update mrpplantou';          tstr:= tstr+' set';          tstr:= tstr+' state='+''''+'3'+''''+'';          tstr:= tstr+' where psn='+''''+Trim(tmpPsn)+''''+'';          rsq2.Close ;          rsq2.SQL.Clear ;          rsq2.SQL.Add(tstr);          rsq2.Prepared ;          rsq2.ExecSQL ;       end;//If n > 0 Then        adoconnwrite.CommitTrans ;        adoconnwrite.Close;      finally         Screen.Cursor:=crDefault;         rsq1.Free ;         rsq2.Free ;         rst.Free ;      end;    except       messagedlg('保存过程中出现错误,未保存!',mtinformation,[mbok],0);       adoconnwrite.RollbackTrans ;    end;    adoconnwrite.Close ;    Animate1.Active:=false;    Animate1.Visible :=false; Display_rs2;  //显示 Mrp需求 mrpplanpsn 计算的相关信息 //end; //If n > 0 Then end; procedure TMRPNR.SGmaterysn(Fmaterysn:string;planshu

ouble); var   rsq1,rsq2:TADOQuery;   rst:TADODataSet;   i,n:integer;   remark:String; begin   rsq1:=TADOQuery.Create(self);   rsq2:=TADOQuery.Create(self);   rst:=TADODataSet.Create(self);   try     rst.Connection :=AdoConnWrite;     rsq2.Connection :=adoconnread;     rsq1.Connection :=adoconnread;     rsq1.SQL.Clear;     rsq1.SQL.Add('select materysn,useshu from bom where fmaterysn='+''''+ Trim(Fmaterysn)+''''+' and useshu>'+''''+'0'+''''+'');     rsq1.Prepared ;     rsq1.Open ;     n :=rsq1.RecordCount ;     If n > 0 Then     begin       rsq1.First ;       For i:= 1 To n do       begin           rst.Close ;           rst.CommandText :='select materysn,gr,fu,psn,consigndate,remark from mrpplanpsn where materysn='+''''+ Trim(rsq1.fieldbyname('Materysn').AsString)+''''+' and psn='+''''+Trim(tmpPsn)+''''+'';           rst.Prepared ;           rst.Open ;           If rst.RecordCount > 0 Then           begin             rst.edit;             rst.FieldByName('gr').AsFloat:=rst.FieldByName('gr').AsFloat+planshu*rsq1.fieldbyname('useshu').AsFloat;             rst.FieldByName('remark').AsString:=rst.FieldByName('remark').AsString+','+ fstr;             rst.Post ;           end           Else           begin              rst.Append ;              rst.FieldByName('materysn').AsString:=trim(rsq1.FieldByName('materysn').asstring);              rst.FieldByName('gr').AsFloat:= Planshu * rsq1.fieldbyname('useshu').AsFloat;              rst.FieldByName('fu').AsFloat:= 0;              rst.FieldByName('psn').AsString:= Trim(tmpPSN);              rst.FieldByName('consigndate').AsDateTime:= strtodate(tmpDate);              rst.FieldByName('remark').AsString:=fstr;              rst.Post ;           end; // If rst.RecordCount > 0 Then           rsq2.Close ;           rsq2.SQL.Clear ;           rsq2.SQL.Add('select materysn from bom where fmaterysn='+''''+Trim(rsq1.fieldbyname('materysn').AsString)+''''+'');           rsq2.Prepared ;           rsq2.Open ;           if rsq2.RecordCount >0 then            SGmaterysn(rsq1.FieldByName('materysn').AsString, Planshu * rsq1.fieldbyname('useshu').asfloat);           rsq1.Next ;        end; //For i:= 1 To n do     end;//If n > 0 Then   finally     rsq1.Free ;     rsq2.Free ;     rst.Free ;   end;  end;

一个MRP中算毛需求的SQL储存过程(100分)

Amos.mao

Unregistered / Unconfirmed

Similar threads