перейти к полному списку дипломных проектов
Ссылка на скачивания файла в формате .doc находится в конце странички
RunSQL "UPDATE DISTINCTROW Системная SET Системная
OpenQuery "R_nach_7", acNormal, acEdit
treb_begin
Rashet_nachisl_Exit:
Exit Function
Rashet_nachisl_Err:
MsgBox Error$
Resume Rashet_nachisl_Exit
End Function
Function Pech_reestr()
On Error GoTo Pech_reestr_Err
vbr = 2
DoCmd.OpenForm "Требования", acFormDS, "", "", acEdit, acNormal
Pech_reestr_Exit:
Exit Function
Pech_reestr_Err:
MsgBox Error$
Resume Pech_reestr_Exit
End Function
Function Pech_reestr_in()
On Error GoTo Pech_reestr_in_Err
vbr = 3
DoCmd.OpenForm "Требования", acFormDS, "", "", acEdit, acNormal
Pech_reestr_in_Exit:
Exit Function
Pech_reestr_in_Err:
MsgBox Error$
Resume Pech_reestr_in_Exit
End Function
'------------------------------------------------------------
' Требования
'
'------------------------------------------------------------
Function Pech_treb()
On Error GoTo Pech_treb_Err
vbr = 1
DoCmd.OpenForm "Требования", acFormDS, "", "", acEdit, acNormal
Pech_treb_Exit:
Exit Function
Pech_treb_Err:
MsgBox Error$
Resume Pech_treb_Exit
End Function
Function Pech_kol_usl()
On Error GoTo Pech_kol_usl_Err
DoCmd.SetWarnings False
DoCmd.RunSQL "DELETE DISTINCTROW SCHET.* FROM SCHET;"
DoCmd.OpenQuery "Z_Uslugi_vid_1", acNormal, acEdit
DoCmd.OpenQuery "Z_Uslugi_vid_2", acNormal, acEdit
DoCmd.OpenQuery "Z_Uslugi_vid_3", acNormal, acEdit
DoCmd.RunSQL "UPDATE DISTINCTROW abon_sys SET abon_sys.CODE = 5;"
run_exe
Pech_kol_usl_Exit:
Exit Function
Pech_kol_usl_Err:
MsgBox Error$
Resume Pech_kol_usl_Exit
End Function
Function Open_Dialog(stArg_d As String)
On Error GoTo Open_Dialog_Err
' DoCmd.SetWarnings False
DoCmd.OpenForm "Диалог", acNormal, "", "", acEdit, acNormal, stArg_d
Open_Dialog_Exit:
Exit Function
Open_Dialog_Err:
MsgBox Error$
Resume Open_Dialog_Exit
End Function
Function Open_Data_dialog() '(stArg_d As String)
On Error GoTo Open_Data_dialog_Err
' DoCmd.SetWarnings False
DoCmd.OpenForm "Ввод даты", acNormal, "", "", acEdit, acNormal ', stArg_d
Open_Data_dialog_Exit:
Exit Function
Open_Data_dialog_Err:
MsgBox Error$
Resume Open_Data_dialog_Exit
End Function
Function run_exe()
On Error GoTo Err_run_exe
Dim stAppName As String
stAppName = "C:\Abon\ABON_ORG.EXE"
Call Shell(stAppName, 3)
Exit_run_exe:
Exit Function
Err_run_exe:
MsgBox Err.Description
Resume Exit_run_exe
End Function
Function Откр_форму(Name_form As String)
On Error GoTo Откр_форму_Err
DoCmd.OpenForm Name_form, acFormDS, "", "", acEdit, acNormal
Откр_форму_Exit:
Exit Function
Откр_форму_Err:
MsgBox Error$
Resume Откр_форму_Exit
End Function
'------------------------------------------------------------
' Переход_Back
'
'------------------------------------------------------------
Function Переход_Back() '(Name_form As Form)
On Error GoTo Переход_Back_Err
Dim Dat_N As Date, Dat_T As Date
Dat_T = DateSerial(Year(DLookup("DateValue (Запись)", "Системная", "Код = 1")), Month(DLookup("DateValue (Запись)", "Системная", "Код = 1")), Day(DLookup("DateValue (Запись)", "Системная", "Код = 1")))
Dat_N = DateSerial(Year(DLookup("DateValue (Запись)", "Системная", "Код = 1")), Month(DLookup("DateValue (Запись)", "Системная", "Код = 1")) - 1, Day(DLookup("DateValue (Запись)", "Системная", "Код = 1")))
If MsgBox("Текущий отчетный период" Chr(13) Chr(10) _
Format(Dat_T, "mmmm yyyy") Chr(13) Chr(10) _
"Следующий - " Format(Dat_N, "mmmm yyyy") Chr(13) Chr(10) _
"Будете переходить?", vbYesNo + vbInformation + vbDefaultButton1) = vbYes Then
Forms![Кнопочная форма]![Otch_per] = Dat_N
Otch_Per_Pr = Dat_N
DoCmd.SetWarnings False
DoCmd.RunSQL "UPDATE DISTINCTROW Системная SET Системная.Запись = '" Dat_N "' WHERE (((Системная.Код)=1));"
Dat_N = DateSerial(Year(Otch_Per_Pr), Month(Otch_Per_Pr) - 1, Day(Otch_Per_Pr))
DoCmd.RunSQL "UPDATE DISTINCTROW Системная SET Системная.Запись = '" Dat_N "' WHERE (((Системная.Код)=2));"
Dat_N = DateSerial(Year(Otch_Per_Pr), Month(Otch_Per_Pr) + 1, Day(Otch_Per_Pr))
DoCmd.RunSQL "UPDATE DISTINCTROW Системная SET Системная.Запись = '" Dat_N "' WHERE (((Системная.Код)=3));"
DoCmd.RunSQL "DELETE Oplata_auto.
скачать бесплатно Логическое моделирование
Содержание дипломной работы
Вычислительная техника на базе счетно-перфорационных машин, установленных на машинно-счетных станциях, начала широко применяться с 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 моделирования
