Автоматизированная система управления медицинского страхования
Дипломная работа - Компьютеры, программирование
Другие дипломы по предмету Компьютеры, программирование
etslistwhereslname=@name)end";_mdf.ExecuteNonQuery();">{_dbf.CommandText = "(select name from street where name order by ul)";_dbf = cmd_dbf.ExecuteReader();_mdf.CommandText = "if object_id(select_street) is not null drop function select_street";_mdf.ExecuteNonQuery();_mdf.CommandText = "create function select_street(@name varchar(50)) returns int as begin return (select count(slname) from streetslist where slname=@name) end";_mdf.ExecuteNonQuery();
//Процедура добавления улицы_mdf.CommandText = "if object_id(streetslist_insert) is not null drop procedure streetslist_insert";_mdf.ExecuteNonQuery();_mdf.CommandText = "create procedure streetslist_insert @street varchar(50) as begin if(dbo.select_street(@street)=0) insert into streetslist (slname) values (@street) end";_mdf.ExecuteNonQuery();(rdr_dbf.Read())
{
{
//вызов хранимой процедуры для добавления записи_mdf.CommandText = string.Format("exec streetslist_insert {0}", rdr_dbf["name"].ToString());_mdf.ExecuteNonQuery();
}
{ }
}_dbf.Close();
}
//Извлекаем категории застрахованныхextract_insured_categories()
orderbyname";_dbf=cmd_dbf.ExecuteReader();_mdf.CommandText="ifobject_id(select_insured_categories)isnotnulldropfunctionselect_insured_categories";_mdf.ExecuteNonQuery();_mdf.CommandText="createfunctionselect_insured_categories(@namevarchar(70))returnsintasbeginreturn(selectcount(icname)frominsuredcategorieswhereicname=@name)end";_mdf.ExecuteNonQuery();_mdf.CommandText="ifobject_id(insured_categories_insert)isnotnulldropprocedureinsured_categories_insert";_mdf.ExecuteNonQuery();_mdf.CommandText="createprocedureinsured_categories_insert@categvarchar(70)asbeginif(dbo.select_insured_categories(@categ)=0)insertintoinsuredcategories(icname)values(@categ)end";_mdf.ExecuteNonQuery();(rdr_dbf.Read())">{_dbf.CommandText = "select distinct name from kateg where name<> order by name";_dbf = cmd_dbf.ExecuteReader();_mdf.CommandText = "if object_id(select_insured_categories) is not null drop function select_insured_categories";_mdf.ExecuteNonQuery();_mdf.CommandText = "create function select_insured_categories(@name varchar(70)) returns int as begin return (select count(icname) from insuredcategories where icname=@name) end";_mdf.ExecuteNonQuery();_mdf.CommandText = "if object_id(insured_categories_insert) is not null drop procedure insured_categories_insert";_mdf.ExecuteNonQuery();_mdf.CommandText = "create procedure insured_categories_insert @categ varchar(70) as begin if(dbo.select_insured_categories(@categ)=0) insert into insuredcategories (icname) values (@categ) end";_mdf.ExecuteNonQuery();(rdr_dbf.Read())
{
{
//вызов хранимой процедуры для добавления записи_mdf.CommandText =string.Format("exec insured_categories_insert {0}",rdr_dbf["name"].ToString());_mdf.ExecuteNonQuery();
}
{ }
}_dbf.Close();
}
//Извлекаем категории ЛПУextract_lpu_categories()
orderbyname";_dbf=cmd_dbf.ExecuteReader();_mdf.CommandText="ifobject_id(select_lpu_categories)isnotnulldropfunctionselect_lpu_categories";_mdf.ExecuteNonQuery();_mdf.CommandText="createfunctionselect_lpu_categories(@namevarchar(15))returnsintasbeginreturn(selectcount(lcname)fromlpucategorieswherelcname=@name)end";_mdf.ExecuteNonQuery();_mdf.CommandText="ifobject_id(lpu_categories_insert)isnotnulldropprocedurelpu_categories_insert";_mdf.ExecuteNonQuery();_mdf.CommandText="createprocedurelpu_categories_insert@categvarchar(15)asbeginif(dbo.select_lpu_categories(@categ)=0)insertintolpucategories(lcname)values(@categ)end";_mdf.ExecuteNonQuery();(rdr_dbf.Read())">{_dbf.CommandText = "select distinct name from klpu where name<> order by name";_dbf = cmd_dbf.ExecuteReader();_mdf.CommandText = "if object_id(select_lpu_categories) is not null drop function select_lpu_categories";_mdf.ExecuteNonQuery();_mdf.CommandText = "create function select_lpu_categories(@name varchar(15)) returns int as begin return (select count(lcname) from lpucategories where lcname=@name) end";_mdf.ExecuteNonQuery();_mdf.CommandText = "if object_id(lpu_categories_insert) is not null drop procedure lpu_categories_insert";_mdf.ExecuteNonQuery();_mdf.CommandText = "create procedure lpu_categories_insert @categ varchar(15) as begin if(dbo.select_lpu_categories(@categ)=0) insert into lpucategories (lcname) values (@categ) end";_mdf.ExecuteNonQuery();(rdr_dbf.Read())
{
{
//вызов хранимой процедуры для добавления записи_mdf.CommandText = string.Format("exec lpu_categories_insert {0}",rdr_dbf["name"].ToString());_mdf.ExecuteNonQuery();
}
{ }
}_dbf.Close();
}
//Извлекаем типы документовextract_documents()
orderbyname";_dbf=cmd_dbf.ExecuteReader();_mdf.CommandText="ifobject_id(select_document)isnotnulldropfunctionselect_document";_mdf.ExecuteNonQuery();_mdf.CommandText="createfunctionselect_document(@namevarchar(50))returnsintasbeginreturn(selectcount(docname)fromdocumentwheredocname=@name)end";_mdf.ExecuteNonQuery();_mdf.CommandText="ifobject_id(documents_insert)isnotnulldropproceduredocuments_insert";_mdf.ExecuteNonQuery();_mdf.CommandText="createproceduredocuments_insert@docvarchar(50)asbeginif(dbo.select_document(@doc)=0)insertintodocument(docname)values(@doc)end";_mdf.ExecuteNonQuery();(rdr_dbf.Read())">{_dbf.CommandText = "select distinct name from tpdoc where name<> order by name";_dbf = cmd_dbf.ExecuteReader();_mdf.CommandText = "if object_id(select_document) is not null drop function select_document";_mdf.ExecuteNonQuery();_mdf.CommandText = "create function select_document(@name varchar(50)) returns int as begin return (select count(docname) from document where docname=@name) end";_mdf.ExecuteNonQuery();_mdf.CommandText = "if object_id(documents_insert) is not null drop procedure documents_insert";_mdf.ExecuteNonQuery();_mdf.CommandText = "create procedure documents_insert @doc varchar(50) as begin if(dbo.select_document(@doc)=0) insert into document (docname) values (@doc) end";_mdf.ExecuteNonQuery();(rdr_dbf.Read())
{
{
//вызов хранимой процедуры для добавления записи_mdf.CommandText = string.Format("exec documents_insert {0}", rdr_dbf["name"].ToString());_mdf.ExecuteNonQuery();
}
{ }
}_dbf.Close();
}
//Извлекаем категории социального положенияextract_social_status()
orderbyname";_dbf=cmd_dbf.ExecuteReader();_mdf.CommandText="ifobject_id(select_social_status)isnotnulldropfunctionselect_social_status";_mdf.ExecuteNonQuery();_mdf.CommandText="createfunctionselect_social_status(@namevarchar(40))returnsintasbeginreturn(selectcount(ssname)fromsocialstatuswheressname=@name)end";_mdf.ExecuteNonQuery();_mdf.CommandText="ifobject_id(social_status_insert)isnotnulldropproceduresocial_status_insert";_mdf.ExecuteNonQuery();_mdf.CommandText="createproceduresocial_status_insert@socialvarchar(40),@sscategoryvarchar(25)asbeginif(dbo.select_social_status(@social)=0)insertintosocialstatus(ssname,sscategory)values(@social,@sscategory)end";_mdf.ExecuteNonQuery();category="";//:/(rdr_dbf.Read())">{_dbf.CommandText = "select distinct name from socpol where name<> order by name";_dbf = cmd_dbf.ExecuteReader();_mdf.CommandText = "if object_id(select_social_status) is not null drop function select_social_status";_mdf.ExecuteNonQuery();_mdf.CommandText = "create function select_social_status(@name varchar(40)) returns int as begin return (select count(ssname) from socialstatus where ssname=@name) end";_mdf.ExecuteNonQuery();_mdf.CommandText = "if object_id(social_status_insert) is not null drop procedure social_status_insert";_mdf.ExecuteNonQuery();_mdf.CommandText = "create procedure social_status_insert @social varchar(40),@sscategory varchar(25) as begin if(dbo.select_social_sta