マルチプラットフォームのDateEditデータバインディングデモ

エンバカデロ

2年前

Do you need an easy way to keep your DateEdit control up-to-date? Then you need the Update DateEdit Demo! This cross-platform application makes it a breeze to update your DateEdit control through an in-memory data table, regardless of which operating system you’re using. And because it’s built in Delphi, you can be sure that the code is clean and reliable. So why wait? Get the Update DateEdit Demo today!

フルクロスプラットフォームのDateEditデータバインディングのソースコードをGithubからダウンロード

このデモは、カメラデモ、絵文字デモ、ペイントデモなど、100以上のクロスプラットフォームデモの一部です。

ソフトウェア開発におけるDateEdit

DateEditコントロールは、日付情報の入力、編集、および書式設定を可能にするソフトウェア開発ツールです。通常、カレンダー、スケジューリングツール、電子メールクライアントなど、日付データを入力または表示する必要があるアプリケーションで使用されます。通常、DateEditコントロールには、日、週、月、年を加算または減算する機能など、日付の入力と管理を容易にするさまざまな機能があります。一部のDateEditコントロールでは、日付範囲を設定したり、日付形式を指定したりすることもできます。一般的に、DateEditコントロールを使用することで、日付データの入力と操作のプロセスを大幅に簡素化できます。

画面ショット

デモのソースコード

unit Unit1;

interface

uses
  System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
  FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs,
  FireDAC.Stan.Intf, FireDAC.Stan.Option, FireDAC.Stan.Param,
  FireDAC.Stan.Error, FireDAC.DatS, FireDAC.Phys.Intf, FireDAC.DApt.Intf,
  FireDAC.Stan.StorageBin, Data.Bind.EngExt, Fmx.Bind.DBEngExt, System.Rtti,
  System.Bindings.Outputs, Fmx.Bind.Editors, Data.Bind.Components,
  FMX.DateTimeCtrls, Data.Bind.DBScope, Data.DB, FireDAC.Comp.DataSet,
  FireDAC.Comp.Client, FMX.Edit, FMX.StdCtrls, FMX.Effects,
  FMX.Controls.Presentation;

type
  TForm1 = class(TForm)
    MaterialOxfordBlueSB: TStyleBook;
    ToolBar1: TToolBar;
    ShadowEffect4: TShadowEffect;
    Label1: TLabel;
    Label2: TLabel;
    BehindEdit1: TEdit;
<strong>    FDMemTable1: TFDMemTable;
    BindSourceDB1: TBindSourceDB;
    BindingsList1: TBindingsList;
    LinkPropertyToFieldText: TLinkPropertyToField;
    DateEdit1: TDateEdit;
    LinkControlToField1: TLinkControlToField;
    procedure DateEdit1Change(Sender: TObject);
    procedure BehindEdit1Validate(Sender: TObject; var Text: string);
    procedure FormCreate(Sender: TObject);</strong>
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.fmx}

<strong>procedure TForm1.DateEdit1Change(Sender: TObject);
begin
  BehindEdit1.Text := DateEdit1.Text;
  TLinkObservers.ControlChanged(BehindEdit1);
end;


procedure TForm1.BehindEdit1Validate(Sender: TObject; var Text: string);
var
  LValue: TDateTime;
begin
  LValue := StrToDateTime(Text);
  if LValue&lt;&gt;DateEdit1.DateTime then
    DateEdit1.DateTime := StrToDateTime(Text);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  BehindEdit1.Text := DateTimeToStr(Now);
end;</strong>

end.

unit Unit1;

interface

uses

System.SysUtils, System.Types, System.UITypes, System.クラス, System.Variants,

FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs,

FireDAC.Stan.Intf, FireDAC.Stan.Option, FireDAC.Stan.Param,

FireDAC.Stan.Error, FireDAC.DatS, FireDAC.Phys.Intf, FireDAC.DApt.Intf,

FireDAC.Stan.StorageBin, Data.Bind.EngExt, Fmx.Bind.DBEngExt, System.Rtti,

System.Bindings.Outputs, Fmx.Bind.Editors, Data.Bind.Components,

FMX.DateTimeCtrls, Data.Bind.DBScope, Data.DB, FireDAC.Comp.DataSet,

FireDAC.Comp.Client, FMX.Edit, FMX.StdCtrls, FMX.Effects,

FMX.Controls.Presentation;

type

TForm1 = class(TForm)

MaterialOxfordBlueSB: TStyleBook;

ToolBar1: TToolBar;

ShadowEffect4: TShadowEffect;

Label1: TLabel;

Label2: TLabel;

BehindEdit1: TEdit;

<strong> FDMemTable1: TFDMemTable;

BindSourceDB1: TBindSourceDB;

BindingsList1: TBindingsList;

LinkPropertyToFieldText: TLinkPropertyToField;

DateEdit1: TDateEdit;

LinkControlToField1: TLinkControlToField;

procedure DateEdit1Change(Sender: TObject);

procedure BehindEdit1Validate(Sender: TObject; var Text: string);

procedure FormCreate(Sender: TObject);</strong>

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.fmx}

<strong>procedure TForm1.DateEdit1Change(Sender: TObject);

begin

BehindEdit1.Text := DateEdit1.Text;

TLinkObservers.ControlChanged(BehindEdit1);

end;

procedure TForm1.BehindEdit1Validate(Sender: TObject; var Text: string);

var

LValue: TDateTime;

begin

LValue := StrToDateTime(Text);

if LValue<>DateEdit1.DateTime then

DateEdit1.DateTime := StrToDateTime(Text);

end;

procedure TForm1.FormCreate(Sender: TObject);

begin

BehindEdit1.Text := DateTimeToStr(Now);

end;</strong>

end.

データバインディングの定義

Formのプロパティ設定

  object BindSourceDB1: TBindSourceDB
    DataSet = FDMemTable1
    ScopeMappings = &lt;&gt;
    Left = 144
    Top = 224
  end
  object BindingsList1: TBindingsList
    Methods = &lt;&gt;
    OutputConverters = &lt;&gt;
    Left = 20
    Top = 5
    object LinkPropertyToFieldText: TLinkPropertyToField
      Category = 'Quick Bindings'
      DataSource = BindSourceDB1
      FieldName = 'Value'
      Component = Label2
      ComponentProperty = 'Text'
    end
    object LinkControlToField1: TLinkControlToField
      Category = 'Quick Bindings'
      DataSource = BindSourceDB1
      FieldName = 'Value'
      Control = BehindEdit1
      Track = False
    end
  end

object BindSourceDB1: TBindSourceDB

DataSet = FDMemTable1

ScopeMappings = <>

Left = 144

Top = 224

end

object BindingsList1: TBindingsList

Methods = <>

OutputConverters = <>

Left = 20

Top = 5

object LinkPropertyToFieldText: TLinkPropertyToField

Category = 'Quick Bindings'

DataSource = BindSourceDB1

FieldName = 'Value'

Component = Label2

ComponentProperty = 'Text'

end

object LinkControlToField1: TLinkControlToField

Category = 'Quick Bindings'

DataSource = BindSourceDB1

FieldName = 'Value'

Control = BehindEdit1

Track = False

end

クロスプラットフォームアプリのプログラミング手法を学ぶには

今すぐ Coding Boot Camp 2022に登録してください。ゲーム、JavaScript、Web、Python、SQL、データベース、iOS、MacOS、Android、モバイル、Linux、Windows、デスクトップ、サーバー、Arduinoなど、プログラミングに関するさまざまなトピックを学ぶことができます。