перейти к полному списку дипломных проектов

Ссылка на скачивания файла в формате .doc находится в конце странички

" If MsgBox(strMsg, vbQuestion) = vbOK Then Exit Sub End If ' Если поле имеет непустое значение, выводит это значение

Description

Exit Function

End Function

Function EnableControls(strWhichSection As String, intState As Integer, intLocked As Integer) As Integer

' Включает и отключает элементы управления в указанных разделах формы.

Dim frm As Form

Dim ctl As Control

Dim intX As Integer, intSelectedSection As Integer

' Использует активную форму. Если активной формы нет,

' осуществляет выход из формы без вывода сообщения об ошибке.

On Error Resume Next

Set frm = Screen.ActiveForm

If Err Then

EnableControls = False

On Error GoTo 0

Exit Function

End If

' Определяет допустимые значения аргумента strWhichSection.

Select Case UCase$(strWhichSection)

Case "FORM HEADER"

intSelectedSection = 1

Case "PAGE HEADER"

intSelectedSection = 3

Case "DETAIL"

intSelectedSection = 0

Case "PAGE FOOTER"

intSelectedSection = 4

Case "FORM FOOTER"

intSelectedSection = 2

Case Else

MsgBox "Недопустимый аргумент", , "EnableControls"

EnableControls = False

Exit Function

End Select

' Присваивает значение аргумента intState, intLocked всем

' элементам управления в указанном разделе.

For intX = 0 To frm.Count - 1

Set ctl = frm(intX)

If ctl.Section = intSelectedSection Then

On Error Resume Next

ctl.Enabled = intState

ctl.Locked = intLocked

On Error GoTo 0

End If

Next intX

EnableControls = True

End Function

'------------------------------------------------------------

' К_полю_поиска

'

'------------------------------------------------------------

Function К_полю_поиска()

On Error GoTo К_полю_поиска_Err

Dim Fr As Form

Set Fr = Screen.ActiveForm

Fr![ПолеПоиска].SetFocus

SendKeys "{F4}", False

К_полю_поиска_Exit:

Exit Function

К_полю_поиска_Err:

MsgBox Error$

Resume К_полю_поиска_Exit

End Function

Function Перед_обновлением()

Dim strMsg As String, strCRLF As String

strCRLF = Chr(13) Chr(10)

strMsg = "Произведено изменение." strCRLF _

"Если все правильно, нажмите Да. Произойдет запись." strCRLF _

"При нажатии Нет запись не произойдет," strCRLF _

"а при последующем нажатии клавиши Esc отмените изменения."

If MsgBox(strMsg, vbYesNo + vbQuestion + vbDefaultButton2) = vbNo Then

Перед_обновлением = -1

End If

End Function

Function Печать_отчета(stDocName As String)

On Error GoTo Err_Печать_отчета

Dim stDocName1 As String

'stDocName = "Z_Abon_КолПоУлицам"

stDocName1 = stDocName

DoCmd.OpenReport stDocName1, acNormal

Exit_Печать_отчета:

Exit Function

Err_Печать_отчета:

MsgBox Err.Description

Resume Exit_Печать_отчета

End Function

'В данном примере функция IsNull проверяет, имеет ли элемент

'управления пустое (Null) значение.

'Если да, выводится приглашение ввести данные.

'Если элемент управления имеет присвоенное значение,

'выводится сообщение с этим значением.

Sub ControlValue(ctlText As Control)

Dim strMsg As String, strCRLF As String

strCRLF = Chr(13) Chr(10)

' Проверяет, что элемент управления является полем.

If ctlText.ControlType = acTextBox Then

' При значении Null выводит приглашение ввести данные.

If IsNull(ctlText.Value) Then

strMsg = "Пустое поле '" _

ctlText.Name "'." strCRLF _

"Введите значение данного поля."

If MsgBox(strMsg, vbQuestion) = vbOK Then

Exit Sub

End If

' Если поле имеет непустое значение, выводит это значение.

Else

MsgBox (ctlText.Value)

End If

End If

End Sub

Function IsLoaded1(ByVal strFormName As String) As Integer

' Возвращает значения True, если форма открыта в режиме формы или таблицы.

скачать бесплатно Логическое моделирование

Содержание дипломной работы

Вычислительная техника на базе счетно-перфорационных машин, установленных на машинно-счетных станциях, начала широко применяться с 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 моделирования