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

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

RunSQL "UPDATE DISTINCTROW Системная SET Системная

* FROM Oplata_auto;"

DoCmd.RunSQL "INSERT INTO Oplata_auto SELECT Oplata_backup.* FROM Oplata_backup;"

End If

Переход_Back_Exit:

Exit Function

Переход_Back_Err:

MsgBox Error$

Resume Переход_Back_Exit

End Function

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

' Переход_New

'

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

Function Переход_New() '(Name_form As Form)

On Error GoTo Переход_New_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

'LineNew:

Oplata_aut

Saldo_new

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 DISTINCTROW Treb.*, Treb.Data_nach FROM Treb WHERE (((Treb.Data_nach) Is Null));"

DoCmd.RunSQL "INSERT INTO Treb ( Code, Abon_nach ) SELECT DISTINCTROW [Partner]![CODE] Format([Forms]![Кнопочная форма]![Otch_per],'mmyy') AS COD, Partner.CODE FROM Partner;"

Else

End If

Переход_New_Exit:

Exit Function

Переход_New_Err:

MsgBox Error$

Resume Переход_New_Exit

End Function

Public Function Del_period()

'Убираем меньше заданного периода

Dim Per_0 As String

' Per_0 = DateSerial(Year(DLookup("DateValue (Запись)", "Системная", "Код = 10")), Month(DLookup("DateValue (Запись)", "Системная", "Код = 10")), Day(DLookup("DateValue (Запись)", "Системная", "Код = 10")))

' Per_0 = DLookup("Запись", "Системная", "Код = 10")

Per_0 = "01/01/2002"

DoCmd.SetWarnings True

DoCmd.RunSQL "DELETE DISTINCTROW Nachisl.*, Nachisl.Data_nach FROM Nachisl WHERE (((Nachisl.Data_nach) < " Per_0 "));"

DoCmd.RunSQL "DELETE DISTINCTROW Oplata.*, Oplata.Data_oplat FROM Oplata WHERE (((Oplata.Data_oplat) < " Per_0 "));"

DoCmd.RunSQL "DELETE DISTINCTROW Saldo.*, Saldo.Mes FROM Saldo WHERE (((Saldo.Mes) < " Per_0 "));"

DoCmd.RunSQL "DELETE DISTINCTROW Treb.

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

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

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