![]() КАТЕГОРИИ: Архитектура-(3434)Астрономия-(809)Биология-(7483)Биотехнологии-(1457)Военное дело-(14632)Высокие технологии-(1363)География-(913)Геология-(1438)Государство-(451)Демография-(1065)Дом-(47672)Журналистика и СМИ-(912)Изобретательство-(14524)Иностранные языки-(4268)Информатика-(17799)Искусство-(1338)История-(13644)Компьютеры-(11121)Косметика-(55)Кулинария-(373)Культура-(8427)Лингвистика-(374)Литература-(1642)Маркетинг-(23702)Математика-(16968)Машиностроение-(1700)Медицина-(12668)Менеджмент-(24684)Механика-(15423)Науковедение-(506)Образование-(11852)Охрана труда-(3308)Педагогика-(5571)Полиграфия-(1312)Политика-(7869)Право-(5454)Приборостроение-(1369)Программирование-(2801)Производство-(97182)Промышленность-(8706)Психология-(18388)Религия-(3217)Связь-(10668)Сельское хозяйство-(299)Социология-(6455)Спорт-(42831)Строительство-(4793)Торговля-(5050)Транспорт-(2929)Туризм-(1568)Физика-(3942)Философия-(17015)Финансы-(26596)Химия-(22929)Экология-(12095)Экономика-(9961)Электроника-(8441)Электротехника-(4623)Энергетика-(12629)Юриспруденция-(1492)Ядерная техника-(1748) |
End Sub. А потім в коді на подію Load форми надати властивості Caption значення аргументу OpenArgs
End Sub А потім в коді на подію Load форми надати властивості Caption значення аргументу OpenArgs Private Sub Form_Load() Me.Caption = OpenArgs Ø ShowAllRecords – відміняє дію будь-якого фільтру в активній таблиці або наборі записів, виконує повторний запит і забезпечує виведення всіх записів (і нових також); метод не має аргументів. Ø OpenDataAccessPage – відкриває сторінку доступу до даних; має 2 аргументи: ім’я сторінки (DataAccessPageName) – обов’язковий параметр та режим (View); за замовчанням встановлює режим перегляду (acDataAccessPageBrowse), можливий і режим конструктора (acDataAccessPageDesign). Ø OpenQuery – відкриває запит, ім’я якого вказувати обов’язково. Ø OpenReport – відкриває звіт із вказаним ім’ям. Задача 4.2 Створити послідовність форм для пошуку відомостей про заробітки певного робітника. Пошук здійснювати за прізвищем або за табельним номером. Спочатку створимо за допомогою майстра форм підпорядковану форму, яка буде відображувати відомості про заробітки. Виберемо для форми тип Режим таблицы. Включимо до форми поля dat і zar (дата роботи і заробіток) таблиці tzarobitok і встановимо порядок сортування за датою. В розділі Примечание формы для обчислення загальної суми заробітків розмістимо Поле 1та встановимо для нього властивість Данные = Sum ([ zar ]). Конструктор форми зображений на рис. 4.1. Рисунок 4.1 – Конструктор форми для таблиці tzarobitok Далі створимо наступну форму для даних з таблиці tvidom. Виберемо поля tn і fio (табельний номер і прізвище) та тип Одиночная форма. В режимі конструктора перетягнемо на макет цієї форми з вікна бази даних піктограму форми tzarobitok подчиненная форма. До форми tvidom буде вбудована підпорядкована форма. В конструкторі у вікні властивостей Подчиненная форма / отчет на вкладці Данные будуть встановлені поля, за якими здійснюється зв’язок між таблицями. Це властивості:
Якщо підпорядковану форму запускати окремо, то будуть підсумовані всі заробітки. А якщо запускати головну форму, то враховуватись будуть заробітки тільки одного конкретного робітника. Щоб відобразити підсумки на формі tvidom, розмістимо нове Поле 2в розділі Примечание формы з підписом Усього нараховано і встановимо для нього властивість Данные = IIf (IsNull ([tzarobitok подчиненная форма]! [Поле1]); 0; [tzarobitok подчиненная форма]! [Поле1]) Тобто, якщо людина не має заробітків, для неї немає підсумків в таблиці tzarobitok, а в Поле 2 відображується 0. Форма tvidom буде викликатися головною формою для одного робітника, тому встановимо для неї властивість Кнопки перехода=Нет. Тепер створимо головну форму. Розмістимо на ній 2 вільних Поля, командну кнопку та написи (див. рис. 4.2). Рисунок 4.2 – Конструктор головної форми Після запуску форми треба ввести прізвище або табельний номер людини. Якщо клікнути мишкою на полі fam (прізвище), то знищується вміст поля nn (табельний номер) і навпаки. Якщо такої людини немає, про це виводиться повідомлення. Створимо коди програм на події Click для полів та командної кнопки „ Знайти ”. Option Compare Database Public kriteria As String, nom As Integer Private Sub Знайти_Click() ‘ код на кнопку Знайти Dim dbMyDB As Database, rsRec As Recordset Dim name As String, kriteria As String, nom as Integer Set dbMyDB = CurrentDb Set rsRec = dbMyDB.OpenRecordset ("tvidom", dbOpenDynaset) If fam.Value > " " Then ‘ побудова критерію за прізвищем name = fam. Value kriteria = BuildCriteria ("fio", dbText, name) ElseIf nn. Value > 0 Then ‘ побудова критерію за табельним номером nom = nn. Value kriteria = BuildCriteria ("tn", dbInteger, nom) Else MsgBox "Заповніть поле для пошуку!" Exit Sub End If ‘ пошук запису в таблиці tvidom, що задовольняє критерію rsRec.FindFirst kriteria If rsRec.NoMatch Then ‘ якщо запис не знайдено MsgBox "Такої людини немає" Exit Sub End If DoCmd. Close ‘ закрити форму ‘ виклик форми tvidom DoCmd. OpenForm "tvidom",,, kriteria
Дата добавления: 2015-03-29; Просмотров: 391; Нарушение авторских прав?; Мы поможем в написании вашей работы! Нам важно ваше мнение! Был ли полезен опубликованный материал? Да | Нет |