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

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






3. Лист «Сортування»


Малюнок 10. Сортування даних.


На цьому листі здійснюється сортування за зростанням: по № п/п, по ПІБ, по цеху, і за фахом, аналогічно і по зменшенням.

На аркуші розташовані дві кнопки: Меню і Сортувати. При натисканні кнопки Сортування виходить вікно:


Малюнок 11. Сортування даних


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

Private Sub CommandButton1_Click () OptionButton1=True Then ( A8: G1000 ). Select.Sort Key1:=Range ( A9 ), Order1:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottomOptionButton2=True Then ( A8: G1000 ). Select.Sort Key1:=Range ( A9 ), Order1:=xlDescending, Header:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottomIfSubSub CommandButton2_Click () OptionButton1=True Then ( A8: G1000 ). Select.Sort Key1:=Range ( B8 ), Order1:=xlAscending, Header :=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottomOptionButton2=True Then ( A8: G1000 ). Select.Sort Key1:=Range ( B8 ), Order1:=xlDescending, Header :=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottomIfSubSub CommandButton3_Click () OptionButton1=True Then ( A8: G1000 ). Select.Sort Key1:=Range ( C8 ), Order1: =xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottomOptionButton2=True Then ( A8: G1000 ). Select.Sort Key1:=Range ( C8 ), Order1: =xlDescending, Header:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottomIfSubSub CommandButton4_Click () OptionButton1=True Then ( A8: G1000 ). Select.Sort Key1:=Range ( D8 ), Order1:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottomOptionButton2=True Then ( A8: G1000 ). Select.Sort Key1:=Range ( D8 ), Order1:=xlDescending, Header:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottomIfSubSub CommandButton5_Click ()

UserForm2.HideSub

Також на аркуші «Сортування» розташована кнопка «Меню» - це перехід на головне меню, до якої прив'язаний наступний програмний код :

Sub Переходнатітульнийссортіровкі ()

'Переходнатітульнийссортіровкі Макрос ( Титульний лист ). SelectSub



4. Лист «Тарифи»


Малюнок 12. Зведена таблиця


На аркуші розташована таблиця, що складається з двох стовпців: «спеціальність» і «ціна робочого часу», а також на аркуші є кнопки «додавання», «видалення», «табель обліку» і «кнопка меню », для переходу на лист« Головне меню »

При натисканні на кнопку Додати відкривається форма «Додавання».


Малюнок 13. Додавання спеціальності



Форма складається з двох елементів Label1 і Label2, з двох текстових полів TextBox1, TextBox2 і двох кнопок CommandButton1 з властивістю Caption, якому присвоєно значення «Додати», і CommandButton2 з властивістю Caption, якому присвоєно значення «Закрити ».

Програмний код для кнопки «Додати»:

Private Sub CommandButton1_Click () поточна As Objectследующая As ObjectTextBox1= Or Text2= Then ( Введені не всі дані )

Exit SubIf.Sheets ( Тарифи ). Selectтекущая=ActiveSheet.Range ( A12 ) While Not IsEmpty (поточна)

Set наступна=текущая.Offset (0, 1) поточна=наступна

Loop

текущая.Value=TextBox1.Text

текущая.Offset (0, 1) .Value=TextBox2.Text.Text= .Text= Sub

Для кнопки ЗакритьSub CommandButton2_Click (). HideSub

Форма «Видалення»



Малюнок 14. Видалення спеціальності


Форма складається з одного елемента ComboBox і двох кнопок CommandButton

Програмний код для кнопки CommandButton1 (Видалення):

Dim h As ByteY As Byte

h=MsgBox ( Ви дійсно хочете видалити цю спеціальність? raquo ;, vbYesNo + vbQuestion, Видалення )

If h=vbYes Then Else GoTo e

name=ComboBox1ComboBox1= Then=MsgBox ( Видалення неможливо, так як не виділений об'єкт raquo ;, vbYes + vbQuestion, Видалення )

If Y=vbYes Then GoTo 12 Else GoTo eIf.Sheets ( Тарифи ). Activatepr=ActiveSheet.Range ( C11 ) While Not IsEmpty (pr) X=pr.Offset ( 1, 0) pr=name Then.Select.EntireRow.DeleteIfpr=X.Sheets ( Тарифи ). Activatepr=ActiveSheet.Range ( A6 ) While...


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





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

  • Реферат на тему: Оптимізація та управління технологічним процесом обслуговування АТС (на при ...
  • Реферат на тему: Техніка для видалення пилу з поверхонь
  • Реферат на тему: Видалення невидимих ??ліній і поверхонь
  • Реферат на тему: Сучасне обладнання для видалення нафти і нафтопродуктів
  • Реферат на тему: Оперативне видалення пухлин під шкірою (гемангіома)