untry raquo ;; command2=new SqlCommand (query2, conn); reader2 =command2.ExecuteReader () ;. Close (); query3=@ exec Update_gender raquo ;; command3=new SqlCommand (query3, conn); reader3=command3.ExecuteReader () ;. Close (); query4=@ exec Update_region raquo ;; command4=new SqlCommand (query4, conn); reader4=command4.ExecuteReader () ;. Close (); query6=@ exec blacklist raquo ;; command6=new SqlCommand (query6, conn); reader6=command6.ExecuteReader () ;. Close (); query5=@ exec update_main raquo ;; command5=new SqlCommand (query5, conn); reader5=command5.ExecuteReader () ;. Close (); query7=@ exec update_text raquo ;; command7 =new SqlCommand (query7, conn); reader7=command7.ExecuteReader () ;. Close (); query8=@ SELECT Email, MessageText from Request1 where Message= NO raquo ;; command8=new SqlCommand (query8, conn); reader8=command8.ExecuteReader (); (reader8.Read ())
{= (string) reader8 [ Email ];=(string) reader8 [ MessageText ];
//Адреса SMTP-сервераsmtpHost= mx.bmstu raquo ;;
//Порт SMTP-сервераsmtpPort=25;
//ЛогінsmtpUserName= universitybank@mailraquo ;;
//ПарольsmtpUserPass= university2011 raquo ;;
//Створення подключеніяclient=new SmtpClient (smtpHost, smtpPort) ;. Credentials=new NetworkCredential (smtpUserName, smtpUserPass);
//Адреса для поля Від msgFrom= UniversityBank@mailraquo ;;
//Адреса для поля Кому (адреса одержувача) msgTo=Email; .WriteLine (msgTo);
//Тема пісьмаmsgSubject= Заявка на кредит в UniversityBank raquo ;;
//Текст пісьмаmsgBody=MessageText; message=new MailMessage (msgFrom, msgTo, msgSubject, msgBody);
{
//Відсилаємо сообщеніе.Send (message);
} (SmtpException ex)
{
//У випадку помилки при відсилання повідомлення можемо побачити, в чому проблема.WriteLine (ex.InnerException.Message.ToString ());
}?
}. Close (); query9=@ Update Request1 set Message= YES where Message= NO raquo ;; command9=new SqlCommand (query9, conn); reader9=command9.ExecuteReader () ;. Close () ;. Close ();
}
}
}
Процедури перерахунку параметрів, прийняття рішення, збережені в базі даних
Процедура порівняння даних користувача з чорним списком
Виконуваний код процедури описаний у файлі dbo.blacklist
CREATE PROCEDURE dbo.blacklist As @ cursor CURSORc CURSOR FORID FROM Request1 where Offer=null @ ID int @ Secname VarChar (20)Firstname VarChar (20)Thirdname VarChar (20)Bdate VarChar ( 20)black VarChar (20)cursor=c @ cursornext fromcursor intoID (@@FETCH_STATUS=0) BEGIN @ Secname=Cast ((select Secname from Request1 Where ID =ID) As Char)Firstname= Cast ((select Firstname from Request1 Where ID =ID) As Char)Thirdname=Cast ((select Thirdname from Request1 Where ID =ID) As Char)Bdate=Cast ((select Bdate from Request1 Where ID =ID ) As Char)black=Cast ((Select count (*) from His_blacklist where SecondName =Secname and FirstName =Firstname and ThirdName =Thirdname and BirthDate =Bdate) As Char)black=1Request1 Set Offer= NO Where ID =IDnext fromcursor into @ ID @ CURSOR @ CURSORc
. 3.1.1 Процедура перерахунку вагових коефіцієнтів, пов'язаних з роком народження
Виконуваний код процедури описаний у файлі dbo.update_ayear
CREATE PROCEDURE dbo.update_ayear@cursor CURSORc CURSOR FORID FROM Ayear @ ID int @ Weight VarChar (20)OldWeight VarChar (20)MidWeight VarChar (20)cursor=c @ Weight=null @ OldWeight=null @ cursornext fromcursor intoID (@@FETCH_STATUS=0) BEGIN @ OldWeight=Cast ((select weight from Ayear Where ID =ID) As Char)Weight=Cast ((select sum (Category) from His_customer where Year (BirthDate)=(Select AyearNM FROM Ayear Where ID =ID))/(select count (*) from His_customer where Year (BirthDate)=(Select AyearNM FROM Ayear Where ID =ID)) As Char) ( (Weight!=null) and (OldWeight!=null)) @ MidWeight=Cast (ROUND (((ABS (Weight) + ABS (OldWeight))/2), 0) As Char)OldWeight=NULLAyear Set Weight =Weight Where ID=@ ID @ Weight=NULLAyear Set Weight =OldWeight Where ID =IDnext fromcursor into @ ID @ CURSOR @ CURSORc
Процедура перерахунку вагових коефіцієнтів, пов'язаних з громадянством
Виконуваний код процедури описаний у файлі dbo.update_fvcountry
CREATE PROCEDURE dbo.update_fvcountry@cursor CURSORc CURSOR FORID FROM Fvcountry @ ID int @ Weight VarChar (20)OldWeight VarChar (20)MidWeight VarChar (20)cursor=c @ Weight=null @ OldWeight=null @ cu...
