Разработка автоматизированной информационной системы учета объектов интеллектуальной собственности
Дипломная работа - Компьютеры, программирование
Другие дипломы по предмету Компьютеры, программирование
В°вить) для НПШ - изме-нение
DoCmd. Minimize. OpenForm Добав_НПШ
Forms! Добав_НПШ. Caption = Изменение информации по НПШ
End SubSub к_печать_Click(). MinimizeMe. НаборВкладок3. Value = 1 Then проверка рабочей вкладки - научные направления
DoCmd. OpenForm Печать! Печать. Caption = Просмотр и печать отчета по научным направлениям
End IfMe. НаборВкладок3. Value = 2 Then проверка рабочей вкладки - НПШ
DoCmd. OpenForm Печать! Печать. Caption = Просмотр и печать отчета по НПШ
End IfSubSub к_уд_НПШ_Click()id As String= Forms! Форма! НПШ! [ID НПШ]получение ID удаляемой НПШ
Dim str As String= CurrentDb. OpenRecordset ( SELECT Подразделения. [ID подразделения] FROM Подразделения INNER JOIN [НПШ] ON Подразделения. [ID подразделения] = [НПШ]. [ID подразделения] WHERE [НПШ]. [ID НПШ]= & id &;)! [ID подразделения] ID подразделения, к которому относиться удаляемая НПШ
If MsgBox (Удалить НПШ?, vbYesNo) = vbYes Then
Dim del As Recordsetdel = 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 &;)1ThenmaxidAsStringUntilrec.EOF=rec![n].MoveNextrec=CurrentDb.OpenRecordset(SELECT*FROM[]WHERE[ID]=&maxid&;)ID.Edit![ID]=CInt(id)IDID.UpdateIf.Requery!.Requery!![_].RowSource=SELECT[ID]as[...]FROMWHERE[ID]=0;!![_].RowSource=SELECT[ID]as[],[ID]as[E-mail]FROMWHERE[ID]=0;!![__].RowSource=SELECT[ID]FRomWHERE[ID]=0;.__=rec=CurrentDb.OpenRecordset(SELECT[].[ID]as[id]FROM[]WHERE[id]=&str&;)rec.RecordCount=0Then.__.Enabled=False.__.Enabled=FalseIf().Tree.SetFocus..SetFocusIfSubSub__Click()idAsString=Forms!!![id]strAsString=CurrentDb.OpenRecordset(SELECT.[ID]FROMINNERJOIN[]ON.[ID]=[].[ID]WHERE[].[ID]=&id&;)![ID]">удаляем данные о НПШ из таблицы НПШUntil del.EOF. Delete. MoveNextrec As Recordsetrec = CurrentDb. OpenRecordset ( SELECT max([ID НПШ]) as [n] FROM [НПШ]) находим максимальный ID среди НПШrec. RecordCount > 1 Thenmaxid As StringUntil rec.EOF= rec! [n]. MoveNextrec = CurrentDb. OpenRecordset ( SELECT * FROM [НПШ] WHERE [ID НПШ] = & maxid &; ) находим строку в таблице НПШ с максимальным ID. Edit! [ID НПШ] = CInt(id) заменяем ее ID на ID удаленной строки. UpdateIf. Requery! НПШ. Requery! Форма! [сп_рук].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;.п_доп_НПШ = rec = CurrentDb. OpenRecordset ( SELECT [НПШ]. [ID НПШ] as [id] FROM [НПШ] WHERE [id подразделения] = & str &;)rec. RecordCount = 0 Then.к_уд_НПШ. Enabled = False.к_изм_НПШ. Enabled = FalseIf(Удаление прошло успешно). Tree. SetFocus.НПШ. SetFocusIfSubSub к_удал_Click()id As String= Forms! Форма! НН! [id]str As String= CurrentDb. OpenRecordset ( SELECT Подразделения. [ID подразделения] FROM Подразделения INNER JOIN [Научные направления] ON Подразделения. [ID подразделения] = [Научные направления]. [ID подразделения] WHERE [Научные направления]. [ID направления]= & id &;)! [ID подразделения]
If MsgBox (Удалить направление?, vbYesNo) = vbYes Then
Dim del As Recordset
1ThenmaxidAsStringUntilrec.EOF=rec![n].MoveNextrec=CurrentDb.OpenRecordset(SELECT*FROM[]WHERE[ID]=&maxid&;).Edit![ID]=CInt(id).UpdateIf!![_...].RowSource=SELECT[ID]as[...]FROMWHERE[ID]=0;!![_].RowSource=SELECT[ID]as[],[ID]as[E-mail]FROM%