mrp_qry_newoblongmrp_d.pas

一个MRPII系统源代码版本

       Close;
       sql.clear;
       sql.Add(sqltext8);
       Prepared;
       try
       execsql;
       except
       end;

       Close;
       sql.clear;
       sql.Add('select * from #TmpOblongMrpResult Order by 物料代码,PmCode');
       Prepared;
       try
       open;
       except
       end;

       for i:=0 to fields.Count-1 do
        begin
        fields[i].Origin:='#TmpOblongMrprseult';
        dbgrideh.Columns[i].Field:=fields[i];
         if (i>8) and (cmbselectType.Itemindex=1) then 
        dbgrideh.Columns[i].Width:=95;
        end;

       fieldbyname('物料标识').displayWidth:=30;
       fieldbyname('物料代码').displayWidth:=10;
       fieldbyname('物料描述').displayWidth:=35;
       fieldbyname('供需项目').displayWidth:=24;
       fieldbyname('物料代码').visible:=False;
       fieldbyname('物料描述').visible:=False;
       fieldbyname('期初').visible:=False;
       fieldbyname('批量').visible:=False;
       fieldbyname('提前期').visible:=False;
       fieldbyname('minqty').visible:=False;
       fieldbyname('PmCode').visible:=False;
       fieldbyname('Batchstrat').visible:=False;
       fieldbyname('Preparelt').visible:=False;
       fieldbyname('runlt').visible:=False;
       fieldbyname('Qclt').visible:=False;
       fieldbyname('groupordinal').visible:=False;
       fieldbyname('当前可用库存').displayWidth:=12;
       fieldbyname('当前待检库存').displayWidth:=12;
    //   fieldbyname('订单已领量').displayWidth:=10;

     end;

     dbgrideh.FrozenCols:=2;
  end;

procedure TFrm_Mrp_Qry_NewOblongMrp_D.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  with AdoQry_tmp do
    begin
      Close;
      sql.clear;
      sql.Add('drop table #tttMrpResult,#TmpOblongmdMrpResult1,#TmpOblongMrp,#TmpOblongMrpResult,#TmpOblongMrp1,#TmpOblongMrp2,#TmpOblongMrp3,#TmpOblongMrp4,#tmponhand,#tmponcheck');
      Prepared;
      try
      execsql;
      except
      end;
    end;

  inherited;

end;

procedure TFrm_Mrp_Qry_NewOblongMrp_D.FormDestroy(Sender: TObject);
begin
  inherited;
Frm_Mrp_Qry_NewOblongMrp_D:=nil;
end;

procedure TFrm_Mrp_Qry_NewOblongMrp_D.DBGridEhGetCellParams(Sender: TObject;
  Column: TColumnEh; AFont: TFont; var Background: TColor;
  State: TGridDrawState);
begin
  inherited;
if AdoQry_Main.fieldbyname('供需项目').asstring='需求量(剩余需求)' then
   begin
   Background:=$ffccee;
   afont.Color:=clblack;
   end;
end;

procedure TFrm_Mrp_Qry_NewOblongMrp_D.cmbselectTypeChange(Sender: TObject);
begin
  inherited;
  with AdoQry_tmp do
    begin
      Close;
      sql.clear;
      sql.Add('drop table #tttMrpResult,#TmpOblongmdMrpResult1,#TmpOblongMrp,#TmpOblongMrpResult,#TmpOblongMrp1,#TmpOblongMrp2,#TmpOblongMrp3,#TmpOblongMrp4,#tmponhand,#tmponcheck');
      Prepared;
      try
      execsql;
      except
      end;
    end;
  mRunMrp:=0;
initform(dbconnect,True);
end;

procedure TFrm_Mrp_Qry_NewOblongMrp_D.FormCreate(Sender: TObject);
begin
  inherited;
cmbselectType.ItemIndex:=2;
end;

procedure TFrm_Mrp_Qry_NewOblongMrp_D.AdoQry_MainAfterScroll(DataSet: TDataSet);
begin
  inherited;
lbl_ItemCode.Caption:=AdoQry_Main.fieldbyname('物料代码').asstring;
lbl_ItemName.Caption:=AdoQry_Main.fieldbyname('物料描述').asstring;
//lbl_ldtime.Caption:=floattostr(AdoQry_Main.fieldbyname('提前期').asfloat);
lbl_PmBatch.Caption:=floattostr(AdoQry_Main.fieldbyname('批量').asfloat);
lbl_CurrentInv.Caption:=floattostr(AdoQry_Main.fieldbyname('当前可用库存').asfloat);
//lbl_Assignedqty.Caption:=floattostr(AdoQry_Main.fieldbyname('订单已领量').asfloat);
lbl_CurrentonCheckInv.Caption:=floattostr(AdoQry_Main.fieldbyname('当前待检库存').asfloat);
if AdoQry_Main.fieldbyname('PmCode').asinteger=0 then
  lbl_PmCode.Caption:='0 制造';
if AdoQry_Main.fieldbyname('PmCode').asinteger=1 then
  lbl_PmCode.Caption:='1 采购';
if AdoQry_Main.fieldbyname('PmCode').asinteger=2 then
  lbl_PmCode.Caption:='2 委外加工';
if AdoQry_Main.fieldbyname('PmCode').asinteger=3 then
  lbl_PmCode.Caption:='3 既制造又委外';
lbl_minqty.Caption:=floattostr(AdoQry_Main.fieldbyname('minqty').asfloat);
lbl_Preparelt.Caption:=floattostr(AdoQry_Main.fieldbyname('Preparelt').asfloat);
lbl_runlt.Caption:=floattostr(AdoQry_Main.fieldbyname('runlt').asfloat);
lbl_Qclt.Caption:=floattostr(AdoQry_Main.fieldbyname('Qclt').asfloat);
if AdoQry_Main.fieldbyname('Batchstrat').asinteger=0 then
  lbl_Batchstrat.Caption:='直接批量法';
if AdoQry_Main.fieldbyname('Batchstrat').asinteger=1 then
  lbl_Batchstrat.Caption:='固定批量法';

end;

function TFrm_Mrp_Qry_NewOblongMrp_D.getValue(Code: string;tableName:string): variant;
var tmpAdoQry:TAdoQuery;
begin
 tmpAdoQry:=TAdoQuery.Create(Application);
 tmpAdoQry.EnableBCD:=False;
 try
   with tmpAdoQry do
     begin
      Connection:=dbconnect;
       Close;
       sql.clear;
       sql.Text:='select MrpParamValuec from '+tableName+' where MrpParamCode='+quotedstr(Code);
       open;
       try
       Result:=fieldbyname('MrpParamValuec').asstring;
       except
       Result:='';
       end;
     end;
 finally
   tmpAdoQry.Free;
 end;
end;

procedure TFrm_Mrp_Qry_NewOblongMrp_D.Act_LookExecute(Sender: TObject);
begin
  inherited;
 if  Frm_Mrp_Qry_InformalUpRightMrp_D_NewParentMo=nil then
 begin
  Frm_Mrp_Qry_InformalUpRightMrp_D_NewParentMo:=TFrm_Mrp_Qry_InformalUpRightMrp_D_NewParentMo.Create(Self);
  Frm_Mrp_Qry_InformalUpRightMrp_D_NewParentMo.SetSysParam(userCode,ModuleCode,menuid,formatdatetime('yyyy.mm.dd',now));
  Frm_Mrp_Qry_InformalUpRightMrp_D_NewParentMo.Qclt:=inttostr(AdoQry_Main.fieldbyname('Qclt').asinteger);
  tmplowPmCode1:=AdoQry_Main.fieldbyname('PmCode').asinteger;
  Frm_Mrp_Qry_InformalUpRightMrp_D_NewParentMo.initType:=1;
  Frm_Mrp_Qry_InformalUpRightMrp_D_NewParentMo.TotalType:='MrpTotal';
  Frm_Mrp_Qry_InformalUpRightMrp_D_NewParentMo.ItemCode:=AdoQry_Main.fieldbyname('物料代码').asstring;
//  Frm_Mrp_Qry_InformalUpRightMrp_D_ParentMo.duedate:=datetimetostr(AdoQry_Main.fieldbyname('requiredate').asdatetime);
  Frm_Mrp_Qry_InformalUpRightMrp_D_NewParentMo.strpath:=AdoQry_Main.fieldbyname('物料代码').asstring+',';
  Frm_Mrp_Qry_InformalUpRightMrp_D_NewParentMo.InitForm(dbconnect,True);
 end
 else  Frm_Mrp_Qry_InformalUpRightMrp_D_NewParentMo.Show;

end;

function TFrm_Mrp_Qry_NewOblongMrp_D.ismorethanzero(fieldName, tableName,
  conditionfield: string): boolean;
var AdoQry:TAdoQuery;
begin
  Result:=False;
  AdoQry:=TAdoQuery.Create(Application);
  AdoQry.EnableBCD:=False;
  try
    with AdoQry do
     begin
       Close;
       Connection:=dbconnect;
       sql.clear;
       sql.Add('select sum('+fieldName+') as SumQty from '+tableName+' where '+conditionfield+'='+quotedstr(AdoQry_Main.fieldbyname('ItemCode').asstring));
       open;
       if fieldbyname('SumQty').asfloat>0 then
         Result:=True
       else Result:=False;
     end;
  finally
   AdoQry.Free;
  end;
end;

procedure TFrm_Mrp_Qry_NewOblongMrp_D.Act_ShowGridExecute(Sender: TObject);
begin
  inherited;
  try
ItemCode:=AdoQry_Main.fieldbyname('物料代码').asstring;
  if ((AdoQry_Main.fieldbyname('PmCode').asinteger=1) or (AdoQry_Main.fieldbyname('PmCode').asinteger=2)) then
   begin
    if Frm_Mrp_Qry_InformalTotalMrp_Po=nil then
          begin
           Frm_Mrp_Qry_InformalTotalMrp_Po:=TFrm_Mrp_Qry_InformalTotalMrp_Po.Create(Self);
           Frm_Mrp_Qry_InformalTotalMrp_Po.SetSysParam(userCode,ModuleCode,menuid,formatdatetime('yyyy.mm.dd',now));
           Frm_Mrp_Qry_InformalTotalMrp_Po.ItemCode:=AdoQry_Main.fieldbyname('物料代码').asstring;
           Frm_Mrp_Qry_InformalTotalMrp_Po.InitForm(AdoQry_Main.Connection,True);
          end
        else Frm_Mrp_Qry_InformalTotalMrp_Po.Show;
    exit;
   end;
if AdoQry_Main.fieldbyname('PmCode').asinteger=0 then
  begin
   if Frm_Mrp_Qry_InformalTotalMrp_Mo=nil then
          begin
           Frm_Mrp_Qry_InformalTotalMrp_Mo:=TFrm_Mrp_Qry_InformalTotalMrp_Mo.Create(Self);
           Frm_Mrp_Qry_InformalTotalMrp_Mo.ItemCode:=AdoQry_Main.fieldbyname('物料代码').asstring;
           Frm_Mrp_Qry_InformalTotalMrp_Mo.SetSysParam(userCode,ModuleCode,menuid,formatdatetime('yyyy.mm.dd',now));
           Frm_Mrp_Qry_InformalTotalMrp_Mo.InitForm(AdoQry_Main.Connection,True);
          end
        else Frm_Mrp_Qry_InformalTotalMrp_Mo.Show;
   exit;
  end;
 finally
 activecontrol:=dbgrideh;
 end;

end;

procedure TFrm_Mrp_Qry_NewOblongMrp_D.FormShow(Sender: TObject);
begin
  inherited;
tlbtn_Sum.Action:=act_Showgrid;

end;

end.