Пояснительная записка к дипломному проекту на тему: «Разработка автоматизированной системы печати ценников на витрины автосалона на базе ms access»




Скачать 0.71 Mb.
Название Пояснительная записка к дипломному проекту на тему: «Разработка автоматизированной системы печати ценников на витрины автосалона на базе ms access»
страница 14/14
Дата публикации 18.06.2014
Размер 0.71 Mb.
Тип Пояснительная записка
literature-edu.ru > Авто-ремонт > Пояснительная записка
1   ...   6   7   8   9   10   11   12   13   14

DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70

DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
Exit_Кнопка100_Click:

Exit Sub
Err_Кнопка100_Click:

MsgBox Err.Description

Resume Exit_Кнопка100_Click

End Sub

Private Sub Кнопка101_Click()

On Error GoTo Err_Кнопка101_Click
Dim stDocName As String
stDocName = ChrW(1086) & ChrW(1090) & ChrW(1084) & ChrW(1077) & ChrW(1085) & ChrW(1080) & ChrW(1090) & ChrW(1100) & ChrW(32) & ChrW(1087) & ChrW(1077) & ChrW(1095) & ChrW(1072) & ChrW(1090) & ChrW(1100) & ChrW(32) & ChrW(1074) & ChrW(1089) & ChrW(1077) & ChrW(1093) & ChrW(32) & ChrW(1094) & ChrW(1077) & ChrW(1085) & ChrW(1085) & ChrW(1080) & ChrW(1082) & ChrW(1086) & ChrW(1074)

DoCmd.OpenQuery stDocName, acNormal, acEdit
Exit_Кнопка101_Click:

Exit Sub
Err_Кнопка101_Click:

MsgBox Err.Description

Resume Exit_Кнопка101_Click

End Sub

Private Sub Кнопка112_Click()

On Error GoTo Err_Кнопка112_Click
Dim stDocName As String
stDocName = ChrW(1086) & ChrW(1090) & ChrW(1095) & ChrW(1077) & ChrW(1090) & ChrW(32) & ChrW(1087) & ChrW(1077) & ChrW(1095) & ChrW(1072) & ChrW(1090) & ChrW(1080) & ChrW(32) & ChrW(1089) & ChrW(32) & ChrW(1072) & ChrW(1082) & ChrW(1094) & ChrW(1080) & ChrW(1077) & ChrW(1081)

DoCmd.RunMacro stDocName
Exit_Кнопка112_Click:

Exit Sub
Err_Кнопка112_Click:

MsgBox Err.Description

Resume Exit_Кнопка112_Click

End Sub

Private Sub Кнопка119_Click()

On Error GoTo Err_Кнопка119_Click
Dim stDocName As String
stDocName = ChrW(1086) & ChrW(1073) & ChrW(1085) & ChrW(1086) & ChrW(1074) & ChrW(1083) & ChrW(1077) & ChrW(1085) & ChrW(1080) & ChrW(1077) & ChrW(32) & ChrW(1073) & ChrW(1072) & ChrW(1079) & ChrW(1099) & ChrW(32) & ChrW(1087) & ChrW(1086) & ChrW(32) & ChrW(1094) & ChrW(1077) & ChrW(1085) & ChrW(1072) & ChrW(1084)

DoCmd.OpenQuery stDocName, acNormal, acEdit
Exit_Кнопка119_Click:

Exit Sub
Err_Кнопка119_Click:

MsgBox Err.Description

Resume Exit_Кнопка119_Click

End Sub

Private Sub Кнопка120_Click()

On Error GoTo Err_Кнопка120_Click
Dim stDocName As String
stDocName = ChrW(1086) & ChrW(1073) & ChrW(1085) & ChrW(1086) & ChrW(1074) & ChrW(1083) & ChrW(1077) & ChrW(1085) & ChrW(1080) & ChrW(1077) & ChrW(32) & ChrW(1073) & ChrW(1072) & ChrW(1079) & ChrW(1099) & ChrW(32) & ChrW(1087) & ChrW(1086) & ChrW(32) & ChrW(1094) & ChrW(1077) & ChrW(1085) & ChrW(1072) & ChrW(1084)

DoCmd.OpenQuery stDocName, acNormal, acEdit
Exit_Кнопка120_Click:

Exit Sub
Err_Кнопка120_Click:

MsgBox Err.Description

Resume Exit_Кнопка120_Click

End Sub

Private Sub Кнопка121_Click()

On Error GoTo Err_Кнопка121_Click
Dim stDocName As String
stDocName = ChrW(1086) & ChrW(1090) & ChrW(1095) & ChrW(1077) & ChrW(1090) & ChrW(32) & ChrW(1087) & ChrW(1077) & ChrW(1095) & ChrW(1072) & ChrW(1090) & ChrW(1080) & ChrW(32) & ChrW(1089) & ChrW(32) & ChrW(1072) & ChrW(1082) & ChrW(1094) & ChrW(1080) & ChrW(1077) & ChrW(1081)

DoCmd.RunMacro stDocName
Exit_Кнопка121_Click:

Exit Sub
Err_Кнопка121_Click:

MsgBox Err.Description

Resume Exit_Кнопка121_Click

End Sub

Private Sub Кнопка123_Click()

On Error GoTo Err_Кнопка123_Click

DoCmd.Close
Exit_Кнопка123_Click:

Exit Sub
Err_Кнопка123_Click:

MsgBox Err.Description

Resume Exit_Кнопка123_Click

End Sub

Private Sub Кнопка124_Click()

On Error GoTo Err_Кнопка124_Click

DoCmd.GoToRecord , , acNewRec
Exit_Кнопка124_Click:

Exit Sub
Err_Кнопка124_Click:

MsgBox Err.Description

Resume Exit_Кнопка124_Click

End Sub

Private Sub Кнопка125_Click()

On Error GoTo Err_Кнопка125_Click
Dim stDocName As String
stDocName = ChrW(1086) & ChrW(1090) & ChrW(1095) & ChrW(1077) & ChrW(1090) & ChrW(32) & ChrW(1087) & ChrW(1077) & ChrW(1095) & ChrW(1072) & ChrW(1090) & ChrW(1080) & ChrW(32) & ChrW(1094) & ChrW(1077) & ChrW(1085) & ChrW(1085) & ChrW(1080) & ChrW(1082) & ChrW(1080) & ChrW(32) & ChrW(1089) & ChrW(32) & ChrW(1088) & ChrW(1072) & ChrW(1073) & ChrW(1086) & ChrW(1090) & ChrW(1072) & ChrW(1084) & ChrW(1080)

DoCmd.RunMacro stDocName
Exit_Кнопка125_Click:

Exit Sub
Err_Кнопка125_Click:

MsgBox Err.Description

Resume Exit_Кнопка125_Click

End Sub

Private Sub Кнопка126_Click()

On Error GoTo Err_Кнопка126_Click
Dim stDocName As String
stDocName = ChrW(1055) & ChrW(1088) & ChrW(1086) & ChrW(1089) & ChrW(1084) & ChrW(1086) & ChrW(1090) & ChrW(1088) & ChrW(32) & ChrW(1094) & ChrW(1077) & ChrW(1085) & ChrW(1085) & ChrW(1080) & ChrW(1082) & ChrW(1086) & ChrW(1074) & ChrW(32) & ChrW(1076) & ChrW(1083) & ChrW(1103) & ChrW(32) & ChrW(1087) & ChrW(1077) & ChrW(1095) & ChrW(1072) & ChrW(1090) & ChrW(1080)

DoCmd.OpenReport stDocName, acPreview
Exit_Кнопка126_Click:

Exit Sub
Err_Кнопка126_Click:

MsgBox Err.Description

Resume Exit_Кнопка126_Click

End Sub Печать
Private Sub Кнопка12_Click()

On Error GoTo Err_Кнопка12_Click
Dim stDocName As String
stDocName = ChrW(1079) & ChrW(1072) & ChrW(1087) & ChrW(1086) & ChrW(1083) & ChrW(1085) & ChrW(1077) & ChrW(1085) & ChrW(1080) & ChrW(1077) & ChrW(44) & ChrW(32) & ChrW(1044) & ChrW(1077) & ChrW(1084) & ChrW(1086) & ChrW(45) & ChrW(1072) & ChrW(1074) & ChrW(1090) & ChrW(1086)

DoCmd.RunMacro stDocName
Exit_Кнопка12_Click:

Exit Sub
Err_Кнопка12_Click:

MsgBox Err.Description

Resume Exit_Кнопка12_Click

End Sub

Private Sub Кнопка13_Click()

On Error GoTo Err_Кнопка13_Click
Dim stDocName As String
stDocName = ChrW(1044) & ChrW(1077) & ChrW(1084) & ChrW(1086) & ChrW(45) & ChrW(1040) & ChrW(1074) & ChrW(1090) & ChrW(1086) & ChrW(32) & ChrW(45) & ChrW(32) & ChrW(49) & ChrW(32) & ChrW(1087) & ChrW(1086) & ChrW(1079) & ChrW(1080) & ChrW(1094) & ChrW(1080) & ChrW(1103)

DoCmd.OpenReport stDocName, acPreview
Exit_Кнопка13_Click:

Exit Sub
Err_Кнопка13_Click:

MsgBox Err.Description

Resume Exit_Кнопка13_Click

End Sub

Private Sub Кнопка14_Click()

On Error GoTo Err_Кнопка14_Click
Dim stDocName As String
stDocName = ChrW(1044) & ChrW(1077) & ChrW(1084) & ChrW(1086) & ChrW(45) & ChrW(1040) & ChrW(1074) & ChrW(1090) & ChrW(1086) & ChrW(32) & ChrW(45) & ChrW(32) & ChrW(50) & ChrW(32) & ChrW(1087) & ChrW(1086) & ChrW(1079) & ChrW(1080) & ChrW(1094) & ChrW(1080) & ChrW(1080)

DoCmd.OpenReport stDocName, acPreview
Exit_Кнопка14_Click:

Exit Sub
Err_Кнопка14_Click:

MsgBox Err.Description

Resume Exit_Кнопка14_Click

End Sub

Private Sub Кнопка15_Click()

On Error GoTo Err_Кнопка15_Click
Dim stDocName As String
stDocName = ChrW(1044) & ChrW(1077) & ChrW(1084) & ChrW(1086) & ChrW(45) & ChrW(1040) & ChrW(1074) & ChrW(1090) & ChrW(1086) & ChrW(32) & ChrW(45) & ChrW(32) & ChrW(51) & ChrW(32) & ChrW(1087) & ChrW(1086) & ChrW(1079) & ChrW(1080) & ChrW(1094) & ChrW(1080) & ChrW(1080)

DoCmd.OpenReport stDocName, acPreview
Exit_Кнопка15_Click:

Exit Sub
Err_Кнопка15_Click:

MsgBox Err.Description

Resume Exit_Кнопка15_Click

End Sub

Private Sub Кнопка16_Click()

On Error GoTo Err_Кнопка16_Click
Dim stDocName As String
stDocName = ChrW(1044) & ChrW(1077) & ChrW(1084) & ChrW(1086) & ChrW(45) & ChrW(1040) & ChrW(1074) & ChrW(1090) & ChrW(1086) & ChrW(32) & ChrW(45) & ChrW(32) & ChrW(51) & ChrW(32) & ChrW(1087) & ChrW(1086) & ChrW(1079) & ChrW(1080) & ChrW(1094) & ChrW(1080) & ChrW(1080)

DoCmd.OpenReport stDocName, acPreview
Exit_Кнопка16_Click:

Exit Sub
Err_Кнопка16_Click:

MsgBox Err.Description

Resume Exit_Кнопка16_Click

End Sub

Private Sub Кнопка17_Click()

On Error GoTo Err_Кнопка17_Click
Dim stDocName As String
stDocName = ChrW(1044) & ChrW(1077) & ChrW(1084) & ChrW(1086) & ChrW(45) & ChrW(1040) & ChrW(1074) & ChrW(1090) & ChrW(1086) & ChrW(32) & ChrW(45) & ChrW(32) & ChrW(52) & ChrW(32) & ChrW(1087) & ChrW(1086) & ChrW(1079) & ChrW(1080) & ChrW(1094) & ChrW(1080) & ChrW(1080)

DoCmd.OpenReport stDocName, acPreview
Exit_Кнопка17_Click:

Exit Sub
Err_Кнопка17_Click:

MsgBox Err.Description

Resume Exit_Кнопка17_Click

End Sub

Private Sub Кнопка18_Click()

On Error GoTo Err_Кнопка18_Click
Dim stDocName As String
stDocName = ChrW(1044) & ChrW(1077) & ChrW(1084) & ChrW(1086) & ChrW(45) & ChrW(1040) & ChrW(1074) & ChrW(1090) & ChrW(1086) & ChrW(32) & ChrW(45) & ChrW(32) & ChrW(53) & ChrW(32) & ChrW(1087) & ChrW(1086) & ChrW(1079) & ChrW(1080) & ChrW(1094) & ChrW(1080) & ChrW(1081)

DoCmd.OpenReport stDocName, acPreview
Exit_Кнопка18_Click:

Exit Sub
Err_Кнопка18_Click:

MsgBox Err.Description

Resume Exit_Кнопка18_Click

End Sub

Private Sub Кнопка19_Click()

On Error GoTo Err_Кнопка19_Click

DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
Exit_Кнопка19_Click:

Exit Sub
Err_Кнопка19_Click:

MsgBox Err.Description

Resume Exit_Кнопка19_Click

End Sub

Private Sub Кнопка22_Click()

On Error GoTo Err_Кнопка22_Click

DoCmd.Close
Exit_Кнопка22_Click:

Exit Sub
Err_Кнопка22_Click:

MsgBox Err.Description

Resume Exit_Кнопка22_Click

End Sub

Private Sub Кнопка27_Click()

On Error GoTo Err_Кнопка27_Click
Dim stDocName As String
stDocName = ChrW(1088) & ChrW(1091) & ChrW(1095) & ChrW(1085) & ChrW(1086) & ChrW(1077) & ChrW(32) & ChrW(1088) & ChrW(1077) & ChrW(1076) & ChrW(32) & ChrW(1082) & ChrW(1083) & ChrW(1074) & ChrW(53)

DoCmd.RunMacro stDocName
Exit_Кнопка27_Click:

Exit Sub
Err_Кнопка27_Click:

MsgBox Err.Description

Resume Exit_Кнопка27_Click

End Sub

Private Sub Кнопка33_Click()

On Error GoTo Err_Кнопка33_Click

DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
Exit_Кнопка33_Click:

Exit Sub
Err_Кнопка33_Click:

MsgBox Err.Description

Resume Exit_Кнопка33_Click

End Sub

Private Sub Кнопка34_Click()

On Error GoTo Err_Кнопка34_Click
Dim stDocName As String
stDocName = ChrW(1056) & ChrW(1077) & ChrW(1079) & ChrW(1080) & ChrW(1085) & ChrW(1072) & ChrW(95) & ChrW(1094) & ChrW(1077) & ChrW(1085) & ChrW(1072)

DoCmd.OpenQuery stDocName, acNormal, acEdit
Exit_Кнопка34_Click:

Exit Sub
Err_Кнопка34_Click:

MsgBox Err.Description

Resume Exit_Кнопка34_Click

End Sub //_Шины
Private Sub Кнопка18_Click()

On Error GoTo Err_Кнопка18_Click

DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
Exit_Кнопка18_Click:

Exit Sub
Err_Кнопка18_Click:

MsgBox Err.Description

Resume Exit_Кнопка18_Click

End Sub

Private Sub Кнопка19_Click()

On Error GoTo Err_Кнопка19_Click
Dim stDocName As String
stDocName = ChrW(1076) & 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(1079) & ChrW(1080) & ChrW(1094) & ChrW(1080) & ChrW(1080) & ChrW(32) & ChrW(1074) & ChrW(32) & ChrW(1087) & ChrW(1088) & ChrW(1077) & ChrW(1076) & ChrW(45) & ChrW(1087) & ChrW(1077) & ChrW(1095) & ChrW(1072) & ChrW(1090) & ChrW(1100)

DoCmd.RunMacro stDocName
Exit_Кнопка19_Click:

Exit Sub
Err_Кнопка19_Click:

MsgBox Err.Description

Resume Exit_Кнопка19_Click

End Sub //Опцион
1   ...   6   7   8   9   10   11   12   13   14

Похожие:

Пояснительная записка к дипломному проекту на тему: «Разработка автоматизированной системы печати ценников на витрины автосалона на базе ms access» icon Пояснительная записка к дипломному проекту на тему: «Разработка автоматизированной...
Тема дипломного проекта (работы) Разработка автоматизированной системы инвентаризации комплектующих для сборки компьютеров на базе...
 Пояснительная записка к дипломному проекту на тему: «Разработка автоматизированной системы печати ценников на витрины автосалона на базе ms access» icon Пояснительная записка к дипломному проекту на тему индивидуальный жилой дом в г. Тюмени
Исходные данные к проекту -задание на проектирование,рабочие чертежи марки ас,ГП. Материалы инженерно-геологических изысканий
Пояснительная записка к дипломному проекту на тему: «Разработка автоматизированной системы печати ценников на витрины автосалона на базе ms access» icon Дипломному проекту на тему: «Разработка методов встраивания информации...
Санкт-Петербургский государственный электротехнический университет “лэти” им. В. И. Ульянова (Ленина)” (СПбгэту)
 Пояснительная записка к дипломному проекту на тему: «Разработка автоматизированной системы печати ценников на витрины автосалона на базе ms access» icon Дипломному проекту на тему: «Разработка методов встраивания информации...
Санкт-Петербургский государственный электротехнический университет “лэти” им. В. И. Ульянова (Ленина)” (СПбгэту)
Пояснительная записка к дипломному проекту на тему: «Разработка автоматизированной системы печати ценников на витрины автосалона на базе ms access» icon Пояснительная записка к курсовому проекту на тему микропроцессорная...

 Пояснительная записка к дипломному проекту на тему: «Разработка автоматизированной системы печати ценников на витрины автосалона на базе ms access» icon Пояснительная записка к дипломному проекту включает в себя: страниц...
Тема дипломного проекта «Проект программно-методического комплекса автоматизации обработки данных и решения задач с использованием...
Пояснительная записка к дипломному проекту на тему: «Разработка автоматизированной системы печати ценников на витрины автосалона на базе ms access» icon Пояснительная записка к дипломному проекту включает в себя: 104108...
Тема дипломного проекта «Проект программно-методического комплекса автоматизации обработки данных и решения задач с использованием...
 Пояснительная записка к дипломному проекту на тему: «Разработка автоматизированной системы печати ценников на витрины автосалона на базе ms access» icon Реферат Пояснительная записка к дипломному проекту включает в себя:...
Тема дипломного проекта «Проект программно-методического комплекса для оптимизации распределения заданий по формированию твердых...
Пояснительная записка к дипломному проекту на тему: «Разработка автоматизированной системы печати ценников на витрины автосалона на базе ms access» icon Введение 6
Выводы проведенной работы: исходя из проведенных расчетов можно сказать что разработка данной автоматизированной системы по учету...
 Пояснительная записка к дипломному проекту на тему: «Разработка автоматизированной системы печати ценников на витрины автосалона на базе ms access» icon Заключение
Целью данной дипломной работы является разработка автоматизированной системы оценки и анализа деятельности кафедр фкти, которая позволяла...
Литература

При копировании материала укажите ссылку © 2015
контакты
literature-edu.ru

Поиск на сайте

Главная страница  Литература  Доклады  Рефераты  Курсовая работа  Лекции