1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117
|
unit Unit1;
interface
uses
System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs,
System.Bindings.Expression, System.Bindings.ObjEval, System.Bindings.Helper,
Data.DBXMySQL, Data.DB, Data.FMTBcd, Data.Bind.EngExt, Fmx.Bind.DBEngExt,
System.Rtti, System.Bindings.Outputs, Data.Bind.Controls, FMX.Layouts,
FMX.Grid, FMX.ScrollBox, FMX.Memo, FMX.StdCtrls, FMX.Controls.Presentation,
FMX.Edit, Fmx.Bind.Navigator, Data.Bind.Components, Data.Bind.DBScope,
Datasnap.DBClient, Datasnap.Provider, Data.Bind.Grid, Data.SqlExpr,
Fmx.Bind.Grid, Fmx.Bind.Editors;
type
TForm1 = class(TForm)
MysqlconnectionConnection: TSQLConnection;
T_applicationsTable: TSQLDataSet;
T_applicationsTables_applicationtype: TStringField;
T_applicationsTables_applicationlabel: TStringField;
T_applicationsTableS_DatabaseSchema: TStringField;
BindingsList1: TBindingsList;
DataSetProvider1: TDataSetProvider;
ClientDataSet1: TClientDataSet;
ClientDataSet1s_applicationtype: TStringField;
ClientDataSet1s_applicationlabel: TStringField;
BindSourceDB1: TBindSourceDB;
BindNavigator1: TBindNavigator;
Edit1: TEdit;
Edit2: TEdit;
Button1: TButton;
Memo1: TMemo;
StringGrid1: TStringGrid;
LinkGridToDataSourceBindSourceDB1: TLinkGridToDataSource;
LinkControlToField1: TLinkControlToField;
procedure FormCreate(Sender: TObject);
procedure BindSourceDB1SubDataSourceDataChange(Sender: TObject;
Field: TField);
procedure Button1Click(Sender: TObject);
private
{ Déclarations privées }
public
LinkControlToField2 : TLinkControlToField;
end;
var
Form1: TForm1;
implementation
{$R *.fmx}
procedure TForm1.FormCreate(Sender: TObject);
var
ABindingExpression2 : TBindingExpression;
begin
LinkControlToField2 := TLinkControlToField.Create(BindingsList1);
LinkControlToField2.Name := 'LinkControlToField2';
LinkControlToField2.Category := 'Liaisons rapides';
LinkControlToField2.DataSource := BindSourceDB1;
LinkControlToField2.Direction := linkBidirectional;
LinkControlToField2.Control := Edit2;
LinkControlToField2.FieldName := 's_applicationlabel';
LinkControlToField2.AutoActivate := True;
LinkControlToField2.Track := False;
LinkControlToField2.BindingsList := BindingsList1;
// Comment relier ABindingExpression2 au lien LinkControlToField2 ?
ABindingExpression2 := TBindings.CreateManagedBinding(
[TBindings.CreateAssociationScope([Associate(BindSourceDB1.DataSet.Fields[0],'O1')])],'O1.Value',
[TBindings.CreateAssociationScope([Associate(Edit2, 'O2')])],'O2.Text',nil);
end;
procedure TForm1.BindSourceDB1SubDataSourceDataChange(Sender: TObject;
Field: TField);
begin
TBindings.Notify(BindSourceDB1.DataSet.Fields[0], 'Value');
TBindings.Notify(BindSourceDB1.DataSet.Fields[1], 'Value');
end;
procedure TForm1.Button1Click(Sender: TObject);
var
I,J : Integer;
ALinkControlToField : TLinkControlToField;
begin
Memo1.Lines.Clear;
for I := 0 to BindingsList1.BindCompCount-1 do
begin
if BindingsList1.BindComps[I] is TLinkControlToField then
begin
ALinkControlToField := TLinkControlToField(BindingsList1.BindComps[I]);
Memo1.Lines.Add(ALinkControlToField.Name);
for J := 0 to ALinkControlToField.Binding.FormatExpressions.Count-1 do
begin
Memo1.Lines.Add('--> Format: '
+ ALinkControlToField.Binding.FormatExpressions[J].SourceExpression + ' - '
+ ALinkControlToField.Binding.FormatExpressions[J].ControlExpression);
end;
for J := 0 to ALinkControlToField.Binding.ParseExpressions.Count-1 do
begin
Memo1.Lines.Add('--> Parse : '
+ ALinkControlToField.Binding.ParseExpressions[J].SourceExpression + ' - '
+ ALinkControlToField.Binding.ParseExpressions[J].ControlExpression);
end;
for J := 0 to ALinkControlToField.Binding.ClearExpressions.Count-1 do
begin
Memo1.Lines.Add('--> Clear : '
+ ALinkControlToField.Binding.ClearExpressions[J].SourceExpression + ' - '
+ ALinkControlToField.Binding.ClearExpressions[J].ControlExpression);
end;
end;
end;
end;
end. |
Partager