实现医生工作站的疾病档案功能的代码（十五）

实现医生工作站的疾病档案功能的代码（十五）

3.2.11疾病档案

3.2.11.1疾病档案主界面

同样的疾病档案也是提供给医生做参考和调用的，当医生判断出病人的病时可以再此调用疾病档案，这样就不用医生手动输入可以大大医生提高看病的效率。这里直接调用避免了医生在紧急时会输入错误的信息。

主界面截图：



[align=left] [/align]

3.2.11.1（图1）
从界面上可以看到我们这里用到的控件有：

控件名称	说明
按钮控件button	第一要设置每个控件的Text，第二设置控件Name；不同的是dataGridView右键进行编辑列。
表格控件dataGridView
条形工具控件toolStrip

查询功能实现：

第一步：数据库

1、 表与关系




[align=left] [/align]

3.2.11.1（图2）
表1：疾病表(BT_DiseaseTable)

列名	数据类型	主键/外键	说明
DiseaseID	int - Identity	主键	疾病ID
DiseaseNumber	nchar (30)		疾病编号
DiseaseName	nchar (50)		疾病名称
DiseaseExplain	nchar (150)		疾病说明
WhetherEffective	bit		有效否

功能代码：
（1）、存储过程代码：

--查询疾病档案
IF(@Type='FRM_JiBingDangAn_Load_ChaXunJiBingDangAn')
BEGIN
SELECT    LTRIM (RTRIM(DiseaseID)) AS DiseaseID,
LTRIM (RTRIM(DiseaseNumber))AS DiseaseNumber,
LTRIM (RTRIM(DiseaseName))AS DiseaseName,
LTRIM (RTRIM(DiseaseExplain))AS DiseaseExplain
FROM         BT_DiseaseTable
END

（2）、逻辑层代码：

[OperationContract]
#region 查询疾病档案
public DataSet FRM_JiBingDangAn_Load_ChaXunJiBingDangAn()
{
SqlParameter[] SQLCMDpas ={
new  SqlParameter ("@Type",SqlDbType.Char),
};
SQLCMDpas[0].Value = "FRM_JiBingDangAn_Load_ChaXunJiBingDangAn";
DataTable myDataTable = myDALMethod.QueryDataTable("YiShengGongZuoZhan_FRM_JiBingDangAn", SQLCMDpas);
DataSet myDataSet = new DataSet();
myDataSet.Tables.Add(myDataTable);
return myDataSet;
}
#endregion

（3）、界面层代码：

#region FRM_JiBingDangAn_Load事件
private void FRM_JiBingDangAn_Load(object sender, EventArgs e)
{
dgvJiBingDangAn.DataSource = myFRM_JiBingDangAnClient.FRM_JiBingDangAn_Load_ChaXunJiBingDangAn().Tables[0];//查询疾病档案
dgvJiBingDangAn.ClearSelection();//清空默认选行。
}
#endregion

删除疾病档案
（1）、存储过程代码：

--删除疾病档案
IF(@Type='btnShanChu_Click_ShanChuJiBingDangAn')
BEGIN
DELETE BT_DiseaseTable
WHERE  BT_DiseaseTable.DiseaseID =@DiseaseID
END

（2）、逻辑层代码：

[OperationContract]
#region 删除疾病模板
public int btnShanChu_Click_ShanChuJiBingDangAn(int intDiseaseID)
{
SqlParameter[] SQLCMDpas ={
new  SqlParameter ("@Type",SqlDbType.Char),
new  SqlParameter ("@DiseaseID",SqlDbType.Int),
};
SQLCMDpas[0].Value = "btnShanChu_Click_ShanChuJiBingDangAn";
SQLCMDpas[1].Value = intDiseaseID;
int count = myDALMethod.UpdateData("YiShengGongZuoZhan_FRM_JiBingDangAn", SQLCMDpas);
return count;
}
#endregion

（3）、界面层代码：

#region 删除事件
private void tsbtnDelete_Click(object sender, EventArgs e)
{
if (dgvJiBingDangAn.CurrentRow != null)//判断疾病档案数据不为空
{
int DiseaseID;//声明疾病档案ID
DiseaseID = Convert.ToInt32(dgvJiBingDangAn.CurrentRow.Cells["疾病档案ID"].Value);//获取所点击的行的疾病档案ID
if (DiseaseID != 0)//档疾病档案ID不为0
{
myFRM_JiBingDangAnClient.btnShanChu_Click_ShanChuJiBingDangAn(DiseaseID);//执行删除事件
dgvJiBingDangAn.DataSource = myFRM_JiBingDangAnClient.FRM_JiBingDangAn_Load_ChaXunJiBingDangAn().Tables[0];//刷新界面数据
MessageBox.Show("疾病档案删除成功！");
}
}
else
{
MessageBox.Show("没有可供删除的疾病档案！");
}
}
#endregion

3.2.11.2新增疾病档案

医生可以在此进行疾病档案的编写。

新增疾病档案截图：



[align=left] [/align]

3.2.11.2（图1）
功能代码
新增疾病档案
（1）、存储过程代码：

--新增疾病档案
IF(@Type='btnBaoCun_Click_XinZengJiBingDangAn')
BEGIN
BEGIN TRAN
INSERT    BT_DiseaseTable(DiseaseNumber, DiseaseName, DiseaseExplain)
VALUES      (@DiseaseNumber, @DiseaseName, @DiseaseExplain)
SELECT @@IDENTITY
COMMIT TRAN
END

（2）、逻辑层代码：

[OperationContract]
#region 新增疾病档案
public int btnBaoCun_Click_XinZengJiBingDangAn(string DiseaseNumber, string DiseaseName, string DiseaseExplain)
{
SqlParameter[] SQLCMDpas ={
new  SqlParameter ("@Type",SqlDbType.Char),
new  SqlParameter ("@DiseaseNumber",SqlDbType.Char),
new  SqlParameter ("@DiseaseName",SqlDbType.Char),
new  SqlParameter ("@DiseaseExplain",SqlDbType.Char),
};
SQLCMDpas[0].Value = "btnBaoCun_Click_XinZengJiBingDangAn";
SQLCMDpas[1].Value = DiseaseNumber;
SQLCMDpas[2].Value = DiseaseName;
SQLCMDpas[3].Value = DiseaseExplain;
int count = myDALMethod.UpdateData("YiShengGongZuoZhan_FRM_JiBingDangAn", SQLCMDpas);
return count;
}
#endregion

（3）、界面层代码：

#region 新增保存事件
private void btnBaoCun_Click(object sender, EventArgs e)
{
if (txtDiseaseNumber.Text != "" && txtDiseaseName.Text != "" && rTxtDiseaseExplain.Text != "")//判断界面控件数据不为空
{
string strDiseaseNumber = txtDiseaseNumber.Text.ToString().Trim();//把疾病编号控件的数据赋值给声明的疾病编号变量
string strDiseaseName = txtDiseaseName.Text.ToString().Trim();//把疾病名称控件的数据赋值给声明的疾病名称变量
string strDiseaseExplain = rTxtDiseaseExplain.Text.ToString().Trim();//把疾病说明控件的数据赋值给声明的疾病说明变量

int count = myFRM_JiBingDangAnClient.btnBaoCun_Click_XinZengJiBingDangAn(strDiseaseNumber, strDiseaseName, strDiseaseExplain);//声明一个整形变量count，是用来判断是否新增疾病档案成功。执行新增疾病档案事件
if (count > 0)//整形变量count大于0表示新增数据成功
{
MessageBox.Show("成功新增疾病档案！");
this.Close();//关闭当前窗体
}
}
else
{
MessageBox.Show("疾病档案的信息还没填完，请继续。。。");
}
}
#endregion

3.2.11.3修改疾病档案

医生可以再此对错误的疾病档案进行修改。

修改疾病档案截图：



[align=left] [/align]

3.2.11.3（图1）
修改疾病档案
（1）、存储过程代码：

--修改疾病档案
IF(@Type='btnBaoCun_Click_XiuGaiJiBingDangAn')
BEGIN
UPDATE BT_DiseaseTable
SET    DiseaseNumber=@DiseaseNumber, DiseaseName=@DiseaseName, DiseaseExplain=@DiseaseExplain
WHERE  BT_DiseaseTable.DiseaseID =@DiseaseID
END

（2）、逻辑层代码：

[OperationContract]
#region 修改疾病档案
public int btnBaoCun_Click_XiuGaiJiBingDangAn(string strDiseaseNumber, string strDiseaseName, string strDiseaseExplain, int intDiseaseID)
{
SqlParameter[] SQLCMDpas ={
new  SqlParameter ("@Type",SqlDbType.Char),
new  SqlParameter ("@DiseaseNumber",SqlDbType.Char),
new  SqlParameter ("@DiseaseName",SqlDbType.Char),
new  SqlParameter ("@DiseaseExplain",SqlDbType.Char),
new  SqlParameter ("@DiseaseID",SqlDbType.Int),
};
SQLCMDpas[0].Value = "btnBaoCun_Click_XiuGaiJiBingDangAn";
SQLCMDpas[1].Value = strDiseaseNumber;
SQLCMDpas[2].Value = strDiseaseName;
SQLCMDpas[3].Value = strDiseaseExplain;
SQLCMDpas[4].Value = intDiseaseID;
int count = myDALMethod.UpdateData("YiShengGongZuoZhan_FRM_JiBingDangAn", SQLCMDpas);
return count;
}
#endregion

（3）、界面层代码：

#region Load事件
private void FRM_JiBingDangAn_Update_Load(object sender, EventArgs e)
{
#region 绑定界面控件数据
txtDiseaseNumber.Text = DGVR.Cells["疾病编号"].Value.ToString().Trim();
txtDiseaseName.Text = DGVR.Cells["疾病名称"].Value.ToString().Trim();
rTxtDiseaseExplain.Text = DGVR.Cells["疾病说明"].Value.ToString().Trim();
#endregion
}
#endregion
#region 保存修改事件
private void btnBaoCun_Click(object sender, EventArgs e)
{
if (txtDiseaseNumber.Text != "" && txtDiseaseName.Text != "" && rTxtDiseaseExplain.Text != "")//判断界面控件数据不为空
{
string strDiseaseNumber = txtDiseaseNumber.Text.ToString().Trim();//把疾病编号控件的数据赋值给声明的疾病编号变量
string strDiseaseName = txtDiseaseName.Text.ToString().Trim();//把疾病名称控件的数据赋值给声明的疾病名称变量
string strDiseaseExplain = rTxtDiseaseExplain.Text.ToString().Trim();//把疾病说明控件的数据赋值给声明的疾病说明变量
int intDiseaseID = Convert.ToInt32(DGVR.Cells["疾病档案ID"].Value);// //把界面传的疾病档案ID值的数据赋值给声明的疾病档案ID变量

myFRM_JiBingDangAnClient.btnBaoCun_Click_XiuGaiJiBingDangAn(strDiseaseNumber, strDiseaseName, strDiseaseExplain, intDiseaseID); //执行修改疾病档案事件
MessageBox.Show("成功修改疾病档案！");
this.Close();//关闭当前窗体
}
else
{
MessageBox.Show("修改档案的信息出错，请继续。。。");
}
}
#endregion

仅供学习，禁止用于商业用途。

幸福不应是对未来的憧憬，而是对当下的构思。----吉米·罗恩