如何将以下三个IF段合并成一串通用的过程!高难度分数可加!
yvqq 2004-04-30 12:40:58 //产品销售计划执行分析
if FormName='Frm_Sal_Qry_SalePlanOfItemAnalyse' then
begin
Frm_Sal_Qry_SalePlanOfItemAnalyse:=TFrm_Sal_Qry_SalePlanOfItemAnalyse.Create(Mainform);
Frm_Sal_Qry_SalePlanOfItemAnalyse.SetSysParam(FLoginId,FModuleCode,FTmpSysMenuid,FLoginDate);
Frm_Sal_Qry_SalePlanOfItemAnalyse.SetUserParam(Param1,Param2,Param3,Param4,Param5,Param6);
Frm_Sal_Qry_SalePlanOfItemAnalyse.InitForm(Connection,True);
Frm_Sal_Qry_SalePlanOfItemAnalyse.Show;
end;
//营销业务员销售计划执行分析
if FormName='Frm_Sal_Qry_SalePlanOfSalerAnalyse' then
begin
Frm_Sal_Qry_SalePlanOfSalerAnalyse:=TFrm_Sal_Qry_SalePlanOfSalerAnalyse.Create(Mainform);
Frm_Sal_Qry_SalePlanOfSalerAnalyse.SetSysParam(FLoginId,FModuleCode,FTmpSysMenuid,FLoginDate);
Frm_Sal_Qry_SalePlanOfSalerAnalyse.SetUserParam(Param1,Param2,Param3,Param4,Param5,Param6);
Frm_Sal_Qry_SalePlanOfSalerAnalyse.InitForm(Connection,True);
Frm_Sal_Qry_SalePlanOfSalerAnalyse.Show;
end;
//部门销售计划执行分析菜单调用
if FormName='Frm_Sal_Qry_SalePlanOfDeptAnalyse' then
begin
Frm_Sal_Qry_SalePlanOfDeptAnalyse:=TFrm_Sal_Qry_SalePlanOfDeptAnalyse.Create(Mainform);
Frm_Sal_Qry_SalePlanOfDeptAnalyse.SetSysParam(FLoginId,FModuleCode,FTmpSysMenuid,FLoginDate);
Frm_Sal_Qry_SalePlanOfDeptAnalyse.SetUserParam(Param1,Param2,Param3,Param4,Param5,Param6);
Frm_Sal_Qry_SalePlanOfDeptAnalyse.InitForm(Connection,True);
Frm_Sal_Qry_SalePlanOfDeptAnalyse.Show;
end;