请教各位大大 我用的是ACCESS的数据库，在EDIT上输入日期很不方便，能否输入20050807这样的格式呢，该如何实现。

1.使用TMaskEdit元件。 2.使用TDateTimePicker元件。 隨便你挑一種，站裡很多討論說明，查一查你就會用。 ----------------------------------------------

您好﹗    改用普通的Edit元件﹐您可直接使用這種格式﹒ 在從資料庫讀出資料時﹐使用FormatDateTime函數﹕

begin
  Edit1.Text := FormatDateTime('YYYYMMDD',ADOTable1.FieldBylName('日期').Value);
end;

在寫入資料庫時﹐使用EncodeDate函數將固定格式的String值轉成DateTime形態﹕

Var
  YY, MM, DD: Word;
begin
  YY := StrToInt(Copy(Edit1.Text),1,4);
  MM := StrToInt(Copy(Edit1.Text),5,2);
  DD := StrToInt(Copy(Edit1.Text),7,2);
  ADOTable1.FieldByName('日期').Value := EncodeDate(YY,MM,DD);
end;

================================= 有空來瞅瞅我﹗因為我是您的朋友﹐有您真好﹗ ================================

------
忻晟

cashxin2002大大您好！     

引言:改用普通的Edit元件﹐您可直接使用這種格式﹒ 在從資料庫讀出資料時﹐使用FormatDateTime函數﹕ begin Edit1.Text := FormatDateTime('YYYYMMDD',ADOTable1.FieldBylName('日期').Value); end; 在寫入資料庫時﹐使用EncodeDate函數將固定格式的String值轉成DateTime形態﹕ Var YY, MM, DD: Word; begin YY := StrToInt(Copy(Edit1.Text),1,4); MM := StrToInt(Copy(Edit1.Text),5,2); DD := StrToInt(Copy(Edit1.Text),7,2); ADOTable1.FieldByName('日期').Value := EncodeDate(YY,MM,DD);

编译时红色处报错: not enough actual parameters 再问大大，在從資料庫讀出資料時和在寫入資料庫時分别使用哪两个事件

1. 如果你是用 DBEdit , 那最好是配合 TField 的 OnGetText , onSetText 的事件，以及 DisplayFormat & EditFormat 的屬性來處理。 2. 改成 YY := StrToInt(Copy(Edit1.Text,1,4)); MM := StrToInt(Copy(Edit1.Text,5,2)); DD := StrToInt(Copy(Edit1.Text,7,2));

您好﹗    Sorry, 筆誤了﹐如同James大大的指正﹒ 讀出資料庫時使用DataSource元件的OnDataChange事件﹒ 寫入資料庫時使用資料集元件的BeforePost事件﹐或在下Post方法之前指定    ================================= 有空來瞅瞅我﹗因為我是您的朋友﹐有您真好﹗ ================================ 發表人 - cashxin2002 於 2005/08/08 09:27:36

------
忻晟

谢谢两位大大！