Чемпионат по футболу




Скачать 328,17 Kb.
НазваниеЧемпионат по футболу
страница7/7
Дата публикации30.10.2013
Размер328,17 Kb.
ТипДокументы
pochit.ru > Информатика > Документы
1   2   3   4   5   6   7
^

Список литературы


  1. В.Гофман, А.Хомоненко Работа с базами данных в Delphi, Санкт-Петербург «БХВ-Петербург», 2003

  2. А.Желонкин Основы Программирования в интегрированной среде DELPHI. Практикум, М: Бином. Лаборатория базовых знаний, 2004

  3. Н.Культин Основы программирования в Delphi 7, Санкт-Петербург «БХВ-Петербург», 2005



  1. ^

    Приложение. Пример реализации поиска


Добавьте на форму компоненты DBGrid, GroupBox (Найти), Button (Поиск, Выход), CheckBox (По фамилии, По факультету), Edit для ввода ключевых значений для поиска по полям DAT и FAK, как показано на рисунке 14.



Рисунок 14
Для того, чтобы программа, которую мы будем писать, легко читалась, введем обозначения созданных кнопок и меток. Для этого необходимо изменить свойство Name у соответствующих компонентов.
Таблица 16

Компонента

Условное обозначение

Свойство Name

TButton

Поиск

BtnFind

TButton

Выход

BtnClose

TGroupBox

Найти

GroupBox

TCheckBox

^ По фамилии

cbFindDAT

TCheckBox

По факультету

cbFindFAK

TEdit

Для ввода фамилии

EditDAT

TEdit

Для ввода факультета

EditFAK

TDBGrid

Таблица

DBGridSpis



В окне редактора форм перейдите в форму UnitPoisk.
1. В разделе Use должны быть включены следующие стандартные модули:
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

DB,Dialogs, StdCtrls, ExtCtrls, Grids, DBGrids;
2. Для поиска записей по полям служат методы Locate и Lookup, причем поля могут быть неиндексированными.

Функция Locate (const KeyFields: String;

const KeyValues: Variant;

Options: TLocateOptions): Boolean

ищет запись с заданными значениями полей. Если удовлетворяющие условиям поиска записи существуют, то указатель текущей записи устанавливается на первую из них и функция возвращает значение True. Список полей, по которым ведется поиск, задается в параметре KeyFields (поля разделяются точкой с запятой). Параметр KeyValues указывает значения полей для поиска. Параметр Options задает значения LoCaseInsensitive (регистр букв не учитывать) и LoPartialKey (допускается частичное совпадение значений).
3. Для кнопки Поиск напишите соответствующую процедуру.



^ BtnFind – Поиск – OnClick
procedure TFormPOISK.btnFindClick(Sender: TObject);

Var KeyFields: String;

KeyValues: Variant;

Options : TLocateOptions;

begin

if not (cbFindDAT.Checked or cbFindFAK.Checked)

then

begin

MessageDlg('Не заданы условия поиска!', mtInformation,[mbOK],0);

exit;

end;
//Поиск одновременно по двум полям DAT и FAK

if cbFindDAT.Checked and cbFindFAK.Checked

then

begin

KeyFields:='DAT;FAK';

KeyValues:=VarArrayOf([editDAT.Text, editFAK.Text]);

end

//Поиск по одному из полей

Else

begin

//По полю DAT

if cbFindDAT.Checked

then

begin

KeyFields:='DAT';

KeyValues:=editDAT.Text;

end;

//По полю FAK

if cbFindFAK.Checked

then

begin

KeyFields:='FAK';

KeyValues:=editFAK.Text;

end;

end;

//Поиск выполняется независимо от регистра букв

//с возможностью частичного совпадения

Options:=[LoCaseInsensitive,LoPartialKey];

//Запись не найдена

If not DataModule1.Ds_Spisok.Dataset.Locate(KeyFields, KeyValues, Options)

then

begin

Beep;

MessageDlg('Запись не найдена...', mtInformation, [mbOK],0);

exit;

end;

end;
1   2   3   4   5   6   7

Похожие:

Чемпионат по футболу iconЧемпионат Курской области по мини-футболу 2013г

Чемпионат по футболу iconЧемпионат Курской области по мини-футболу 2013г

Чемпионат по футболу iconПеречень дисциплинарных санкций и нарушений
Перечнем дисциплинарных санкций и нарушений, являющимся приложением к Регламенту областных соревнований «Чемпионат, Первенство, Кубок...
Чемпионат по футболу iconО проведении III
Открытый межрегиональный весенний чемпионат интеллектуальных игр (далее Чемпионат) проводится с целью популяризации форм интеллектуального...
Чемпионат по футболу iconСоставте и выполните комплекс утренний гимнастики. Б2 Основные требования...
Б2 Основные требования по обеспечению безопасности при проведении соревнований по баскетболу, футболу, волейболу
Чемпионат по футболу icon1963-64 Чемпионат России 1 Зона

Чемпионат по футболу iconТм и чемпионат мира 25. 12. 2012 Австралия 7

Чемпионат по футболу iconРегламент соревнований на Кубок УпоФКис ко по мини-футболу среди...
Регламент соревнований на Кубок УпоФКис ко по мини-футболу среди дворовых команд 2011
Чемпионат по футболу iconСтад Молико Чемпионат Мира, Групповой этап, 1 Тур " Франция " () " цар " () 3: 1

Чемпионат по футболу iconСтад Молико Чемпионат Мира, Групповой этап, 2 Тур " цар " () " Колумбия " () 1: 4

Вы можете разместить ссылку на наш сайт:
Школьные материалы


При копировании материала укажите ссылку © 2019
контакты
pochit.ru
Главная страница