| |
 95 Кб. |
|
| | Здравствуйте!!! Имеется форма "frmШР". В нескольких подразделениях могут быть одинаковые должности
Помогите пожалуйста реализовать следующее:
1) При добавлении/удалении нового подразделения в подчиненную форму "frmDepartament" (подразделения), необходимо производить те же действия и в дереве (добавлять/удалять узлы)
2) При добавлении/удалении новой должностив подчиненную форму "frmPost" (должности), необходимо производить те же действия и в дереве (добавлять/удалять узлы)
3)При нажатии на узел, который содержит название определенной должности, необходимо отображать сотрудника находящегося на данной должности в подразделении-родителе. | |
| |
| |
| |
|
|
| | на этом сайте есть пример работы ActiveX | |
| |
| |
| |
|
|
| | Да, я видел, на основе работ с этого сайта и соббственного опыта была сделана основная часть работы, а вот вышеперечисленные задачи реализовать не получилось. | |
| |
| |
| |
|
|
| | TreeView full help
http://www.hot.ee/jurisfox/vfpplus/ax_treeview_02_ru.htm | |
| |
| |
| |
|
|
| | Поскольку часть работы с TV описана в модуле формы frmШР, там и продолжим, на примере подчиненной формы fsubDepartament.
1. Префиксы ключей опишем константами:
Const strKeyRoot As String = "U"
Const KeyDept As String = "D"
|
2. Подпишемся на события класса Form подчиненной формы fsubDepartament:
Private WithEvents frmDept As Form
|
3. В процедуре Form_Open назначим ссылку на подчиненую форму и назначим значения свойств:
Set frmDept = Me.fsubDepartament.Form
With frmDept
.AfterInsert = "[Event Procedure]"
.OnDelete = "[Event Procedure]"
End With
|
4. Опишем процедуры событий frmDept:
Private Sub frmDept_AfterInsert()
Dim nodX As Node
With frmDept
Set nodX = trvEmployee.Nodes.Add(strKeyRoot, tvwChild, KeyDept & .КодПодразделения, _
.НаимПодразделения, 3, 4)
nodX.Tag = .КодПодразделения
End With
trvEmployee.Nodes(nodX.Key).Selected = True
trvEmployee_NodeClick nodX
End Sub
Private Sub frmDept_Delete(Cancel As Integer)
trvEmployee.Nodes.Remove KeyDept & frmDept.КодПодразделения
End Sub
|
Как-так, вкратце.
По второй подчиненной форме почти аналогично.
Третий пункт вроде как уже работает?
Чуть не забыл: Из подчиненной формы код добавления узла удалим. | |
| |
| |
| |
|
|
| | Спасибо Lukas, я смотрю с классами работать на много проще!!! Можете порекомендоваь какую-небудь литературу. | |
| |
| |
| |
17 Кб. |
|
| | Могу. => | |
| |
| |
| |
|
|
| | О есть такая.... Нужно будет почитать!!! Спасибо!! | |
| |
| |
| |
88 Кб. |
|
| | ==> | |
| |
| |
| |
88 Кб. |
|
| | Исправьте пожалуйста ошибки....
Ошибки возникают при открытии формы, добавлении должности, и при удалении подразделения с должностями. | |
| |
| |
| |
52 Кб. |
|
| | В последнем прицепе битый файл. Сделал пример на основе прицепа из первого вопроса. | |
| |
| |
| |
|
|
| | Огромное вам спасибо Lukas!!!! Очень Вам признателен за помощь!!!! | |
| |
| |
| |
21 Кб. |
|
| | и как у тебя терпения и времени хватает???
ЗЫ
=>> | |
| |
| |
|
|
