Анализ и оценка надежности и эффективности АИС "Бюджет"
Дипломная работа - Компьютеры, программирование
Другие дипломы по предмету Компьютеры, программирование
?нятьДатуПринятия(Закладка: Целое; Данные: БезТипа): Целое; начало если ф.МожноРедактироватьСтолбец(Сетка.ColumnByFieldName(AcceptDate)) тогда Сетка.ColumnByFieldName(AcceptDate).CheckState := 0; результат := да; конец; начало Ф := ПолучитьФормуВвода; если Ф.Заголовки.Таблица.ЧИслоЗаписей = 0 тогда ВызватьОшибку("В заголовке нет данных. Нажмите кнопку Выполнить"); если Ф.ЕстьИзменения тогда ВызватьОшибку("В таблице есть измененные записи. Необходимо сохранить изменения."); Сетка := Ф.Заголовки.Сетка; если Сетка.ЕстьВыделенныеСтроки тогда Сетка.ForSelection(да, СоздатьОбработчик(СнятьДатуПринятия), Null) иначе СнятьДатуПринятия(-1, Null); ф.СохранитьИзменения; конец.
"\\LibRu.lib";"\\ABLTools.lib";"project";:;:;//(:;:):;.(.ColumnByFieldName(AcceptDate)).ColumnByFieldName(AcceptDate).CheckState:=1;:=;;:=;...=0(".");.("..");:=..;..ForSelection(,(),Null)(-1,Null);.;.
<value type="3&quo