oracledataprovider.cs

其主要的功能就是,进行后台管理模块整合. 1)其可以支持多个应用,多个模块的权限管理. 2)支持Access和MsSql200/2005. 3)采用角色来进行权限的授权,每个用户可以属于多个角色

                }
                finally
                {
                    Tran.Dispose();
                    cmd.Dispose();
                    Conn.Dispose();
                    Conn.Close();
                }
            }
            return rInt;
        }

        /// <summary>
        /// 返回sys_EventTable实体类的ArrayList对象
        /// </summary>
        /// <param name="qp">查询类</param>
        /// <param name="RecordCount">返回记录总数</param>
        /// <returns>sys_EventTable实体类的ArrayList对象</returns>
        public override ArrayList sys_EventList(QueryParam qp, out int RecordCount)
        {
            PopulateDelegate mypd = new PopulateDelegate(base.Populatesys_Event);
            return this.GetObjectList(mypd, qp, out RecordCount);
        }

        #endregion

        #region "sys_Field - OracleDataProvider"
        /// <summary>
        /// 新增/删除/修改 sys_Field
        /// </summary>
        /// <param name="fam">sys_FieldTable实体类</param>
        /// <returns>返回0操正常</returns>
        public override int sys_FieldInsertUpdate(sys_FieldTable fam)
        {
            int rInt = 0;

            using (OracleConnection Conn = GetSqlConnection())
            {
                string CommTxt;
                OracleCommand cmd = new OracleCommand();
                cmd.Connection = Conn;
                if (fam.DB_Option_Action_ == "Insert")
                {
                    CommTxt = "Insert into 	sys_Field(FieldID,F_Key,F_CName,F_Remark)VALUES(SEQ_sys_Field_ID.NEXTVAL,:F_Key,:F_CName,:F_Remark)";
                    cmd.CommandText = CommTxt;

                    cmd.Parameters.Add("F_Key", OracleType.VarChar).Value = fam.F_Key + ""; //应用字段关键字
                    cmd.Parameters.Add("F_CName", OracleType.NVarChar).Value = fam.F_CName + ""; //应用字段中文说明
                    cmd.Parameters.Add("F_Remark", OracleType.NVarChar).Value = fam.F_Remark + ""; //描述说明
                }
                else if (fam.DB_Option_Action_ == "Update")
                {

                    CommTxt = "UPDATE sys_Field SET	F_Key = :F_Key,F_CName = :F_CName,F_Remark = :F_Remark WHERE (FieldID = :FieldID)";
                    cmd.CommandText = CommTxt;

                    cmd.Parameters.Add("F_Key", OracleType.VarChar).Value = fam.F_Key + ""; //应用字段关键字
                    cmd.Parameters.Add("F_CName", OracleType.NVarChar).Value = fam.F_CName + ""; //应用字段中文说明
                    cmd.Parameters.Add("F_Remark", OracleType.NVarChar).Value = fam.F_Remark + ""; //描述说明
                    cmd.Parameters.Add("FieldID", OracleType.Int32).Value = fam.FieldID;
                }
                else if (fam.DB_Option_Action_ == "Delete")
                {
                    CommTxt = "Delete from  sys_Field  WHERE (FieldID = :FieldID)";
                    cmd.CommandText = CommTxt;
                    cmd.Parameters.Add("FieldID", OracleType.Int32).Value = fam.FieldID;
                }
                else
                    throw new ApplicationException("无法识别的操作命令!");
                Conn.Open();
                OracleTransaction Tran = Conn.BeginTransaction();
                cmd.Transaction = Tran;
                try
                {
                    rInt = cmd.ExecuteNonQuery();
                    cmd.Parameters.Clear();
                    if (fam.DB_Option_Action_ == "Insert")
                    {
                        cmd.CommandText = "select SEQ_sys_Field_ID.CURRVAL from  dual";
                        rInt = Convert.ToInt32(cmd.ExecuteScalar());
                    }
                    Tran.Commit();
                }
                catch (Exception ex)
                {
                    Tran.Rollback();
                    throw new ApplicationException(ex.ToString());
                }
                finally
                {
                    Tran.Dispose();
                    cmd.Dispose();
                    Conn.Dispose();
                    Conn.Close();
                }
            }
            return rInt;
        }

        /// <summary>
        /// 返回sys_FieldTable实体类的ArrayList对象
        /// </summary>
        /// <param name="qp">查询类</param>
        /// <param name="RecordCount">返回记录总数</param>
        /// <returns>sys_FieldTable实体类的ArrayList对象</returns>
        public override ArrayList sys_FieldList(QueryParam qp, out int RecordCount)
        {
            PopulateDelegate mypd = new PopulateDelegate(base.Populatesys_Field);
            return this.GetObjectList(mypd, qp, out RecordCount);
        }

        #endregion

        #region "sys_FieldValue - OracleDataProvider"
        /// <summary>
        /// 新增/删除/修改 sys_FieldValue
        /// </summary>
        /// <param name="fam">sys_FieldValueTable实体类</param>
        /// <returns>返回0操正常</returns>
        public override int sys_FieldValueInsertUpdate(sys_FieldValueTable fam)
        {
            int rInt = 0;

            using (OracleConnection Conn = GetSqlConnection())
            {
                string CommTxt;
                OracleCommand cmd = new OracleCommand();
                cmd.Connection = Conn;
                if (fam.DB_Option_Action_ == "Insert")
                {
                    CommTxt = "Insert into 	sys_FieldValue(ValueID,V_F_Key,V_Text,V_ShowOrder)VALUES(SEQ_sys_FieldValue_ID.NEXTVAL,:V_F_Key,:V_Text,:V_ShowOrder)";
                    cmd.CommandText = CommTxt;

                    cmd.Parameters.Add("V_F_Key", OracleType.VarChar).Value = fam.V_F_Key + ""; //与sys_Field表中F_Key字段关联
                    cmd.Parameters.Add("V_Text", OracleType.NVarChar).Value = fam.V_Text + ""; //中文说明	
                    cmd.Parameters.Add("V_ShowOrder", OracleType.Int32).Value = fam.V_ShowOrder; //同级显示顺序
                }
                else if (fam.DB_Option_Action_ == "Update")
                {

                    CommTxt = "UPDATE sys_FieldValue SET	V_F_Key = :V_F_Key,V_Text = :V_Text,V_ShowOrder = :V_ShowOrder WHERE (ValueID = :ValueID)";
                    cmd.CommandText = CommTxt;

                    cmd.Parameters.Add("V_F_Key", OracleType.VarChar).Value = fam.V_F_Key + ""; //与sys_Field表中F_Key字段关联
                    cmd.Parameters.Add("V_Text", OracleType.NVarChar).Value = fam.V_Text + ""; //中文说明	
                    cmd.Parameters.Add("V_ShowOrder", OracleType.Int32).Value = fam.V_ShowOrder; //同级显示顺序
                    cmd.Parameters.Add("ValueID", OracleType.Int32).Value = fam.ValueID;
                }
                else if (fam.DB_Option_Action_ == "Delete")
                {
                    CommTxt = "Delete from  sys_FieldValue  WHERE (ValueID = :ValueID)";
                    cmd.CommandText = CommTxt;
                    cmd.Parameters.Add("ValueID", OracleType.Int32).Value = fam.ValueID;
                }
                else
                    throw new ApplicationException("无法识别的操作命令!");
                Conn.Open();
                OracleTransaction Tran = Conn.BeginTransaction();
                cmd.Transaction = Tran;
                try
                {
                    rInt = cmd.ExecuteNonQuery();
                    cmd.Parameters.Clear();
                    if (fam.DB_Option_Action_ == "Insert")
                    {
                        cmd.CommandText = "select SEQ_sys_FieldValue_ID.CURRVAL from  dual";
                        rInt = Convert.ToInt32(cmd.ExecuteScalar());
                    }
                    Tran.Commit();
                }
                catch (Exception ex)
                {
                    Tran.Rollback();
                    throw new ApplicationException(ex.ToString());
                }
                finally
                {
                    Tran.Dispose();
                    cmd.Dispose();
                    Conn.Dispose();
                    Conn.Close();
                }
            }
            return rInt;
        }

        /// <summary>
        /// 返回sys_FieldValueTable实体类的ArrayList对象
        /// </summary>
        /// <param name="qp">查询类</param>
        /// <param name="RecordCount">返回记录总数</param>
        /// <returns>sys_FieldValueTable实体类的ArrayList对象</returns>
        public override ArrayList sys_FieldValueList(QueryParam qp, out int RecordCount)
        {
            PopulateDelegate mypd = new PopulateDelegate(base.Populatesys_FieldValue);
            return this.GetObjectList(mypd, qp, out RecordCount);
        }

        #endregion

        #region "sys_Online - OracleDataProvider"
        /// <summary>
        /// 新增/删除/修改 sys_Online
        /// </summary>
        /// <param name="fam">sys_OnlineTable实体类</param>
        /// <returns>返回0操正常</returns>
        public override int sys_OnlineInsertUpdate(sys_OnlineTable fam)
        {
            int rInt = 0;

            using (OracleConnection Conn = GetSqlConnection())
            {
                string CommTxt;
                OracleCommand cmd = new OracleCommand();
                cmd.Connection = Conn;
                if (fam.DB_Option_Action_ == "Insert")
                {
                    CommTxt = "Insert into 	sys_Online(OnlineID,O_SessionID,O_UserName,O_Ip,O_LoginTime,O_LastTime,O_LastUrl)VALUES(SEQ_sys_Online_ID.NEXTVAL,:O_SessionID,:O_UserName,:O_Ip,:O_LoginTime,:O_LastTime,:O_LastUrl)";
                    cmd.CommandText = CommTxt;

                    cmd.Parameters.Add("O_SessionID", OracleType.VarChar).Value = fam.O_SessionID + ""; //用户SessionID
                    cmd.Parameters.Add("O_UserName", OracleType.NVarChar).Value = fam.O_UserName + ""; //用户名	
                    cmd.Parameters.Add("O_Ip", OracleType.VarChar).Value = fam.O_Ip + ""; //用户IP地址	
                    cmd.Parameters.Add("O_LoginTime", OracleType.DateTime).Value = fam.O_LoginTime; //登陆时间	
                    cmd.Parameters.Add("O_LastTime", OracleType.DateTime).Value = fam.O_LastTime; //最后访问时间
                    cmd.Parameters.Add("O_LastUrl", OracleType.NVarChar).Value = fam.O_LastUrl + ""; //最后请求网站
                }
                else if (fam.DB_Option_Action_ == "Update")
                {

                    CommTxt = "UPDATE sys_Online SET	O_SessionID = :O_SessionID,O_UserName = :O_UserName,O_Ip = :O_Ip,O_LoginTime = :O_LoginTime,O_LastTime = :O_LastTime,O_LastUrl = :O_LastUrl WHERE (OnlineID = :OnlineID)";
                    cmd.CommandText = CommTxt;

                    cmd.Parameters.Add("O_SessionID", OracleType.VarChar).Value = fam.O_SessionID + ""; //用户SessionID
                    cmd.Parameters.Add("O_UserName", OracleType.NVarChar).Value = fam.O_UserName + ""; //用户名	
                    cmd.Parameters.Add("O_Ip", OracleType.VarChar).Value = fam.O_Ip + ""; //用户IP地址	
                    cmd.Parameters.Add("O_LoginTime", OracleType.DateTime).Value = fam.O_LoginTime; //登陆时间	
                    cmd.Parameters.Add("O_LastTime", OracleType.DateTime).Value = fam.O_LastTime; //最后访问时间
                    cmd.Parameters.Add("O_LastUrl", OracleType.NVarChar).Value = fam.O_LastUrl + ""; //最后请求网站
                    cmd.Parameters.Add("OnlineID", OracleType.Int32).Value = fam.OnlineID;
                }