2,497
社区成员
发帖
与我相关
我的任务
分享
procedure TForm1.FormShow(Sender: TObject);
begin
with ADOQuery1 do
begin
close;
SQL.Clear;
SQL.Add('select * from COMM');
open;
end;
if ADOQuery1.RecordCount>0 then
begin
DateTimePicker1.Date := ADOQuery1.fieldbyname('出生年月').AsDateTime;
DateTimePicker2.Date := ADOQuery1.fieldbyname('入学时间').AsDateTime;
end
else
begin
DateTimePicker1.Date := now();
DateTimePicker2.Date := now();
end;
end;
请楼主告诉我第6、7行是什么?