Добавил:

Upload Опубликованный материал нарушает ваши авторские права? Сообщите нам.

Вуз:

Полтавский национальный технический университет им. Ю. Кондратюка

Предмет:

[НЕСОРТИРОВАННОЕ]

Файл:

Захист Коваленко.doc

Скачиваний:

Добавлен:

01.05.2025

Размер:

399.36 Кб

Скачать

☆

<<< < Предыдущая 12 / 32 3 > Следующая >>>

Позначення складових елементів управління

Поперкдній запис-----pop

Наступний запис-------nast

Перший запис----------odyn

Останній запис--------ost

Редагувати--------------redag

Доповнити--------------dop

Видалити----------------del

Зберегти-----------------zber

Відмінити---------------canc

Сорт. за кільк.----------sort

Всього (зарплата)------vse

Кількість записів------kolzap

Вихід--------------------ex

Перед тим як ввести програмний код для окремих процедур потрібно задати імена ідентифікаторів.

Текст програми

Спочатку нам треба створити активізацію форми:

Dim x1 As Date

Dim x4, jf, i As Integer

Dim x3, x6, x8, x9, x11, x12, x13, x10, jr As Double

Dim x2, x5, x7 As String

Dim x0, x20 As Variant

Private Sub canc_Click()

dat.Text = x1

pk.Text = x2

narah.Text = x3

kilc.Text = x4

fah.Text = x5

taruf.Text = x6

rozrad.Text = x7

koef.Text = x8

premia.Text = x9

nadb.Text = x10

vn.Text = x11

pod.Text = x12

vsogo.Text = x13

'Кнопки

odyn.Enabled = True

pop.Enabled = True

nast.Enabled = True

ost.Enabled = True

redag.Enabled = True

dop.Enabled = True

canc.Enabled = False

zber.Enabled = False

ex.Enabled = True

'Поля

dat.Locked = True

pk.Locked = True

fah.Locked = True

rozrad.Locked = True

kilc.Locked = True

taruf.Locked = True

koef.Locked = True

narah.Locked = True

premia.Locked = True

nadb.Locked = True

vn.Locked = True

pod.Locked = True

vsogo.Locked = True

pk.BackColor = &HFFFFFF

fah.BackColor = &HFFFFFF

rozrad.BackColor = &HFFFFFF

kilc.BackColor = &HFFFFFF

End Sub

Private Sub dat_Change()

End Sub

Private Sub dop_Click()

i = 1

'Змінні

x1 = dat.Text

x2 = pk.Text

x3 = narah.Text

x4 = kilc.Text

x5 = fah.Text

x6 = taruf.Text

x7 = rozrad.Text

x8 = koef.Text

x9 = premia.Text

x10 = nadb.Text

x11 = vn.Text

x12 = pod.Text

x13 = vsogo.Text

'Кнопки

odyn.Enabled = False

pop.Enabled = False

nast.Enabled = False

ost.Enabled = False

redag.Enabled = False

dop.Enabled = False

canc.Enabled = True

zber.Enabled = True

ex.Enabled = False

'Поля

dat.Text = Date

pk.Text = ""

fah.Text = ""

taruf.Text = ""

rozrad.Text = ""

kilc.Text = ""

narah.Text = ""

premia.Text = ""

nadb.Text = ""

vn.Text = ""

pod.Text = ""

vsogo.Text = ""

'Доступ до полів

pk.Locked = False

fah.Locked = False

rozrad.Locked = False

kilc.Locked = False

kilc.SetFocus

pk.BackColor = &HFF00&

fah.BackColor = &HFF00&

rozrad.BackColor = &HFF00&

kilc.BackColor = &HFF00&

End Sub

Private Sub ex_Click()

If MsgBox("Підтвердіть вихід", vbYesNo, "Вікно запиту") = vbYes Then

Unload UserForm1

End If

End Sub

Private Sub fah_Change()

'Нова змінна

x0 = ActiveCell.Address

'Довідник фахів

Range("b3").Select

Do While ActiveCell.Value <> ""

If ActiveCell.Value = fah.Text Then

jf = ActiveCell.Offset(0, 1).Value

End If

ActiveCell.Offset(1, 0).Select

Loop

'Поле довідника

taruf.Text = jf

'Наступний вибір

Range(x0).Select

End Sub

Private Sub kilc_Change()

'Розрахунок

narah.Text = Str(Int(jf * jr * Val(kilc.Text) * 100) / 100)

nadb.Text = Str(Int(jf * jr * Val(kilc.Text) * 20) / 100)

vn.Text = Str(Int((Val(narah.Text) + Val(premia.Text) + Val(nadb.Text)) * 100) / 100)

pod.Text = Str(Int((Val(narah.Text) + Val(premia.Text) + Val(nadb.Text)) * 10) / 100)

vsogo.Text = Str(Int((Val(vn.Text) - Val(pod.Text)) * 100) / 100)

If Val(kilc.Text) < 100 Then

premia = 0

ElseIf Val(kilc.Text) < 250 Then

premia = Val(narah.Text) * 0.05

ElseIf Val(kilc.Text) < 350 Then

premia = Val(narah.Text) * 0.1

Else

premia = Val(narah.Text) * 0.2

End If

End Sub

Private Sub koef_Change()

'Розрахунок

narah.Text = Str(Int(jf * jr * Val(kilc.Text) * 100) / 100)

nadb.Text = Str(Int(jf * jr * Val(kilc.Text) * 20) / 100)

vn.Text = Str(Int((Val(narah.Text) + Val(premia.Text) + Val(nadb.Text)) * 100) / 100)

pod.Text = Str(Int((Val(narah.Text) + Val(premia.Text) + Val(nadb.Text)) * 10) / 100)

vsogo.Text = Str(Int((Val(vn.Text) - Val(pod.Text)) * 100) / 100)

If Val(kilc.Text) < 100 Then

premia = 0

ElseIf Val(kilc.Text) < 250 Then

premia = Val(narah.Text) * 0.05

ElseIf Val(kilc.Text) < 350 Then

premia = Val(narah.Text) * 0.1

Else

premia = Val(narah.Text) * 0.2

End If

End Sub

Private Sub kolzap_Click()

'Адреса активного запису

q = ActiveCell.Address

'Розрахунок

'Перехід на 1 запис

Range("g3").Select

'Початкове значення

s = 1

'Кількість записів

Do While ActiveCell.Offset(1, 0).Value <> ""

ActiveCell.Offset(1, 0).Select

s = s + 1

Loop

'Повернення на активний запис

Range(q).Select

'Поля гол таблиці

dat.Text = ActiveCell.Value

pk.Text = ActiveCell.Offset(0, 1).Value

fah.Text = ActiveCell.Offset(0, 2).Value

rozrad.Text = ActiveCell.Offset(0, 3).Value

kilc.Text = ActiveCell.Offset(0, 4).Value

taruf.Text = ActiveCell.Offset(0, 5).Value

koef.Text = ActiveCell.Offset(0, 6).Value

narah.Text = ActiveCell.Offset(0, 7).Value

premia.Text = ActiveCell.Offset(0, 8).Value

nadb.Text = ActiveCell.Offset(0, 9).Value

vn.Text = ActiveCell.Offset(0, 10).Value

pod.Text = ActiveCell.Offset(0, 11).Value

vsogo.Text = ActiveCell.Offset(0, 12).Value

'Виведення результатів

MsgBox "Кількість записів у базі даних=" & s

End Sub

Private Sub nadb_Change()

nadb.Text = Str(Int(jf * jr * Val(kilc.Text) * 20) / 100)

End Sub

Private Sub narah_Change()

narah.Text = Str(Int(jf * jr * Val(kilc.Text) * 100) / 100)

End Sub

Private Sub nast_Click()

'Умова

If ActiveCell.Offset(1, 0).Value <> "" Then

ActiveCell.Offset(1, 0).Select

'Поля головної таблиці

dat.Text = ActiveCell.Value

pk.Text = ActiveCell.Offset(0, 1).Value

fah.Text = ActiveCell.Offset(0, 2).Value

rozrad.Text = ActiveCell.Offset(0, 3).Value

kilc.Text = ActiveCell.Offset(0, 4).Value

taruf.Text = ActiveCell.Offset(0, 5).Value

koef.Text = ActiveCell.Offset(0, 6).Value

narah.Text = ActiveCell.Offset(0, 7).Value

premia.Text = ActiveCell.Offset(0, 8).Value

nadb.Text = ActiveCell.Offset(0, 9).Value

vn.Text = ActiveCell.Offset(0, 10).Value

pod.Text = ActiveCell.Offset(0, 11).Value

vsogo.Text = ActiveCell.Offset(0, 12).Value

'Активність кнопок

odyn.Enabled = True

pop.Enabled = True

Else

'Активність кнопок

nast.Enabled = False

ost.Enabled = False

MsgBox "Останній запис"

End If

End Sub

Private Sub odyn_Click()

'Умова

Do While ActiveCell.Row > 3

ActiveCell.Offset(-1, 0).Select

Loop

'Поля головної таблиці

dat.Text = ActiveCell.Value

pk.Text = ActiveCell.Offset(0, 1).Value

fah.Text = ActiveCell.Offset(0, 2).Value

rozrad.Text = ActiveCell.Offset(0, 3).Value

kilc.Text = ActiveCell.Offset(0, 4).Value

taruf.Text = ActiveCell.Offset(0, 5).Value

koef.Text = ActiveCell.Offset(0, 6).Value

narah.Text = ActiveCell.Offset(0, 7).Value

premia.Text = ActiveCell.Offset(0, 8).Value

nadb.Text = ActiveCell.Offset(0, 9).Value

vn.Text = ActiveCell.Offset(0, 10).Value

pod.Text = ActiveCell.Offset(0, 11).Value

vsogo.Text = ActiveCell.Offset(0, 12).Value

'Активність кнопок

nast.Enabled = True

ost.Enabled = True

odyn.Enabled = False

pop.Enabled = False

MsgBox "Перший запис"

End Sub

Private Sub ost_Click()

'Умова

Do While ActiveCell.Offset(1, 0).Value <> ""

ActiveCell.Offset(1, 0).Select

Loop

'Поля головної таблиці

dat.Text = ActiveCell.Value

pk.Text = ActiveCell.Offset(0, 1).Value

fah.Text = ActiveCell.Offset(0, 2).Value

rozrad.Text = ActiveCell.Offset(0, 3).Value

kilc.Text = ActiveCell.Offset(0, 4).Value

taruf.Text = ActiveCell.Offset(0, 5).Value

koef.Text = ActiveCell.Offset(0, 6).Value

narah.Text = ActiveCell.Offset(0, 7).Value

premia.Text = ActiveCell.Offset(0, 8).Value

nadb.Text = ActiveCell.Offset(0, 9).Value

vn.Text = ActiveCell.Offset(0, 10).Value

pod.Text = ActiveCell.Offset(0, 11).Value

vsogo.Text = ActiveCell.Offset(0, 12).Value

'Активність кнопок

odyn.Enabled = True

pop.Enabled = True

nast.Enabled = False

ost.Enabled = False

MsgBox "Останній запис"

End Sub

Private Sub pk_Change()

End Sub

Private Sub pod_Change()

vn.Text = Str(Int((Val(narah.Text) + Val(premia.Text) + Val(nadb.Text)) * 100) / 100)

pod.Text = Str(Int((Val(narah.Text) + Val(premia.Text) + Val(nadb.Text)) * 10) / 100)

vsogo.Text = Str(Int((Val(vn.Text) - Val(pod.Text)) * 100) / 100)

End Sub

Private Sub pop_Click()

'Умова

If ActiveCell.Row > 3 Then

ActiveCell.Offset(-1, 0).Select

'Поля головної таблиці

dat.Text = ActiveCell.Value

pk.Text = ActiveCell.Offset(0, 1).Value

fah.Text = ActiveCell.Offset(0, 2).Value

rozrad.Text = ActiveCell.Offset(0, 3).Value

kilc.Text = ActiveCell.Offset(0, 4).Value

taruf.Text = ActiveCell.Offset(0, 5).Value

koef.Text = ActiveCell.Offset(0, 6).Value

narah.Text = ActiveCell.Offset(0, 7).Value

premia.Text = ActiveCell.Offset(0, 8).Value

nadb.Text = ActiveCell.Offset(0, 9).Value

vn.Text = ActiveCell.Offset(0, 10).Value

pod.Text = ActiveCell.Offset(0, 11).Value

vsogo.Text = ActiveCell.Offset(0, 12).Value

'Активність кнопок

nast.Enabled = True

ost.Enabled = True

Else

'Активність кнопок

odyn.Enabled = False

pop.Enabled = False

MsgBox "Перший запис"

End If

End Sub

Private Sub premia_Change()

If Val(kilc.Text) < 100 Then

premia = 0

ElseIf Val(kilc.Text) < 250 Then

premia = Val(narah.Text) * 0.05

ElseIf Val(kilc.Text) < 350 Then

premia = Val(narah.Text) * 0.1

Else

premia = Val(narah.Text) * 0.2

End If

End Sub

Private Sub redag_Click()

i = 2

'Змінні

x1 = dat.Text

x2 = pk.Text

x3 = narah.Text

x4 = kilc.Text

x5 = fah.Text

x6 = taruf.Text

x7 = rozrad.Text

x8 = koef.Text

x9 = premia.Text

x10 = nadb.Text

x11 = vn.Text

x12 = pod.Text

x13 = vsogo.Text

'Кнопки

odyn.Enabled = False

pop.Enabled = False

nast.Enabled = False

ost.Enabled = False

redag.Enabled = False

dop.Enabled = False

canc.Enabled = True

zber.Enabled = True

ex.Enabled = False

'Доступ до полів

pk.Locked = False

fah.Locked = False

rozrad.Locked = False

kilc.Locked = False

kilc.SetFocus

pk.BackColor = &HFF00&

fah.BackColor = &HFF00&

rozrad.BackColor = &HFF00&

kilc.BackColor = &HFF00&

End Sub

Private Sub rozrad_Change()

'Нова змінна

x20 = ActiveCell.Address

'Довідник розрядів

Range("d3").Select

Do While ActiveCell.Value <> ""

If ActiveCell.Value = rozrad.Text Then

jr = ActiveCell.Offset(0, 1).Value

End If

ActiveCell.Offset(1, 0).Select

Loop

'Поле довідника

koef.Text = jr

'Наступний вибір

Range(x20).Select

End Sub

Private Sub taruf_Change()

'Розрахунок

narah.Text = Str(Int(jf * jr * Val(kilc.Text) * 100) / 100)

nadb.Text = Str(Int(jf * jr * Val(kilc.Text) * 20) / 100)

vn.Text = Str(Int((Val(narah.Text) + Val(premia.Text) + Val(nadb.Text)) * 100) / 100)

pod.Text = Str(Int((Val(narah.Text) + Val(premia.Text) + Val(nadb.Text)) * 10) / 100)

vsogo.Text = Str(Int((Val(vn.Text) - Val(pod.Text)) * 100) / 100)

If Val(kilc.Text) < 100 Then

premia = 0

ElseIf Val(kilc.Text) < 250 Then

premia = Val(narah.Text) * 0.05

ElseIf Val(kilc.Text) < 350 Then

premia = Val(narah.Text) * 0.1

Else

premia = Val(narah.Text) * 0.2

End If

End Sub

Private Sub UserForm_Activate()

'Довідники

Range("b3").Select

Do While ActiveCell.Value <> ""

fah.AddItem ActiveCell.Value

ActiveCell.Offset(1, 0).Select

Loop

Range("d3").Select

Do While ActiveCell.Value <> ""

rozrad.AddItem ActiveCell.Value

ActiveCell.Offset(1, 0).Select

Loop

'Таблиця обліку

Range("g3").Select

dat.Text = ActiveCell.Value

pk.Text = ActiveCell.Offset(0, 1).Value

fah.Text = ActiveCell.Offset(0, 2).Value

rozrad.Text = ActiveCell.Offset(0, 3).Value

kilc.Text = ActiveCell.Offset(0, 4).Value

taruf.Text = ActiveCell.Offset(0, 5).Value

koef.Text = ActiveCell.Offset(0, 6).Value

narah.Text = ActiveCell.Offset(0, 7).Value

premia.Text = ActiveCell.Offset(0, 8).Value

nadb.Text = ActiveCell.Offset(0, 9).Value

vn.Text = ActiveCell.Offset(0, 10).Value

pod.Text = ActiveCell.Offset(0, 11).Value

vsogo.Text = ActiveCell.Offset(0, 12).Value

'Активність кнопок

odyn.Enabled = False

pop.Enabled = False

zber.Enabled = False

canc.Enabled = False

'Доступ до полів і списків

dat.Locked = True

pk.Locked = True

fah.Locked = True

rozrad.Locked = True

kilc.Locked = True

taruf.Locked = True

koef.Locked = True

narah.Locked = True

premia.Locked = True

nadb.Locked = True

vn.Locked = True

pod.Locked = True

vsogo.Locked = True

End Sub

Private Sub vn_Change()

vn.Text = Str(Int((Val(narah.Text) + Val(premia.Text) + Val(nadb.Text)) * 100) / 100)

pod.Text = Str(Int((Val(narah.Text) + Val(premia.Text) + Val(nadb.Text)) * 10) / 100)

vsogo.Text = Str(Int((Val(vn.Text) - Val(pod.Text)) * 100) / 100)

End Sub

Private Sub vse_Click()

'Адреса активного запису

q100 = ActiveCell.Address

'Розрахунок

'Перехід на 1 запис

Range("s3").Select

'Початкове значення

Sum = Val(vsogo.Text)

'Кількість записів

Do While ActiveCell.Offset(1, 0).Value <> ""

ActiveCell.Offset(1, 0).Select

Sum = Sum + ActiveCell.Value

Loop

'Повернення на активний запис

Range(q100).Select

'Поля гол таблиці

dat.Text = ActiveCell.Value

pk.Text = ActiveCell.Offset(0, 1).Value

fah.Text = ActiveCell.Offset(0, 2).Value

rozrad.Text = ActiveCell.Offset(0, 3).Value

kilc.Text = ActiveCell.Offset(0, 4).Value

taruf.Text = ActiveCell.Offset(0, 5).Value

koef.Text = ActiveCell.Offset(0, 6).Value

narah.Text = ActiveCell.Offset(0, 7).Value

premia.Text = ActiveCell.Offset(0, 8).Value

nadb.Text = ActiveCell.Offset(0, 9).Value

vn.Text = ActiveCell.Offset(0, 10).Value

pod.Text = ActiveCell.Offset(0, 11).Value

vsogo.Text = ActiveCell.Offset(0, 12).Value

'Виведення результатів

MsgBox "Всього зарплати =" & Sum

End Sub

Private Sub vsogo_Change()

vn.Text = Str(Int((Val(narah.Text) + Val(premia.Text) + Val(nadb.Text)) * 100) / 100)

pod.Text = Str(Int((Val(narah.Text) + Val(premia.Text) + Val(nadb.Text)) * 10) / 100)

vsogo.Text = Str(Int((Val(vn.Text) - Val(pod.Text)) * 100) / 100)

End Sub

Private Sub zber_Click()

'Редагування

If i = 2 Then

ActiveCell.Offset(0, 1).Value = pk.Text

ActiveCell.Offset(0, 2).Value = fah.Text

ActiveCell.Offset(0, 3).Value = rozrad.Text

ActiveCell.Offset(0, 4).Value = kilc.Text

'Кнопки

odyn.Enabled = True

pop.Enabled = True

nast.Enabled = True

ost.Enabled = True

redag.Enabled = True

dop.Enabled = True

canc.Enabled = False

zber.Enabled = False

ex.Enabled = True

'Поля

dat.Locked = True

pk.Locked = True

fah.Locked = True

rozrad.Locked = True

kilc.Locked = True

taruf.Locked = True

koef.Locked = True

narah.Locked = True

premia.Locked = True

nadb.Locked = True

vn.Locked = True

pod.Locked = True

vsogo.Locked = True

pk.BackColor = &HFFFFFF

fah.BackColor = &HFFFFFF

rozrad.BackColor = &HFFFFFF

kilc.BackColor = &HFFFFFF

End If

'Доповнення

If i = 1 Then

Range("g3:s3").Select

Selection.Copy

Do While ActiveCell.Value <> ""

ActiveCell.Offset(1, 0).Select

Loop

ActiveSheet.Paste

ActiveCell.Offset(0, 1).Value = pk.Text

ActiveCell.Offset(0, 2).Value = fah.Text

ActiveCell.Offset(0, 3).Value = rozrad.Text

ActiveCell.Offset(0, 4).Value = kilc.Text

'Кнопки

odyn.Enabled = True

pop.Enabled = True

nast.Enabled = False

ost.Enabled = False

redag.Enabled = True

dop.Enabled = True

canc.Enabled = False

zber.Enabled = False

ex.Enabled = True

'Поля

dat.Locked = True

pk.Locked = True

fah.Locked = True

taruf.Locked = True

rozrad.Locked = True

kilc.Locked = True

narah.Locked = True

premia.Locked = True

nadb.Locked = True

vn.Locked = True

pod.Locked = True

vsogo.Locked = True

pk.BackColor = &HFFFFFF

fah.BackColor = &HFFFFFF

rozrad.BackColor = &HFFFFFF

kilc.BackColor = &HFFFFFF

End If

End Sub

<<< < Предыдущая 12 / 32 3 > Следующая >>>

Соседние файлы в предмете [НЕСОРТИРОВАННОЕ]

#
05.03.2016105.47 Кб28Заняття ЦПО (Понеділок).doc
#
05.03.2016264.19 Кб7заочники гроші.doc
#
01.04.20251.16 Mб0Записка іваніна тбв.doc
#
01.05.202599.84 Кб1ЗАПИСКА ДО ІІ кур.doc
#
01.05.2025517.15 Кб0Зародження і розвиток політичної економії.docx
#
01.05.2025399.36 Кб1Захист Коваленко.doc
#
05.09.201997.28 Кб8Зачем и как чистить свой организм.doc
#
01.07.2025219.56 Кб0Збірник завдань для семінарських занять ЕПРТ.docx
#
01.07.202529.2 Кб0збірник завдань для семінарських занять кухарі.docx
#
01.07.2025112.44 Кб0Збірник завдань для семінарських занять мех.docx
#
01.07.20251.25 Mб2ЗБІРНИК ЗАВДАНЬ ДПА 20.03 ОСТАТОЧНИЙ ВАРІАНТ.docx