mrp_qry_informaloblongmrp1.pas

一个MRPII系统源代码版本

       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:=8;

     end;

     dbgrideh.FrozenCols:=2;
  end;



procedure TFrm_Mrp_Qry_InformalOblongMrp1.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_InformalOblongMrp1.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  with AdoQry_tmp do
    begin
      Close;
      sql.clear;
      sql.Add('drop table #tmPm,#ttmpItems,#tmPMrpResult1,#tmPmdMrpResult1,#tmponhand,#tmPMrp,#tmpInformalMrpResult,#tmPMrp1,#tmPMrp2,#tmPMrp3,#tmPMrp4');
      Prepared;
      try
      execsql;
      except
      end;
    end;

  inherited;

end;

procedure TFrm_Mrp_Qry_InformalOblongMrp1.FormDestroy(Sender: TObject);
begin
  inherited;
Frm_Mrp_Qry_InformalOblongMrp1:=nil;
end;

procedure TFrm_Mrp_Qry_InformalOblongMrp1.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_InformalOblongMrp1.FormCreate(Sender: TObject);
begin
  inherited;
cmbselectType.ItemIndex:=2;
iSChanged:=False;
end;

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

end;


function TFrm_Mrp_Qry_InformalOblongMrp1.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_InformalOblongMrp1.Act_LookExecute(
  Sender: TObject);
begin
  inherited;
  if not AdoQry_Main.Active then exit;
 if AdoQry_Main.RecordCount=0 then exit;
 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_InformalOblongMrp1.Act_ShowGridExecute(
  Sender: TObject);
begin
  inherited;
  if not AdoQry_Main.Active then exit;
 if AdoQry_Main.RecordCount=0 then exit;  
  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_InformalOblongMrp1.FormShow(Sender: TObject);
begin
  inherited;
tlbtn_Sum.Action:=act_Showgrid;

end;

function TFrm_Mrp_Qry_InformalOblongMrp1.isbuyerorPlanner(
  user: string): integer;
var AdoQry:TAdoQuery;
    sqltext:string;
    sqltext1:string;
    isbuyer:boolean;
    isPlanner:boolean;
begin
  Result:=0;
  isbuyer:=False;
  isPlanner:=False;
  AdoQry:=TAdoQuery.Create(self);
  AdoQry.Connection:=dbconnect;
  sqltext:='select EmployeeCode from buyer '
           +' where buyerUsable=1 and EmployeeCode='+quotedstr(user);
  sqltext1:='select EmployeeCode from Planner '
           +' where PlannerUsable=1 and EmployeeCode='+quotedstr(user);
  try
    Executesql(AdoQry,sqltext,0);
    if AdoQry.RecordCount>0  then isbuyer:=True;
    Executesql(AdoQry,sqltext1,0);
    if AdoQry.RecordCount>0 then isPlanner:=True;
  finally
    AdoQry.Free;
  end;
  if isbuyer and isPlanner then Result:=3
  else if isbuyer then Result:=1
  else if isPlanner then Result:=2;
end;


end.