本文著作权属于江湖浪子@IT,任何人未经作者本人批准,不得转载。
在Sbo Addon开发中,经常为了业务实现,需要从当前的业务数据库中列举出符合条件信息,供业务操作人员进行选择,并且将选择之后的数据及其相关信息传递到当前的业务界面,或者填充当前的业务控件(比如编辑文本、下拉框等),或者填充Matrix中的指定Column,以及更加个性化的业务处理(比如根据选择的数据进行业务初始化、业务流程处理等)。
这的确是一个很常用的功能,有必要对其进行业务抽象和归纳,形成一个通用的数据选择功能。富盛Sbo程序开发框架有效的解决了这一问题。
因为业务不同,需要选择的业务数据也不同。就是说,这个通用的数据选择提供的选择数据是不确定的,自然选择条件是不确定的,提供操作用户的表示数据是不确定的,选择之后的传递到业务界面上的数据和业务操作也是不确定的。
1、检索条件、数据展示定制化
要展示不同的数据选择内容,并且展示数据可能来自不同的数据表中,甚至选择数据集的来源可能是SELECT语句,也完全可能是存储过程的返回集合,能够满足这种展示条件的只有使用Grid控件了。而Grid控件的数据来源是可以定制的,这又满足了数据检索条件不确定性的要求。
实现如下:
fsSbo.AddButton2Form(ref oForm, "btnChoose", "选择", 315, 10, 65, 20);
fsSbo.AddItem2Form(ref oForm, "2", BoFormItemTypes.it_BUTTON, 315, 80, 65, 20);
fsSbo.AddItem2Form(ref oForm, "2", BoFormItemTypes.it_BUTTON, 315, 80, 65, 20);
Grid grd = fsSbo.AddGrid2Form(ref oForm, "grdData", 5, 5, 530, 300);
grd.DataTable = oForm.DataSources.DataTables.Add("dtData");
grd.SelectionMode = BoMatrixSelect.ms_Single;
grd.DataTable = oForm.DataSources.DataTables.Add("dtData");
grd.SelectionMode = BoMatrixSelect.ms_Single;
grd.DataTable.ExecuteQuery(strChooseDataSQL);
for (int i = 0; i < grd.DataTable.Columns.Count; i++)
{
if (grd.DataTable.Columns.Item(i).Type == BoFieldsType.ft_Integer || grd.DataTable.Columns.Item(i).Type == BoFieldsType.ft_Float)
grd.Columns.Item(i).RightJustified = true;
for (int i = 0; i < grd.DataTable.Columns.Count; i++)
{
if (grd.DataTable.Columns.Item(i).Type == BoFieldsType.ft_Integer || grd.DataTable.Columns.Item(i).Type == BoFieldsType.ft_Float)
grd.Columns.Item(i).RightJustified = true;
grd.Columns.Item(i).Editable = false;
if (grd.Columns.Item(i).UniqueID.StartsWith("$$")) grd.Columns.Item(i).Visible = false;
}
}
grd.AutoResizeColumns();
当然,在数据展示的时候,应该考虑到行业习惯,Grid数据栏目如果是数据类型应该自动将其展示为右对齐,显然,这是可以办到的。
检索条件自动化、展示数据自动化、展示数据惯例化,看来都不是问题。在接下来要解决的是选择结果定制化,这也完全可以办到。
2、数据选择业务处理定制化
在选择数据窗口中,通过参数获得调用窗体及数据信息需要回写的控件Id,当然了,如果需要回写到Matrix中,除了需要指定这个Matrix的数据回写的列栏目,还应该指定需要回写的对应行;当然了,对于个性化的业务处理,在调用窗体中定义一个回调函数,在数据选择窗体的选择事件通过回调函数来完成个性化业务处理。
实现方法如下:
string[] strColumns = strFatherFields.Split(',');
string[] strValues = new string[strFatherFields.Length == 0 || frmFather != null ? dt.Columns.Count : strColumns.Length];
for (int i = 0; i < strValues.Length; i++)
{
string strValue = "";
if (dt.Columns.Item(i).Cells.Item(nSelectedRow).Value != null) strValue = dt.Columns.Item(i).Cells.Item(nSelectedRow).Value.ToString();
if (i < dt.Columns.Count) strValues[i] = strValue;
}
string[] strValues = new string[strFatherFields.Length == 0 || frmFather != null ? dt.Columns.Count : strColumns.Length];
for (int i = 0; i < strValues.Length; i++)
{
string strValue = "";
if (dt.Columns.Item(i).Cells.Item(nSelectedRow).Value != null) strValue = dt.Columns.Item(i).Cells.Item(nSelectedRow).Value.ToString();
if (i < dt.Columns.Count) strValues[i] = strValue;
}
if (strFatherFId.Length > 0 && strColumns.Length > 0)
{
Form frm = fsSbo.fsSboApplication.Forms.Item(strFatherFId);
{
Form frm = fsSbo.fsSboApplication.Forms.Item(strFatherFId);
oForm.Close();
frm.Freeze(true);
for (int i = 0; i < strColumns.Length; i++)
{
if (strMtxId.Length > 0 && nMtxRow > 0)
{
Matrix mtx = (Matrix)frm.Items.Item(strMtxId).Specific;
Column oColumn = mtx.Columns.Item(strColumns[i]);
for (int i = 0; i < strColumns.Length; i++)
{
if (strMtxId.Length > 0 && nMtxRow > 0)
{
Matrix mtx = (Matrix)frm.Items.Item(strMtxId).Specific;
Column oColumn = mtx.Columns.Item(strColumns[i]);
if (oColumn.Type == BoFormItemTypes.it_EDIT || oColumn.Type == BoFormItemTypes.it_EXTEDIT)
fsSbo.SetValue2MtxEditText(ref mtx, strColumns[i], nMtxRow, strValues[i]);
else if (oColumn.Type == BoFormItemTypes.it_COMBO_BOX)
fsSbo.SetValue2MtxCombox(ref mtx, strColumns[i], nMtxRow, strValues[i]);
}
else
{
Item oItem = frm.Items.Item(strColumns[i]);
if (oItem.Type == BoFormItemTypes.it_COMBO_BOX)
fsSbo.SetValue2Combox(ref frm, strColumns[i], strValues[i]);
else if (oItem.Type == BoFormItemTypes.it_EDIT || oItem.Type == BoFormItemTypes.it_EXTEDIT)
fsSbo.SetValue2EditText(ref frm, strColumns[i], strValues[i]);
}
}
fsSbo.SetValue2MtxEditText(ref mtx, strColumns[i], nMtxRow, strValues[i]);
else if (oColumn.Type == BoFormItemTypes.it_COMBO_BOX)
fsSbo.SetValue2MtxCombox(ref mtx, strColumns[i], nMtxRow, strValues[i]);
}
else
{
Item oItem = frm.Items.Item(strColumns[i]);
if (oItem.Type == BoFormItemTypes.it_COMBO_BOX)
fsSbo.SetValue2Combox(ref frm, strColumns[i], strValues[i]);
else if (oItem.Type == BoFormItemTypes.it_EDIT || oItem.Type == BoFormItemTypes.it_EXTEDIT)
fsSbo.SetValue2EditText(ref frm, strColumns[i], strValues[i]);
}
}
if (frm.Mode != BoFormMode.fm_ADD_MODE) frm.Mode = BoFormMode.fm_UPDATE_MODE;
frm.Freeze(false);
frm.Refresh();
frm.Update();
}
else if (frmFather != null)
{
string strFormId = oForm.UniqueID;
frm.Refresh();
frm.Update();
}
else if (frmFather != null)
{
string strFormId = oForm.UniqueID;
oForm.Close();
frmFather.SetReturnValue4SelectForm(strValues, strFatherFields);
}
}
3、如何调用
既然完成了业务处理,调用这个通用的数据选择功能就很简单了。当然将这个调用写成一个通用的函数是个很好的习惯。富盛Sbo程序开发框架就是这样完成的。
public Boolean OpenChooseDataForm(string strTitle, string strFatherId, string strQuerySQL, string strFatherFields, string strMtxId, int nMtxRow)
{
Boolean bRet = false;
try
{
fsSboChooseDataBase frm = new fsSboChooseDataBase(this);
frm.ChooseDataSQL = strQuerySQL;
frm.FatherFields = strFatherFields;
frm.FatherFormId = strFatherId;
if (strMtxId.Length > 0 && nMtxRow > 0)
{
frm.FatherMatrixId = strMtxId;
frm.FatherMatrixRow = nMtxRow;
}
bRet = ShowForm(frm, "ChooseData" + strFatherId, strTitle);
}
catch (Exception ex)
{
ShowMsg("错误:" + ex.Message);
}
{
Boolean bRet = false;
try
{
fsSboChooseDataBase frm = new fsSboChooseDataBase(this);
frm.ChooseDataSQL = strQuerySQL;
frm.FatherFields = strFatherFields;
frm.FatherFormId = strFatherId;
if (strMtxId.Length > 0 && nMtxRow > 0)
{
frm.FatherMatrixId = strMtxId;
frm.FatherMatrixRow = nMtxRow;
}
bRet = ShowForm(frm, "ChooseData" + strFatherId, strTitle);
}
catch (Exception ex)
{
ShowMsg("错误:" + ex.Message);
}
return bRet;
}
}
这里的fsSboChooseDataBase就是上述我们讨论的通用数据选择业务实现类了。
4、实例
在富盛打叶复烤生产管理系统中,广泛的使用这一通用数据选择功能。
4.1 通过以下代码实现加工协议选择,选择之后的信息被回填到业务选择界面的编辑文本中。
string strSQL = "", strTitle = "", strFields = "";
strTitle = "选择加工协议";
strSQL = "SELECT DocEntry as [$$DocEntry], U_DealCode 加工协议, U_DealName 协议描述, U_DealNo 档案编号, U_WrkBatNo 生产批次, U_CardCode 委托方, U_CardName 委托方名称, U_PlanSD 计划开始, U_PlanED 计划结束 FROM [@FSCXFWORKDEALINFO] WHERE IsNull(U_Stts,'0') in ('2','3')";
strFields = "DealEntry,emDealCode,emDealName,emDealNo,emBatNo,emCardCode,emCardName";
strSQL = "SELECT DocEntry as [$$DocEntry], U_DealCode 加工协议, U_DealName 协议描述, U_DealNo 档案编号, U_WrkBatNo 生产批次, U_CardCode 委托方, U_CardName 委托方名称, U_PlanSD 计划开始, U_PlanED 计划结束 FROM [@FSCXFWORKDEALINFO] WHERE IsNull(U_Stts,'0') in ('2','3')";
strFields = "DealEntry,emDealCode,emDealName,emDealNo,emBatNo,emCardCode,emCardName";
bRet = fsSbo.OpenChooseDataForm(strTitle, oForm.UniqueID, strSQL, strFields, "", -1);
实现的数据选择界面如下:
选后数据回写到以下界面
4.2 通过以下代码实现加工物料选择,选择之后的信息被回填到业务选择界面的Matrix中。
string strSQL = "", strTitle = "选择投料";
string strDealEntry = fsSbo.GetValue4EditText(oForm, "DealEntry");
if (strDealEntry.Length > 0)
{
strSQL = "SELECT U_ItemCode 物料代码, U_ItemName 物料描述, U_BaseItem as [$$BaseItem], U_BaseCode as [$$BaseCode], U_GrdEntry as [$$GrdEntry], U_GrdCode 等级, U_FromCode as [$$FromCode], U_FromName [产地], U_ItemAge 年限, IsNull(U_Qty,0) - IsNull(U_Qtyed,0) [$$RemQty], U_ItemGrp [$$ItemGrp], U_WhsCode [$$WhsCode], DocEntry as [$$DocEntry], U_Qty 计划加工, U_Qtyed 已加工, U_Notes 备注 FROM [@FSCXFWORKDEALLINE1] WHERE U_ItemGrp in (" + fsSbo.fsSboMes4CxF.ItemGroupCodeBeforePick + ") AND DocEntry=" + strDealEntry + (strItemList.Length > 0 ? " AND U_ItemCode not in (" + strItemList + ")" : "");
bRet = fsSbo.OpenChooseDataForm(strTitle, this, strSQL, "REQUEST");
}
if (strDealEntry.Length > 0)
{
strSQL = "SELECT U_ItemCode 物料代码, U_ItemName 物料描述, U_BaseItem as [$$BaseItem], U_BaseCode as [$$BaseCode], U_GrdEntry as [$$GrdEntry], U_GrdCode 等级, U_FromCode as [$$FromCode], U_FromName [产地], U_ItemAge 年限, IsNull(U_Qty,0) - IsNull(U_Qtyed,0) [$$RemQty], U_ItemGrp [$$ItemGrp], U_WhsCode [$$WhsCode], DocEntry as [$$DocEntry], U_Qty 计划加工, U_Qtyed 已加工, U_Notes 备注 FROM [@FSCXFWORKDEALLINE1] WHERE U_ItemGrp in (" + fsSbo.fsSboMes4CxF.ItemGroupCodeBeforePick + ") AND DocEntry=" + strDealEntry + (strItemList.Length > 0 ? " AND U_ItemCode not in (" + strItemList + ")" : "");
bRet = fsSbo.OpenChooseDataForm(strTitle, this, strSQL, "REQUEST");
}
数据选择界面如下:
选后数据回写到以下界面:
<>
转载于:https://blog.51cto.com/foresun/94859