Теми рефератів
> Реферати > Курсові роботи > Звіти з практики > Курсові проекти > Питання та відповіді > Ессе > Доклади > Учбові матеріали > Контрольні роботи > Методички > Лекції > Твори > Підручники > Статті Контакти
Реферати, твори, дипломи, практика » Курсовые проекты » Інформаційно-аналітична система &Зарплата&

Реферат Інформаційно-аналітична система &Зарплата&





t= .Text= .Text= Sub

Для кнопки «Скасувати»

Private Sub CommandButton2_Click (). Hide

End Sub

Кнопка «Видалення даних»:


Малюнок 8. Видалення даних.


До кнопці «Видалити» прив'язаний наступний код:

Private Sub ComboBox1_Change (). Sheets ( Табель обліку робочого часу ). Select

Dim i As Integerj As Integera As Integerстрока As Integer

рядок=Application.CountA (Sheets ( Табель обліку робочого часу ). Columns (1))=9While i lt;=рядок=i + 1Cells (i, 1)= Then=iDoIfb=10 To iComboBox1.Text=Cells (b, 2) .Value Then.Value=Cells (b, 3) .Value=Cells (b, 4) .Value=Cells (b, 5) IfbSubSub CommandButton1_Click ().HideComboBox1.Text=Empty Then

MsgBox Ви повинні вибрати прізвище робочого .Show=MsgBox ( Зараз відбудеться видалення raquo ;, vbOKCancel)

End Iff=vbOK Then

Sheets ( Табель обліку робочого часу ). Select

Dim i As Integerj As Integerстрока As Integer

рядок=Application.CountA (Sheets ( Табель обліку робочого часу ). Columns (1))=11While i lt;=рядок=i + 1Cells (i, 1)= Then=iDoIfb=11 To iComboBox1.Text=Cells (b, 9) Then (b, 9) .Select.EntireRow.DeleteIfbIfSubSub CommandButton2_Click (). HideSubSub TextBox1_Change () IsNumeric (TextBox1.Text) And Len (TextBox1) lt; gt ; 0 Then

MsgBox Треба вводити тільки текстові дані! Raquo ;, vbOKOnly + vbInformation

TextBox1.Value= .SetFocusIfSubSub TextBox2_Change () IsNumeric (TextBox2.Text) And Len (TextBox2) lt; gt; 0 Then

MsgBox Треба вводити тільки текстові дані! Raquo ;, vbOKOnly + vbInformation

TextBox2.Value= .SetFocusIfSubSub TextBox3_Change () TextBox3.Value lt; 0 Then Числа не повинні бути негативні! Raquo ;, vbOKOnly + vbInformation.SetFocusIfNot IsNumeric (TextBox3.Text) And Len (TextBox3) lt; gt; 0 Then

MsgBox Вводити треба числові дані! raquo ;, vbOKOnly + vbInformation

TextBox3.Value= .SetFocusIfSubSub UserForm_Activate (). Text= .Text= .Text= .Text= SubSub ComboBox1_Enter (). Clear ( Табель обліку робочого часу ). Selecti As Integer, j As Integer, рядок As Integer

рядок=Application.CountA (Sheets ( Табель обліку робочого часу ). Columns (2))=11While i lt;=рядок=i + 1Cells (i, 2)= Then=iDoIfa=11 To i.AddItem Cells (a, 2) a

End Sub

Код для кнопки «Скасувати»

Private Sub CommandButton2_Click (). Hide

End Sub

Кнопка «Пошук і зміна даних»:



Малюнок 9. Пошук і зміна даних


Програмний код:

Private Sub ComboBox1_Change (). Clear.Text= .Text=

For sss=10 To 5000ComboBox1.Text=Sheets ( Табель обліку робочого часу ). Cells (sss, 3) .Text Then.AddItem Sheets ( Табель обліку робочого часу ). Cells (sss, 2) .TextIfSubSub CommandButton1_Click () sss=10 To 8000ComboBox1.Text=Sheets ( Табель обліку робочого часу ). Cells (sss, 3) .Text And ListBox1.Text=Sheets ( Табель обліку робочого часу ). Cells (sss, 2) .Text Then ( Табель обліку робочого часу ). Cells (sss, 5)=TextBox2.TextIf.Clear.Text= .Text= SubSub CommandButton2_Click (). HideSubSub ListBox1_Click () sss=10 To 8000ComboBox1.Text=Sheets ( Табель обліку робочого часу ). Cells (sss, 3) .Text And ListBox1.Text=Sheets ( Табель обліку робочого часу ).Cells (sss, 2) .Text Then.Text=Sheets ( Табель обліку робочого часу ). Cells (sss, 3) .Text.Text=Sheets ( Табель обліку робочого часу ). Cells (sss, 4) .TextIfSubSub TextBox1_Change () SubSub TextBox2_Change () SubSub UserForm_Activate ()

Sheets ( Табель обліку робочого часу ). Select

Range ( A10: H8000 ). Select.Sort Key1:=Range ( C9 ), Order1:=xlDescending, Header:=xlGuess, OrderCustom:=1, MatchCase:= False, Orientation:=xlTopToBottom

For ads=11 To 8000Sheets ( Табель обліку робочого часу ). Cells (ads, 3) .Text= Then Exit SubSheets ( Табель обліку робочого часу ). Cells (ads, 4) .Text=Sheets ( Табель обліку робочого часу ). Cells (ads + 1, 2) .Text Then GoTo 3.AddItem Sheets ( Табель обліку робочого часу ). Cells (ads, 3) .Text

3 NextSub

При натисканні кнопки «Меню головне» відбувається перехід на лист, де міститься головне меню.

До кнопці «Закрити» прив'язаний наступний код:

Private Sub CommandButton4_Click (). Hide

End Sub

...


Назад | сторінка 2 з 6 | Наступна сторінка





Схожі реферати:

  • Реферат на тему: Система управління доступом і обліку робочого часу Папілон GWI
  • Реферат на тему: Phonetic peculiarities of the popular science text
  • Реферат на тему: Grammar of the Text: its Basic Units and Main Features (based on the novel ...
  • Реферат на тему: Технології аналізу даних (Text Mining, Data Mining)
  • Реферат на тему: Поняття та види робочого часу і часу відпочинку