mrp_qry_informaloblongmrp_d.pas

一个MRPII系统源代码版本

       open;
       except
       end;
   Application.ProcessMessages;      
       for i:=0 to fields.Count-1 do
        begin
        fields[i].Origin:='#tmpInformalMrpResult';
        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('当前可用库存').displayWidth:=12;
       fieldbyname('当前待检库存').displayWidth:=12;
       fieldbyname('订单已领量').displayWidth:=10;

     end;

     dbgrideh.FrozenCols:=2;
  end;



procedure TFrm_Mrp_Qry_InformalOblongMrp_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;

procedure TFrm_Mrp_Qry_InformalOblongMrp_D.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  with AdoQry_tmp do
    begin
      Close;
      sql.clear;
      sql.Add('drop table #ttttMrpResult,#tmPm,#tmPMrpResult1,#tmPmdMrpResult1,#tmponhand,#tmPMrp,#tmpInformalMrpResult,#tmPMrp1,#tmPMrp2,#tmPMrp3,#tmPMrp4');
      Prepared;
      try
      execsql;
      except
      end;
    end;

  inherited;

end;

procedure TFrm_Mrp_Qry_InformalOblongMrp_D.FormDestroy(Sender: TObject);
begin
  inherited;
Frm_Mrp_Qry_InformalOblongMrp_D:=nil;
end;

procedure TFrm_Mrp_Qry_InformalOblongMrp_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_InformalOblongMrp_D.FormCreate(Sender: TObject);
begin
  inherited;
cmbselectType.ItemIndex:=2;

end;

procedure TFrm_Mrp_Qry_InformalOblongMrp_D.cmbselectTypeChange(
  Sender: TObject);
begin
  inherited;
  with AdoQry_tmp do
    begin
      Close;
      sql.clear;
      sql.Add('drop table #tmPm,#ttttMrpResult,#tmponhand,#tmPMrpResult1,#tmPmdMrpResult1,#tmPMrp,#tmpInformalMrpResult,#tmPMrp1,#tmPMrp2,#tmPMrp3,#tmPMrp4');
      Prepared;
      try
      execsql;
      except
      end;
    end;
initform(dbconnect,True);

end;


function TFrm_Mrp_Qry_InformalOblongMrp_D.getValue(Code,
  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:=datetimetostr(fieldbyname('MrpParamValuec').asdatetime);
       except
       Result:='';
       end;
     end;
 finally
   tmpAdoQry.Free;
 end;
end;


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

end;

procedure TFrm_Mrp_Qry_InformalOblongMrp_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_InformalOblongMrp_D.FormShow(Sender: TObject);
begin
  inherited;
tlbtn_Sum.Action:=act_Showgrid;
end;

end.