Разработка автоматизированной информационной системы учета объектов интеллектуальной собственности
Дипломная работа - Компьютеры, программирование
Другие дипломы по предмету Компьютеры, программирование
d0]WHERE[ID]=&maxID&;).Edit![ID]=IDPodr.UpdatemyRec=myDb.OpenRecordset(SELECT*FROM[]WHERE[ID]=&maxID&;)myRec.RecordCount vbNull Then= myRec! [MAXNUMINGR]= 1Ifi = (numInGr + 1) To maxNumInGroopmyRec = myDb. OpenRecordset (SELECT * FROM [Подразделения] WHERE [ID родителя] = & IDRod & AND [№ в группе] = & i &;)
myRec. Edit! [№ в группе] = myRec! [№ в группе] - 1
myRec. Updateiidp As IntegermyRec = myDb. OpenRecordset (SELECT [ID подразделения] FROM [Подразделения] WHERE [ID родителя] = & IDRod & AND [№ в группе] = & 1 &;)((VarType (myRec! [ID подразделения]) 0)) Then= myRec! [ID подразделения]myRec = myDb. OpenRecordset (SELECT [ID подразделения] FROM [Подразделения] WHERE [ID подразделения] = & IDRod &;)= myRec! [ID подразделения]IfmyRec = myDb. OpenRecordset (SELECT [ID родителя] FROM [Подразделения] WHERE [ID подразделения] = & idp &;)myRec! [ID родителя] = 0 ThenmyRec = myDb. OpenRecordset (SELECT [ID подразделения] FROM [Подразделения] WHERE [ID родителя] = & 1 & AND [№ в группе] = & 1 &;)= myRec! [ID подразделения]If. Nodes. Clear(idp)IfIfSub
Private Sub Удаление_пдразделения_GotFocus()
If testFlag Then. Nodes. Clear(tekPodrSelect)= FalseIfSubSub Удалить_Click()
If MsgBox (Вы действительно хотите удалить & Forms! [Форма]! [Руководство]! [Поле26] & из подразделения & Me. Название_длинное &?, vbYesNo) = vbYes Then
Dim myDb As DatabasemyDb = CurrentDbmyRec As RecordsetmyRec = myDb. OpenRecordset (SELECT max([№ в группе]) As [НОМЕР] FROM [Руководство] WHERE [ID подразделения] = & Me.ID_подразделения &;)maxNum As Integer= myRec! [НОМЕР]adress As Integernum As Integer
adress = Forms! [Форма]! [Руководство]! [ID_руководителя]= Forms! [Форма]! [Руководство]! [№ в группе]
Set myRec = myDb. OpenRecordset (SELECT * FROM [Руководство] WHERE [ID подразделения] = & Forms! [Форма]! [Руководство]! [ID_подразделения] & AND [ID руководителя] = & Forms! [Форма]! [Руководство]! [ID_руководителя] &;)myRec. RecordCount maxNum Then
For i = num + 1 To maxNummyRec = myDb. OpenRecordset (SELECT * FROM [Руководство] WHERE [ID подразделения] = & Me.ID_подразделения & AND [№ в группе] = & i &;)
myRec. Edit! [№ в группе] = myRec! [№ в группе] - 1
0ThenUntilmyRec.EOF=myRec![]">myRec. UpdateiIf! [Форма]! [Руководство].Form. RequeryIfSubSub Добавить_Click()Error GoTo Err_Добавить_ClickstDocName As StringstLinkCriteria As String= ChrW(1044) & ChrW(1086) & ChrW(1073) & ChrW(1072) & ChrW(1074) & ChrW(1083) & ChrW(1077) & ChrW(1085) & ChrW(1080) & ChrW(1077). OpenForm stDocName, stLinkCriteria_Добавить_Click:Sub_Добавить_Click:Err. DescriptionExit_Добавить_ClickSubSub Добавление_Click()Error GoTo Err_Добавление_ClickstDocName As StringstLinkCriteria As String= ChrW(1044) & ChrW(1086) & ChrW(1073) & ChrW(1072) & ChrW(1074) & ChrW(1083) & ChrW(1077) & ChrW(1085) & ChrW(1080) & ChrW(1077) & ChrW(32) & ChrW(1087) & ChrW(1086) & ChrW(1076) & ChrW(1088) & ChrW(1072) & ChrW(1079) & ChrW(1076) & ChrW(1077) & ChrW(1083) & ChrW(1077) & ChrW(1085) & ChrW(1080) & ChrW(1103). OpenForm stDocName, stLinkCriteria_Добавление_Click:Sub_Добавление_Click:Err. DescriptionExit_Добавление_ClickSubSub renewingTree (activPodr As Integer)nodX As NodemyDb As DatabasemyRec As RecordsetnodName As Stringstr As Stringst As Stringfl As BooleanmyDb = CurrentDbmyRec = myDb. OpenRecordset (SELECT [ID подразделения], [Название длинное], [Название краткое], [ID родителя], [№ в группе] FROM Подразделения ORDER BY [ID родителя], [№ в группе];)= TruemyRec. RecordCount <> 0 ThenUntil myRec.EOF= myRec! [Название длинное]
If VarType (myRec! [Название краткое]) vbNull Then= - & CStr (myRec! [Название краткое])If. Заголовок. Caption = CStr (myRec! [Название длинное]) & st
End IfIf. MoveNextSubIf. Form. RecordSource = SELECT * FROM Подразделения WHERE [ID подразделения]= & str &;SubSub Поиск_Click()Error GoTo Err_Поиск_ClickstDocName As StringstLinkCriteria As String. OpenForm stDocName, stLinkCriteria_Поиск_Click:Sub
End Sub