Создание типового проекта для отдела кадров российских организаций, страница 10

При выборе меню «Документы» - «Штатное расписание» появляется экранная форма отчёта.

          Для печати отчёта следует нажать активировавшуюся в главном меню кнопку «Печать» и выбрать параметры печати.

Для выхода из форм следует нажать на крестик.

Меню «Штатное расписание»

Должность.

При выборе меню «Штатное расписание - «Должность» активируется экранная форма «Должность».

Для того чтобы добавить в базу данных новую должность, следует нажать кнопку «Добавить» и корректно заполнить все поля пустой формы

Для сохранения заполненного бланка следует нажать кнопку «Сохранить».

Для просмотра полученного результата следует нажать кнопку «Просмотр».

Для сохранения заполненного бланка и выхода следует нажать кнопку «Сохранить».

Меню «Справка»

Данная функция предназначена для вызова справочной системы. Для выполнения вызова справочной системы необходимо осуществить следующий набор действий. В главном меню выбрать пункт «Справка»  -         «Инструкция по эксплуатации» или «О программе».

Инструкция по эксплуатации

При выборе меню «Справка» - «Инструкция по эксплуатации» на экране активируется форма «Инструкция по эксплуатации». Эта форма предназначена специально для помощи пользователю в пользовании данной программой.

О программе

При выборе меню «Справка» - «О программе» на экране активируется форма «О программе», где выводиться информация о программном изделии (название, создателе и дате разработке программного продукта.)

Меню «Выход»

При нажатии в меню «Выход» закрывается программа «АРМ секретаря», а также и MS Access 2003. Происходит выход из приложения

Приложение 6.

Форма frmPriem «Добавить сотрудника»

Листинг

Dim rs2, rs, rs1, db, rs3 As Variant

Dim NomOtd, NomDol As Variant

Private Sub Calendar1_Click()

Text5 = Calendar1

Calendar1.Visible = False

End Sub

Private Sub Combo1_Click()

If Text2 <> "" And Text3 <> "" And Text4 <> "" And Combo1 <> "" And Combo2 <> "" And Combo3 <> "" And Text5 <> "" Then

Command2.Enabled = True

End If

rs1.MoveFirst

Do Until rs1.EOF

If Combo1 = rs1.Fields("Отдел") Then

NomOtd = Val(rs1.Fields("НомОтд"))

End If

rs1.MoveNext

Loop

End Sub

Private Sub Combo2_Click()

Combo3.Enabled = True

If Text2 <> "" And Text3 <> "" And Text4 <> "" And Combo1 <> "" And Combo2 <> "" And Combo3 <> "" And Text5 <> "" Then

Command2.Enabled = True

End If

Combo3.Clear

'Set rs2 = db.OpenRecordset("Должности", dbOpenDynaset)

rs2.MoveFirst

Do Until rs2.EOF

If Combo2 = rs2.Fields("Должность") Then

NomDol = Val(rs2.Fields("НомДолжн"))

k = Val(rs2.Fields("КолвоРазр"))

For j = 1 To k

Combo3.AddItem (j)

Next

End If

rs2.MoveNext

Loop

End Sub

Private Sub Combo3_Click()

If Text2 <> "" And Text3 <> "" And Text4 <> "" And Combo1 <> "" And Combo2 <> "" And Combo3 <> "" And Text5 <> "" Then

Command2.Enabled = True

End If

End Sub

Private Sub Command1_Click()

frmDelo.Show

End Sub

Private Sub Command2_Click()

Set rs3 = db.OpenRecordset("Работники", dbOpenDynaset)

Set rs6 = db.OpenRecordset("ОНайме", dbOpenDynaset)

Set rs8 = db.OpenRecordset("Тарифы", dbOpenDynaset)

Set rs2 = db.OpenRecordset("Должности", dbOpenDynaset)

Set rs7 = db.OpenRecordset("РеквизитыФирмы", dbOpenDynaset)

'rs3.MoveLast

With rs3

.AddNew

.Fields("ТабНом").Value = Text1

.Fields("Состояние").Value = "Работает"

.Fields("НомДолжн").Value = Val(NomDol)

.Fields("Разряд").Value = Val(Combo3)

.Fields("ДатаНайма").Value = Text5

.Fields("ДатаУвол").Value = Text5

.Fields("НомОтд").Value = Val(NomOtd)

.Fields("ДругиеДанн").Value = Text6

.Update

End With

rs2.MoveFirst

       Do Until rs2.EOF

         If Combo2 = rs2.Fields("Должность") Then

         Ndol = rs2.Fields("НомДолжн")

         End If

       rs2.MoveNext

       Loop

rs8.MoveFirst

       Do Until rs8.EOF

         If Ndol = rs8.Fields("НомДолжн") And Combo3 = rs8.Fields("Разряд") Then

         Tarif = rs8.Fields("Тариф")

         End If

       rs8.MoveNext

       Loop

rs6.MoveFirst

k = 0

Do Until rs6.EOF

k = k + 1

rs6.MoveNext

Loop

With rs6

.AddNew

.Fields("НомДокНайм").Value = k + 1

.Fields("ТабНом").Value = Text1

.Fields("ДатаНайма").Value = Text5

.Fields("НомДолжн").Value = Val(NomDol)

.Fields("НомОтд").Value = Val(NomOtd)

.Fields("Разряд").Value = Combo3

.Fields("Тариф").Value = Val(Tarif)

.Fields("НаимПредприятия").Value = rs7.Fields("Наименование")

.Update

End With

Text1 = Text1 + 1

Text2 = ""

Text3 = ""

Text4 = ""

Text5 = ""

Combo1 = ""

Combo2 = ""

Combo3 = ""

End Sub

Private Sub Command3_Click()

Unload Me

End Sub

Private Sub Command4_Click()

Calendar1.Visible = True

End Sub

Private Sub Form_Load()

i = 1

Set db = OpenDatabase(Name:="c:\Pis.mdb")

Set rs = db.OpenRecordset("Работники", dbOpenDynaset)

Do Until rs.EOF

i = i + 1

rs.MoveNext

Loop

Text1 = i

Set rs1 = db.OpenRecordset("Отделы", dbOpenDynaset)

Set rs2 = db.OpenRecordset("Должности", dbOpenDynaset)

Do Until rs2.EOF

Combo2.AddItem rs2.Fields("Должность")

rs2.MoveNext

Loop

Do Until rs1.EOF

Combo1.AddItem rs1.Fields("Отдел")

rs1.MoveNext

Loop

End Sub

Private Sub Text2_Change()

If Text2 <> "" And Text3 <> "" And Text4 <> "" Then

Command1.Enabled = True

End If

End Sub

Private Sub Text3_Change()

If Text2 <> "" And Text3 <> "" And Text4 <> "" Then

Command1.Enabled = True

End If

End Sub

Private Sub Text4_Change()

If Text2 <> "" And Text3 <> "" And Text4 <> "" Then

Command1.Enabled = True

End If

End Sub