Проектирование схемы БД в среде ERwin. Проблема избыточности данных. Проблема обновления данных. Проблема удаления данных., страница 20

Response.Redirect("no_tarif_srv.aspx")

Else

If checkcommand.Parameters("num3").Value = 0 Then

Response.Redirect("no_money1.aspx")

Else

If checkcommand.Parameters("num2").Value = 1 Then

Response.Redirect("periodic_error.aspx")

Else

If checkcommand.Parameters("quan").Value = 0 Then

Response.Redirect("store_error.aspx")

Else

Response.Redirect("successful_creating.aspx")

End If

End If

End If

End If

End If

End If

End Sub

Private Sub DropDownList4_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DropDownList4.SelectedIndexChanged

End Sub

End Class

Листинг некоторых триггеров закладки Контракты формы КЛИЕНТЫ

Кнопка “Создать”  (when-button-pressed)

declare 

data1 date;  con number;    but Item;

field Item;

begin

but:=Find_Item('CONTRACT.PRE_CONTRACT'); set_item_property(but,ENABLED,PROPERTY_FALSE); but:=Find_Item('CONTRACT.NEXT_CONTRACT'); set_item_property(but,ENABLED,PROPERTY_FALSE); but:=Find_Item('CONTRACT.EXECUTE_QUERY'); set_item_property(but,ENABLED,PROPERTY_FALSE); but:=Find_Item('CONTRACT.ENTER_QUERY'); set_item_property(but,ENABLED,PROPERTY_FALSE); but:=Find_Item('CONTRACT.DELETE_CONTRACT'); set_item_property(but,ENABLED,PROPERTY_FALSE); but:=Find_Item('CONTRACT.CHANGE_CONTRACT'); set_item_property(but,ENABLED,PROPERTY_FALSE); GO_ITEM('CONTRACT.CONTRACT'); but:=Find_Item('CONTRACT.CREATE_CONTRACT');

set_item_property(but,ENABLED,PROPERTY_FALSE);

field:=Find_Item('CONTRACT.SIRNAME');

set_item_property(field,INSERT_ALLOWED,PROPERTY_TRUE);  field:=Find_Item('CONTRACT.FNAME');

set_item_property(field,INSERT_ALLOWED,PROPERTY_TRUE); field:=Find_Item('CONTRACT.SNAME'); set_item_property(field,INSERT_ALLOWED,PROPERTY_TRUE); field:=Find_Item('CONTRACT.NAMEORG');

set_item_property(field,INSERT_ALLOWED,PROPERTY_TRUE);   field:=Find_Item('CONTRACT.PHONE');  set_item_property(field,INSERT_ALLOWED,PROPERTY_TRUE);

set_item_property(field,UPDATE_ALLOWED,PROPERTY_TRUE);

field:=Find_Item('CONTRACT.ADDRESS');

set_item_property(field,INSERT_ALLOWED,PROPERTY_TRUE);  set_item_property(field,UPDATE_ALLOWED,PROPERTY_TRUE);  field:=Find_Item('CONTRACT.HOUSE');  set_item_property(field,INSERT_ALLOWED,PROPERTY_TRUE);  set_item_property(field,UPDATE_ALLOWED,PROPERTY_TRUE);

Кнопка “Сохранить”  (when-button-pressed)

declare

field Item;

num number;   a number(15);

begin

IF :CONTRACT.SIRNAME IS NULL then

Set_Alert_Property('ALERT_SIRNAME',TITLE,'Ошибка');   Set_Alert_Property('ALERT_SIRNAME',ALERT_MESSAGE_TEXT,'Вы не можете оставить поле "Фамилия" пустым');

num:=SHOW_ALERT('ALERT_SIRNAME');

Go_Item('CONTRACT.SIRNAME');

ELSIF :CONTRACT.FNAME IS NULL then

Set_Alert_Property('ALERT_FNAME',TITLE,'Ошибка');  Set_Alert_Property('ALERT_FNAME',ALERT_MESSAGE_TEXT,'Вы не можете оставить поле "Имя" пустым');

num:=SHOW_ALERT('ALERT_FNAME');

Go_Item('CONTRACT.FNAME');

ELSIF :CONTRACT.SNAME IS NULL then

Set_Alert_Property('ALERT_SNAME',TITLE,'Ошибка');  Set_Alert_Property('ALERT_SNAME',ALERT_MESSAGE_TEXT,'Вы не можете оставить поле "Отчество" пустым');

num:=SHOW_ALERT('ALERT_SNAME');

Go_Item('CONTRACT.SNAME');

ELSIF :CONTRACT.ADDRESS IS NULL then

Set_Alert_Property('ALERT_ADDRESS',TITLE,'Ошибка');

Set_Alert_Property('ALERT_ADDRESS',ALERT_MESSAGE_TEXT,'Вы не можете оставить поле "Адрес" пустым');

num:=SHOW_ALERT('ALERT_ADDRESS');

Go_Item('CONTRACT.ADDRESS');

ELSIF :CONTRACT.PHONE IS NULL then

Set_Alert_Property('ALERT_PHONE',TITLE,'Ошибка');  Set_Alert_Property('ALERT_PHONE',ALERT_MESSAGE_TEXT,'Вы не можете оставить поле "Телефон" пустым');

num:=SHOW_ALERT('ALERT_PHONE');

Go_Item('CONTRACT.PHONE');

ELSIF :CONTRACT.NAMEORG IS NULL then

Set_Alert_Property('ALERT_PHONE',TITLE,'Ошибка');  Set_Alert_Property('ALERT_PHONE',ALERT_MESSAGE_TEXT,'Вы не можете оставить поле "Наименование огранизации" пустым');