Главная: Рефераты

Рефераты. База даних студії веб-дизайну

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

Dim stDocName As String

Dim stLinkCriteria As String

stDocName = ChrW(1054) & ChrW(1090) & ChrW(1095) & ChrW(1105) & ChrW(1090) & ChrW(1099)

DoCmd.OpenForm stDocName,,, stLinkCriteria

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

Dim stLinkCriteria As String

stDocName = ChrW(1048) & ChrW(1089) & ChrW(1087) & ChrW(1086) & ChrW(1083) & ChrW(1085) & ChrW(1080) & ChrW(1090) & ChrW(1077) & ChrW(1083) & ChrW(1100)

DoCmd.OpenForm stDocName,,, stLinkCriteria

Exit_Кнопка17_Click:

Exit Sub

Err_Кнопка17_Click:

MsgBox Err.Description

Resume Exit_Кнопка17_Click

End Sub

FORM_Отчёт по дате

Option Compare Database

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

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

Dim stDocName As String

stDocName = ChrW(1047) & ChrW(1072) & ChrW(1087) & ChrW(1088) & ChrW(1086) & ChrW(1089) & ChrW(32) & ChrW(1087) & ChrW(1086) & ChrW(32) & ChrW(1076) & ChrW(1072) & ChrW(1090) & ChrW(1077)

DoCmd.OpenQuery stDocName, acNormal, acEdit

Exit_Кнопка7_Click:

Exit Sub

Err_Кнопка7_Click:

MsgBox Err.Description

Resume Exit_Кнопка7_Click

End Sub

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

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

DoCmd.Close

Exit_Кнопка9_Click:

Exit Sub

Err_Кнопка9_Click:

MsgBox Err.Description

Resume Exit_Кнопка9_Click

End Sub

FORM_Отчёт_услуги

Option Compare Database

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

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

Dim stDocName As String

stDocName = ChrW(1054) & ChrW(1090) & ChrW(1095) & ChrW(1105) & ChrW(1090) & ChrW(32) & ChrW(1086) & ChrW(32) & ChrW(1087) & ChrW(1088) & ChrW(1077) & ChrW(1076) & ChrW(1086) & ChrW(1089) & ChrW(1090) & ChrW(1072) & ChrW(1074) & ChrW(1083) & ChrW(1077) & ChrW(1085) & ChrW(1099) & ChrW(1093) & ChrW(32) & ChrW(1091) & ChrW(1089) & ChrW(1083) & ChrW(1091) & ChrW(1075) & ChrW(1072) & ChrW(1093)

DoCmd.OpenReport stDocName, acPreview

Exit_Кнопка0_Click:

Exit Sub

Err_Кнопка0_Click:

MsgBox Err.Description

Resume Exit_Кнопка0_Click

End Sub

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

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

Dim stDocName As String

stDocName = ChrW(1054) & ChrW(1090) & ChrW(1095) & ChrW(1105) & ChrW(1090) & ChrW(32) & ChrW(1086) & ChrW(32) & ChrW(1087) & ChrW(1088) & ChrW(1077) & ChrW(1076) & ChrW(1086) & ChrW(1089) & ChrW(1090) & ChrW(1072) & ChrW(1074) & ChrW(1083) & ChrW(1077) & ChrW(1085) & ChrW(1099) & ChrW(1093) & ChrW(32) & ChrW(1091) & ChrW(1089) & ChrW(1083) & ChrW(1091) & ChrW(1075) & ChrW(1072) & ChrW(1093)

DoCmd.OpenReport stDocName, acNormal

Exit_Кнопка2_Click:

Exit Sub

Err_Кнопка2_Click:

MsgBox Err.Description

Resume Exit_Кнопка2_Click

End Sub

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

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

DoCmd.Close

Exit_Кнопка4_Click:

Exit Sub

Err_Кнопка4_Click:

MsgBox Err.Description

Resume Exit_Кнопка4_Click

End Sub

FORM_Отчёты

Option Compare Database

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

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

Screen.PreviousControl.SetFocus

DoCmd.FindNext

Exit_Кнопка0_Click:

Exit Sub

Err_Кнопка0_Click:

MsgBox Err.Description

Resume Exit_Кнопка0_Click

End Sub

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

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

Screen.PreviousControl.SetFocus

DoCmd.FindNext

Exit_Кнопка1_Click:

Exit Sub

Err_Кнопка1_Click:

MsgBox Err.Description

Resume Exit_Кнопка1_Click

End Sub

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

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

DoCmd.Close

Exit_Кнопка4_Click:

Exit Sub

Err_Кнопка4_Click:

MsgBox Err.Description

Resume Exit_Кнопка4_Click

End Sub

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

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

Dim stDocName As String

Dim stLinkCriteria As String

stDocName = ChrW(1054) & ChrW(1090) & ChrW(1095) & ChrW(1105) & ChrW(1090) & ChrW(95) & ChrW(1091) & ChrW(1089) & ChrW(1083) & ChrW(1091) & ChrW(1075) & ChrW(1080)

DoCmd.OpenForm stDocName,,, stLinkCriteria

Exit_Кнопка5_Click:

Exit Sub

Err_Кнопка5_Click:

MsgBox Err.Description

Resume Exit_Кнопка5_Click

End Sub

FORM_Прайс-лист

Option Compare Database

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

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

DoCmd.PrintOut

Exit_Кнопка10_Click:

Exit Sub

Err_Кнопка10_Click:

MsgBox Err.Description

Resume Exit_Кнопка10_Click

End Sub

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

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

DoCmd.Close

Exit_Кнопка11_Click:

Exit Sub

Err_Кнопка11_Click:

MsgBox Err.Description

Resume Exit_Кнопка11_Click

End Sub

FORM_Услуга

Option Compare Database

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

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

Screen.PreviousControl.SetFocus

DoCmd.FindNext

Exit_Кнопка0_Click:

Exit Sub

Err_Кнопка0_Click:

MsgBox Err.Description

Resume Exit_Кнопка0_Click

End Sub

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

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

Screen.PreviousControl.SetFocus

DoCmd.FindNext

Exit_Кнопка1_Click:

Exit Sub

Err_Кнопка1_Click:

MsgBox Err.Description

Resume Exit_Кнопка1_Click

End Sub

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

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

Screen.PreviousControl.SetFocus

DoCmd.FindNext

Exit_Кнопка2_Click:

Exit Sub

Err_Кнопка2_Click:

MsgBox Err.Description

Resume Exit_Кнопка2_Click

End Sub

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

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

Screen.PreviousControl.SetFocus

DoCmd.FindNext

Exit_Кнопка3_Click:

Exit Sub

Err_Кнопка3_Click:

MsgBox Err.Description

Resume Exit_Кнопка3_Click

End Sub

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

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

DoCmd.Close

Exit_Кнопка8_Click:

Exit Sub

Err_Кнопка8_Click:

MsgBox Err.Description

Resume Exit_Кнопка8_Click

End Sub

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

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

Dim stDocName As String

stDocName = ChrW(1047) & ChrW(1072) & ChrW(1088) & ChrW(1087) & ChrW(1086) & ChrW(1089) & ChrW(32) & ChrW(1087) & ChrW(1086) & ChrW(32) & ChrW(1074) & ChrW(1080) & ChrW(1076) & ChrW(1091) & ChrW(32) & ChrW(1091) & ChrW(1089) & ChrW(1083) & ChrW(1091) & ChrW(1075) & ChrW(1080)

DoCmd.OpenQuery stDocName, acNormal, acEdit

Exit_Кнопка9_Click:

Exit Sub

Err_Кнопка9_Click:

MsgBox Err.Description

Resume Exit_Кнопка9_Click

End Sub

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

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

Dim stDocName As String

stDocName = ChrW(1047) & ChrW(1072) & ChrW(1088) & ChrW(1087) & ChrW(1086) & ChrW(1089) & ChrW(32) & ChrW(1091) & ChrW(1089) & ChrW(1083) & ChrW(1091) & ChrW(1075) & ChrW(1080) & ChrW(32) & ChrW(1087) & ChrW(1086) & ChrW(32) & ChrW(1085) & ChrW(1072) & ChrW(1079) & ChrW(1074) & ChrW(1072) & ChrW(1085) & ChrW(1080) & ChrW(1102)

DoCmd.OpenQuery stDocName, acNormal, acEdit

Exit_Кнопка10_Click:

Exit Sub

Err_Кнопка10_Click:

MsgBox Err.Description

Resume Exit_Кнопка10_Click

End Sub

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

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

Dim stDocName As String

Dim stLinkCriteria As String

stDocName = ChrW(1055) & ChrW(1088) & ChrW(1072) & ChrW(1081) & ChrW(1089) & ChrW(45) & ChrW(1083) & ChrW(1080) & ChrW(1089) & ChrW(1090)

DoCmd.OpenForm stDocName,,, stLinkCriteria

Exit_Кнопка11_Click:

Exit Sub

Err_Кнопка11_Click:

MsgBox Err.Description

Resume Exit_Кнопка11_Click

End Sub

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

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

Dim stDocName As String

Dim stLinkCriteria As String

stDocName = ChrW(1059) & ChrW(1089) & ChrW(1083) & ChrW(1091) & ChrW(1075) & ChrW(1072) & ChrW(95) & ChrW(1076) & ChrW(1086) & ChrW(1073)

DoCmd.OpenForm stDocName,,, stLinkCriteria

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(1047) & ChrW(1072) & ChrW(1088) & ChrW(1087) & ChrW(1086) & ChrW(1089) & ChrW(32) & ChrW(1087) & ChrW(1086) & ChrW(32) & ChrW(1074) & ChrW(1080) & ChrW(1076) & ChrW(1091) & ChrW(32) & ChrW(1091) & ChrW(1089) & ChrW(1083) & ChrW(1091) & ChrW(1075) & ChrW(1080)

DoCmd.OpenQuery stDocName, acNormal, acEdit

Exit_Кнопка13_Click:

Exit Sub

Err_Кнопка13_Click:

MsgBox Err.Description

Resume Exit_Кнопка13_Click

End Sub

FORM_Услуга_доб

Option Compare Database

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

End Sub

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

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

DoCmd.GoToRecord,, acNewRec

Exit_Кнопка20_Click:

Exit Sub

Err_Кнопка20_Click:

MsgBox Err.Description

Resume Exit_Кнопка20_Click

End Sub

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

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

DoCmd.DoMenuItem acFormBar, acEditMenu, 8,, acMenuVer70

DoCmd.DoMenuItem acFormBar, acEditMenu, 6,, acMenuVer70

Exit_Кнопка21_Click:

Exit Sub

Err_Кнопка21_Click:

MsgBox Err.Description

Resume Exit_Кнопка21_Click

End Sub

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

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

DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord,, acMenuVer70

Exit_Кнопка22_Click:

Exit Sub

Err_Кнопка22_Click:

MsgBox Err.Description

Resume Exit_Кнопка22_Click

End Sub

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

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

DoCmd.Close

Exit_Кнопка23_Click:

Exit Sub

Err_Кнопка23_Click:

MsgBox Err.Description

Resume Exit_Кнопка23_Click

End Sub

Додаток Б. Інструкція користувача

1. Для того, щоб почати роботу із базою даних «студія веб-дизайну » необхідно зі списку форм обрати форму, що має назву „Меню”

2. Для того, щоб мати змогу добавити послуги до бази даних, необхідно натиснути кнопку «Услуги», а потім, у формі „Услуга” натиснути „Добавить услугу”.

3. Для внесення нового постачальника до бази даних, необхідно натиснути кнопку «Добавить заказчика».

4. Для внесення нового виробника до бази даних, необхідно натиснути кнопку «Добавить исполнителя».

5. Для заповнення чека та внесення його до бази даних, необхідно натиснути кнопку «Услуга»”Прайс-лист”.

6. При натискані кнопки „Отчёты”, в головній формі, відкриється форма „Форма_отчёты”

Якщо натиснути кнопку „Формировать отчёт о наличии товара в аптеке” в цій формі, то з'явиться ще одна форма, де буде запропановано продивитися звіт про товари, які є в базі, або роздрукувати цей звіт

7. При натискані кнопки „Договор”, в головній формі, відкриється форма „Договор”

Якщо натиснути кнопку „Поиск договора за определённій период” в цій формі, то з'явиться ще форма „Договр”, де необхідно ввести дати: з якої та по яку ви хочите одержати інформацію про продані заключені договори

Якщо ж натиснути „Добавить договор”, то на єкрані повинна з'явитися наступна форма „Договор_доб”, в якому ми можемо додавати договір, за допомогою його характеристик

8. Для того, щоб знайти послугу за назвою необхідно в головній формі натиснути „Услуги”, потім, у формі, що з'явиться, натиснути „Поиск услуги по названию”, з'явиться вікно, в якому необхідно набрати назву послуги, яка нас цікавить

9. Для того, щоб знайти послугу за видом, необхідно в головній формі натиснути „Услуги”, потім, у формі „Услуга”, що з'явиться, натиснути „Поиск услуги по виду”, з'явиться вікно, в якому необхідно вид послуги, яка нас цікавить

9. Для того, щоб закрит будь-яку форму треба натиснути копку „Закрити форму”, яка має вигляд -.

Страницы: 1, 2, 3, 4, 5, 6, 7
2012 © Все права защищены
При использовании материалов активная ссылка на источник обязательна.