Delphi でのデータベース日付フィールドの表示と入力の処理 ===>>>メイン ウィンドウ ユニット

{メインウィンドウユニット}

ユニットメイン;

インタフェース

用途

…{他の内容を省略}

手順 Table1BirthdayGetText(送信者: TField;

var テキスト: 文字列;表示テキスト: ブール値);

プロシージャ Table1BirthdaySetText(送信者: TField;

const テキスト: 文字列);

プライベート

{プライベート宣言}

公共

{公的宣言}

……{わずかに}

実装

{カスタム単位を含める}

DBDateEditMaskTrans を使用します。

{$R *.DFM}

...｛その他の処理は省略｝

プロシージャ TForm1.FormActivate(送信者: TObject);

{日付フィールドの入力マスクを設定します。

TField フィールド定義に配置できます。 }

始める

Table1.FieldByName('Birthday').EditMask:=

'9999年99月99日;1;_';

終わり;

プロシージャ TForm1.Table1BirthdayGetText(送信者:

TField; var テキスト: 文字列: ブール値);

始める

DateFieldGetText(送信者,テキスト);

終わり;

プロシージャ TForm1.Table1BirthdaySetText(送信者:

TField; const テキスト: 文字列);

始める

DateFieldSetText(Sender,Text)=False の場合

中止; {変換に失敗しました。日付が不正です}

終わり;

終わり。