Автоматизированная система управления медицинского страхования
Дипломная работа - Компьютеры, программирование
Другие дипломы по предмету Компьютеры, программирование
>//Процедура добавления отчества_mdf.CommandText = "if object_id(second_names_insert) is not null drop procedure second_names_insert";_mdf.ExecuteNonQuery();_mdf.CommandText = "create procedure second_names_insert @sname varchar(20) as begin if(dbo.select_second_name(@sname)=0) insert into secondnames (snname) values (@sname) end";_mdf.ExecuteNonQuery();(rdr_dbf.Read())
{
{
//вызов хранимой процедуры для добавления записи_mdf.CommandText = string.Format("exec second_names_insert {0}", rdr_dbf["name"].ToString());_mdf.ExecuteNonQuery();
}
{ }
}_dbf.Close();
}
//Извлекаем список уточнений предприятияextract_list_specifications()
andcode order by name";_dbf = cmd_dbf.ExecuteReader();_mdf.CommandText = "if object_id(select_list_specifications) is not null drop function select_list_specifications";_mdf.ExecuteNonQuery();_mdf.CommandText = "create function select_list_specifications(@name varchar(25)) returns int as begin return(select count(slname) from specificationslist where slname=@name) end";_mdf.ExecuteNonQuery();_mdf.CommandText = "if object_id(list_specifications_insert) is not null drop procedure list_specifications_insert";_mdf.ExecuteNonQuery();_mdf.CommandText = "create procedure list_specifications_insert @id char(1), @specific varchar(25) as begin if(dbo.select_list_specifications(@specific)=0) insert into specificationslist (slid,slname) values (@id,@specific) end";_mdf.ExecuteNonQuery();(rdr_dbf.Read())
{
{
//вызов хранимой процедуры для добавления записи_mdf.CommandText = string.Format("exec list_specifications_insert {0},{1}", rdr_dbf["code"].ToString().Trim(), rdr_dbf["name"].ToString());_mdf.ExecuteNonQuery();
}{ }
}_dbf.Close();
}
//Извлекаем классификаторы типов договораextract_type_class()
orderbyname";_dbf=cmd_dbf.ExecuteReader();_mdf.CommandText="ifobject_id(select_type_class)isnotnulldropfunctionselect_type_class";_mdf.ExecuteNonQuery();_mdf.CommandText="createfunctionselect_type_class(@namevarchar(50))returnsintasbeginreturn(selectcount(ctname)fromclasstypewherectname=@name)end";_mdf.ExecuteNonQuery();_mdf.CommandText="ifobject_id(type_class_insert)isnotnulldropproceduretype_class_insert";_mdf.ExecuteNonQuery();_mdf.CommandText="createproceduretype_class_insert@typevarchar(50)asbeginif(dbo.select_type_class(@type)=0)insertintoclasstype(ctname)values(@type)end";_mdf.ExecuteNonQuery();(rdr_dbf.Read())">{ _dbf.CommandText = "select distinct name from sltipdog where name<> order by name";_dbf = cmd_dbf.ExecuteReader();_mdf.CommandText = "if object_id(select_type_class) is not null drop function select_type_class";_mdf.ExecuteNonQuery();_mdf.CommandText = "create function select_type_class(@name varchar(50)) returns int as begin return(select count(ctname) from classtype where ctname=@name) end";_mdf.ExecuteNonQuery();_mdf.CommandText = "if object_id(type_class_insert) is not null drop procedure type_class_insert";_mdf.ExecuteNonQuery();_mdf.CommandText = "create procedure type_class_insert @type varchar(50) as begin if(dbo.select_type_class(@type)=0) insert into classtype (ctname) values (@type) end";_mdf.ExecuteNonQuery();(rdr_dbf.Read())
{
{
//вызов хранимой процедуры для добавления записи_mdf.CommandText = string.Format("exec type_class_insert {0}",rdr_dbf["name"].ToString());_mdf.ExecuteNonQuery();
}
{ }
}_dbf.Close();
}
//Извлекаем список регионов/районов/населённых пунктовextract_cadastr()
{request = "";//строка запроса_dbf.CommandText = "select code,name from region order by code";_dbf = cmd_dbf.ExecuteReader();
//Функция проверки наличия региона в базе данных_mdf.CommandText = "if object_id(select_region) is not null drop function select_region";_mdf.ExecuteNonQuery();_mdf.CommandText = "create function select_region(@name varchar(50)) returns int as begin return (select count(rname) from regions where rname=@name) end";_mdf.ExecuteNonQuery();
//Функция проверки наличия района в базе данных_mdf.CommandText = "if object_id(select_area) is not null drop function select_area";_mdf.ExecuteNonQuery();_mdf.CommandText = "create function select_area(@code int,@name varchar(50)) returns int as begin return (select count(aname) from areas where aname=@name and aid=@code) end";_mdf.ExecuteNonQuery();
//Функция проверки наличия населённого пункта в базе данных_mdf.CommandText = "if object_id(select_occupieditem) is not null drop function select_occupieditem";_mdf.ExecuteNonQuery();_mdf.CommandText = "create function select_occupieditem(@code int,@name varchar(50)) returns int as begin return (select count(oiname) from occupieditem where oiname=@name and oiid=@code) end";_mdf.ExecuteNonQuery();
6) if (dbo.select_occupieditem(@code,@name)=0) insert into occupieditem (oiid,oiname,aid) values (@code,@name,substring(@code,1,6)) ";+= "end";_mdf.CommandText = request;_mdf.ExecuteNonQuery();(rdr_dbf.Read())">//Процедура добавления регион/район/населённый пункт_mdf.CommandText = "if object_id(cadastr_insert) is not null drop procedure cadastr_insert";_mdf.ExecuteNonQuery();= "create procedure cadastr_insert ";+= "@code varchar(10),@name varchar(50) as ";+= "begin ";+= "declare @length int set @length=len(@code) ";+= "if ((@length=3) and (substring(@code,1,1)=0)) if (dbo.select_region(@name)=0) insert into regions (rid,rname) values (@code,@name) ";+= "if (@length=6) if (dbo.select_area(@code,@name)=0) insert into areas (aid,aname,rid) values (@code,@name,substring(@code,1,3)) ";+= "if (@length>6) if (dbo.select_occupieditem(@code,@name)=0) insert into occupieditem (oiid,oiname,aid) values (@code,@name,substring(@code,1,6)) ";+= "end";_mdf.CommandText = request;_mdf.ExecuteNonQuery();(rdr_dbf.Read())
{
{
//вызов хранимой процедуры для добавления записи_mdf.CommandText = string.Format("exec cadastr_insert {0},{1}",rdr_dbf["code"].ToString(),rdr_dbf["name"].ToString().Replace("",""));_mdf.ExecuteNonQuery();
}
{ }
}_dbf.Close();
}
//Устанавливаем возрастное положениеinsert_age()
{[] age_str ={ "Взрослое население", "Детское население", "Взрослое и детское население" };_mdf.CommandText = "if object_id(select_age) is not null drop function select_age";_mdf.ExecuteNonQuery();_mdf.CommandText = "create function select_age(@name varchar(50)) returns int as begin return (select count(caname) from citizensage where caname=@name) end";_mdf.ExecuteNonQuery();_mdf.CommandText = "if object_id(age_insert) is not null drop procedure age_insert";_mdf.ExecuteNonQuery();_mdf.CommandText = "create procedure age_insert @status varchar(50) as begin if(dbo.select_age(@status)=0) insert into citizensage (caname) values (@status) end";_mdf.ExecuteNonQuery();(int i = 0; i < 3; i++)
{
{
//вызов хранимой процедуры для добавления записи_mdf.CommandText = string.Format("exec age_insert {0}",age_str[i]);_mdf.ExecuteNonQuery();
}
{ }
}
}
//Извлекаем список страховых организацийextract_smo()
{requ