procedure TForm1.Button2Click(Sender: TObject);
var
        datetime:string; year,month,day:word;
begin            decodedate(now,year,month,day);
        datetime:=FormatDateTime('hh:nn',now);
        try
                adoquery1.SQL.Clear;
                adoquery1.SQL.Add( 'insert into 工作表 (月,日,加班) values (' inttostr(month) ',' inttostr(day) ',''' datetime ''')');
                adoquery1.ExecSQL;
        except
                On E: Exception do
                        ShowMessage( e.Message)
        end;
end;