怎么把Datetimepicer的值,像DBedit一样简单的送道数据库中去!

Question

怎么把Datetimepicer的值,像DBedit一样简单的送道数据库中去?

Answer 1

//子过程
//AFInDate是取日期的窗口
procedure GetDate(TQ: TDataSet; Field: String);
var
  cDate : String;
begin  TQ.Edit;
  TQ.FieldByName(Field).ReadOnly := False;
  cDate :=TQ.FieldByName(Field).AsString;
  if cDate = '' then
    cDate := DateToStr(Date);
  AFInDate.Date := StrToDate(cDate);
  if AFInDate.ShowModal = mrOk then
     TQ.FieldByName(Field).AsString := DateToStr(AFInDate.Date);
  //TQ.FieldByName(Field).ReadOnly := True;
end;
//取值
//TCM是表名，YR_DATE 是字段
GetDate(TCM,'YR_Date');

Answer 2

procedure TForm.table1BeforePost(DataSet: TDataSet);
begin
  table1date.date:= datetimepicker1.date;  //送去數据中;
end;procedure TForm1.table1AfterScroll(DataSet: TDataSet);
begin
   datetimepicker1.date:=table1date.date;  //顯示出來;
end;

Answer 3

你先把别的数据插入到数据库当中，然后根据主键来更新该条数据
update 试试