【InfoPath应用场景：库存管理】在InfoPath Form Service利用WSS Web Service技术,通过VSTA代码把复杂表单写入SharePoint列表数据库
企业中各式各样的表单是InfoPath最恰当的应用，但是有人总是抱怨InfoPath不够灵活，他们承认利用InfoPath设计表单可以高效地设计出最美观的表单，但是设计出的表单如何与数据库结合、如何与列表结合却是头疼的问题。一个包括了复杂“重复表”的InfoPath表单在列表库中就是一个文件，这让表单中的每行数据记录如何分别统计汇总呢？下面就给你一个解决这个问题的最佳答案。
● 应用的场景“出入库管理”：
应用场景功能要求：
１ 通过浏览器，来填写出入库单。
２ 按(物资名称+规格型号)查询，其出入库历史记录。
３ 统计分析，某个（物资名称+规格型号）共入库数量、共出库数量。
下面给出一个入库单，出库单类似：
如上图，又有单独的字段又有重复表。
解决方案(对应上述１、２、３功能要求）：
１，InfoPath是可以完成的，而且完成得非常好。
２，３ SharePoint列表是可以完成的，而且拉拉视图就搞定。
如图所示，上述表单如果用“SharePoint列表库＋SPD视图”来设计，基本是没有戏了，所以我们采用两个库，一个InfoPath表单库以来存储表单，以提供数据录入的界面（操作员接口），一个列表库存储表单中的记录，以提供统计、分析等功能（查询数据库）。然后采用VSTA的方式，在InfoPath的表单的“提交”编写代码，这个代码完成两种功能：１、把表单提交到表单库。２、把表单中的每一行入库（出库）物资，提交到另一个列表库中（为了方便，那些单独字段，比如入库单号、日期、发货人等要重复存储于每行记录中）。这种结构就类似于InfoPath+SQL的方式，只不过SQL比较麻烦，我换成了列表库。下面分别介绍
要点１：使用InfoPath表单库来存储两个不同内容类型
新建一个InfoPath库，把设计好的两个出入库InfoPath表单的内容类型（下文会介绍怎么设计）作为这个库的两个内容类型加进去，如图所示，并设置好这个文档库－设置－高级设置，中的“显示为网页”以启用InfoPath Form Service，如何设计代码后面再说，现在你创建一个空的InfoPath表单库就ＯＫ了。(图是最终效果）
要点２：使用WSS列表库来统计汇总，
创建一个新的自定义列表库，也启动两个内容类型，“材料入库单”和“材料出库单”，入库记录的栏名全部使用InfoPath入库表单所有的、而且相同的栏名（为什么？为了以后编代码方便呀），本示例如下,入库记录也相同设置。PS:我把原来的标题设成隐藏的！体会一下用意哦。
统计的时候，可以按不同的需要建立不同的视图，如下图，按“物资名称(规格)”的格式进行分组统计：
下图是按出入库单号分组，你通过这个视图可以看见，原来在一个InfoPath表单中的多个记录，已经一条条乖乖进列表了。
要点３：在VSTA代码中使用MOSS自带的WebService:Lists类下的UpdateListItems
作用：提供InfoPath Form Service更新列表的一个手段。在Form Service中使用托管代码你是不能直接使用OM的UPDATE方法的，这是MOSS出于安全性的考虑，当然你可以在基于客户端的InfoPath中直接使用UPDATE没有问题。本解决方案使用的是MOSS WebService中的Lists类下的UpdateListItems方法。你可以参考相关的SDK。下面简单要介绍一下这个方法。
返回批处理的ＸＭＬ结果 UpdateListItems(列表ID，批处理XML表达式）;
列表ID，就是你更新的列表的ID，以4个短线连结一32位字串，列表ID，你可以通过ＳＰＤ打开列表的AllItems.aspx然后在源代码中查看<ListName这个字串，得到。
批处理ＸＭＬ表达式，最简单的就是
<Batch>
<Method ID='1' Cmd='Delete'>
<Field Name='ID'>1</Field>
</Method>
<Method ID='2' Cmd='New'>
<Field Name='ID'>New</Field>
<Field Name='Title'>新的记录标题</Field>
</Method>
</Bacth>
这个批处理，共步操作，先删除了一个ID为１列表项，后新建了一个标题为"新的记录标题"的列表项。
所有的Field名称都必须为列表的内部名称，就是@ADFDF_f3435这些东东。
要点４：编写基于InfoPath浏览器表单的VSTA托管代码
接上篇: 要点4: 如何在InfoPath的VSTA下编写代码,
"工具"->"提交选项"->"使用代码自定义操作"->"编辑代码",
在提交选项中插入以下自定义提交代码:
public void FormEvents_Submit(object sender, SubmitEventArgs e)
{
this.MainDataSource.CreateNavigator().SelectSingleNode("/my:myFields/my:ErrInfo", this.NamespaceManager).SetValue(""); FormSave(); if (this.MainDataSource.CreateNavigator().SelectSingleNode("/my:myFields/my:SaveError", this.NamespaceManager).Value == "true")
{
e.CancelableArgs.Message = "提交过程有失败，请查看错误信息"; e.CancelableArgs.Cancel = true;
} else { e.CancelableArgs.Cancel = false; } 
}代码中使用了一个方法,FormSave(),这是一个自定的方法,其作用就是:
1 把表单提交进入表单库,
如果是新建表单,使用不允许覆盖的提交方式.
如果是更新以前的表单,使用可以覆盖的提交方式.
2 把表单的记录更新进入列表库,
代码通过遍历表单中重复表的每一行数据,如果该行数据在"列表"中可以找到,即有相同的单号\名称\规格,那就采用Update方法,如果找不到,那就采用新建New.
然后代码继续遍历"列表"中入库单号等于该入库单的项,如果列表中的项,新提交的表单中没有,说明使用者在使用InfoPath的时候把它删除了,那么就从"列表"中删除它!
3 错误处理,
private void FormSave() { // 在此处编写代码。 string strResult = ""; this.MainDataSource.CreateNavigator().SelectSingleNode("/my:myFields/my:SaveError", this.NamespaceManager).SetValue("false"); try { //进行表单的保存操作，如果保存没有办法进行，就不进行记录的更新 if (this.MainDataSource.CreateNavigator().SelectSingleNode("/my:myFields/my:isNew", this.NamespaceManager).Value == "true") { //如果是新建表单，不允许覆盖库中的记录 ((FileSubmitConnection)this.DataConnections["新建提交"]).Execute(); this.MainDataSource.CreateNavigator().SelectSingleNode("/my:myFields/my:isNew", this.NamespaceManager).SetValue("false"); } else //如果不是新建表单，而是更新以前的表就，使用可以覆盖的提交 ((FileSubmitConnection)this.DataConnections["主提交"]).Execute(); strResult += "入库单保存成功！\r\n"; //读取列表的记录 SPSite site = new SPSite("http://f2003-server/"); SPList list = site.OpenWeb("/project").Lists["物资出入库记录"]; //初始化WebService 物资入库.myws.Lists listService = new 物资入库.myws.Lists(); //获得Lists对象 listService.Credentials = System.Net.CredentialCache.DefaultCredentials; //设置验证票 listService.Url = "http://f2003-server/project/_vti_bin/Lists.asmx"; //非常重要，指定了下面所有的操作都是针对project这个子网站 //遍历重复表group1中的每一项 XPathNavigator NodeIter = this.MainDataSource.CreateNavigator().SelectSingleNode("/my:myFields/my:group1", this.NamespaceManager); //定义操作字串 string strBatch = ""; foreach (XPathNavigator myf in NodeIter.SelectChildren(XPathNodeType.Element)) { //对于重复表中的每一行，到列表去查找，如果找到就使用Update，找不到就使用New SPQuery myQ = new SPQuery(); string QueryText = "<Where><And><And><Eq><FieldRef Name='" + list.Fields["入库单编号"].InternalName + "'/><Value Type='Text'>" + MainDataSource.CreateNavigator().SelectSingleNode("/my:myFields/my:入库单编号", this.NamespaceManager).Value + "</Value></Eq><Eq><FieldRef Name='" + list.Fields["物资名称"].InternalName + "'/><Value Type='Text'>" + myf.SelectSingleNode("my:物资名称", NamespaceManager).Value + "</Value></Eq></And>" + "<Eq><FieldRef Name='" + list.Fields["规格型号"].InternalName + "'/><Value Type='Text'>" + myf.SelectSingleNode("my:规格型号", NamespaceManager).Value + "</Value></Eq>" + "</And></Where>"; myQ.Query = QueryText; SPListItemCollection items = list.GetItems(myQ); if (items.Count == 0) { //如果没有找到就新增 strBatch += "<Method ID='" + myf.SelectSingleNode("my:序号", NamespaceManager).Value + "' Cmd='New'><Field Name='ID'>New</Field>"; } else { //如果找到了就更新 strBatch += "<Method ID='" + myf.SelectSingleNode("my:序号", NamespaceManager).Value + "' Cmd='Update'><Field Name='ID'>" + items[0].ID.ToString() + "</Field>"; } //扁历所有列表的字段，如果与表单的字段名称相同，就更新该字段 foreach (SPField field in list.Fields) { //重复表内的字段 foreach (XPathNavigator myfield in myf.SelectChildren(XPathNodeType.Element)) //比较相同 if (field.Title == myfield.Name.Substring(myfield.Name.IndexOf(":") + 1)) { strBatch += "<Field Name='" + field.InternalName + "'>" + myfield.Value + "</Field>"; } //重复表外的，单号、收货人、日期等等字段 foreach (XPathNavigator myfield in this.MainDataSource.CreateNavigator().SelectSingleNode("/my:myFields", this.NamespaceManager).SelectChildren(XPathNodeType.Element)) if (field.Title == myfield.Name.Substring(myfield.Name.IndexOf(":") + 1)) { strBatch += "<Field Name='" + field.InternalName + "'>" + myfield.Value + "</Field>"; } } strBatch += "</Method>"; } //下面检查，此次表单编辑，是否删除了记录 SPQuery myQ2 = new SPQuery(); string QueryText2 = "<Where><Eq><FieldRef Name='" + list.Fields["入库单编号"].InternalName + "'/><Value Type='Text'>" + MainDataSource.CreateNavigator().SelectSingleNode("/my:myFields/my:入库单编号", this.NamespaceManager).Value + "</Value></Eq></Where>"; myQ2.Query = QueryText2; int MethodId = NodeIter.SelectChildren(XPathNodeType.Element).Count + 1; SPListItemCollection allItems = list.GetItems(myQ2); foreach (SPListItem item in allItems) { bool stillExist = false; //原来记录中的项，在新的表单中还存在？ foreach (XPathNavigator myf in NodeIter.SelectChildren(XPathNodeType.Element)) { if (item["物资名称"].ToString() == myf.SelectSingleNode("my:物资名称", this.NamespaceManager).Value) { //物资名称相同，规格型号都为空 if (item["规格型号"] == null && (myf.SelectSingleNode("my:规格型号", this.NamespaceManager).Value == null || myf.SelectSingleNode("my:规格型号", this.NamespaceManager).Value == "")) stillExist = true; else { if (item["规格型号"] != null) if (item["规格型号"].ToString() == myf.SelectSingleNode("my:规格型号", this.NamespaceManager).Value) stillExist = true; } } } if (!stillExist) {//如果老项已经在新的编辑过程中删除了，那么就执行删除Method strBatch += "<Method ID='" + MethodId.ToString() + "' Cmd='Delete'><Field Name='ID'>" + item.ID.ToString() + "</Field></Method>"; } } XmlDocument xmlDoc = new System.Xml.XmlDocument(); System.Xml.XmlElement elBatch = xmlDoc.CreateElement("Batch"); elBatch.SetAttribute("OnError", "Continue"); elBatch.InnerXml = strBatch; XmlNode ndReturn = listService.UpdateListItems("676CFD44-76D0-4161-966D-DA1B55CB6CD3", elBatch); foreach (XmlNode ndResult in ndReturn.ChildNodes) { if (Convert.ToInt32(ndResult.FirstChild.Value) == 0) strResult += "序号：" + ndResult.Attributes["ID"].Value.ToString().Replace("New", "新建").Replace("Update", "更新").Replace("Delete", "删除") + "成功！"; else { strResult += "序号：" + ndResult.Attributes["ID"].Value.ToString().Replace("New", "新建").Replace("Update", "更新").Replace("Delete", "删除") + "失败！(代码" + Convert.ToInt32(ndResult.FirstChild.Value) + ")"; this.MainDataSource.CreateNavigator().SelectSingleNode("/my:myFields/my:SaveError", this.NamespaceManager).SetValue("true"); } } this.MainDataSource.CreateNavigator().SelectSingleNode("/my:myFields/my:ErrInfo", this.NamespaceManager).SetValue(strResult); } catch (Exception ex) { this.MainDataSource.CreateNavigator().SelectSingleNode("/my:myFields/my:SaveError", this.NamespaceManager).SetValue("true"); this.MainDataSource.CreateNavigator().SelectSingleNode("/my:myFields/my:ErrInfo", this.NamespaceManager).SetValue(ex.Message); } }
在表单的启动事件，用来设置IsNew变量的状态。
public void FormEvents_Loading(object sender, LoadingEventArgs e) { // 在此处编写代码。 if(!this.New) this.MainDataSource.CreateNavigator().SelectSingleNode("/my:myFields/my:isNew", this.NamespaceManager).SetValue("false"); else this.MainDataSource.CreateNavigator().SelectSingleNode("/my:myFields/my:isNew", this.NamespaceManager).SetValue("true"); }
代码事项:使用了三个表单字段来进行状态维护,IsNew,SaveError,ErrInfo,
1 isNew,用来判断这个表单操作,是不是新建.平时当然可以使用表单的this.New来判断,但是由于是没有使用"保存",而使用了了提交到表单库的操作,你提交进去表单库后,this.New不会变成False.
2 SaveError,判断整个操作是否成功,如果有一个记录没有成功更新,也为True;
3 ErrInfo,如果失败,就显示失败信息,这个在表单中有一个文本框与之帮定.
要点5:事件处理程序：处理删除表单表单操作
表单内部中的更新(插入、删除、更新）都可以反应在“列表”中，那么使用者如果删除表单文件呢？
大家可以自己思考哦。
This posting is provided "AS IS" with no warranties, and confers no rights.
浙公网安备 33010602011771号
