VB医院管理系统毕业论文 第10页
}
catch(Exception e)
{
WriteMessage(e.Message.ToString(),true,true);
}
finally
{
Close();
Dispose();
}
return RecordCount;
}
//执行有返回植的函数
2、门诊医生
主要包括处方管理、电子病历、处方查询/统计/文护、病历查询/统计/文护。图4-9为处方管理的界面图,功能是医生开电子处方,电子处方在很多医院已经开始使用但是很多医院还没有开始使用。可以为挂号者开处方,不挂号者也可以开处方。选取挂号单号可以自动获取患者信息。
图4-9处方管理
图4-10为多条件组合查询,后面系统所有的查询都是如此,可以方便用户使用多个条件组合查询,上面的查询条件用户可以根据需要任意进行组合。当用户选择了条件前面checkbox对应的条件才可以输入内容。
图4-10处方组合条件查询
多条件组合查询主要适应用了sql语句的通配符“%”,可以匹配数据库中除了NULL以外的任何值。查询按钮代码如下:
protected void bindData()
{
string cfys="";string cfks="";string cfsj1="";string cfsj2="";string bh="";string xm="";
//编号
if(cbh.Checked)
{
bh=tbh.Text.ToString().Trim();
}
else
bh="%";
//姓名
if(cxm.Checked)
{
xm=txm.Text.ToString().Trim();
}
else
xm="%";
//选者了科室和挂号医生
if(cys.Checked)
{
cfys=dys.SelectedItem.Text.Trim();
}
else
cfys="%";
//选择了挂号科室
if(cks.Checked)
{
cfks=dks.SelectedItem.Text.Trim();
}
else
cfks="%";
//选者了起时间
if(csj1.Checked)
{
cfsj1=tsj1.Text.ToString().Trim();
}
else
cfsj1="%";
//选者止时间
if(csj2.Checked)
{
cfsj2=tsj2.Text.ToString().Trim();
}
else
cfsj2="%";
//显示检索到的所有纪录
Mzys admin1=new Mzys();
if (csj1.Checked==true && csj2.Checked==false)
{
admin1.Cfongji1(cfks,cfsj1,cfys,bh,xm,DataGrid1);
//显示总纪录数,总金额
TextBox1.Text=admin1.Cftji1(cfks,cfsj1,cfys,bh,xm).ToString()+"条记录";
if (admin1.Cftji1(cfks,cfsj1,cfys,bh,xm)>0 || admin1.Cftgji2(cfks,cfsj1,cfsj2,cfys,bh,xm)>0)
{
TextBox2.Text=admin1.Cftgji3(cfks,cfsj1,cfys,bh,xm).ToString()+"元";
}
else
TextBox2.Text="0.000元";
}
else if (csj1.Checked==false && csj2.Checked==true)
{
admin1.Cfongji1(cfks,cfsj2,cfys,bh,xm,DataGrid1);
//显示总纪录数,总金额
TextBox1.Text=admin1.Cftji1(cfks,cfsj1,cfys,bh,xm).ToString()+"条记录";
if (admin1.Cftji1(cfks,cfsj1,cfys,bh,xm)>0 || admin1.Cftgji2(cfks,cfsj1,cfsj2,cfys,bh,xm)>0)
{
TextBox2.Text=admin1.Cftgji3(cfks,cfsj1,cfys,bh,xm).ToString()+"元";
}
else
TextBox2.Text="0.000元";
}
else if (csj1.Checked==false && csj2.Checked==false)
{
admin1.Cfongji1(cfks,cfsj2,cfys,bh,xm,DataGrid1);
//显示总纪录数,总金额
TextBox1.Text=admin1.Cftji1(cfks,cfsj1,cfys,bh,xm).ToString()+"条记录";
if (admin1.Cftji1(cfks,cfsj1,cfys,bh,xm)>0 || admin1.Cftgji2(cfks,cfsj1,cfsj2,cfys,bh,xm)>0)
{
TextBox2.Text=admin1.Cftgji3(cfks,cfsj1,cfys,bh,xm).ToString()+"元";
上一页 [1] [2] [3] [4] [5] [6] [7] [8] [9] [10] ... 下一页 >>
VB医院管理系统毕业论文 第10页下载如图片无法显示或论文不完整,请联系qq752018766