WCF医院管理系统技术解析(四)体检登记(三)

体检登记中的新增历史病人（需要注意的是：该病人不经过挂号和处方，只是到医院进行体检）与医院中的前台登记病人不同。

对于这种情况：我的思路是：该病人先到医院进行登记体检，然后设置好体检的项目，再到前台进行收费，最后拿着收费单到体检执行处，执行体检处将体检的结果以纸质形式返回给病人。

选择好历史病人后，历史病人的病历就会显示出来效果图为：

2.9.8(图25)

该界面用到的控件有：

控件	说明从工具箱中找到对应的控件，拖动到界面，右键属性可以设置控件的一些属性样式和事件。如显示的文本，命名是规范
文本框 (TextBox)
下拉框 (ComBobox)
数据表格 (DataGridView)
按钮(Button)
标签 (Label)
容器(Panel)
选项卡(TabContral)

涉及到的表和关系有：

2.9.8(图26)

2.9.8(图27)

表1：门诊病历模板表（BT_OutpatientMedicalRecordsTemplateTable）

用于记录挂号病人的病历和其他信息

列名	数据类型	主键/外键	说明
OutpatientMedicalRecordsTemplateID	int	主键	门诊病历模板ID
TemplateNumber	nchar (50)		模板编号
TemplateName	nchar (50)		模板名称
WriteDoctor_StaffID	int	外键	撰写医生_员工ID
WriteTechnicalOfficesID	int	外键	撰写科室_科室ID
AS_TemplateTypeID	int	外键	模板类型ID
AS_InvokingJurisdictionID	int	外键	调用权限ID
WhetherOperation	bit		是否手术
TemplateRemarks	nchar (200)		模板备注
SuitCase	nchar (200)		适合情况
PatientActionInChief	nchar (300)		病人主诉
PatientMedicalHistory	nchar (300)		病人病史
PhysicalExaminationCase	nchar (300)		体检情况
InitialDiagnosis	nchar (300)		初步诊断
DisposeIdea	nchar (300)		处理意见
WhetherEffective	bit	((1))	有效否
RegisterID	int	外键	挂号ID

表2：挂号表（RegisterTable）

用于对病人进行挂号候等医生看病人的情况

列名	数据类型	主键/外键	说明
RegisterID	int	主键	挂号ID
RegisterNumber	nchar (50)		挂号单号
PatientID	int	外键	病人ID
AS_SettleAccountsWayID	int	外键	结算方式ID
TechnicalOfficesID	int	外键	科室ID
Doctor_StaffID	int	外键	医生_员工ID
RegisterSum	decimal (18, 2)		挂号金额
DiagnosisFee	decimal (18, 2)		诊察费
CaseHistorySum	decimal (18, 2)		病历金额
RegisterRemarks	nchar (50)		挂号备注
RegisterTime	datetime		挂号时间
AS_RegisterStatusID	int	外键	挂号状态ID
ClassesID	int	外键	班次ID
InvoiceNumber	nchar (50)		发票号
RegisterOperator_StaffID	int	外键	挂号人员（操作员）_员工ID
WhetherEffective	bit	((1))	有效否
NullifyRemarks	nchar (100)		作废备注
NullifyOperator_StaffID	int	外键	作废操作员_员工ID

表3.病人表（BT_PatientTable）

用于新增病人

列名	数据类型	主键/外键	说明
PatientID	int	主键	病人ID
PatientCardNumber	nchar (50)		病人卡号
PatientName	nchar (30)		病人名称
RegisterCategoryID	int	外键	挂号类别 ID
AS_SexID	int	外键	性别ID
Birthday	datetime		出生年月
IDCardNo	nchar (50)		身份证号
AS_MaritalStatusID	int	外键	婚姻情况ID
Profession	nchar (50)		所在职业
MemberTypeID	int	外键	会员类型ID
MedicareCardNumber	nchar (50)		医保卡号
AS_InsuredTypeID	int	外键	参保类型ID
ContactTelephone	nchar (30)		联系电话
ContactAddress	nchar (100)		联系地址
DrugAllergyHistory	nchar (100)		药物过敏史
PatientCategoryID	int	外键	病人类别ID
Age	nchar (30)		年龄
AlphabeticBrevityCode	nchar (20)		拼音简码
WubiInCode	nchar (20)		五笔简码
ContactMobilePhone	nchar (30)		联系手机
Email	nchar (30)		电子邮件
Introducer	nchar (30)		介绍人员
PersonalTaboo	nchar (70)		个人忌讳
HighestReputation	nchar (70)		信誉上限
NowIntegral	nchar (50)		当前积分
Debt	decimal (18, 2)		尚欠金额
ExpenseSum	decimal (18, 2)		消费金额
LastTime	datetime		上次时间
LastDoctor_StaffID	int	外键	上次医生
Prescriptions	nchar (50)		总处方数
PatientPhotos	char (200)		病人照片
WhetherEffective	bit	((1))	有效否
WhetherFromPhysicalExamination	Bit		是否体检

表4：属性明细表（BT_AttributeDetailsTable）

用于普通常用字段录入

列名	数据类型	主键/外键	说明
AttributeDetailsID	int	主键	属性明细ID
AttributeDetailsID_F	int	外键	属性明细ID_F
AttributeSetID	int	外键	属性明细ID
AttributeDetailsName	nchar (30)		属性明细名称
Number	nchar (30)		编号
RetrievalInCode	nchar (30)		检索简码
BuiltInIdentifiers	bit	((0))	内置标识
Remarks	nchar (100)		备注
WhetherEffective	bit	((1))	有效否

表5：收费单表（PW_ChargeBillID）

用于对病人的处方单或者其他收费单进行收费的凭证

列名	数据类型	主键/外键	说明
ChargeBillID	int	主键	收费单ID
ReceiptNumber	nchar (30)		收据号
BillNumber	nchar (30)		发票号
AS_ChargeStatusID	int	外键	收费状态ID
OrdonnanceID	int	外键	处方单ID
Discount	decimal (18, 2)		折扣
CashPaySum	decimal (18, 2)		现金支付金额
MedicarePaySum	decimal (18, 2)		医保支付金额
BlockPaySum	decimal (18, 2)		卡付金额
TallyPaySum	decimal (18, 2)		记账支付金额
Operator_StaffID	int	外键	操作员_员工ID
OperateTime	datetime		操作时间
WhetherCancel	bit		作废否
WhetherEffective	bit	((1))	有效否
WhetherOrdonnance	Bit		是否经过处方

表6：体检登记病人表（PW_PhysicalExaminationChargeBillPatientTable）

用于记录不经过处方只是体检的病人的收费情况

列名	数据类型	主键/外键	说明
PhysicalExaminationChargeBillPatientID	Int	主键	体检登记病人ID
PatientID	Int	外键	病人ID
ChargeBillID	Int	外键	收费单ID
AuxiliaryItemDetailID	Int	外键	辅助项目明细ID
WhetherChargeBill	Bit		是否收费

表7：处方单表（PW_OrdonnanceTable）

用于对体检病人进行开处方

列名	数据类型	主键/外键	说明
OrdonnanceID	int	主键	处方单ID
OrdonnanceNumber	nchar (30)		处方单号
PatientID	int	外键	病人ID
PrescriptionDate	datetime		处方时间
ClinicTechnicalOffices_TechnicalOfficesID	int	外键	就诊科室_科室ID
TreatmentDoctor_StaffID	int	外键	就诊医生_员工ID
AS_ChargeStatusID	int	外键	收费状态ID
ChargeForPersonnel_StaffID	int	外键	收费人员_员工ID
ChargeTime	datetime		收费时间
AS_TakeMedicineStatusID	int	外键	发药状态ID
TakeMedicinePersonnel_StaffID	int	外键	发药人员_员工ID
TakeMedicineTime	datetime		发药时间
BedID	int	外键	床位ID
WhetherEffective	bit	((1))	有效否

表8：药品表【DrugTable】

用于存放药品

列名	数据类型	主键/外键	说明
DrugID	int	主键	药品ID
DrugName	nchar (70)		药品名称
ChargeCategoryID	int	外键	收费类别 ID
DrugEncoding	nchar (30)		药品编码
StripShapeEncoding	nchar (50)		条形码
MedicineEncoding	nchar (30)		医学编码
EnglishName	nchar (50)		英文名称
RatifyWritingNumber	nchar (70)		批准文号
AlphabeticBrevityCode	nchar (20)		拼音简码
WubiInCode	nchar (20)		五笔简码
AS_DrugAgentTypeID	int	外键	药品类型ID
AS_DoseUnitID	int	外键	剂量单位ID
UnitDose	nchar (30)		单位剂量
DrugSpecification	nchar (50)		药品规格
AS_ScatteredUnitID	int	外键	散装单位I
AS_PieceUnitID	int	外键	件装单位ID
AS_DrugTypeID	int	外键	药品类型ID
DrugPicture	char (200)		药品图片
WhetherMedicare	bit		是否医保
MedicareEncoding	nchar (50)		医保编码
WhetherMedicalRecord	bit		在病历中否
WhetherAddWater	bit		是否加水
WhetherSkinTest	bit		是否皮试
WhetherSpecialDrugs	bit		特殊药品否
AS_DistributionWayID	int	外键	经销方式ID
AS_UserStatusID	int	外键	使用状态ID
AS_MedicareCategoryID	int	外键	医保类别 ID
ApplicableSymptoms	nchar (100)		适用症状
PromotionalLogo	nchar (50)		促销标识
MainEfficacy	nchar (100)		主要功效
WhetherIntegral	bit		积分否
IntegralProportion	decimal (18, 2)		积分比例
IntegralScores	decimal (18, 2)		积分分数
WhetherParticipateInInventoryAccountingManagement	bit		参与库存核算管理否
WhetherAllowTheFrontDeskToChangePriceSales	bit		允许前台改价销售否
WhetherAllowTheFrontDeskDiscountSales	bit		允许前台折扣销售否
AS_ValuationWayID	int	外键	计价方式ID
EntryStaff_StaffID	int	外键	录入人员_员工ID
EntryDate	datetime		录入日期
UpdateStaff_StaffID	int	外键	更新人员_员工ID
UpdateDate	datetime		更新日期
WhetherEffective	bit	((1))	有效否
AS_DrugAgentTypeID	Int	外键	药品剂型ID
ScatteredStockPrice	decimal (18, 2		散装进价
PieceStockPrice	decimal (18, 2		件装进价
ScatteredPrice	decimal (18, 2)		散装售价
PiecePrice	decimal (18, 2)		件装售价
ScatteredMemberPrice	decimal (18, 2)		散会员价

表9：药品价格表（DrugPriceTable）

列名	数据类型	主键/外键	说明
DrugPriceID	int - Identity	主键	药品价格ID
DrugID	int	外键	药品ID
ScatteredPrice	decimal (18, 2)		散装售价
ScatteredMemberPrice	decimal (18, 2)		散会员价
PiecePrice	decimal (18, 2)		件装售价
MedicarePrice	decimal (18, 2)		医保价格
SupplierID	int	外键	供货商ID
ManufacturerName	nchar (100)		厂商名称
ProductionField	nchar (100)		生产产地
ProductionBatchNumber	nchar (50)		生产批号
ProductionDate	datetime		生产日期
ValidityPeriod	datetime		有效期
WhetherEffective	bit	((1))	有效否
DataOperateRecordID	int		数据操作记录ID

数据库中涉及的储存过程有：

--根据病人IF查找病人的病历
	IF @Type = 'FRM_TiJianDengJi_Insert_Load_SelectBingLi'
	BEGIN
		SELECT     BT_PatientTable.PatientID, BT_PatientTable.PatientName, BT_PatientTable.AS_SexID, BT_AttributeDetailsTable.AttributeDetailsName  <span style="white-space:pre">			</span>  AS Sex, BT_OutpatientMedicalRecordsTemplateTable.PatientActionInChief, BT_OutpatientMedicalRecordsTemplateTable.PatientMedicalHi<span style="white-space:pre">			</span>, PW_RegisterTable.RegisterTime, PW_RegisterTable.RegisterID
		FROM         BT_OutpatientMedicalRecordsTemplateTable INNER JOIN
                      PW_RegisterTable ON BT_OutpatientMedicalRecordsTemplateTable.RegisterID = PW_RegisterTable.RegisterID INNER JOIN
                      BT_PatientTable ON PW_RegisterTable.PatientID = BT_PatientTable.PatientID INNER JOIN
                      BT_AttributeDetailsTable ON BT_PatientTable.AS_SexID = BT_AttributeDetailsTable.AttributeDetailsID   
        WHERE        BT_PatientTable.PatientID = @PatientID             
	END

BLL中涉及到的对应方法有：

#region 查询病人的病历
        [OperationContract]
        public DataSet FRM_TiJianDengJi_Insert_Load_SelectBingLi(int intPatientID)//获取界面中选择的历史病人
        {
            SqlParameter[] mySqlParameters = {
                                             new SqlParameter("@Type",SqlDbType .Char ),
                                             new SqlParameter ("@PatientID",SqlDbType.Char),//根据病人ID查找数据库中的病人病史
                                             };
            mySqlParameters[0].Value = "FRM_TiJianDengJi_Insert_Load_SelectBingLi";
            mySqlParameters[1].Value = intPatientID;
            DataTable dt = myDALMethod.QueryDataTable("TiJianZhongXin_TiJianDengJi_Patient_Main", mySqlParameters);
            DataSet ds = new DataSet();
            ds.Tables.Add(dt);
            return ds;
        }
        #endregion

UIL中涉及到的代码有：

// 根据病人ID把查询到的病人信息绑定到对应的控件中
                DataTable dtMedicalHistory = myFRM_TiJianDengJi_Patient_MainClient.FRM_TiJianDengJi_Insert_Load_SelectBingLi(intPatienID).Tables[0];
                if (dtMedicalHistory.Rows.Count == 0)
                { }
                else
                {
                    string[] strMedicalHistory = new string[dtMedicalHistory.Rows.Count];//声明一个字符串的数组，长度为dtMedicalHistory中行的集合
                    string strBingLi = ""; int intCount = 0;
                    for (int i = 0; i < dtMedicalHistory.Rows.Count; i++)//遍历查询出来的病人病历信息表
                    {
                        intCount = i + 1;//累加病人看病的次数
                        //数组成员获取病人的看病次数和病历
                        strMedicalHistory[i] = "第" + intCount + "次到医院病史情况：" + "\t" + dtMedicalHistory.Rows[i]["PatientMedicalHistory"].ToString().Trim() + "\r\n";
                        strBingLi +=  strMedicalHistory[i] + "\r\n";//累加数组成员
                    }
                    txt_CaseHistory.Text =  strBingLi;//把病人的看病情况进行赋值给病历文本框
                }

历史病人的账户流水效果图如下：

2.9.8(图28)

图解：通过图像可以看出处方单号中的第一条数据的单号为“无”，那么这是怎么回事？那是因为该条单据是病人到医院只是做了体检项目的收费，并不经过处方涉及到其他的收费项目，所以她的处方单号为“无”，但是第二条数据就不同了，那条数据她是经过处方单开的收费项目，

涉及到的表和关系有：

经过处方单的

2.9.8(图29)

2.9.8(图30)

不经过处方单的：

2.9.8(图31)

2.9.8(图32)

涉及到的储存过程有：

-根据病人ID查找处方ID
	IF @Type = 'FRM_TiJianBingRen_Insert_SelectOrdonnanceIDOnPatientID'
	BEGIN
	--经过处方
		SELECT     PW_OrdonnanceTable.PatientID, PW_OrdonnanceTable.OrdonnanceID, RTRIM(PW_OrdonnanceTable.OrdonnanceNumber) AS OrdonnanceNumber, RTRIM(BT_PatientTable.PatientName) 
                      AS PatientName, PW_OrdonnanceTable.PrescriptionDate, BT_PatientTable.AS_SexID, rtrim(BT_AttributeDetailsTable.AttributeDetailsName) as AttributeDetailsName ,
                      rtrim(BT_PatientTable.PatientCardNumber ) as PatientCardNumber,RTRIM(0) AS ChargeBillID
		FROM         BT_PatientTable INNER JOIN
                      PW_OrdonnanceTable ON BT_PatientTable.PatientID = PW_OrdonnanceTable.PatientID INNER JOIN
                      BT_AttributeDetailsTable ON BT_PatientTable.AS_SexID = BT_AttributeDetailsTable.AttributeDetailsID
        where  BT_PatientTable.PatientID = @PatientID
        UNION 
        --不经过处方
		 SELECT DISTINCT 
                      BT_PatientTable.PatientID, RTRIM(0) AS OrdonnanceID, RTRIM('无') AS OrdonnanceNumber, BT_PatientTable.PatientName, PW_ChargeBillTable.OperateTime AS PrescriptionDate, 
                      BT_PatientTable.AS_SexID, RTRIM(BT_AttributeDetailsTable.AttributeDetailsName) AS AttributeDetailsName, RTRIM(BT_PatientTable.PatientCardNumber) AS PatientCardNumber, 
                      PW_PhysicalExaminationChargeBillPatientTable.ChargeBillID
		FROM         PW_ChargeBillTable INNER JOIN
                      PW_PhysicalExaminationChargeBillPatientTable ON PW_ChargeBillTable.ChargeBillID = PW_PhysicalExaminationChargeBillPatientTable.ChargeBillID INNER JOIN
                      BT_PatientTable ON PW_PhysicalExaminationChargeBillPatientTable.PatientID = BT_PatientTable.PatientID INNER JOIN
                      BT_AttributeDetailsTable ON BT_PatientTable.AS_SexID = BT_AttributeDetailsTable.AttributeDetailsID 
         WHERE  BT_PatientTable.PatientID = @PatientID
     END

BLL中涉及的方法有：

#region 根据病人ID查找处方ID
        [OperationContract]
        public DataSet FRM_TiJianBingRen_Insert_SelectOrdonnanceIDOnPatientID(int intPatientID)//获取界面中传入的病人ID
        {
            SqlParameter[] mySqlParameters = {
                                             new SqlParameter("@Type",SqlDbType .Char ),
                                             new SqlParameter ("@PatientID",SqlDbType.Char),//根据界面中传入的病人ID 查询数据库病人的信息
                                             };
            mySqlParameters[0].Value = "FRM_TiJianBingRen_Insert_SelectOrdonnanceIDOnPatientID";
            mySqlParameters[1].Value = intPatientID;
            DataTable dt = myDALMethod.QueryDataTable("TiJianZhongXin_TiJianDengJi_Patient_Main", mySqlParameters);
            DataSet ds = new DataSet();
            ds.Tables.Add(dt);
            return ds;
        }
        #endregion

UIL中涉及到的代码有：

dgv_PatientOrdonnance.AutoGenerateColumns = false;//设置dgv_PatientOrdonnance中的列不可改变性
                dgv_PatientOrdonnance.DataSource = myFRM_TiJianDengJi_Patient_MainClient.FRM_TiJianBingRen_Insert_SelectOrdonnanceIDOnPatientID(intPatienID).Tables[0];//把从数据库中查询出来的病人信息绑定到数据表格上

点击收费详细信息能查看该病人的详细收费项目：

效果如图所示：

2.9.8(图33)

涉及到的表和关系有：

2.9.8(图34

涉及到的储存过程有：

进过处方的体检、化验、治疗等收费信息

-查询病人每个处方以前的各种收费项目
	IF @Type = 'FRM_TiJianDengJi_Insert_Load_SelectGeZhongShouFeiXiangMu'
	BEGIN
		SELECT     LTRIM(RTRIM(PW_OrdonnanceDetailTable.TotalDrug)) AS TotalDrug, 
				   LTRIM(RTRIM(BT_DrugTable.DrugSpecification)) AS DrugSpecification, 
			LTRIM(RTRIM(1))AS IssueMedicineUnit, --用药单位                      
			LTRIM(RTRIM(BT_DrugTable.WhetherMedicare)) AS WhetherMedicare, 
			LTRIM(RTRIM(BT_DrugPriceTable.MedicarePrice)) AS MedicarePrice, 
			LTRIM(RTRIM(PW_OrdonnanceDetailTable.DrugID)) AS AllItemID, 
			LTRIM(RTRIM(PW_OrdonnanceDetailTable.OrdonnanceDetailEncoding)) AS AllICoding, 
			LTRIM(RTRIM(BT_DrugTable.DrugName)) AS AllIName,
			isnull(BT_DrugPriceTable.ScatteredPrice , 0) AS  AllIPrice
		FROM         BT_DrugPriceTable RIGHT OUTER JOIN
				  BT_DrugTable ON BT_DrugPriceTable.DrugID = BT_DrugTable.DrugID RIGHT OUTER JOIN
				  PW_OrdonnanceDetailTable ON BT_DrugTable.DrugID = PW_OrdonnanceDetailTable.DrugID
		WHERE    PW_OrdonnanceDetailTable.OrdonnanceID =@OrdonnanceID
	union
--查询辅助检查项目(体检项目)	
		SELECT
			LTRIM(RTRIM(1)) AS TotalDrug, 
			LTRIM(RTRIM(0)) AS DrugSpecification, 
			LTRIM(RTRIM(0)) AS IssueMedicineUnit, 
			LTRIM(RTRIM(0))  AS WhetherMedicare,		
			LTRIM(RTRIM(0))  AS MedicarePrice,
			LTRIM(RTRIM(PW_AuxiliaryItemDetailTable.AllItemID)) AS AllItemID,
			LTRIM(RTRIM(BT_ItemTable.ItemCoding)) AS AllICoding,  
			LTRIM(RTRIM(BT_ItemTable.ItemName)) AS AllIName,
			isnull(BT_ItemTable.ProjectPrice,0) AS AllIPrice
		FROM         PW_AuxiliaryItemDetailTable INNER JOIN
			  BT_ItemTable ON PW_AuxiliaryItemDetailTable.AllItemID = BT_ItemTable.ItemID
			  WHERE PW_AuxiliaryItemDetailTable.OrdonnanceID =@OrdonnanceID AND PW_AuxiliaryItemDetailTable.ItemCategoryID =1 
	
	union
--化验项目
		SELECT 
			LTRIM(RTRIM(1)) AS TotalDrug, 
			LTRIM(RTRIM(0)) AS DrugSpecification, 
			LTRIM(RTRIM(0)) AS IssueMedicineUnit, 
			LTRIM(RTRIM(0))  AS WhetherMedicare,		
			LTRIM(RTRIM(0))  AS MedicarePrice,
			LTRIM(RTRIM(PW_AuxiliaryItemDetailTable.AllItemID)) AS AllItemID, 
			LTRIM(RTRIM(BT_AssayItemsTable.AssayItemsNumber)) AS AllICoding, 
			LTRIM(RTRIM(BT_AssayItemsTable.ChineseName)) AS AllIName, 
			isnull(BT_AssayItemsTable.AssayItemsPrice,0) AS AllIPrice
		FROM         PW_AuxiliaryItemDetailTable INNER JOIN
				  BT_AssayItemsTable ON PW_AuxiliaryItemDetailTable.AllItemID = BT_AssayItemsTable.AssayItemsID
		WHERE     PW_AuxiliaryItemDetailTable.OrdonnanceID = @OrdonnanceID AND PW_AuxiliaryItemDetailTable.ItemCategoryID =2 
	
--治疗项目
	union
		SELECT     LTRIM(RTRIM(BT_TreatmentItemsTable.TotalInvestment)) AS TotalDrug, 
			LTRIM(RTRIM(0)) AS DrugSpecification, 
			LTRIM(RTRIM(0)) AS IssueMedicineUnit, 
			  LTRIM(RTRIM(BT_TreatmentItemsTable.WhetherMedicare)) AS WhetherMedicare, 
			  LTRIM(RTRIM(BT_TreatmentItemsTable.MedicarePricing)) AS MedicarePrice, 
			  LTRIM(RTRIM(PW_AuxiliaryItemDetailTable.AllItemID)) AS AllItemID, 
			  LTRIM(RTRIM(BT_TreatmentItemsTable.ItemNumber)) AS AllICoding, 
			  LTRIM(RTRIM(BT_TreatmentItemsTable.TreatmentItemName)) AS AllIName, 
			  LTRIM(RTRIM(BT_TreatmentItemsTable.GeneralPricing)) AS AllIPrice
		FROM         PW_AuxiliaryItemDetailTable LEFT OUTER JOIN
			  BT_TreatmentItemsTable ON PW_AuxiliaryItemDetailTable.AllItemID = BT_TreatmentItemsTable.TreatmentItemID	
      WHERE     PW_AuxiliaryItemDetailTable.OrdonnanceID = @OrdonnanceID AND PW_AuxiliaryItemDetailTable.ItemCategoryID =3
	
--体检套餐
	union
		SELECT 
			LTRIM(RTRIM(1)) AS TotalDrug, 
			LTRIM(RTRIM(0)) AS DrugSpecification, 
			LTRIM(RTRIM(0)) AS IssueMedicineUnit, 
			LTRIM(RTRIM(0))  AS WhetherMedicare,		
			LTRIM(RTRIM(0))  AS MedicarePrice,
			LTRIM(RTRIM(PW_AuxiliaryItemDetailTable.AllItemID)) AS AllItemID, 
			LTRIM(RTRIM(BT_PhysicalExaminationSetMealTable.SetMealNumber)) AS AllICoding, 
			LTRIM(RTRIM(BT_PhysicalExaminationSetMealTable.PhysicalExaminationSetMealName)) AS AllIName, 
			isnull(BT_PhysicalExaminationSetMealTable.CashPrice,0) AS AllIPrice
		FROM         PW_AuxiliaryItemDetailTable INNER JOIN
						  BT_PhysicalExaminationSetMealTable ON PW_AuxiliaryItemDetailTable.AllItemID = 
						  BT_PhysicalExaminationSetMealTable.PhysicalExaminationSetMealID
		WHERE     PW_AuxiliaryItemDetailTable.OrdonnanceID = @OrdonnanceID AND PW_AuxiliaryItemDetailTable.ItemCategoryID =4
	
--化验组合
	union
		SELECT 
			LTRIM(RTRIM(1)) AS TotalDrug, 
			LTRIM(RTRIM(0)) AS DrugSpecification, 
			LTRIM(RTRIM(0)) AS IssueMedicineUnit, 
			LTRIM(RTRIM(0))  AS WhetherMedicare,		
			LTRIM(RTRIM(0))  AS MedicarePrice,
			LTRIM(RTRIM(PW_AuxiliaryItemDetailTable.AllItemID)) AS AllItemID, 
			LTRIM(RTRIM(BT_AssayInspectCombinationTable.CombinationNumber)) AS AllICoding, 
			LTRIM(RTRIM(BT_AssayInspectCombinationTable.CombinationName)) AS AllIName, 
			isnull(BT_AssayInspectCombinationTable.Price,0) AS AllIPrice
		FROM         PW_AuxiliaryItemDetailTable INNER JOIN
			  BT_AssayInspectCombinationTable ON PW_AuxiliaryItemDetailTable.AllItemID = BT_AssayInspectCombinationTable.AssayInspectCombinationID
		WHERE     PW_AuxiliaryItemDetailTable.OrdonnanceID = @OrdonnanceID AND PW_AuxiliaryItemDetailTable.ItemCategoryID =5 
	END

不经过处方的体检项目：

--不经过处方的体检项目
	IF @Type = 'FRM_TiJianDengJi_Insert_Load_SelectGeZhongShouFeiXiangMuNotOrdonnance'
	BEGIN
		SELECT     LTRIM(RTRIM(1)) AS TotalDrug, LTRIM(RTRIM(0)) AS DrugSpecification, LTRIM(RTRIM(0)) AS IssueMedicineUnit, LTRIM(RTRIM(0)) AS WhetherMedicare, LTRIM(RTRIM(0)) AS MedicarePrice, 
                      LTRIM(RTRIM(PW_AuxiliaryItemDetailTable.AllItemID)) AS AllItemID, LTRIM(RTRIM(BT_ItemTable.ItemCoding)) AS AllICoding, LTRIM(RTRIM(BT_ItemTable.ItemName)) AS AllIName, 
                      ISNULL(BT_ItemTable.ProjectPrice, 0) AS AllIPrice, PW_ChargeBillTable.ChargeBillID
		FROM         PW_AuxiliaryItemDetailTable INNER JOIN
                      BT_ItemTable ON PW_AuxiliaryItemDetailTable.AllItemID = BT_ItemTable.ItemID INNER JOIN
                      PW_PhysicalExaminationChargeBillPatientTable ON PW_AuxiliaryItemDetailTable.AuxiliaryItemDetailID = PW_PhysicalExaminationChargeBillPatientTable.AuxiliaryItemDetailID INNER JOIN
                      PW_ChargeBillTable ON PW_PhysicalExaminationChargeBillPatientTable.ChargeBillID = PW_ChargeBillTable.ChargeBillID
		WHERE     PW_ChargeBillTable.ChargeBillID = @ChargeBillID AND PW_AuxiliaryItemDetailTable.ItemCategoryID = 1 AND PW_AuxiliaryItemDetailTable.WhetherOrdonnance = 0
	END

BLL中涉及到的方法有：

经过处方的：

#region 查询病人每个处方以前的各种收费项目
        [OperationContract]
        public DataSet FRM_TiJianDengJi_Insert_Load_SelectGeZhongShouFeiXiangMu(int intOrdonnanceID)//获取界面点击收费详细信息中传入的处方ID
        {
            SqlParameter[] mySqlParameters = {
                                             new SqlParameter("@Type",SqlDbType .Char ),
                                             new SqlParameter ("@OrdonnanceID",SqlDbType.Char),///根据界面点击收费详细信息中传入的处方ID查询数据库中对应的收费项目

                                             };
            mySqlParameters[0].Value = "FRM_TiJianDengJi_Insert_Load_SelectGeZhongShouFeiXiangMu";
            mySqlParameters[1].Value = intOrdonnanceID;
            DataTable dt = myDALMethod.QueryDataTable("TiJianZhongXin_TiJianDengJi_Patient_Main", mySqlParameters);
            DataSet ds = new DataSet();
            ds.Tables.Add(dt);
            return ds;
        }
        #endregion

不经过处方的：

#region 不经过处方的体检项目
        [OperationContract]
        public DataSet FRM_TiJianDengJi_Insert_Load_SelectGeZhongShouFeiXiangMuNotOrdonnance(int intChargeBillID)//获取点击界面详细收费项目传入的收费单ID
        {
            SqlParameter[] mySqlParameters = {
                                             new SqlParameter("@Type",SqlDbType .Char ),
                                             new SqlParameter ("@ChargeBillID",SqlDbType.Char),//根据收费单ID查询数据库中某病人的详细收费项目
                                             };
            mySqlParameters[0].Value = "FRM_TiJianDengJi_Insert_Load_SelectGeZhongShouFeiXiangMuNotOrdonnance";
            mySqlParameters[1].Value = intChargeBillID;
            DataTable dt = myDALMethod.QueryDataTable("TiJianZhongXin_TiJianDengJi_Patient_Main", mySqlParameters);
            DataSet ds = new DataSet();
            ds.Tables.Add(dt);
            return ds;
        }
        #endregion

UIL中涉及到的方法有：

 private void dgv_PatientOrdonnance_CellClick(object sender, DataGridViewCellEventArgs e)
        {
            //获取处方ID
             int intOrdonnanceID =Convert .ToInt32 ( dgv_PatientOrdonnance.CurrentRow .Cells["OrdonnanceID"].Value .ToString()); 
            if (e.ColumnIndex == 9)//点击收费详细信息
            {
                pnl_ShouFeiXiangMu.Visible = true;//Panle容器显示出来
                if (intOrdonnanceID == 0)//如何处方ID为0
                {
                    //获取收费单ID
                    int intChargeBillID = Convert.ToInt32(dgv_PatientOrdonnance.CurrentRow.Cells["收费单ID"].Value);
                    //根据收费单ID查询收费项目信息
                    dgv_ChargeBillItem.DataSource = myFRM_TiJianDengJi_Patient_MainClient.FRM_TiJianDengJi_Insert_Load_SelectGeZhongShouFeiXiangMuNotOrdonnance(intChargeBillID).Tables[0];
                }
                else
                {
                    //根据处方单查询收费项目信息
                    dgv_ChargeBillItem.DataSource = myFRM_TiJianDengJi_Patient_MainClient.FRM_TiJianDengJi_Insert_Load_SelectGeZhongShouFeiXiangMu(intOrdonnanceID).Tables[0];
                }
            }
        }

选择历史病人进行点击选择历史病人后，其界面效果图如下：

2.9.8(图35)

点击保存，即让该历史病人进入体检中心。

2.9.8(图36)

解析：因为该病人在医院上有过看病记录，所以不会新增该病人，只是在原有基础上把数据库中的“WhetherFromPhysicalExamination”的值改为“false”，就可以了

数据库中的储存过程：

--修改病人中的是否体检
	IF @Type = 'FRM_TiJianBingRen_Main_Load_UpdateWhetherFromPhysicalExamination'
	BEGIN
		UPDATE BT_PatientTable
		SET WhetherFromPhysicalExamination = 0
		WHERE PatientID = @PatientID
	END

BLL中涉及到的方法有：

#region 修改病人中的是否体检
        [OperationContract]
        public int FRM_TiJianBingRen_Main_Load_UpdateWhetherFromPhysicalExamination(int intPatientID)//获取界面传入的病人ID 
        {
            SqlParameter[] mySqlParameters = {
                                             new SqlParameter("@Type",SqlDbType .Char ),
                                             new SqlParameter ("@PatientID",SqlDbType.Char),//根据界面中传入的病人ID查询数据库中的病人信息
                                             };
            mySqlParameters[0].Value = "FRM_TiJianBingRen_Main_Load_UpdateWhetherFromPhysicalExamination";
            mySqlParameters[1].Value = intPatientID;
           return  myDALMethod.UpdateData ("TiJianZhongXin_TiJianDengJi_Patient_Main", mySqlParameters); 
        }
        #endregion

UIL中涉及到的代码：

 if (myFRM_TiJianDengJi_Patient_MainClient.FRM_TiJianBingRen_Main_Load_UpdateWhetherFromPhysicalExamination(intPatientID) > 0)//如果病人的是否体检为0，就///保存成功,否则保存失败
                {
                    MessageBox.Show("保存成功！");
                }
                else
                {
                    MessageBox.Show("保存失败！");
                }

这样就可以对历史病人再次体检进行设置体检项目了。

注：此文章只供学习参考，禁止用于商业用途。否则后果自负

WCF医院管理系统技术解析(四)体检登记(三)

druid数据源 xml配置

JAVA 上傳圖片保存到sql server 二進制字段類型（存取）

java 時間排序

Ajax同步請求出現瀏覽器頁面假死，阻塞UI線程之解決方案

默認讓網頁打開出現360極速模式

java mybaits 鏈接sql server 出現連接已關閉的問題

https://yachay.unat.edu.pe/blog/index.php?comment_area=format_blog&comment_component=blog&comment_co

linux以太網驅動總結