コード例 #1
0
        /// <summary>
        /// 将记录集转为sys_FieldTable实体类
        /// </summary>
        /// <param name="dr">记录集</param>
        /// <returns>sys_FieldTable</returns>
        protected object Populatesys_Field(IDataReader dr)
        {
            sys_FieldTable nc = new sys_FieldTable();

            if (!Convert.IsDBNull(dr["FieldID"])) nc.FieldID = Convert.ToInt32(dr["FieldID"]); // 应用字段ID号
            if (!Convert.IsDBNull(dr["F_Key"])) nc.F_Key = Convert.ToString(dr["F_Key"]).Trim(); // 应用字段关键字
            if (!Convert.IsDBNull(dr["F_CName"])) nc.F_CName = Convert.ToString(dr["F_CName"]).Trim(); // 应用字段中文说明
            if (!Convert.IsDBNull(dr["F_Remark"])) nc.F_Remark = Convert.ToString(dr["F_Remark"]).Trim(); // 描述说明
            return nc;
        }
コード例 #2
0
ファイル: OracleDataProvider.cs プロジェクト: hezejiang/EHR
        /// <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("�޷�ʶ��IJ�������!");
                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;
        }
コード例 #3
0
 /// <summary>
 /// 新增/删除/修改 sys_Field
 /// </summary>
 /// <param name="fam">sys_FieldTable实体类</param>
 /// <returns>返回0操正常</returns>
 public abstract int sys_FieldInsertUpdate(sys_FieldTable fam);
コード例 #4
0
        /// <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 (OleDbConnection Conn = GetSqlConnection())
            {
                string CommTxt;
                OleDbCommand cmd = new OleDbCommand();
                cmd.Connection = Conn;
                if (fam.DB_Option_Action_ == "Insert")
                {
                    CommTxt = "Insert into 	sys_Field(F_Key,F_CName,F_Remark)VALUES(@F_Key,@F_CName,@F_Remark)";
                    cmd.CommandText = CommTxt;

                    cmd.Parameters.Add("@F_Key", OleDbType.VarWChar).Value = fam.F_Key + ""; //应用字段关键字
                    cmd.Parameters.Add("@F_CName", OleDbType.VarWChar).Value = fam.F_CName + ""; //应用字段中文说明
                    cmd.Parameters.Add("@F_Remark", OleDbType.VarWChar).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", OleDbType.VarWChar).Value = fam.F_Key + ""; //应用字段关键字
                    cmd.Parameters.Add("@F_CName", OleDbType.VarWChar).Value = fam.F_CName + ""; //应用字段中文说明
                    cmd.Parameters.Add("@F_Remark", OleDbType.VarWChar).Value = fam.F_Remark + ""; //描述说明
                    cmd.Parameters.Add("@FieldID", OleDbType.Integer).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", OleDbType.Integer).Value = fam.FieldID;
                }
                else
                    throw new ApplicationException("无法识别的操作命令!");
                Conn.Open();
                rInt = cmd.ExecuteNonQuery();
                if (fam.DB_Option_Action_ == "Insert")
                {
                    cmd.CommandText = "SELECT @@identity";
                    rInt = Convert.ToInt32(cmd.ExecuteScalar());
                }
                cmd.Dispose();
                Conn.Dispose();
                Conn.Close();
            }
            return rInt;
        }
コード例 #5
0
ファイル: BusinessFacade.cs プロジェクト: hezejiang/EHR
 /// <summary>
 /// 新增/删除/修改 sys_Field
 /// </summary>
 /// <param name="fam">sys_FieldTable实体类</param>
 /// <returns>返回0操正常</returns>
 public static int sys_FieldInsertUpdate(sys_FieldTable fam)
 {
     return DataProvider.Instance().sys_FieldInsertUpdate(fam);
 }
コード例 #6
0
ファイル: BusinessFacade.cs プロジェクト: hezejiang/EHR
 /// <summary>
 /// 根据ID返回 sys_FieldTable实体类 单笔资料
 /// </summary>
 /// <param name="FieldID">应用字段ID号</param>
 /// <returns>返回sys_FieldTable实体类 FieldID为0则无记录</returns>
 public static sys_FieldTable sys_FieldDisp(int FieldID)
 {
     sys_FieldTable fam = new sys_FieldTable();
     QueryParam qp = new QueryParam();
     qp.PageIndex = 1;
     qp.PageSize = 1;
     qp.Where = " Where sys_Field.FieldID = " + FieldID;
     int RecordCount = 0;
     ArrayList lst = sys_FieldList(qp, out RecordCount);
     if (RecordCount > 0)
     {
         fam = (sys_FieldTable)lst[0];
     }
     return fam;
 }
コード例 #7
0
ファイル: BusinessFacade.cs プロジェクト: hezejiang/EHR
        /// <summary>
        /// 检测是否违反sys_Field表的PK值
        /// </summary>
        /// <param name="fam">sys_FieldTable类</param>
        /// <param name="pt">PopedomType类型,只对New,Edit有效</param>
        /// <returns></returns>
        public static bool sys_FieldCheckPK(sys_FieldTable fam, PopedomType pt)
        {
            fam.F_Key = Common.inSQL(fam.F_Key);
            QueryParam qp = new QueryParam();
            if (pt == PopedomType.New)
                qp.Where = string.Format(" Where F_Key='{0}'", fam.F_Key);
            else if (pt == PopedomType.Edit)
                qp.Where = string.Format(" Where F_Key='{0}' and FieldID<>{1} ", fam.F_Key, fam.FieldID);

            int RecordCount = 0;
            sys_FieldList(qp, out RecordCount);
            if (RecordCount > 0)
            {
                return true;
            }
            else
            {
                return false;
            }
        }
コード例 #8
0
 /// <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 (SqlConnection Conn = GetSqlConnection())
     {
         SqlCommand cmd = new SqlCommand("sys_FieldInsertUpdateDelete", Conn);
         cmd.CommandType = CommandType.StoredProcedure;
         //设置参数
         cmd.Parameters.Add("@DB_Option_Action_", SqlDbType.NVarChar).Value = fam.DB_Option_Action_; //操作方法 Insert:增加 Update:修改 Delete:删除 Disp:显示单笔记录
         cmd.Parameters.Add("@FieldID", SqlDbType.Int).Value = fam.FieldID;  //应用字段ID号	
         cmd.Parameters.Add("@F_Key", SqlDbType.VarChar).Value = fam.F_Key;  //应用字段关键字
         cmd.Parameters.Add("@F_CName", SqlDbType.NVarChar).Value = fam.F_CName;  //应用字段中文说明
         cmd.Parameters.Add("@F_Remark", SqlDbType.NVarChar).Value = fam.F_Remark;  //描述说明
         Conn.Open();
         rInt = Convert.ToInt32(cmd.ExecuteScalar());
         cmd.Dispose();
         Conn.Dispose();
         Conn.Close();
     }
     return rInt;
 }