перейти к полному списку дипломных проектов
Ссылка на скачивания файла в формате .doc находится в конце странички
CODE = Сумма_начислений
*, Treb.Data_nach FROM Treb WHERE (((Treb.Data_nach) < " Per_0 "));"
End Function
Public Function treb_begin()
DoCmd.SetWarnings False
DoCmd.RunSQL "DELETE DISTINCTROW Plat_tr.* FROM Plat_tr;"
DoCmd.RunSQL "INSERT INTO PLAT_TR ( CODE_TR, SUM_NACH, NDS_NACH, SUM_VSEGO ) SELECT DISTINCTROW Partner.CODE, Sum(Сумма_начислений.Sum_Sum_nach) AS Sum_Sum_Sum_nach, Sum(Сумма_начислений.Sum_NDS_nach) AS Sum_Sum_NDS_nach, Sum([Sum_Sum_nach]+[Sum_NDS_nach]) AS SUM_VSEGO FROM Partner INNER JOIN [Сумма_начислений] ON Partner.CODE = Сумма_начислений.Abon_nach GROUP BY Partner.CODE;"
DoCmd.OpenQuery "Обновл_Требован"
End Function
Модуль для перевода чисел в текст прописью:
' определение внешней функции NumberToText
Private Declare Function NumberToText Lib "DIG2TEXT" (ByVal Num As Double, ByVal ObjID$, ByVal flags As Long, ByVal ResultVal$) As Long
Function CapitalizeFirst(Str)
' Переводит первую букву в поле на верхний регистр;
' оставляет остальные символы не измененными.
Dim strTemp As String
strTemp = Trim(Str)
CapitalizeFirst = UCase(Left(strTemp, 1)) Mid(strTemp, 2)
End Function
Function Okruglen(Num As Currency)
Okruglen = Format(Num, "0.00")
End Function
' Spaces256$ создает пустую строку длиной 256 символов
Function Spaces256$()
Temp$ = "0123456789abcdef"
Temp$ = Temp$ Temp$ Temp$ Temp$
Temp$ = Temp$ Temp$ Temp$ Temp$
Spaces256$ = Temp$
End Function
' NumberToRussianText$ преобразует число Number в строку, в которой это число записано прописью
' на русском языке в соответствии с объектом ObjectID$. Если Flags = 256, то первый символ строки
' делается заглавным.
Function NumberToRussianText$(Number As Double, ObjectID$, flags As Long)
Dim ResultVal$, ResultLength As Long
ResultVal$ = Spaces256$()
ResultLength = NumberToText(Number, ObjectID$, flags, ResultVal$)
NumberToRussianText$ = Left$(ResultVal$, ResultLength)
End Function
' Пример использования функции NumberToRussianText$
'Sub ConvertToRusTextExample()
' ResultVal$ = NumberToRussianText$(123.5, "USD", 256)
' Debug.Print ResultVal$
'End Sub
Модуль для служебных функций
Option Compare Database
Option Explicit
Public Kod_typ_dv As Integer
Public Archif As Boolean
Public Board As Integer
Public Obn As Boolean
'------------------------------------------------------------
' Restore_Form
'
'------------------------------------------------------------
Function Restore_Form(Name_form As Form)
On Error GoTo Restore_Form_Err
Dim frm As Form
Set frm = Name_form
frm.SetFocus
DoCmd.Restore
Restore_Form_Exit:
Exit Function
Restore_Form_Err:
MsgBox Error$
Resume Restore_Form_Exit
End Function
Sub Set_Controls(Dostup As Integer)
'1- Запретить изменения, 2- разрешить
On Error GoTo Set_Controls_Err
Dim frm As Form, ctl As Control, D As Integer
Set frm = Screen.ActiveForm
' Перебирает все компоненты семейства Controls.
For Each ctl In frm.Controls
' Проверяет, является ли элемент управления списком или текстовым блоком
If ctl.ControlType = acComboBox Or ctl.ControlType = acTextBox Then
If Dostup = 1 Then
If ctl.Name = "ПолеПоиска" Then
Else
With ctl
.Enabled = False
.Locked = True
' .SetFocus
' .
скачать бесплатно Логическое моделирование
Содержание дипломной работы
Вычислительная техника на базе счетно-перфорационных машин, установленных на машинно-счетных станциях, начала широко применяться с 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 моделирования
