|
with ADOQuery.do begin close; SQL.clear; SQL.add('select * from COMM'); open; end; if ADOQuery.recordCount >0 then begin DateTimePick1.data := Adoquery.fieldbyname('出生年月').asDatatime; DateTimePick1.data := Adoquery.fieldbyname('入學日期').asDatatime end else begin DateTimePick1.data := now(); DataTimePick2.data := now(); end; adoqueyr.insert; adoquery.cancel; adoquey.append; adoqueyry.edit; adoquery.post;
|
|
|
