, , . . 3.23 , . . , . .
, , . . . , , 1. , . , , . 3.24. , , .
. 3.23.
(. 3.25) . . . 3.25 , , :
;
;
;
;
.
, ( ), , (. 3.26) .
. 3.24.
. 3.25.
, . Name , ( ) :
Add_People
Del_People
Tr_People
. 3.26.
, , . . , . 3.27.
. 3.27.
, , . ( 3.19).
1234 | ' 3.19. , Private Sub Add_People_Click() AddNewSotr.ShowEnd Sub |
, , . 3.27. . . 3.2 Name .
|
|
3.2. AddNewSotr
Name | ||
TextBox | TabNum | |
TextBox | DatePriem | |
TextBox | Fam | |
TextBox | Ima | |
TextBox | Otch | |
ComboBox | Podrazdel | |
ComboBox | Dolznost | |
ComboBox | VidRab | |
ComboBox | Pol | |
ComboBox | VidDog | |
TextBox | DatePrikaz | |
TextBox | NumPrikaz | |
TextBox | Oklad | |
CommandButton | OK |
. UserForm_Activate 3.20.
12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152 | ' 3.20. , AddNewSotrPrivate Sub Userform_Activate()' N = 0While Worksheets("SPRAV").Cells(N + 2, 4).Value <> "" N = N + 1WendPodrazdel.ClearFor i = 1 To N Podrazdel.AddItem Worksheets("SPRAV").Cells(i + 1, 4).ValueNext' Dolznost.Clear' N = 0While Worksheets("").Cells(N + 2, 2).Value <> "" N = N + 1WendVidRab.ClearFor i = 1 To N VidRab.AddItem Worksheets("").Cells(i + 1, 2).ValueNextN = 0While Worksheets("").Cells(N + 2, 1).Value <> "" N = N + 1Wend' Pol.ClearFor i = 1 To N Pol.AddItem Worksheets("").Cells(i + 1, 1).ValueNextN = 0While Worksheets("").Cells(N + 2, 3).Value <> "" N = N + 1Wend' VidDog.ClearFor i = 1 To N VidDog.AddItem Worksheets("").Cells(i + 1, 3).ValueNext' N = 0While Worksheets("").Cells(N + 2, 1).Value <> "" N = N + 1Wend' Kod = Worksheets("").Cells(N + 1, 1).ValueIf N <> 0 Then' TabNum.Text = Kod + 1End If End Sub |
, , 3.20, . . 3.27, , . Kod = Worksheets("").Cells(N + 1, 1).Value . TabNum.
, ( ).
. , Podrazdel Dolznost ( ). 3.21 .
|
|
1234567891011121314151617 | ' 3.21. Private Sub Podrazdel_Click()Dolznost.Clear' N = 0While Worksheets(" ").Cells(N + 2, 1).Value <> "" N = N + 1WendNext For i = 1 To NIf Podrazdel.Text = Worksheets(" ").Cells(i + 1, 1).Value Then' , ' Dolznost.AddItem Worksheets(" ").Cells(i + 1, 2).ValueEnd If Next End Sub |
. 3.27, . 3.22.
123456789101112131415161718192021222324252627282930313233343536 | ' 3.22. Private Sub OK_Click()' N = 0While Worksheets("").Cells(N + 2, 1).Value <> "" N = N + 1WendWorksheets("").Cells(N + 2, 1).Value = TabNum.TextWorksheets("").Cells(N + 2, 2).Value = Fam.TextWorksheets("").Cells(N + 2, 3).Value = Ima.TextWorksheets("").Cells(N + 2, 4).Value = Otch.TextWorksheets("").Cells(N + 2, 5).Value = DatePriem.TextWorksheets("").Cells(N + 2, 6).Value = Dolznost.TextWorksheets("").Cells(N + 2, 7).Value = Podrazdel.TextWorksheets("").Cells(N + 2, 8).Value = Pol.TextWorksheets("").Cells(N + 2, 9).Value = VidRab.TextWorksheets("").Cells(N + 2, 10).Value = NumPrikaz.TextWorksheets("").Cells(N + 2, 11).Value = DatePrikaz.TextWorksheets("").Cells(N + 2, 12).Value = Oklad.Text' N = 0While Worksheets(" ").Cells(N + 2, 1).Value <> "" N = N + 1WendFor i = 1 To NIf Podrazdel.Text = Worksheets(" ").Cells(i + 1, 1).Value _And Worksheets(" ").Cells(i + 1, 2).Value = _Dolznost.Text Then' Worksheets(" ").Cells(i + 1, 6).Value = _CInt(Worksheets(" ").Cells(i + 1, 6).Value) + 1End If NextMsgBox (" ")HideEnd Sub |
, , 3.22, . . . . 3.28.
. 3.28.
, (. 3.21), . 3.23, ( ).
123456789101112131415 | ' 3.23. ( 2)Private Sub Podrazdel_Click()Dolznost.ClearN = 0While Worksheets(" ").Cells(N + 2, 1).Value <> "" N = N + 1WendFor i = 1 To NIf Podrazdel.Text = Worksheets(" ").Cells(i + 1, 1).Value _And (Worksheets(" ").Cells(i + 1, 3).Value) - _CInt(Worksheets(" ").Cells(i + 1, 6)) > 0 ThenDolznost.AddItem Worksheets(" ").Cells(i + 1, 2).ValueEnd If Next End Sub |
:
|
|
12 | (Worksheets(" ").Cells(i + 1, 3).Value) - _CInt(Worksheets(" ").Cells(i + 1, 6)) > 0 |
, ; , Yvolnenie (. 3.29), .
. 3.29.
, . Del_People_Click() , 8.24.
1234 | ' 3.24. Private Sub Del_People_Click() Yvolnenie.ShowEnd Sub |
(. 3.29) , (Label). (Name Spk), . (Name NumPrikaz) (Name DatePrikaz). (Name OK) . . , , ( 3.25).
12345678910111213141516 | ' 3.25. , . 3.29Private Sub UserForm_Activate()N = 0While Worksheets("").Cells(N + 2, 1).Value <> "" N = N + 1WendSpk.ClearFor i = 1 To N' , a = Worksheets("").Cells(i + 1, 2).Value + " " + _Worksheets("").Cells(i + 1, 3).Value + " " + _Worksheets("").Cells(i + 1, 4).Value' Spk.AddItem aNext End Sub |
, , .
, ( ). . . , , NumPrikaz DatePrikaz 13- 14- . . 3.26 , .
12345 | ' 3.26. . 3.29Private Sub Spk_Click()NumPrikaz.Text = Worksheets("").Cells(Spk.ListIndex + 2, 13).ValueDatePrikaz.Text = Worksheets("").Cells(Spk.ListIndex + 2, 14).ValueEnd Sub |
. , , ( 3.27).
|
|
1234567891011121314151617181920212223242526 | ' 3.27. Private Sub OK_Click()' , NomStr = Spk.ListIndex + 2' Worksheets("").Cells(NomStr, 14).Value = DatePrikaz.TextWorksheets("").Cells(NomStr, 13).Value = NumPrikaz.Text' Podrazdelenie = Worksheets("").Cells(NomStr, 7).ValueDolznost = Worksheets("").Cells(NomStr, 6).Value' N = 0While Worksheets(" ").Cells(N + 2, 1).Value <> "" N = N + 1WendFor i = 1 To NIf Podrazdelenie = Worksheets(" ").Cells(i + 1, 1).Value _And Worksheets(" ").Cells(i + 1, 2).Value = _Dolznost Then' Worksheets(" ").Cells(i + 1, 6).Value = _CInt(Worksheets(" ").Cells(i + 1, 6).Value) - 1End If NextMsgBox (" ")End Sub |
OK_Click() . . 3.28 .
. 3.30. Perevod
, . . , . 3.30. ( 3.28) .
1234 | ' 3.28. Private Sub Tr_People_Click() Perevod.ShowEnd Sub |
Perevod ComboBox ( ) ( Label). Label . ( Label). CommandButton. . 3.3 Name . , , . , 3.29.
3.3. Perevod
Name | ||
ComboBox | Spk | |
ComboBox | NewPodrazdel | |
ComboBox | NewDolznost | |
Label | StPodr | |
Label | StDolznost | |
CommandButton | OK |
123456789101112131415161718192021222324252627282930313233 | ' 3.29. , Private Sub UserForm_Activate()' N = 0While Worksheets("").Cells(N + 2, 1).Value <> "" N = N + 1Wend' Spk.ClearFor i = 1 To Na = Worksheets("").Cells(i + 1, 2).Value + " " + _Worksheets("").Cells(i + 1, 3).Value + " " + _Worksheets("").Cells(i + 1, 4).ValueSpk.AddItem aNext' N = 0While Worksheets("").Cells(N + 2, 4).Value <> "" N = N + 1WendNewPodrazdel.ClearFor i = 1 To N NewPodrazdel.AddItem Worksheets("").Cells(i + 1, 4).ValueNext' While Worksheets("").Cells(N + 2, 5).Value <> "" N = N + 1WendNewDolznost.ClearFor i = 1 To N NewDolznost.AddItem Worksheets("").Cells(i + 1, 5).ValueNext End Sub |
, . , , . . , , . 3.30.
1234567891011 | ' 3.30. Private Sub Spk_Click()If Worksheets("").Cells(Spk.ListIndex + 2, 14).Value = "" Then' StPodr.Caption = Worksheets("").Cells(ListIndex + 2, 7).Value' StDolznost.Caption = Worksheets("").Cells(Spk.ListIndex + 2, 6).ValueElseStPodr.Caption = ""End If End Sub |
( 3.31) NewDolznost .
|
|
123456789101112131415161718 | ' 3.31. Private Sub NewPodrazdel_Click()' NewDolznost.Clear' podschetN = 0While Worksheets(" ").Cells(N + 2, 1).Value <> "" N = N + 1WendFor i = 1 To NIf NewPodrazdel.Text = Worksheets(" ").Cells(i + 1, 1).Value _And (Worksheets(" ").Cells(i + 1, 3).Value - _CInt(Worksheets(" ").Cells(i + 1, 6).Value)) > 0 Then' NewDolznost.AddItem Worksheets(" ").Cells(i + 1, 2).ValueEnd If Next End Sub |
. 3.31 .
. 3.31.
( 3.32), . .
12345678910111213141516171819202122232425262728293031323334353637383940 | ' 3.32. . 3.31Private Sub OK_Click()' , Nom = Spk.ListIndex + 2' N = 0While Worksheets("").Cells(N + 2, 1).Value <> "" N = N + 1Wend' Worksheets("").Cells(Nom, 6).Value = NewDolznost.TextWorksheets("").Cells(Nom + 2, 7).Value = NewPodrazdel.Text' NN = 0While Worksheets(" ").Cells(NN + 2, 1).Value <> "" NN = NN + 1WendFor i = 1 To NNIf StPodr.Caption = Worksheets(" ").Cells(i + 1, 1).Value _And Worksheets(" ").Cells(i + 1, 2).Value = _StDolznost.Caption Then' Worksheets(" ").Cells(i + 1, 6).Value = _CInt(Worksheets(" ").Cells(i + 1, 6).Value) - 1Exit For End If Next For i = 1 To NNIf NewPodrazdel.Text = Worksheets(" ").Cells(i + 1, 1).Value _And Worksheets("SHTAT").Cells(i + 1, 2).Value = NewDolznost.Text Then' Worksheets(" ").Cells(i + 1, 6).Value = _CInt(Worksheets(" ").Cells(i + 1, 6).Value) + 1Oklad = Worksheets(" ").Cells(i + 1, 4).ValueWorksheets("").Cells(Nom, 12).Value = OkladExit For End If NextMsgBox (" ")End Sub |
. 3.32.
. 3.32.
26
1.
2. 2 ࠠ
3. 309()
4. :
5.
6. : , ; , .
7. :
:
, , , , , ,
, , , , , ;
, , , , ,
.
:
.
, .
, .
, .
1) , . . 3-5 . .
2) .
3) . . . . .
4) .
5) (, , , ). ( ).
Access
Access
Access .
27
1. .
2. 2 ࠠ
3. 309()
4. :
5.
6. : , ; , .
7. :
:
, , , , , ,
, , , , , ;
, , , , ,
.
:
.
, .
, .
, .
1) , . . 3-5 . .
2) .
3) . . . . .
4) .
5) (, , , ). ( ).
Access
Access
Access .
28
1. Internet Explorer.
2. 2 ࠠ
3. 309()
4. :
5.
6. : , ; , . - Internet Explorer. - Internet Explorer, , , . .
7. :