[ InfoPath应用场景：库存管理 ] 在InfoPath Form Service利用WSS Web Service技术,通过VSTA代码把复杂表单写入S

虚幻0516

　　上一篇摘要：http://www.cnblogs.com/dosboy/archive/2007/11/30/977535.html

上一篇主要内容：

讨论了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:事件处理程序：处理删除表单表单操作

　　表单内部中的更新(插入、删除、更新）都可以反应在&#8220;列表&#8221;中，那么使用者如果删除表单文件呢？
  　大家可以自己思考哦。