Д4: оформление tcheckbox данных с tdbedit

простой способ делать некоторые данные компоненты. Альтернативные данные-известны флажки (и radiobutton), которые можно организовать более гибко.

и<р класса="step_content ">хотя более поздние версии Delphi может предложить лучшие способы отображения данных-в курсе коллекций чекбоксы и радиокнопки, я еще на Д4. Я часто хотел для сведения-известно, что компонент (а) не включает скошенный ящик Д4 радио-кнопку группы, (B) могут быть сделаны, чтобы выглядеть некоторые бумажные формы более пристально (с) допускает более гибкий порядок элементов в группе, и (D) разрешает необычными узорами из кнопок " вкл " и "выкл" одновременно.<р класса="step_content ">короче, больше гибкости.<р класса="step_content ">я думаю, этот рецепт делает это, и это также иллюстрирует простое средство для некоторых элементов управления, которые не в курсе, приобрести эту возможность, сотрудничая с теми, что есть.<р класса="step_content "><р класса="step_content ">верхние и нижние ряды флажков представлены в Делфи код ниже классами TCheckboxCollection и TPersonalityCBCollection соответственно. Каждый из этих классов представляет собой контейнер для флажка дескрипторы и их методов, пункт, getvalue и setvalue, установить поведение управляет на коллективной основе, и договориться, чтобы связать их коллективное значение с соответствующим баз данных, управления и, следовательно, с данными магазина.<р класса="step_content ">верхний набор флажков ведет себя как набор переключателей. В отличие от этого, более одного комплекта нижнего флажки могут быть проверены за один раз, и флажок "сброс" может быть использована для того чтобы извлечь чеки от всех сразу.<р класса="step_content ">Ваши комментарии Добро пожаловать!<р класса="step_content "><б>блок Группы1



<б>интерфейс



<б>использует

окна, Сообщения, модуля приведет, классы, графика, регулирование, формы, диалоговые окна,

дБ, StdCtrls, маски, DBCtrls, DBTables, ExtCtrls



<б>Тип



TCheckboxDescriptor = <Б>класс

// скрывать по умолчанию чекбокс в ответ на

при // нажатии, и упростить манипуляции инкапсулировавший объект

<б>Частная

preClickedState: TCheckBoxState

<б>функции GetState: TCheckBoxState

<б>процедура: при выполнении функция setstate ( состояние: TCheckBoxState )

<б>общественные

флажок: TCheckbox

<б>собственность состояние: TCheckBoxState читать GetState напишите выполнении функция setstate

<б>конструктор создать (устанавливайте этот флажок: TCheckbox)

<б>конец



TCheckboxCollection = <Б>класс

// связать с базой данных окно редактирования, и его значение с коллекцией

// флажок дескрипторов по умолчанию поведение напоминает радио кнопки

checkboxDescriptors: Список задач

handlingClick: логическое

<б>Частная

<б>функции в FindSender ( Отправитель: TObject ): TCheckboxDescriptor

<б>функции, и Думою : <б>строка

<б>процедура, и метода setvalue ( значение: и строка в )

<б>общественные

associatedDBEdit: TDBEdit

<б>конструктор на создание ( функции dbedit: TDBEdit theCheckboxes: <б>массив <б>для в TCheckbox )

<б>процедура на кнопку ( Отправитель: TObject )

<б>собственность значение: <б>строка читать getvalue метод записи метода setvalue

<б>конец



TPersonalityCBCollection = <Б>класс ( TCheckboxCollection )

// производный класс, который позволяет больше чем один флажок, чтобы быть проверены на

с // время, и использует один флажок для сброса другие

<б>Частная

<б>функции, и Думою : <б>строка

<б>процедура, и метода setvalue ( значение: <б>строка в )

<б>общественные

<б>собственность значение: и строка читать getvalue метод записи метода setvalue

<б>процедура на кнопку ( Отправитель: TObject )

<б>конец



TForm1 = <Б>класс(TForm)

Таблица1: в таблице

DBEdit1: TDBEdit и

В данных datasource1: TDataSource

CheckBox1: TCheckBox

CheckBox2: TCheckBox

отображения checkbox3: TCheckBox

CheckBox4: TCheckBox

CheckBox5: TCheckBox

CheckBox6: TCheckBox

CheckBox7: TCheckBox

CheckBox8: TCheckBox

CheckBoxNA: TCheckBox

CheckBox9: TCheckBox

CheckBox10: TCheckBox

CheckBox11: TCheckBox

CheckBox12: TCheckBox

CheckBox13: TCheckBox

CheckBox14: TCheckBox

CheckBox15: TCheckBox

CheckBox16: TCheckBox

DBNavigator1: TDBNavigator

Метка1: названия

Метка2: названия

Метка3: названия

Shape1: TShape

Label4: названия и

В DBEdit2: TDBEdit

<б>процедура на FormCreate(Отправитель: TObject)

<б>процедура в CheckBoxNAClick(Отправитель: TObject)

<б>процедура на DBEdit1Change(Отправитель: TObject)

<б>процедура на CheckBox9Click(Отправитель: TObject)

<б>процедура на DBEdit2Change(Отправитель: TObject)

<б>Частная

SeverityCBs: TCheckboxCollection

PersonalityCBs: TPersonalityCBCollection

<б>общественные

<б>конец



<б>вар

в форму form1: TForm1



<б>реализация



{$Р *.ДФМ}



<б>конструктор TCheckboxDescriptor.Создать (устанавливайте этот флажок: TCheckbox)

<б>начать

<б>наследство создавать

В галку:=устанавливайте этот флажок

// сохранить дизайн состояние checkbox

preClickedState:=устанавливайте этот флажок.Состояние

<б>конец



<б>функции TCheckboxDescriptor.GetState: TCheckBoxState

<б>начать

результат:=preClickedState

<б>конец



<б>процедура, и TCheckboxDescriptor.Выполнении функция setstate ( состояние: TCheckBoxState )

<б>начать

флажок.Состояние:=государство

preClickedState:=государство

<б>конец



<б>конструктор TCheckboxCollection.Создать ( функция dbedit: TDBEdit theCheckboxes: <б>массив <б>для в TCheckbox )

<б>вар

я: целое число

<б>начать

<б>наследство создавать

В associatedDBEdit:=Функции dbedit

checkboxDescriptors:=список задач.Создавать

В для мне:=0 и для высокий ( theCheckboxes ) и у

checkboxDescriptors.Добавить(TCheckboxDescriptor.Создать(theCheckboxes[я]))

handlingClick:=ложь

<б>конец


<див класс='embed_block_0'> <див ИД="блок-google_admanager-1" класса="блок блок-google_admanager области-другие области-количество-1 Количество-1 блок-Без названия "> <див класс="блок-топ"> <див класс="блок-внутренний"> <див класс="содержание"> <див класс="блок-дна"> <див класс='embed_block_1'><див>
<б>функции на TCheckboxCollection.FindSender ( Отправитель: TObject ): TCheckboxDescriptor

<б>вар

с: число

checkboxDescriptor: TCheckboxDescriptor

<б>начать

checkboxDescriptor:=<б>Нил

для с:=0 и для checkboxDescriptors.Счет - 1 <Б>А <Б>начать

checkboxDescriptor:=checkboxDescriptors.Элементы[с]

при checkboxDescriptor.флажок = Отправитель <б>тогда перерыв

<б>конец

результат:=checkboxDescriptor

<б>конец



<б>процедура в TCheckboxCollection.Нажмите кнопку ( Отправитель: TObject )

<б>вар

clickedCBDescriptor, oneCBDescriptor: TCheckboxDescriptor

с: число

<б>начать

при handlingClick и тут на выходе

handlingClick:=правда

clickedCBDescriptor:=FindSender ( Отправитель )

при clickedCBDescriptor.Состояние = cbChecked <б>тогда clickedCBDescriptor.Состояние:=cbUnchecked

<б>другого <Б>начать

clickedCBDescriptor.Состояние:=cbChecked

для В С:=0 и для checkboxDescriptors.Счет - 1 <Б>А <Б>начать

oneCBDescriptor:=checkboxDescriptors.Элементы[с]

при oneCBDescriptor <> clickedCBDescriptor <б>тогда oneCBDescriptor.Состояние:=cbUnchecked

<б>конец

<б>конец

associatedDBEdit.Источник.Редактировать

associatedDBEdit.Текст:=значение

handlingClick:=ложь

<б>конец



<б>процедура на TPersonalityCBCollection.Выберите ( Отправитель: TObject )

<б>вар

clickedCB: TCheckbox

clickedCBDescriptor, oneCBDescriptor: TCheckboxDescriptor

с: целое число

<б>начать

при handlingClick и тут на выходе

handlingClick:=истина

clickedCB:=Отправитель и как в TCheckbox

clickedCBDescriptor:=FindSender ( отправителя )

при clickedCB.Имя = 'CheckBox16' <б>тогда

для В С:=0 и для checkboxDescriptors . Счет - 1 <Б>А <Б>начать

oneCBDescriptor:=checkboxDescriptors.Элементы[с]

oneCBDescriptor.Состояние:=cbUnchecked

<б>конец

<б>другого <Б>чехол, и clickedCBDescriptor.Государство и из

cbChecked: clickedCBDescriptor.Состояние:=cbUnchecked

<б>еще в clickedCBDescriptor.Состояние:=cbChecked

<б>конец

associatedDBEdit.Источник.Редактировать

associatedDBEdit.Текст:=значение

handlingClick:=ложь

<б>конец



<б>функции в TPersonalityCBCollection.Думою : <б>строка

<б>вар

с, по модулю, resultAsInt: число

oneCBDescriptor: TCheckboxDescriptor

<б>начать

resultAsInt:=0

по модулю:=1

для В С:=0 и для checkboxDescriptors . Счет - 2 <Б>делать <Б>начать

при С > 0 и тут на дулю:=по модулю * 2

oneCBDescriptor:=checkboxDescriptors.Элементы[с]

при oneCBDescriptor.галку.Состояние = cbChecked <б>тогда

resultAsInt:=resultAsInt по модулю

<б>конец

результат:=IntToStr ( resultAsInt )

<б>конец



<б>функции на TCheckboxCollection.Думою : <б>строка

<б>вар

с: число

oneCBDescriptor: TCheckboxDescriptor

<б>начать

для В С:=0 и для checkboxDescriptors . Счет - 1 <Б>А <Б>начать

oneCBDescriptor:=checkboxDescriptors.Элементы[с]

при oneCBDescriptor.галку.Состояние = cbChecked <б>тогда <Б>начать

при oneCBDescriptor.галку.Заголовок = "Н/Д" <Б>тогда в результате:='0'

<б>еще в результате:=oneCBDescriptor.галку.Заголовок

перерыв

<б>конец

<б>конец

<б>конец



<б>процедура, и TPersonalityCBCollection.Метод setvalue ( значение: <б>строка в )

<б>вар

с, по модулю, узор: число

oneCBDescriptor: TCheckboxDescriptor

<б>начать

при значение = " <б>тогда на выходе

при handlingClick и тут на выходе

handlingClick:=истина

по модулю:=1

шаблон:=StrToInt(значение)

для В С:=0 и для checkboxDescriptors . Счет - 1 <Б>делать <Б>начать

при С = 0 и тут на дулю:=1 и еще, и по модулю:=по модулю * 2

oneCBDescriptor:=checkboxDescriptors.Элементы[с]

при (шаблон и по модулю) <> 0 и тогда oneCBDescriptor.Состояние:=cbChecked

<б>еще в oneCBDescriptor.Состояние:=cbUnchecked

<б>конец

handlingClick:=ложь

<б>конец



<б>процедура, и TCheckboxCollection.Метод setvalue ( значение: <б>строка в )

<б>вар

с: число

oneCBDescriptor: TCheckboxDescriptor

<б>начать

при значение = " <б>тогда на выходе

при handlingClick и тут на выходе

handlingClick:=правда

для В С:=0 и для checkboxDescriptors . Счет - 1 <Б>А <Б>начать

oneCBDescriptor:=checkboxDescriptors.Элементы[с]

oneCBDescriptor.Состояние:=cbUnchecked

<б>конец

с:=StrToInt(значение)

oneCBDescriptor:=checkboxDescriptors.Элементы[с]

oneCBDescriptor.Состояние:=cbChecked

handlingClick:=ложь

<б>конец



<б>процедура TForm1.FormCreate(Отправитель: TObject)

<б>начать

SeverityCBs := TCheckboxCollection . Создать ( DBEdit1,

[ CheckBoxNA,CheckBox1, CheckBox2, отображения checkbox3, CheckBox4, CheckBox5, CheckBox6, CheckBox7, CheckBox8 ] )

PersonalityCBs:=TPersonalityCBCollection.Создать ( DBEdit2,

[ CheckBox9, CheckBox10, CheckBox11, CheckBox12, CheckBox13, CheckBox14, CheckBox15, CheckBox16 ] )

Таблица1.Открыть

<б>конец



<б>процедура TForm1.CheckBoxNAClick(Отправитель: TObject)

<б>начать

SeverityCBs.Нажмите кнопку(Отправитель)

<б>конец



<б>процедура TForm1.DBEdit1Change(Отправитель: TObject)

<б>начать

SeverityCBs.Метод Setvalue(DBEdit1.Текст)

<б>конец



<б>процедура TForm1.CheckBox9Click(Отправитель: TObject)

<б>начать

PersonalityCBs.Нажмите кнопку(Отправитель)

<б>конец



<б>процедура TForm1.DBEdit2Change(Отправитель: TObject)

<б>начать

PersonalityCBs.Метод Setvalue(DBEdit2.Текст)

<б>конец



<б>конец.


и<р класса="step_content "><р /><р класса="step_content "><р /><р класса="step_content "><р /><дел стиль= \ ясно:оба поплавка:нет'><дел стиль= \ ясно:оба поплавка:нет'> & мочекаменная