Разработка автоматизированной информационной системы учета объектов интеллектуальной собственности
Дипломная работа - Компьютеры, программирование
Другие дипломы по предмету Компьютеры, программирование
b4WHERE[ID]=0;!![__].RowSource=SELECT[ID]FRom-WHERE[ID]=0;.__=.Requery!.Requeryrec=CurrentDb.OpenRecordset(SELECT[].[ID]as[id]FROM[]WHERE[id]=&str&;)">Set del = CurrentDb. OpenRecordset ( SELECT * FROM НН_руководитель WHERE [ID направления] = & id &;)Until del.EOF. Delete. MoveNextdel = CurrentDb. OpenRecordset ( SELECT * FROM НОН_Направление WHERE [ID направления] = & id &;)Until del.EOF. Delete. MoveNextdel = CurrentDb. OpenRecordset ( SELECT * FROM [Научные направления] WHERE [ID направления] = & id &;)Until del.EOF. Delete. MoveNextrec As Recordsetrec = CurrentDb. OpenRecordset ( SELECT max([ID направления]) as [n] FROM [Научные направления])rec. RecordCount > 1 Thenmaxid As StringUntil rec.EOF= rec! [n]. MoveNextrec = CurrentDb. OpenRecordset ( SELECT * FROM [Научные направления] WHERE [ID направления] = & maxid &; ). Edit! [ID направления] = CInt(id). UpdateIf! Форма! [сп_Ф.И.О.].RowSource = SELECT [ID подразделения] as [Ф.И.О.] FROM Подразделения WHERE [ID подразделения] = 0;! Форма! [сп_инф].RowSource = SELECT [ID подразделения] as [Телефон], [ID подразделения] as [E-mail] FROM Подразделения WHERE [ID подразделения] = 0;! Форма! [сп_НОН_НН].RowSource = SELECT [ID подразделения] FRom Подраз-деления WHERE [ID подразделения] = 0;.п_доп_НН = . Requery! НН. Requeryrec = CurrentDb. OpenRecordset ( SELECT [Научные направления]. [ID направления] as [id] FROM [Научные направления] WHERE [id подразделения] = & str &;)
If rec. RecordCount = 0 Then.к_удал. Enabled = False.к_изм. Enabled = FalseIf(Удаление прошло успешно).НН. SetFocusIfSub
Главная форма - управление деревом иерархий и вкладка ОИС.
vbNull)And(Me.ID_ )) ThenmyRec = myDb. OpenRecordset (SELECT max([№ в группе]) As [НОМЕР] FROM [Руководство] WHERE [ID подразделения] = & Me.ID_подразделения &;)VarType (myRec! [НОМЕР]) = vbNull Then. Добавить. SetFocus
0ThenUntilmyRec.EOF=myRec![]">Me. Удалить. Enabled = False. Изменить. Enabled = False. Вверх. Enabled = False. Вниз. Enabled = False. Удалить. Enabled = True. Изменить. Enabled = True. Вверх. Enabled = True. Вниз. Enabled = TrueIfIfSubSub bt_Изменение_GotFocus()testFlag Then. Nodes. Clear(tekPodrSelect)= FalseIfSubSub Form_Load()= False(7)_Table(Me.ID_подразделения)_In (Me.ID_подразделения)SubSub Tree_BeforeLabelEdit (Cancel As Integer)= TrueSubSub TreeViewIn (idTekP 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 &;
0Then.Form.RecordSource=SELECT*FROMWHERE[ID]=&str&;_Table(Me.ID_)_In(Me.ID_)=VarType(myRec![]) vbNull Then
st = - & CStr (myRec! [Название краткое])
End If. Заголовок. Caption = CStr (myRec! [Название длинное]) & stIfSubSub Кнопка67_Click()Error GoTo Err_Кнопка67_Click. PreviousControl. SetFocus. FindNext_Кнопка67_Click:Sub_Кнопка67_Click:Err. DescriptionExit_Кнопка67_ClickSubSub bt_Изменение_Click()Error GoTo Err_bt_Изменение_ClickstDocName As StringstLinkCriteria As String= ChrW(1048) & ChrW(1079) & ChrW(1084) & ChrW(1077) & ChrW(1085) & ChrW(1077) & ChrW(1085) & ChrW(1080) & ChrW(1077). OpenForm stDocName, stLinkCriteria_bt_Изменение_Click:Sub_bt_Изменение_Click:Err. DescriptionExit_bt_Изменение_ClickSubSub Tree_Updated (Code As Integer)testFlag Then. Nodes. Clear(tekPodrSelect)= FalseIfSubSub Вверх_Click() Forms! [Форма]! [Руководство]! [№ в группе] <> 1 Then
Dim adress As Integernum As Integer
adress = Forms! [Форма]! [Руководство]! [ID_руководителя]= Forms! [Форма]! [Руководство]! [№ в группе]
Dim myDb As DatabasemyDb = CurrentDbmyRec As RecordsetmyRec = myDb. OpenRecordset (SELECT * FROM [Ру