Вариант 6
1. Закончите предложение: База данных в Excel называется – списком- ряд строк в которых определяется набор содержимых данных.
2. Фильтрация- служит для отображения на экране только части записей (остальные записи скрываются).
3. Какое приложение пакета Delphi позволяет создать псевдоним для базы данных?BDEAministrator
4. Закончите предложение: Для таблицы Paradox можно создать -1
5. Какая пиктограмма
позволяет выполнить поиск в Access?
6. все данные, доступные пользователю, организованы в виде нескольких связанных между собой таблиц- Access
7. Что означает в шаблоне символ - ? 1произв. символ
8. Закончите предложение: Количество условий, используемых для фильтрации,несколько
9. Какая из функций баз данных в Excel извлекает отдельную строку (запись), которая удовлетворяет заданным условиям?БИЗВЛЕЧЬ
10. Какой тип данных Access используется для автоматического увеличения поля на единицу при добавлении записей?СЧЕТЧИК
11. Какая групповая функция для итоговых вычислений в Access определяет последнее значение в группе?lAST
12. На основе какого запроса создаются запросы на создание, обновление, добавление или удаление?ЗАПРОС НА ВЫБОРКУ
13. Как обозначается тип данных для хранения денежных вещественных чисел с фиксированной запятой, 6 знаками целой части и 2 знаками дробной в таблицах Paradox?MONEY($)
14. Какая из пиктограмм соответствует компоненту DBText DBText
15. Какое свойство компонента Table позволяет включить или отключить использование фильтра?Filtered
16. При нажатии на кнопки какого из компонент во время работы программы происходит перемещение указателя текущей записи или действия с текущей записью?DBNavigator
Практический
1. Записать шаблон для записей, в которых четвертый символ с конца – любая цифра.-*#???
2. в ячейках с В4 по К12, таблица критериев - в ячейках с В1 по D3. Записать формулу для поимка максимального среди значений 2 столбца базы данных. ДМАКС(В4:К12;2;В1:D3)
Кол-во |
|
>=12 |
|
|
<>5 |
4. Используя команду Between записать условие для отбора дат за весенний период 2000 года. Between 01.03.2000and 31.05.2000
5. Используя команду Like записать условие для отбора записей, в которых третья буква С. Like??С*
6. поля Стаж = Уволен – Принят, если дата увольнения находится в таблице Кадры в поле Дата2, а дата принятия на работу - в таблице Сотрудники в поле Дата1. Стаж:[Кадры]![Дата 2]-[Сотрудники]![Дата 1]
7. Сумма = Цена * Количество. Значения находятся в Table1 в полях Sum, Chena и Kol соответственно. Table1Sum.Value:= Table1Chena.Value-Table1Kol.Value
Вариант1
Table1.IndexFieldNames:='Zarp';//установить текущий индекс
Table1.SetKey;//выбрать метод поиска
Table1.FieldByName('Zarp').AsFloat:=2500.50;//установить значение для поиска=2500.50
Table1.GoToKey;//перевести курсор БД на найденную запись
Вариант2
Table2.IndexFieldNames:='Tovar;Kol';//индексирует таблицу по полям Tovar и Kol
Table2.FindNearest(['Сок',10]);//задаёт ключи для этих полей
Вариант3
Table3.Filtered:=False;//отключить использование фильтра
Table3.Filter:= 'Zarp='+QuotedStr(Edit1.Text);//задание значения строки фильтрации
Table3.Filtered:=True;//включить использование фильтра
Вариант4
Table3.IndexFieldNames:='Fam';//установить текущий индекс
Table3.SetKey;//выбрать метод поиска
Table3.FieldByName('Fam').AsString:= 'Иванов';//установить значение для поиска= 'Иванов'
Table3.GoToKey;//перевести курсор БД на найденную запись
Вариант5
Table1.IndexFieldNames:='Fam;Num';//индексирует таблицу по полям Fam и Num
Table1.FindNearest(['Иванов', 'Иван']);//задаёт ключи для этих полей
Вариант6
Table2.Filtered:=False;//отключить использование фильтра
Table2.Filter:= 'Kol>'+QuotedStr(Edit3.Text);//задание значения строки фильтрации
Table2.Filtered:=True;//включить использование фильтра
Вариант7
Table2.IndexFieldNames:='Kol';//установить текущий индекс
Table2.SetKey;//выбрать метод поиска
Table2.FieldByName('Kol').AsInteger:= 25;//установить значение для поиска= 25
Table2.GoToKey;//перевести курсор БД на найденную запись
Вариант8
Table3.IndexFieldNames:='Fam;God';//индексирует таблицу по полям Fam и God
Table3.FindNearest(['Иванов', '1962']);//задаёт ключи для этих полей
Вариант9
Table1.Filtered:=False;//отключить использование фильтра
Table1.Filter:= 'Itog<='+QuotedStr(Edit2.Text);//задание значения строки фильтрации
Table1.Filtered:=True;//включить использование фильтра
Вариант10
Table1.IndexFieldNames:='Num';//установить текущий индекс
Table1.SetKey;//выбрать метод поиска
Table1.FieldByName('Num').AsFloat:=150.50;//установить значение для поиска= 150.50
Table1.GoToKey;//перевести курсор БД на найденную запись
Вариант11
Table2.IndexFieldNames:='Kol;Chena';//индексирует таблицу по полям Kol и Chena
Table2.FindNearest(['30', 19.62]);//задаёт ключи для этих полей
Вариант12
Table3.Filtered:=False;//отключить использование фильтра
Table3.Filter:= 'Chena>='+QuotedStr(Edit4.Text);//задание значения строки фильтрации
Table3.Filtered:=True;//включить использование фильтра
Вариант13
Table3.IndexFieldNames:='Name';//установить текущий индекс
Table3.SetKey;//выбрать метод поиска
Table3.FieldByName('Name').AsString:= 'Иван';//установить значение для поиска= 'Иван'
Table3.GoToKey;//перевести курсор БД на найденную запись
Вариант14
Table1.IndexFieldNames:='Fam;Otdel';//индексирует таблицу по полям Fam и Otdel
Table1.FindNearest(['Иванов', 'Цех 1']);//задаёт ключи для этих полей
Вариант15
Table2.Filtered:=False;//отключить использование фильтра
Table2.Filter:= 'Mesto='+QuotedStr(Edit1.Text);//задание значения строки фильтрации
Table2.Filtered:=True;//включить использование фильтра
Вариант16
Table2.IndexFieldNames:='Chel';//установить текущий индекс
Table2.SetKey;//выбрать метод поиска
Table2.FieldByName('Chel').AsInteger:= 15;//установить значение для поиска= '15'
Table2.GoToKey;//перевести курсор БД на найденную запись
Вариант17
Table3.IndexFieldNames:='Tov;Chena';//индексирует таблицу по полям Tov и Chena
Table3.FindNearest(['Сок', 10.50]);//задаёт ключи для этих полей
Вариант18
Table1.Filtered:=False;//отключить использование фильтра
Table1.Filter:= 'God<='+QuotedStr(Edit3.Text);//задание значения строки фильтрации
Table1.Filtered:=True;//включить использование фильтра
Вариант19
Table1.IndexFieldNames:='Number';//установить текущий индекс
Table1.SetKey;//выбрать метод поиска
Table1.FieldByName('Number').AsFloat:= 5.50;//установить значение для поиска= 5.50
Table1.GoToKey;//перевести курсор БД на найденную запись
Вариант20
Table2.IndexFieldNames:='Fam;Oklad';//индексирует таблицу по полям Fam и Oklad
Table2.FindNearest(['Иванов', 2500]);//задаёт ключи для этих полей
Вариант21
Table3.Filtered:=False;//отключить использование фильтра
Table3.Filter:= 'Data>='+QuotedStr(Edit2.Text);//задание значения строки фильтрации
Table3.Filtered:=True;//включить использование фильтра
Вариант22
Table3.IndexFieldNames:='Otdel';//установить текущий индекс
Table3.SetKey;//выбрать метод поиска
Table3.FieldByName('Otdel').AsString:= 'Цех 1';//установить значение для поиска= 'Цех 1'
Table3.GoToKey;//перевести курсор БД на найденную запись
Вариант23
Table1.IndexFieldNames:='Otdel;Oklad';//индексирует таблицу по полям Otdel и Oklad
Table1.FindNearest(['Цех 1', 2500]);//задаёт ключи для этих полей
Вариант24
Table2.Filtered:=False;//отключить использование фильтра
Table2.Filter:= 'Fam='+QuotedStr(Edit4.Text);//задание значения строки фильтрации
Table2.Filtered:=True;//включить использование фильтра
Вариант25
Table2.IndexFieldNames:='KolTov';//установить текущий индекс
Table2.SetKey;//выбрать метод поиска
Table2.FieldByName('KolTov').AsInteger:= 10;//установить значение для поиска= 10
Table2.GoToKey;//перевести курсор БД на найденную запись
Вариант26
Table3.IndexFieldNames:='Otdel;God';//индексирует таблицу по полям Otdel и God
Table3.FindNearest(['Цех 1', '1962']);//задаёт ключи для этих полей
Вариант27
Table1.Filtered:=False;//отключить использование фильтра
Table1.Filter:= 'Oplata<'+QuotedStr(Edit1.Text);//задание значения строки фильтрации
Table1.Filtered:=True;//включить использование фильтра
Вариант28
Table1.IndexFieldNames:='Sum';//установить текущий индекс
Table1.SetKey;//выбрать метод поиска
Table1.FieldByName('Sum').AsFloat:= 55.50;//установить значение для поиска= 55.50
Table1.GoToKey;//перевести курсор БД на найденную запись
Вариант29
Table2.IndexFieldNames:='Oplata;Mes';//индексирует таблицу по полям Oplata и Mes
Table2.FindNearest([100.50, 'Май']);//задаёт ключи для этих полей
Вариант30
Table3.Filtered:=False;//отключить использование фильтра
Table3.Filter:= 'Postup>'+QuotedStr(Edit2.Text);//задание значения строки фильтрации
Table3.Filtered:=True;//включить использование фильтра
Вариант31
Table3.IndexFieldNames:='Tovar';//установить текущий индекс
Table3.SetKey;//выбрать метод поиска
Table3.FieldByName('Tovar').AsString:= 'Сок';//установить значение для поиска= 'Сок'
Table3.GoToKey;//перевести курсор БД на найденную запись
Вариант32
Table1.IndexFieldNames:='Mes;Dolg';//индексирует таблицу по полям Mes и Dolg
Table1.FindNearest(['Июнь, 60.25]);//задаёт ключи для этих полей
Вариант33
Table2.Filtered:=False;//отключить использование фильтра
Table2.Filter:= 'Oklad<='+QuotedStr(Edit4.Text);//задание значения строки фильтрации
Table2.Filtered:=True;//включить использование фильтра
Вариант34
Table2.IndexFieldNames:='Mesto';//установить текущий индекс
Table2.SetKey;//выбрать метод поиска
Table2.FieldByName('Mesto').AsInteger:= 30;//установить значение для поиска= 30
Table2.GoToKey;//перевести курсор БД на найденную запись
Вариант35
Table3.IndexFieldNames:=' God;Itog ';//индексирует таблицу по полям God и Itog
Table3.FindNearest(['2012',6000]);//задаёт ключи для этих полей
Вариант36
Table1.Filtered:=False;//отключить использование фильтра
Table1.Filter:= 'Mes='+QuotedStr(Edit3.Text);//задание значения строки фильтрации
Table1.Filtered:=True;//включить использование фильтра
Вариант37
Table1.IndexFieldNames:='Itog';//установить текущий индекс
Table1.SetKey;//выбрать метод поиска
Table1.FieldByName('Itog').AsFloat:= 20.50;//установить значение для поиска=20.50
Table1.GoToKey;//перевести курсор БД на найденную запись
Вариант38
Table2.IndexFieldNames:='Fam;Mest';//индексирует таблицу по полям Fam и Mest
Table2.FindNearest(['Иванов', '60']);//задаёт ключи для этих полей
Вариант39
Table3.Filtered:=False;//отключить использование фильтра
Table3.Filter:= 'Pro>='+QuotedStr(Edit1.Text);//задание значения строки фильтрации
Table3.Filtered:=True;//включить использование фильтра
Вариант40
Table3.IndexFieldNames:='Str';//установить текущий индекс
Table3.SetKey;//выбрать метод поиска
Table3.FieldByName('Str').AsString:= 'Англия';//установить значение для поиска= 'Англия'
Table3.GoToKey;//перевести курсор БД на найденную запись
Вариант41
Table1.IndexFieldNames:=' Mes; Itog ';//индексирует таблицу по полям Mes и Itog
Table1.FindNearest(['Май', 6000]);//задаёт ключи для этих полей
Вариант42
Table2.Filtered:=False;//отключить использование фильтра
Table2.Filter:= 'Dolg<'+QuotedStr(Edit4.Text);//задание значения строки фильтрации
Table2.Filtered:=True;//включить использование фильтра
Вариант43
Table2.IndexFieldNames:='Vagon';//установить текущий индекс
Table2.SetKey;//выбрать метод поиска
Table2.FieldByName('Vagon').AsInteger:= 10;//установить значение для поиска= 10
Table2.GoToKey;//перевести курсор БД на найденную запись
Вариант44
Table3.IndexFieldNames:=' Mesto; Data ';//индексирует таблицу по полям Mesto и Data
Table3.FindNearest(['32', '12.01.2011']);//задаёт ключи для этих полей
Вариант45
Table1.Filtered:=False;//отключить использование фильтра
Table1.Filter:= 'Oklad>'+QuotedStr(Edit2.Text);//задание значения строки фильтрации
Table1.Filtered:=True;//включить использование фильтра
Вариант46
Table1.IndexFieldNames:='Vsego';//установить текущий индекс
Table1.SetKey;//выбрать метод поиска
Table1.FieldByName('Vsego').AsFloat:= 130.50;//установить значение для поиска=130.50
Table1.GoToKey;//перевести курсор БД на найденную запись
Вариант47
Table2.IndexFieldNames:=' Fam; Mes ';//индексирует таблицу по полям Fam и Mes
Table2.FindNearest(['Иванов', ' Май ']);//задаёт ключи для этих полей
Вариант48
Table3.Filtered:=False;//отключить использование фильтра
Table3.Filter:= 'Dom='+QuotedStr(Edit1.Text);//задание значения строки фильтрации
Table3.Filtered:=True;//включить использование фильтра
Вариант49
Table3.IndexFieldNames:='City';//установить текущий индекс
Table3.SetKey;//выбрать метод поиска
Table3.FieldByName('City').AsString:= 'Киев';//установить значение для поиска= 'Киев'
Table3.GoToKey;//перевести курсор БД на найденную запись
Вариант50
Table1.IndexFieldNames:=' Data; Itog ';//индексирует таблицу по полям Data и Itog
Table1.FindNearest(['12.01.2011', 60]);//задаёт ключи для этих полей
Вариант51
Table2.Filtered:=False;//отключить использование фильтра
Table2.Filter:= 'Prihod>='+QuotedStr(Edit3.Text);//задание значения строки фильтрации
Table2.Filtered:=True;//включить использование фильтра