Разработка автоматизированной информационной системы учета объектов интеллектуальной собственности
Дипломная работа - Компьютеры, программирование
Другие дипломы по предмету Компьютеры, программирование
?оение отчетов о научных направлениях и научно-педагогических школах с использованием одного из двух критериев отбора: подразделение или научно-образовательное направление университета, построение отчетов об ОИС с применением сложного критерия отбора.
Используемая литература
1. Гончаров А.Ю. Access 2003. Самоучитель с примерами.
Приложение
Главная форма - вкладка Научные направления и НПШ.
Private Sub Form_Load()
Me! НН. Form. RecordSource = SELECT [Научные направления]. [ID направления] FROM [Научные направления] WHERE 0; обнуление данных в поле
Me! НПШ. Form. RecordSource = SELECT [НПШ]. [ID НПШ] FROM [НПШ] WHERE 0; обнуление данных в поле.п_под = обнуление данных в поле.п_под_НПШ = обнуление данных в поле.п_доп_НН = обнуление данных в поле.п_доп_НПШ = обнуление данных в поле! Форма! [сп_Ф.И.О.].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;обнуление данных в поле! Форма! [сп_рук].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; обнуление данных в поле
testFlag = False(7)SubSub Tree_NodeClick (ByVal Node As Object)p As Integer= Me. НаборВкладок3. Value храним номер открытой вкладкиmyDb As DatabasemyRec As Recordsetstr As String i As Integer.п_доп_НН = обнуление данных в поле.п_доп_НПШ = обнуление данных в поле! Форма! [сп_Ф.И.О.].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;обнуление данных в поле! Форма! [сп_рук].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; обнуление данных в поле
str = Left (Me. Tree. SelectedItem. Key, Len (Me. Tree. SelectedItem. Key) - 1) ID выделенного в дереве подразделенияmyDb = CurrentDbmyRec = myDb. OpenRecordset (SELECT * FROM Подразделения WHERE [ID подразделения]= & str &;)myRec! [ID родителя] vbNull Then
st = - & CStr (myRec! [Название краткое])
End If. Заголовок. Caption = CStr (myRec! [Название длинное]) & stIf.п_под = CStr (myRec! [Название длинное]) вывод названия подразделения на вкладке научные направления.п_под_НПШ = CStr (myRec! [Название длинное])вывод названия подразделения на вкладке НПШpod As String= search(str)список детей выделенного родителя - сама функция описана в отдельном модуле
Me! НН. Form. RecordSource = SELECT DISTINCT [Научные направления]. [ID направле-ния], [Научные направления]. [Научные направления] FROM [Научные направления] WHERE [id подразделения] IN ( & pod &);выборка научных направлений выделенно-го подразделения и его детей
Me! НПШ. Form. RecordSource = SELECT DISTINCT [НПШ]. [ID НПШ], [НПШ]. [Название НПШ] FROM [НПШ] WHERE [id подразделения] IN ( & pod &); выборка НПШ выде-ленного подразделения и его детей
Dim rec As Recordsetrec = CurrentDb. OpenRecordset ( SELECT [Научные направления]. [ID направления] As [m] FROM [Научные направления] WHERE [ID подразделения] IN ( & pod &);)rec. RecordCount = 0 Then проверка наличия научных направлений для подразделения и его детей
Me.к_изм. Enabled = False.к_удал. Enabled = False.к_изм. Enabled = True.к_удал. Enabled = True
End IfCInt(str) > 15 Then проверка на добавление (нельзя добавлять к факультету)
Me.к_добав. Enabled = True.к_доб_НПШ. Enabled = True.к_добав. Enabled = False.к_доб_НПШ. Enabled = FalseIfrec = CurrentDb. OpenRecordset ( SELECT [НПШ]. [ID НПШ] As [m] FROM [НПШ] WHERE [ID подразделения] IN ( & pod &);)
If rec. RecordCount = 0 Then проверка наличия НПШ для выделенного подразделения и его детей
Me.к_изм_НПШ. Enabled = False.к_уд_НПШ. Enabled = False.к_изм_НПШ. Enabled = True.к_уд_НПШ. Enabled = TrueIf. НаборВкладок3. Pages. Item(p).SetFocus переход на искпользуемую вкладку
End SubSub к_доб_НПШ_Click()
Me.п_кноп = 2поле для идентификации действия (изменить / добавить) для НПШ - добав-ление. Minimize. OpenForm Добав_НПШ форма для добавления / изменения информации о НПШ! Добав_НПШ. Caption = Добавление научно-педагогической школы
End SubSub к_добав_Click()
Me.п_инд = 2поле для идентификации действия (изменить / добавить) для научных на-правлений - добавление. Minimize. OpenForm Добав_ННформа для добавления / изменения информации о научных направлениях! Добав_НН. Caption = Добавление научного направления
End SubSub к_изм_Click()
Me.п_инд = 1поле для идентификации действия (изменить / добавить) для научных на-правлений - изменение
DoCmd. Minimize. OpenForm Добав_НН
Forms! Добав_НН. Caption = Изменение информации по научному направлению
End SubSub к_изм_НПШ_Click()
Me.п_кноп = 1поле для идентификации действия (изменить / доб