在.NET中利用FORMULA　ONE实现动态报表技术(二)

Ø         在.NET中利用FORMULA　ONE实现动态报表技术(二)

 

4. 读入的模板用二进制流的形式存入数据库中，F1提供一个WriteToBlobEx(),和WriteToBlob()方法,帮助文档中定义的语法为：

phBlob = F1Book1.WriteToBlobEx (nReservedBytes)

本来可以很轻松的把模板文件写入二进制流，但转换了.NET可调用的组件后定义的语法成了：

public virtual new System.Int32 WriteToBlobEx ( System.Int16 nReservedBytes )

phBlob类型成了System.Int32类型！因此我们只能转用另外的方法。首先把当前模板保存也一临时文件

//把当前模板保存到临时文件

     axF1Book1.WriteEx("F1Temp.VTS",TTF160.F1FileTypeConstants.F1FileFormulaOne6);

再利用.NET函数转换成二进制流, 之后再删除临时文件.

//取得临时文件二进制流

         byte[] Data = FileToByte("F1Temp.VTS");

         //删除临时文件

     File.Delete("F1Temp.VTS");

//文件－－> Byte[]

         private byte[] FileToByte(string FileName)

         {

              byte[] FileData;

              try

              {

                   using (FileStream fs = File.OpenRead(FileName))

                   {

                       FileData = new byte[fs.Length];

                       fs.Read(FileData,0,(int)fs.Length);

                   }

                  

              }

              catch (Exception e)

              {

                   MessageBox.Show("把文件生成二进制流错误！原因："+e.Message);

                   return null;

              }

              return FileData;

 

     }

 

取得二进制流后，判断数据库中是不是已经有此模板，如果已经有此模板则对其进行更新，否则进行新增操作。

新增操作代码如下：

 

          #region 插入当前模板到数据库

                            strSQL = "Insert Into Report_List_Data(num,rpt_id,rpt_name,user_name,rpt_date,rpt_data)";

                            strSQL += " Values(@PKID,@rptID,@rptName,@rptUserName,GetDate(),@rptData)";

                            SqlCommand command  = new SqlCommand(strSQL,funcLib.aConn);

                            //插入参数

                            SqlParameter paramPKID = new SqlParameter("@PKID",SqlDbType.Int);

                            paramPKID.Value = GetPKID("Report_List_Data","num");

                            command.Parameters.Add( paramPKID );

 

                            SqlParameter paramRptID = new SqlParameter("@rptID",SqlDbType.Int);

                            paramRptID.Value = tplInfo[1];

                            command.Parameters.Add(paramRptID);

 

                            SqlParameter paramRptName = new SqlParameter("@rptName",SqlDbType.NVarChar);

                            paramRptName.Value = tplInfo[0];

                            command.Parameters.Add(paramRptName);

 

                            SqlParameter paramRptUserName = new SqlParameter("@rptUserName",SqlDbType.NVarChar);

                            paramRptUserName.Value = "HY";

                            command.Parameters.Add(paramRptUserName);

 

                            SqlParameter paramRptData = new SqlParameter("@rptData",SqlDbType.Image);

                            paramRptData.Value = Data;

                            command.Parameters.Add(paramRptData);

                           

                            if(funcLib.aConn.State!=ConnectionState.Open) funcLib.aConn.Open();

 

                            command.ExecuteNonQuery();

                       }

                       catch (Exception err)

                       {

                            MessageBox.Show("插入当前模板不成功！原因："+err.Message);

                            return;

                       }

     #endregion

 

对模板进行更新操作代码如下所示：

#region 把修改后的模板保存到数据库

                       try

                       {

                            strSQL = "Update Report_List_Data Set rpt_data = @rptData where rpt_id = "+tplInfo[1] + " and rpt_name = '"+tplInfo[0]+"'";

                      

                            SqlCommand command = new SqlCommand(strSQL,funcLib.aConn);

 

                            //插入参数

                            SqlParameter paramRptData = new SqlParameter("@rptData",SqlDbType.Image);

                            paramRptData.Value = Data;

                            command.Parameters.Add( paramRptData );

                            if(funcLib.aConn.State!=ConnectionState.Open) funcLib.aConn.Open();

                            command.ExecuteNonQuery();

                            break;

                       }

                       catch (Exception err)

                       {

                            MessageBox.Show("保存当前模板不成功！原因："+err.Message,"错误");

                            return;

                       }

                   #endregion

注：其中funcLib为对数据库操作的基类funcLib.aConn为取得当前连接的实例，GetPKID("Report_List_Data","num")函数功能是取得指定表名和其主键字段名的最大主键值。

 

 

本文地址：http://com.8s8s.com/it/it45185.htm