перейти к полному списку дипломных проектов
Ссылка на скачивания файла в формате .doc находится в конце странички
Close acForm, strFormName, acSaveYes
End If
Close_Form_Exit:
Exit Function
Close_Form_Err:
If Err
OnEnter = "=Вход_ПолеСоСписком()"
' .OnExit = "=Выход_ПолеСоСписком()"
End With
End If
ElseIf Dostup = 2 Then
With ctl
' .SetFocus
.Enabled = True
.Locked = False
End With
End If
End If
Next ctl
Set_Controls_Exit:
Exit Sub
Set_Controls_Err:
MsgBox Error$
Resume Set_Controls_Exit
End Sub
'------------------------------------------------------------
' Close_Form
'
'------------------------------------------------------------
Function Close_Form()
On Error GoTo Close_Form_Err
Dim strFormName As String
' strFormName = Screen.ActiveDatasheet.Name
strFormName = Screen.ActiveForm.FormName
' DoCmd.Close acQuery, strFormName, acSaveYes
If strFormName = "Кнопочная форма" Then
SendKeys "{ESC}", False
Else
DoCmd.Close acForm, strFormName, acSaveYes
End If
Close_Form_Exit:
Exit Function
Close_Form_Err:
If Err.Number = 2475 Then
strFormName = Screen.ActiveDatasheet.Name
DoCmd.Close acQuery, strFormName, acSaveYes
'frm.SetFocus
DoCmd.Restore
'Restore_Form ("Forms![Кнопочная форма]")
Else
' MsgBox Error$
Resume Close_Form_Exit
End If
End Function
Function Exit_Main()
DoCmd.Quit acSave
End Function
Function IsForm(NameForm As String) As Integer
' Возвращает True, если актиным окном является форма.
Dim strFormName As String
On Error Resume Next
strFormName = Screen.ActiveForm.FormName
If Err Then
IsForm = False
Else
If strFormName = NameForm Then
IsForm = True
Else
IsForm = False
End If
End If
On Error GoTo 0
End Function
Function EditN() As Integer
On Error GoTo EditN_Err
Dim frm As Form
Dim varTmp As Variant
Set frm = Screen.ActiveForm
' Включает ввод записей с помощью свойства
' "Разрешить изменение" (AllowEdits). Задает для свойства
' "Работа с записями" (DefaultEditing) значение 1 (Ввод данных).
' frm.AllowEdits = False
'frm.DefaultEditing = 1
' Включает элементы в области данных
varTmp = EnableControls("Detail", False, True)
Exit Function
EditN_Err:
MsgBox Err.Description
Exit Function
End Function
Function EditD() As Integer
On Error GoTo EditD_Err
Dim frm As Form
Dim varTmp As Variant
Set frm = Screen.ActiveForm
' Включает ввод записей с помощью свойства
' "Разрешить изменение" (AllowEdits). Задает для свойства
' "Работа с записями" (DefaultEditing) значение 1 (Ввод данных).
' frm.AllowEdits = True
'frm.DefaultEditing = 1
' Включает элементы в области данных
varTmp = EnableControls("Detail", True, False)
Exit Function
EditD_Err:
MsgBox Err.
скачать бесплатно Логическое моделирование
Содержание дипломной работы
Вычислительная техника на базе счетно-перфорационных машин, установленных на машинно-счетных станциях, начала широко применяться с 1950-х годов
Средства предприятия – это товарно-материальные ценности и денежные средства, находящиеся в собственности предприятия или отданные в долг
Третья фаза обработки заключается в составлении выходных форм сводного учета: оборотно-сальдовых ведомостей, отчетов по выручке и форм финансовой отчетности
Представление вариантов использования содержит всех действующих лиц, все варианты использования и их диаграммы для конкретной системы
Перед построением контекстной DFD необходимо проанализировать внешние события (внешние сущности), оказывающие влияние на функционирование системы
Любой объект системы может быть представлен только одной сущностью, которая должна быть уникально идентифицирована
Связь между таблицами устанавливается через совпадающие значения общего поля, содержащегося в обеих таблицах
Для расширения возможностей можно воспользоваться средствами языка программирования Microsoft Access Basic
Имеются три стандарта:
для обнаружения ошибок в программе;
для диагностики и локализации причин обнаружения искажений результатов;
для контроля выполненных корректировок программ и данных
Для учета движения по оплатам и начислениям
При нажатии на клавишу «Учет движения», открывается одноименная кнопочная форма (рисунок 4
Для организации международных каналов спутниковой связи эксплуатируется комплекс наземных станций спутниковой связи «Телепорт»
Умывальные должны размещаться смежно с общими гардеробными или гардеробными спецодежды
Гардеробные, преддушевые, душевые, туалетные и др
Пункты питания (столовые, столовые доготовочные, буфеты) должны удовлетворять санитарным требованиям, установленным для предприятий общественного питания
К зданиям и сооружениям по всей их длине должен быть обеспечен подъезд пожарных автомобилей: с одной стороны при ширине здания или сооружения до 18 м, с двух сторон - при ширине более 18 м
На территории не должно быть ям, рытвин, ухабов, технологические приямки, ямы должны быть ограждены, не должны загрязняться грунтовыми водами
Выбор эффективных проектов ПС связан с их экономической оценкой и расчетом экономического эффекта, который может определяться как у разработчика, так и у пользователя
2)
где ТО – общая трудоемкость ПС;
ТН – нормативная трудоемкость ПС;
КСЛ – дополнительный коэффициент сложности ПС
Расчет прочих прямых затрат
Расходы на ПС включают затраты на приобретение и подготовку специальной научно-технической информации и специальной литературы
Определение отпускной цены на ПС ВТ
Отпускная цена определяется на основании цены разработчика, которая формируется на основе показателя рентабельности продукции
27)
Таким образом экономия начислений на заработную плату при использовании нового ПС в расчете на объем выполненных работ равна:
Энач = Эоз • Кнач (6
36)
где Ен – норматив привидения разновременных затрат и результатов;
tp – расчетный год, tp = 1;
t – номер года, результаты и затраты которого приводятся к расчетному
Шаг за шагом: Практ
Определение категорий помещений и зданий по взрывопожарной и пожарной опасности
SetWarnings False
'Расчет сальдо перед переходом на следующий месяц
DoCmd
RunSQL "UPDATE DISTINCTROW Системная SET Системная
RunSQL "UPDATE DISTINCTROW Системная SET Системная
CODE = Сумма_начислений
Close acForm, strFormName, acSaveYes
End If
Close_Form_Exit:
Exit Function
Close_Form_Err:
If Err
"
If MsgBox(strMsg, vbQuestion) = vbOK Then
Exit Sub
End If
' Если поле имеет непустое значение, выводит это значение
, нами было разработано и проведено 6 занятий по 3D моделированию, позволяющих изучить основы 3D моделирования
