Dim rs1 As New ADODB.Recordset
'переменная типа Recorgset
Dim rs2 As New ADODB.Recordset
SQL1 = "SELECT [Список ордеров].* FROM [Список ордеров]" SQL2 = "SELECT [Товары ордера].* FROM [Товары ордера]"
'тексты SQL-запросов – источника данных Recordset
Rs1.Open SQL1, CurrentProject.Connection, _ adOpenDynamic, adLockOptimistic
Rs2.Open SQL2, CurrentProject.Connection, _ adOpenDynamic, adLockOptimistic
' создаем динамические курсоры для таблиц Список ордеров ' и Товары ордера с оптимистической блокировкой записей
Set objWord = CreateObject("Word.Application")
'создаем объект типа Word.Application
'objWord.Visible = True
' – только до завершения отладки
Set objDoc = _
objWord.Documents.Open("d:\asg\Приходный ордер.docx ")
'открываем файл для объекта objWord
N_ord = objDoc.Tables(1).Cell(2, 1).Range.Calculate Data_ord = objDoc.Tables(1).Cell(2, 2)
Data_ord = CDate(Left(Data_ord, Len(Data_ord) - 2)) Str_podrazd = objDoc.Tables(1).Cell(2, 3).Range.Calculate With rs1
AddNew
'добавляем строку в курсор
.Fields("№ ордера") = N_ord .Fields("Дата составления") = Data_ord
.Fields("Структурное подразделение") = Str_podrazd .Update
' пытаемся сохранить курсор в таблице базы
If Err.Number <> 0 Then
'если сохранить не удается
otv = MsgBox("Есть в базе данных базу Ордер с № " _ & N_ord& ".Добавить товар в этот приходный ордер?",_ vbYesNo+vbExclamation,"Есть такой приходный ордер!")
If otv = 7 Then
' нажата кнопка НЕТ
Rs1.Close
Rs2.Close
ObjDoc.Close
ObjWord.Quit
Exit Sub
' выход из процедуры
End If End If
End With
n = objDoc.Tables(2).Rows.Count
'определяем количество строк в таблице 2 документа Word
no_dat = ""
'строка для записи неудачных операций.Update
|
|
yes_dat = ""
' строка для записи удачных операций.Update
For i = 2 To n
s = objDoc.Tables(2).Rows(i)
' i-я строка таблицы 1 документа
fld = Split(s, Chr(13) + Chr(7))
' i-тую строку таблицы разбиваем на поля для массива fld
With rs2
' далее к методам и свойствам объекта rs
' можно обращаться, начиная с точки
AddNew
'добавить запись в курсор
.Fields("№ ордера") = N_ord
.Fields("Наименование, сорт, размер, марка") = fld(0)
.Fields("Наименование ед-цы измерения") = fld(1)
.Fields("Количество по документу") = Eval(fld(2))
.Fields("Цена, руб коп") = Eval(fld(3))
Update
' команда сохранить курсор в таблице базы
If Err.Number <> 0 Then
'если сохранить не удается
no_dat = no_dat & fld(0) & vbLf Else
yes_dat = yes_dat & fld(0) & vbLf End If
End With Next
Rs.Close objDoc.Close objWord.Quit
MsgBox "Всего в табл. 2 Word " & n & " строк " & vbLf & _ "В Приходный ордер № " & N_ord & vbLf & _
"в таблицу [Товары ордера] добавлены записи:" & vbLf & _ yes_dat & _
"Не добавлены из-за нарушений целостности базы::" _ & vbLf & no_dat, , "Результаты переноса данных"
Rs1.Close rs2.Close objDoc.Close objWord.Quit Me.Requery
Me.Recordset.MoveLast End Sub
Результаты выполнения программы будут показаны в окне MsgBox (рис. 1.6).
Рис. 1.6. Сообщение после выполнения процедуры добавления записей в таблицу Access из таблицы Word
|
|
Учебное задание
Выполнить все задания представленные в лабораторной работе.
Лабораторная работа № 8
СОЗДАНИЕ ПРЕЗЕНТАЦИИ В MICROSOFT OFFICE POWERPOINT
I. Цель работы: освоение работы с презентациями в системе Microsoft PowerPoint.
II. Краткое изложение учебного материала
Общие сведения о презентациях при защите студенческих работ
Доклад студента при защите курсовых проектов и выпускных квалификационных работ (ВКР) должен сопровождаться показом результатов работы в виде таблиц, диаграмм, технологических и пр. схем и некоторых текстовых сообщений. Наибольшие возможности для этого предоставляет подготовка этих материалов виде компьютерной презентации, которую показывают с использованием мультимедиа проектора на большом экране, и которую можно подготовить в специальном приложении Microsoft Office – PowerPoint.
Типичная презентации ВКР должна соответствовать содержанию доклада и включать следующие элементы:
1) Титульный слайд, где показаны вуз и кафедра, где выполнен проект, название ВКР, его автор, руководитель проекта.
2) Слайд с описанием предметной области и проблемы, на решение которой направлен проект.
3) Слайд, где формулируется основная цель и необходимые задачи для достижения цели.
|
|
4) 1 – 2 слайда с анализом существующих подходов и технологий.
5) 3 – 4 слайда с описанием собственно проектных решений.
6) Слайд с выводами по результатам дипломного проектирования.
Дизайнер презентаций PowerPoint имеет большие возможности для наглядного и профессионального представления подобных слайдов. Его дополнительное возможности – анимация элементов слайда, показ мультимедиа информации и пр.
Оформление презентации ВКР должно быть достаточно строгое, её задача – помочь Вам в чтении доклада и наглядно рассказать членам комиссии о Вашей работе. Некоторые руководители ВКР выдают свои рекомендации по оформлению, например, запрещают использовать анимацию на слайдах и пр.
Дата добавления: 2018-02-18; просмотров: 738; Мы поможем в написании вашей работы! |
Мы поможем в написании ваших работ!