D4: Tcheckbox Daten mit Tdbedit bewusst machen

2/4/2024

5852

D4: Tcheckbox Daten mit Tdbedit bewusst machen

Einfache Mittel, um einige Komponenten datenfähige. Alternativer datenfähige Checkboxen (und Optionsfelder) flexibler arrangiert werden können.

Obwohl neuere Versionen von Delphi bessere Möglichkeiten zur datenfähige Auflistungen von Kontrollkästchen und Optionsfelder anzuzeigen bieten, benutze ich noch D4. Ich habe oft für eine datenfähige Komponente gewünscht, dass (a) beinhaltet nicht die abgeschrägten Kiste D4s Optionsfeldgruppe, (b) gemacht werden, dass einige Papierformulare stärker ähneln, (c) ermöglicht eine flexiblere Anordnung der Elemente in der Gruppe und (d) erlaubt ungewöhnliche Muster der Schaltflächen 'an' und 'aus' sein gleichzeitig.

Kurzum, mehr Flexibilität.

Ich denke dieses Rezept tut dies und auch veranschaulicht auf einfache Weise für bilden einige Steuerelemente, die nicht datenbewusste sind diese Fähigkeit durch die Zusammenarbeit mit den erwerben.

Die oberen und unteren Zeilen der Checkboxen werden im folgenden Code Delphi von den Klassen TCheckboxCollection und TPersonalityCBCollection dargestellt. Jede dieser Klassen ist ein Container für Checkbox-Deskriptoren und ihre Methoden, Click, GetValue und SetValue, das Verhalten der Steuerelemente gemeinsam schaffen und ordnen ihre kollektiven Wert mit dem zugehörigen datenfähige Steuerelement und somit mit dem Datenspeicher zuordnen.

Die obere Gruppe von Checkboxen verhält sich ähnlich wie eine Gruppe von Optionsfeldern. Im Gegensatz dazu kann mehr als einer von der unteren Checkboxen auf einmal überprüft werden, und das Kontrollkästchen 'Zurücksetzen' kann verwendet werden, die Kontrollen auf einmal entfernen.

Ihre Kommentare herzlich willkommen!

Einheit UNIT1;

Schnittstelle

verwendet

Windows, Nachrichten, SysUtils, Klassen, Graphics, Steuerelemente, Formulare, Dialoge,

DB, StdCtrls, Maske, DBCtrls, DBTables, ExtCtrls;

Typ

TCheckboxDescriptor = Klasse

die Vorgabe von Checkbox Antwort ausblenden

auf einen Klick und Manipulation des Objekts gekapselten vereinfachen

Private

PreClickedState: TCheckBoxState;

Funktion GetState: TCheckBoxState;

Verfahren SetState (Stand: TCheckBoxState);

öffentliche

CheckBox: TCheckbox;

Eigenschaft Zustand: TCheckBoxState lesen GetState schreiben SetState;

Konstruktor Erstellen (TheCheckbox: TCheckbox);

end;

TCheckboxCollection = Klasse

eine Auflistung eine datenfähige Bearbeitungsfeld und dessen Wert zuordnen

Checkbox-Deskriptoren; Standardverhalten ähnelt Radio-buttons

CheckboxDescriptors: TList;

HandlingClick: Boolean;

Private

Funktion FindSender (Sender: TObject): TCheckboxDescriptor;

Funktion GetValue: String;

Verfahren SetValue (NewValue: String );

öffentliche

AssociatedDBEdit: TDBEdit;

Konstruktor Erstellen (DBEdit: TDBEdit; TheCheckboxes: Array von TCheckbox);

Verfahren Klicken Sie (Sender: TObject);

Eigenschaft Wert: Zeichenfolge lesen GetValue schreiben SetValue;

end;

TPersonalityCBCollection = Klasse (TCheckboxCollection)

abgeleitete Klasse und ermöglicht mehrere Checkbox bei überprüft werden

eine Zeit, und verwendet eine Checkbox zum Zurücksetzen von den anderen

Private

Funktion GetValue: String;

Verfahren SetValue (NewValue: String );

öffentliche

Eigenschaft Wert: Zeichenfolge lesen GetValue schreiben SetValue;

Verfahren Klicken Sie (Sender: TObject);

end;

TForm1 = Klasse(TForm)

Tabelle1: Nachrüstbar;

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;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Shape1: TShape;

Label4: TLabel;

DBEdit2: TDBEdit;

Verfahren FormCreate(Sender: TObject);

Verfahren CheckBoxNAClick(Sender: TObject);

Verfahren DBEdit1Change(Sender: TObject);

Verfahren CheckBox9Click(Sender: TObject);

Verfahren DBEdit2Change(Sender: TObject);

Private

SeverityCBs: TCheckboxCollection;

PersonalityCBs: TPersonalityCBCollection;

öffentliche

end;

var

Form1: TForm1;

Umsetzung

{$R *. DFM}

Konstruktor TCheckboxDescriptor.Create (TheCheckbox: TCheckbox);

beginnen

vererbt Erstellen;

CheckBox: = TheCheckbox;

behalten Sie den Status Entwurf von checkbox

preClickedState:=theCheckbox.State;

end;

Funktion TCheckboxDescriptor.GetState: TCheckBoxState;

beginnen

Ergebnis: = PreClickedState;

end;

Verfahren TCheckboxDescriptor.SetState (Stand: TCheckBoxState);

beginnen

CheckBox. Zustand: = Status;

PreClickedState: = Status

end;

Konstruktor TCheckboxCollection.Create (DBEdit: TDBEdit; TheCheckboxes: Array von TCheckbox);

var

i: Ganzzahl;

beginnen

vererbt Erstellen;

AssociatedDBEdit: = DBEdit;

checkboxDescriptors:=TList.Create;

für ich: = 0 zu hoch (TheCheckboxes) zu tun

checkboxDescriptors.Add(TCheckboxDescriptor.Create(theCheckboxes[i]));

HandlingClick: = False;

end;

Funktion TCheckboxCollection.FindSender (Sender: TObject): TCheckboxDescriptor;

var

c: Ganzzahl;

CheckboxDescriptor: TCheckboxDescriptor;

beginnen

CheckboxDescriptor: =null;

für c: = 0 , checkboxDescriptors.Count - 1 zu tun beginnen

checkboxDescriptor:=checkboxDescriptors.Items[c];

Wenn checkboxDescriptor.checkbox = Sender dann Pause

end;

Ergebnis: = CheckboxDescriptor

end;

Verfahren TCheckboxCollection.Click (Sender: TObject);

var

ClickedCBDescriptor, OneCBDescriptor: TCheckboxDescriptor;

c: Ganzzahl;

beginnen

Wenn HandlingClick dann Ausfahrt;

HandlingClick: = True;

ClickedCBDescriptor: = FindSender (Sender);

Wenn clickedCBDescriptor.State = CbChecked dann clickedCBDescriptor.State:=cbUnchecked

sonst beginnen

clickedCBDescriptor.State:=cbChecked;

für c: = 0 , checkboxDescriptors.Count - 1 zu tun beginnen

oneCBDescriptor:=checkboxDescriptors.Items[c];

Wenn OneCBDescriptor <> ClickedCBDescriptor dann oneCBDescriptor.State:=cbUnchecked;

end;

end;

associatedDBEdit.DataSource.Edit;

associatedDBEdit.Text:=Value;

HandlingClick: = False;

end;

Verfahren TPersonalityCBCollection.Click (Sender: TObject);

var

ClickedCB: TCheckbox;

ClickedCBDescriptor, OneCBDescriptor: TCheckboxDescriptor;

c: Ganzzahl;

beginnen

Wenn HandlingClick dann Ausfahrt;

HandlingClick: = True;

ClickedCB: = Sender als TCheckbox;

ClickedCBDescriptor: = FindSender (Sender);

Wenn clickedCB.Name = 'CheckBox16' dann

für c: = 0 , CheckboxDescriptors. Count - 1 tun beginnen

oneCBDescriptor:=checkboxDescriptors.Items[c];

oneCBDescriptor.State:=cbUnchecked;

Ende

sonst Fall clickedCBDescriptor.State von

CbChecked: clickedCBDescriptor.State:=cbUnchecked;

sonst clickedCBDescriptor.State:=cbChecked;

end;

associatedDBEdit.DataSource.Edit;

associatedDBEdit.Text:=Value;

HandlingClick: = False;

end;

Funktion TPersonalityCBCollection.GetValue: String;

var

C, modulo, ResultAsInt: Integer;

OneCBDescriptor: TCheckboxDescriptor;

beginnen

ResultAsInt: = 0;

Modulo: = 1;

für c: = 0 , CheckboxDescriptors. Graf - 2 soll beginnen

Wenn c > 0 dann modulo: = modulo * 2;

oneCBDescriptor:=checkboxDescriptors.Items[c];

Wenn oneCBDescriptor.checkbox.State = CbChecked dann

ResultAsInt: = ResultAsInt + modulo;

end;

Ergebnis: = IntToStr (ResultAsInt)

end;

Funktion TCheckboxCollection.GetValue: String;

var

c: Ganzzahl;

OneCBDescriptor: TCheckboxDescriptor;

beginnen

für c: = 0 , CheckboxDescriptors. Count - 1 tun beginnen

oneCBDescriptor:=checkboxDescriptors.Items[c];

Wenn oneCBDescriptor.checkbox.State = CbChecked dann beginnen

Wenn oneCBDescriptor.checkbox.Caption = 'K.A.' dann Ergebnis: = '0'

sonst result:=oneCBDescriptor.checkbox.Caption;

Pause

Ende

Ende

end;

Verfahren TPersonalityCBCollection.SetValue (NewValue: String );

var

C, modulo, Muster: Ganzzahl;

OneCBDescriptor: TCheckboxDescriptor;

beginnen

if NewValue = '' dann Ausfahrt;

Wenn HandlingClick dann Ausfahrt;

HandlingClick: = True;

Modulo: = 1;

Pattern:=StrToInt(newValue);

für c: = 0 , CheckboxDescriptors. Count - 1 tun beginnen

Wenn c = 0 dann modulo: = 1 sonst modulo: = modulo * 2;

oneCBDescriptor:=checkboxDescriptors.Items[c];

if (Muster und modulo) <> 0 dann oneCBDescriptor.State:=cbChecked

sonst oneCBDescriptor.State:=cbUnchecked;

end;

HandlingClick: = False;

end;

Verfahren TCheckboxCollection.SetValue (NewValue: String );

var

c: Ganzzahl;

OneCBDescriptor: TCheckboxDescriptor;

beginnen

if NewValue = '' dann Ausfahrt;

Wenn HandlingClick dann Ausfahrt;

HandlingClick: = True;

für c: = 0 , CheckboxDescriptors. Count - 1 tun beginnen

oneCBDescriptor:=checkboxDescriptors.Items[c];

oneCBDescriptor.State:=cbUnchecked;

end;

c:=StrToInt(newValue);

oneCBDescriptor:=checkboxDescriptors.Items[c];

oneCBDescriptor.State:=cbChecked;

HandlingClick: = False;

end;

Verfahren TForm1.FormCreate(Sender: TObject);

beginnen

SeverityCBs: = TCheckboxCollection. Erstellen Sie (DBEdit1,

[CheckBoxNA, CheckBox1, CheckBox2, CheckBox3, CheckBox4, CheckBox5, CheckBox6, CheckBox7, CheckBox8]);

PersonalityCBs:=TPersonalityCBCollection.Create (DBEdit2,

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

Table1.Open

end;

Verfahren TForm1.CheckBoxNAClick(Sender: TObject);

beginnen

SeverityCBs.Click(Sender);

end;

Verfahren TForm1.DBEdit1Change(Sender: TObject);

beginnen

SeverityCBs.SetValue(DBEdit1.Text)

end;

Verfahren TForm1.CheckBox9Click(Sender: TObject);

beginnen

PersonalityCBs.Click(Sender);

end;

Verfahren TForm1.DBEdit2Change(Sender: TObject);

beginnen

PersonalityCBs.SetValue(DBEdit2.Text)

end;

end.