cxDBDateEdit 的問題 |
|
尚未結案
|
|
thomas0728
中階會員   發表：112 回覆：260 積分：89 註冊：2002-03-12 發送簡訊給我 |
|
|
wuabc
初階會員 發表：6 回覆：60 積分：33 註冊：2002-10-28 發送簡訊給我 |
引言: 有人用過 cxDBDateEdit 嗎? 為什麼我將系統日期設為民國年 顯示時也是民國年 但當我修改時 日期確會跑掉,相差11年 不知各位大大有人知道嗎? 謝謝 如果愛情也有味覺 那麼 有沒有ㄧ種愛 微微泛酸 不太苦澀 有點甜密 嚐起來的滋味讓人想起幸福 Thomas Chiou既是差11年顯然跟1911有關 有試者在initialization段加上轉換嗎? (很久沒用了,以下是從我的舊程式找到的) initialization ShortDateFormat := 'ee/mm/dd'; //For dxExEdtr UseDelphiDateTimeFormats := True; //For cxFormat cxFormatController.UseDelphiDateTimeFormats := true; //For date convert safe call //i.e. DateToStr(TheDate,FormatSettings) GetLocaleFormatSettings(0,FormatSettings); FormatSettings.ShortDateFormat := 'yyyy/mm/dd'; 啊!記得Uses cxFormats |
|
thomas0728
中階會員 發表：112 回覆：260 積分：89 註冊：2002-03-12 發送簡訊給我 |
|
|
wuabc
初階會員 發表：6 回覆：60 積分：33 註冊：2002-10-28 發送簡訊給我 |
引言: 請問 //For date convert safe call //i.e. DateToStr(TheDate,FormatSettings)<-----delphi 的程序嗎? GetLocaleFormatSettings(0,FormatSettings); 中的 FormatSettings 是什麼,實在不太了解 |
|
thomas0728
中階會員 發表：112 回覆：260 積分：89 註冊：2002-03-12 發送簡訊給我 |
|
|
wuabc
初階會員 發表：6 回覆：60 積分：33 註冊：2002-10-28 發送簡訊給我 |
引言: 大大,好像不行吔 日期欄位進入時是 20/07/17 跳到下一個欄位時,會變成 2020/07/17 怎麼會這樣 謝謝 如果愛情也有味覺 那麼 有沒有ㄧ種愛 微微泛酸 不太苦澀 有點甜密 嚐起來的滋味讓人想起幸福 Thomas Chiou以下這段程式work fine 至於你的程式為什麼不行,這是Debug的問題,只有你知道 object Form1: TForm1
Left = 283
Top = 143
Width = 344
Height = 225
Caption = 'Form1'
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
OnCreate = FormCreate
PixelsPerInch = 96
TextHeight = 13
object dxDateEdit1: TdxDateEdit
Left = 80
Top = 40
Width = 121
TabOrder = 0
Date = -700000.000000000000000000
end
object cxDBDateEdit1: TcxDBDateEdit
Left = 80
Top = 72
Width = 121
Height = 21
DataBinding.DataField = 'a1'
DataBinding.DataSource = DataSource1
TabOrder = 1
end
object cxDBDateEdit2: TcxDBDateEdit
Left = 80
Top = 96
Width = 121
Height = 21
DataBinding.DataField = 'a2'
DataBinding.DataSource = DataSource1
TabOrder = 2
end
object cds: TClientDataSet
Aggregates = <>
Params = <>
Left = 216
Top = 8
object cdsa1: TDateTimeField
FieldName = 'a1'
end
object cdsa2: TDateTimeField
FieldName = 'a2'
end
end
object DataSource1: TDataSource
DataSet = cds
Left = 248
Top = 8
end
end ----------------------- unit Unit1; interface uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, dxCntner, dxEditor, dxExEdtr, dxEdLib,cxFormats, cxControls,
cxContainer, cxEdit, cxTextEdit, cxMaskEdit, cxDropDownEdit, cxCalendar,
cxDBEdit, DB, DBClient; type
TForm1 = class(TForm)
dxDateEdit1: TdxDateEdit;
cds: TClientDataSet;
cdsa1: TDateTimeField;
cdsa2: TDateTimeField;
DataSource1: TDataSource;
cxDBDateEdit1: TcxDBDateEdit;
cxDBDateEdit2: TcxDBDateEdit;
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end; var
Form1: TForm1;
FormatSettings: TFormatSettings; implementation {$R *.dfm} procedure TForm1.FormCreate(Sender: TObject);
begin
cds.CreateDataSet;
cds.Append;
cdsa1.AsDateTime := date;
end; initialization
ShortDateFormat := 'ee/mm/dd';
//For dxExEdtr
UseDelphiDateTimeFormats := True;
//For cxFormat
cxFormatController.UseDelphiDateTimeFormats := true;
//For date convert safe call
//i.e. DateToStr(TheDate,FormatSettings)
GetLocaleFormatSettings(0,FormatSettings);
FormatSettings.ShortDateFormat := 'yyyy/mm/dd'; end.
|
發表時間：2004-07-13 22:08:03
IP:211.75.xxx.xxx 未訂閱
系統時間：2025-02-27 17:30:43
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |