Практический. 1. Записать шаблон для записей, в которых четвертый символ с конца – любая цифра.-*#??? Кол-во >=121. Записать шаблон для записей, в которых четвертый символ с конца – любая цифра.-*#???
2. в ячейках с В4 по К12, таблица критериев - в ячейках с В1 по D3. Записать формулу для поимка максимального среди значений 2 столбца базы данных. ДМАКС(В4:К12;2;В1:D3) 3. Количество >=12 или не равно15.
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;//включить использование фильтра
|
