Разработка автоматизированной информационной системы учета объектов интеллектуальной собственности
Дипломная работа - Компьютеры, программирование
Другие дипломы по предмету Компьютеры, программирование
ководство] WHERE [ID подразделения] = & Forms! [Форма]! [Руководство]! [ID_подразделения] & AND [№ в группе] = & (num - 1) &;). Edit! [№ в группе] = myRec! [№ в группе] + 1
myRec. UpdatemyRec = myDb. OpenRecordset (SELECT * FROM [Руководство] WHERE [ID подразделения] = & Forms! [Форма]! [Руководство]! [ID_подразделения] & AND [ID руководителя] = & adress &;). Edit! [№ в группе] = myRec! [№ в группе] - 1
myRec. Update! [Форма]! [Руководство].Form. RequeryIfSubSub Вверх_GotFocus()testFlag Then. Nodes. Clear(tekPodrSelect)= FalseIfSubSub Вверх_подр_Click()myDb As DatabasemyDb = CurrentDbmyRec As RecordsetIDTek As Integer= Left (Me. Tree. SelectedItem. Key, Len (Me. Tree. SelectedItem. Key) - 1)myRec = myDb. OpenRecordset (SELECT [№ в группе] FROM [Подразделения] WHERE [ID подразделения] = & IDTek &;)numInGr As Integer= myRec! [№ в группе]
Set myRec = myDb. OpenRecordset (SELECT [ID родителя] FROM [Подразделения] WHERE [ID подразделения] = & IDTek &;)
Dim IDRod As Integer= myRec! [ID родителя]((numInGr maxNum Then
Dim adress As Integernum As Integer
adress = Forms! [Форма]! [Руководство]! [ID_руководителя]= Forms! [Форма]! [Руководство]! [№ в группе]
Set myRec = myDb. OpenRecordset (SELECT * FROM [Руководство] WHERE [ID подразделения] = & Forms! [Форма]! [Руководство]! [ID_подразделения] & AND [№ в группе] = & (num + 1) &;). Edit! [№ в группе] = myRec! [№ в группе] - 1
myRec. UpdatemyRec = myDb. OpenRecordset (SELECT * FROM [Руководство] WHERE [ID подразделения] = & Forms! [Форма]! [Руководство]! [ID_подразделения] & AND [ID руководителя] = & adress &;). Edit! [№ в группе] = myRec! [№ в группе] + 1
myRec. Update! [Форма]! [Руководство].Form. RequeryIfSubSub Вниз_GotFocus()testFlag Then. Nodes. Clear(tekPodrSelect)= FalseIfSubSub Вниз_подр_Click()myDb As DatabasemyDb = CurrentDbmyRec As RecordsetIDTek As Integer= Left (Me. Tree. SelectedItem. Key, Len (Me. Tree. SelectedItem. Key) - 1)myRec = myDb. OpenRecordset (SELECT [№ в группе] FROM [Подразделения] WHERE [ID подразделения] = & IDTek &;)numInGr As Integer= myRec! [№ в группе]
Set myRec = myDb. OpenRecordset (SELECT [ID родителя] FROM [Подразделения] WHERE [ID подразделения] = & IDTek &;)
Dim IDRod As Integer= myRec! [ID родителя]myRec = myDb. OpenRecordset (SELECT max([№ в группе]) As [MAXN] FROM [Подразделения] WHERE [ID родителя] = & IDRod &;)maxNum As Integer= myRec! [maxN]((numInGr vbNull Then. Nodes. Clear(Me. Поиск_подразделения. Column(0))IfSubSub Поиск_подразделения_NotInList (NewData As String, Response As Integer)
MsgBox (Выбрать подразделение можно только из списка!)
Response = acDataErrContinue. Поиск_подразделения. UndoSubSub Удаление_пдразделения_Click()MsgBox (Удалить подразделение?, vbYesNo) = vbYes ThenflOk As Boolean= Truestr As Stringrod As StringIDPodr As Integer= Left (Forms! [Форма]! Tree. SelectedItem. Key, Len (Forms! [Форма]! Tree. SelectedItem. Key) - 1)myDb As DatabasemyDb = CurrentDbmyRec As RecordsetmyRec = myDb. OpenRecordset (SELECT max([ID родителя]) As [ID] FROM [Подразделения] WHERE [ID подразделения] = & IDPodr &;)= myRec! [ID]flChildren As BooleanmyRec = myDb. OpenRecordset (SELECT max([ID подразделения]) As [IDR] FROM [Подразделения] WHERE [ID родителя] = & IDPodr &;)VarType (myRec! [IDR]) = vbNull Then= False= TrueIfflRuk As BooleanmyRec = myDb. OpenRecordset (SELECT max([ID руководителя]) As [R] FROM [Руководство] WHERE [ID подразделения] = & IDPodr &;)VarType (myRec! [R]) = vbNull Then= False= TrueIfmyRec = myDb. OpenRecordset (SELECT max([№ в группе]) As [NUMM] FROM [Подразделения] WHERE [ID подразделения] = & IDPodr &;)numInGr As Integer= myRec! [NUMM]rektorat As BooleanmyRec = myDb. OpenRecordset (SELECT [ID родителя] FROM [Подразделения] WHERE [ID подразделения] = & IDPodr &;)myRec! [ID родителя] = 1 ThenmyRec = myDb. OpenRecordset (SELECT max([№ в группе]) As [NUMMM] FROM [Подразделения] WHERE [ID родителя] = & 1 &;)myRec! [NUMMM] = 1 Then= TrueIfIfIDRod = 0 Then
MsgBox (Нельзя удалять вид подразделения!)
flOk = FalseflChildren Then
MsgBox (Нельзя удалять подразделение, если у него есть подчиненные подразделения!)
flOk = FalseflRuk Then
MsgBox (Нельзя удалять подразделение, если у него есть хоть кто-то в руководстве!)
flOk = Falserektorat Then
MsgBox (Руководство должно иметь хотя бы одно подразделение!)
0Then.DeleteIfIfIfIfIfflOkThenmyRec=myDb.OpenRecordset(SELECTmax([ID])as[MAXID]FROM[]WHERE[ID];)maxIDAsInteger=myRec![maxID]myRec=myDb.OpenRecordset(SELECT*FROM[%